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/vdir.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/vdir.scm')
| -rw-r--r-- | module/output/vdir.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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)] |