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)))))))
;; 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