diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 17:24:01 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 17:24:01 +0200 |
commit | 0d249a996d2c969feef525933de925af88e6c249 (patch) | |
tree | 639ccc2f65d33e9f1cf06cb0b619bce403cb054d /module/output/terminal.scm | |
parent | Frontend feedback on event creation. (diff) | |
download | calp-0d249a996d2c969feef525933de925af88e6c249.tar.gz calp-0d249a996d2c969feef525933de925af88e6c249.tar.xz |
Change internal fields to stat with a dash.
Diffstat (limited to 'module/output/terminal.scm')
-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 c5c1323d..9092d01b 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -49,7 +49,7 @@ (if (= i cur-event) "\x1b[7m" "") (color-escape (prop (parent ev) 'COLOR)) ;; Summary filter is a hook for the user - (let ((dirty (prop ev 'X-HNH-DIRTY))) + (let ((dirty (prop ev '-X-HNH-DIRTY))) (string-append (if dirty "* " "") ;; TODO reintroduce summary-filter @@ -107,7 +107,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~%" - (prop ev 'X-HNH-FILENAME) + (prop ev '-X-HNH-FILENAME) (prop ev 'SUMMARY) (or (and=> (prop ev 'LOCATION) (cut string-append "\x1b[1mPlats:\x1b[m " <> "\n")) "") |