Add tables and spinners

This commit is contained in:
Dimitri Lozeve 2021-11-22 18:29:40 +01:00
parent 51f5e862a3
commit ac81aeaddc
5 changed files with 77 additions and 3 deletions

View file

@ -86,7 +86,7 @@
(if match
(let-values (((control-seq new-style) (parse-tag (irregex-match-substring match 1) style)))
(parse-markup (irregex-replace +re-tags+ text control-seq) new-style))
(string-join (list text (graphics-style '())))))
(string-append text (graphics-style '()))))
(define (remove-markup text)
(irregex-replace/all +re-tags+ text ""))