diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 21:43:34 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 21:43:34 +0200 |
| commit | e4e96add67f3417e1cb0c1df4491506158f10eb9 (patch) | |
| tree | 645e443c61ca3a8d808d9f846a636ad572183c90 /module/text | |
| parent | Break text procedures into modules. (diff) | |
| download | calp-e4e96add67f3417e1cb0c1df4491506158f10eb9.tar.gz calp-e4e96add67f3417e1cb0c1df4491506158f10eb9.tar.xz | |
Minor output changes.
Diffstat (limited to 'module/text')
| -rw-r--r-- | module/text/markup.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/text/markup.scm b/module/text/markup.scm index 62b6ebe4..69a08d10 100644 --- a/module/text/markup.scm +++ b/module/text/markup.scm @@ -60,7 +60,7 @@ (car it) 1) #\space)] [(br) "\n"] - [(hr) (string-append " " (make-string 60 #\_) " \n")] + [(hr) (string-append " " (make-string 60 #\─) " \n")] [(dl) (let* ((dts dds (partition (lambda (x) (eq? 'dt (car x))) body))) (let* ((dts* (map sxml->ansi-text dts)) @@ -86,8 +86,9 @@ [(scheme) (string-concatenate (map (lambda (form) - (with-output-to-string - (lambda () (pretty-print form width: (aif (assoc-ref args 'width) (car it) 70))))) + (string-trim-both + (with-output-to-string + (lambda () (pretty-print form width: (aif (assoc-ref args 'width) (car it) 70)))))) body))] [else (string-append (esc 'bold) "??" |