diff options
Diffstat (limited to '')
-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) "??" |