From 0d249a996d2c969feef525933de925af88e6c249 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 24 Jul 2020 17:24:01 +0200
Subject: Change internal fields to stat with a dash.

---
 module/output/common.scm     | 2 +-
 module/output/ical.scm       | 2 +-
 module/output/sxml-types.scm | 2 +-
 module/output/terminal.scm   | 4 ++--
 module/output/types.scm      | 2 +-
 module/output/vdir.scm       | 4 ++--
 6 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'module/output')

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)]
 
-- 
cgit v1.2.3