diff options
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")) "") |