brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Stripping in block.

Browse source
This commit is contained in:
Dominik Pantůček 2023-07-02 07:51:29 +02:00
parent 2041fef742
commit 64b0b7fa5c
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/sgr-block.scm
View file

@ -86,10 +86,13 @@
res))))))) res)))))))
;; Creates a plain list of strings from given block ;; 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) (map (lambda (sl)
(sgr-list->string sl (sgr-list->string sl
#:reset-state reset-state)) #:reset-state reset-state
#:strip-ansi strip-ansi?))
sb)) sb))
;; Returns the width of the longest SGR line in the block ;; Returns the width of the longest SGR line in the block