diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 19:37:43 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 19:37:43 +0200 |
| commit | 2bfe0cc93ddf2bf1502d4778f86eed4a47bd61bd (patch) | |
| tree | b2ed25129ff4b178f20ff65f4f47564cf88da0d0 | |
| parent | Remove surpurflous lambda. (diff) | |
| download | calp-2bfe0cc93ddf2bf1502d4778f86eed4a47bd61bd.tar.gz calp-2bfe0cc93ddf2bf1502d4778f86eed4a47bd61bd.tar.xz | |
Made keys in vulgar output bold.
| -rw-r--r-- | module/output/terminal.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index bfe5d2ab..2fad95e3 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -79,10 +79,11 @@ (unless (null? events) (let ((ev (list-ref events cur-event))) - (format #t "~a~%~a~%~aStart: ~a Slut: ~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) (cut string-append "Plats: " <> "\n")) "") + (or (and=> (attr ev 'LOCATION) + (cut string-append "\x1b[1mPlats:\x1b[m " <> "\n")) "") (time->string (attr ev 'DTSTART) "~1 ~3") (time->string (attr ev 'DTEND) "~1 ~3") (unlines (take-to (flow-text (or (attr ev 'DESCRIPTION) "") |