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 | |
parent | Break text procedures into modules. (diff) | |
download | calp-e4e96add67f3417e1cb0c1df4491506158f10eb9.tar.gz calp-e4e96add67f3417e1cb0c1df4491506158f10eb9.tar.xz |
Minor output changes.
-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) |