From 64b0b7fa5cf41ff355d02b3f692a3f59c3559fc4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 2 Jul 2023 07:51:29 +0200
Subject: [PATCH] Stripping in block.

---
 src/sgr-block.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/sgr-block.scm b/src/sgr-block.scm
index 0e4e46c..88498d9 100644
--- a/src/sgr-block.scm
+++ b/src/sgr-block.scm
@@ -86,10 +86,13 @@
 		   res)))))))
 
  ;; Creates a plain list of strings from given block
- (define* (sgr-block->string-list sb #:reset-state (reset-state #f))
+ (define* (sgr-block->string-list sb
+				  #:reset-state (reset-state #f)
+				  #:strip-ansi? (strip-ansi? #f))
    (map (lambda (sl)
 	  (sgr-list->string sl
-			    #:reset-state reset-state))
+			    #:reset-state reset-state
+			    #:strip-ansi strip-ansi?))
 	sb))
 
  ;; Returns the width of the longest SGR line in the block