diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/text/markup.scm | 7 | ||||
-rw-r--r-- | module/util/options.scm | 4 |
2 files changed, 6 insertions, 5 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) "??" diff --git a/module/util/options.scm b/module/util/options.scm index 41514a8f..d829dc6f 100644 --- a/module/util/options.scm +++ b/module/util/options.scm @@ -26,9 +26,9 @@ (let ((name (car option-line)) (args (cdr option-line))) (let ((valuefmt (case (and=> (assoc-ref args 'value) car) - [(#t) '("=" (i value))] + [(#t) '(" " (i value))] [(#f) '()] - [else => (lambda (s) `("[=" (i ,s) "]"))]))) + [else => (lambda (s) `(" [" (i ,s) "]"))]))) `(*TOP* (b "--" ,name) ,@valuefmt ,@(awhen (assoc-ref args 'single-char) `("," (ws) |