diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 11:40:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-25 11:40:31 +0200 |
commit | 28e3374a0bd8b192463531d9422d06cc90ab19cf (patch) | |
tree | 561c85675193b6c56a9ac070d205a8154af49e50 | |
parent | Clean up util and move exceptions. (diff) | |
download | calp-28e3374a0bd8b192463531d9422d06cc90ab19cf.tar.gz calp-28e3374a0bd8b192463531d9422d06cc90ab19cf.tar.xz |
Made SUMMARY stick out in vulgar view.
-rw-r--r-- | module/output/terminal.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 2fad95e3..e087a73e 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -79,7 +79,7 @@ (unless (null? events) (let ((ev (list-ref events cur-event))) - (format #t "~a~%~a~%~a\x1b[1mStart:\x1b[m ~a \x1b[1mSlut:\x1b[m ~a~%~%~a~%" + (format #t "~a~%~% ~a~%~%~a\x1b[1mStart:\x1b[m ~a \x1b[1mSlut:\x1b[m ~a~%~%~a~%" (attr ev 'X-HNH-FILENAME) (attr ev 'SUMMARY) (or (and=> (attr ev 'LOCATION) @@ -88,7 +88,7 @@ (time->string (attr ev 'DTEND) "~1 ~3") (unlines (take-to (flow-text (or (attr ev 'DESCRIPTION) "") #:width (min 70 width)) - (- height 8 2 (length events) 5)))))) + (- height 8 5 (length events) 5)))))) (let ((char (read-char))) ;; (format (current-error-port) |