From 0d249a996d2c969feef525933de925af88e6c249 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 24 Jul 2020 17:24:01 +0200 Subject: Change internal fields to stat with a dash. --- module/output/terminal.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/output/terminal.scm') 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")) "") -- cgit v1.2.3