From e4e96add67f3417e1cb0c1df4491506158f10eb9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 1 Jun 2020 21:43:34 +0200 Subject: Minor output changes. --- module/text/markup.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'module/text') 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) "??" -- cgit v1.2.3