diff options
Diffstat (limited to 'module/output')
| -rw-r--r-- | module/output/common.scm | 2 | ||||
| -rw-r--r-- | module/output/ical.scm | 2 | ||||
| -rw-r--r-- | module/output/sxml-types.scm | 2 | ||||
| -rw-r--r-- | module/output/terminal.scm | 4 | ||||
| -rw-r--r-- | module/output/types.scm | 2 | ||||
| -rw-r--r-- | module/output/vdir.scm | 4 |
6 files changed, 8 insertions, 8 deletions
diff --git a/module/output/common.scm b/module/output/common.scm index f572a282..155b88a8 100644 --- a/module/output/common.scm +++ b/module/output/common.scm @@ -10,7 +10,7 @@ ) -(define*-public (internal-field? symbol optional: (prefix "X-HNH-")) +(define*-public (internal-field? symbol optional: (prefix "-")) (string=? prefix (string-take-to (symbol->string symbol) (string-length prefix)))) diff --git a/module/output/ical.scm b/module/output/ical.scm index 6b8728a6..e9636fdc 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -153,7 +153,7 @@ (format #t "END:~a\r\n" (type component)) ;; If we have alternatives, splice them in here. - (cond [(prop component 'X-HNH-ALTERNATIVES) + (cond [(prop component '-X-HNH-ALTERNATIVES) => (lambda (alts) (hash-map->list (lambda (_ comp) (component->ical-string comp)) alts))])) diff --git a/module/output/sxml-types.scm b/module/output/sxml-types.scm index bbd70fe8..2d5b3742 100644 --- a/module/output/sxml-types.scm +++ b/module/output/sxml-types.scm @@ -14,7 +14,7 @@ (define (write-datetime p v) `(date-time ,(datetime->string - (hashq-ref p 'X-HNH-ORIGINAL v) + (hashq-ref p '-X-HNH-ORIGINAL v) ;; 'Z' should be included for UTC, ;; other timezones MUST be specified ;; in the TZID parameter. 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")) "") diff --git a/module/output/types.scm b/module/output/types.scm index 3627a8b9..d4305b7a 100644 --- a/module/output/types.scm +++ b/module/output/types.scm @@ -19,7 +19,7 @@ ;; NOTE We really should output TZID from param here, but ;; we first need to change so these writers can output ;; parameters. - (datetime->string (hashq-ref param 'X-HNH-ORIGINAL value) + (datetime->string (hashq-ref param '-X-HNH-ORIGINAL value) "~Y~m~dT~H~M~S~Z")) (define (write-duration _ value) diff --git a/module/output/vdir.scm b/module/output/vdir.scm index 5e319248..cf4f6c8d 100644 --- a/module/output/vdir.scm +++ b/module/output/vdir.scm @@ -16,7 +16,7 @@ (define-public (save-event event) (define calendar (parent event)) - (case (prop calendar 'X-HNH-SOURCETYPE) + (case (prop calendar '-X-HNH-SOURCETYPE) [(file) (error "Importing into direct calendar files not supported")] @@ -24,7 +24,7 @@ (let* ((uid (or (prop event 'UID) (uuidgen)))) (set! (prop event 'UID) uid) (with-atomic-output-to-file - (string-append (prop calendar 'X-HNH-DIRECTORY) / uid ".ics") + (string-append (prop calendar '-X-HNH-DIRECTORY) / uid ".ics") (lambda () (print-components-with-fake-parent (list event)))) uid)] |