diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-30 01:58:19 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
commit | 715e36ab81389ebf53ea158027d0a83f144eee0e (patch) | |
tree | 1e9522ba3bf4aef212d0b1d179e9bf1db2e6f60b /module/vcomponent.scm | |
parent | Rename attributes => properties, properties => parameters. (diff) | |
download | calp-715e36ab81389ebf53ea158027d0a83f144eee0e.tar.gz calp-715e36ab81389ebf53ea158027d0a83f144eee0e.tar.xz |
Finished renamining attribute to property.
Diffstat (limited to 'module/vcomponent.scm')
-rw-r--r-- | module/vcomponent.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/module/vcomponent.scm b/module/vcomponent.scm index 01640bb8..5616394c 100644 --- a/module/vcomponent.scm +++ b/module/vcomponent.scm @@ -59,12 +59,12 @@ (setf 'uid-map (let ((ht (make-hash-table))) - (for-each (lambda (event) (hash-set! ht (attr event 'UID) event)) (getf 'events)) + (for-each (lambda (event) (hash-set! ht (prop event 'UID) event)) (getf 'events)) ht))) (define-method (fixed-events-in-range start end) (filter-sorted (lambda (ev) ((in-date-range? start end) - (as-date (attr ev 'DTSTART)))) + (as-date (prop ev 'DTSTART)))) (getf 'fixed-events))) (define-method (get-event-by-uid uid) @@ -88,23 +88,23 @@ (define / file-name-separator-string) (define-public (calendar-import calendar event) - (case (attr calendar 'X-HNH-SOURCETYPE) + (case (prop calendar 'X-HNH-SOURCETYPE) [(file) (error "Importing into direct calendar files not supported")] [(vdir) - (let* ((uid (or (attr event 'UID) (uuidgen))) + (let* ((uid (or (prop event 'UID) (uuidgen))) ;; copy to enusre writable string - (tmpfile (string-copy (string-append (attr calendar 'X-HNH-DIRECTORY) + (tmpfile (string-copy (string-append (prop calendar 'X-HNH-DIRECTORY) / ".calp-" uid "XXXXXX"))) (port (mkstemp! tmpfile))) - (set! (attr event 'UID) uid) + (set! (prop event 'UID) uid) (with-output-to-port port (lambda () (print-components-with-fake-parent (list event)))) ;; does close flush? (force-output port) (close-port port) - (rename-file tmpfile (string-append (attr calendar 'X-HNH-DIRECTORY) + (rename-file tmpfile (string-append (prop calendar 'X-HNH-DIRECTORY) / uid ".ics")) uid)] |