diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-28 00:59:14 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-28 00:59:14 +0200 |
commit | a418a180b9eb1c542ab3fc1f3651ce6244965862 (patch) | |
tree | e133bcc50a170a97c82a57d7a411dac22faa621e /module/text/markup.scm | |
parent | Remove unused (sxml html). (diff) | |
download | calp-a418a180b9eb1c542ab3fc1f3651ce6244965862.tar.gz calp-a418a180b9eb1c542ab3fc1f3651ce6244965862.tar.xz |
Some clarifications in text submodules.
Diffstat (limited to '')
-rw-r--r-- | module/text/markup.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/text/markup.scm b/module/text/markup.scm index 7e625725..b74fd169 100644 --- a/module/text/markup.scm +++ b/module/text/markup.scm @@ -7,6 +7,11 @@ :use-module (text flow) :use-module (texinfo string-utils)) +;; Takes an HTML-like sxml coded tree, and produces a string with +;; appropriate spacing and ANSI-escapes for different tags. +(define-public (sxml->ansi-text tree) + ((parse-tree ontree onleaf) tree)) + (define (esc . effect) (format #f "\x1b[~am" @@ -117,5 +122,3 @@ [any (leaf-callback any)])) -(define-public (sxml->ansi-text tree) - ((parse-tree ontree onleaf) tree)) |