From 715e36ab81389ebf53ea158027d0a83f144eee0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 30 Jun 2020 01:58:19 +0200 Subject: Finished renamining attribute to property. --- module/vcomponent.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'module/vcomponent.scm') 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)] -- cgit v1.2.3