diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/vcalendar.scm | 7 | ||||
-rw-r--r-- | module/vcalendar/primitive.scm | 3 |
2 files changed, 7 insertions, 3 deletions
diff --git a/module/vcalendar.scm b/module/vcalendar.scm index 3f7ba6ba..c978f3fc 100644 --- a/module/vcalendar.scm +++ b/module/vcalendar.scm @@ -42,7 +42,10 @@ ;; (set! (attr ev "KEY") 10) (define-public attr (make-procedure-with-setter get-attr set-attr!)) -(define-public type %vcomponent-type) +;; (define-public type %vcomponent-get-type) +(define-public type (make-procedure-with-setter + %vcomponent-get-type + %vcomponent-set-type!)) (define-public parent %vcomponent-parent) (define-public push-child! %vcomponent-push-child!) (define-public (attributes component) (map string->symbol (%vcomponent-attribute-list component))) @@ -71,7 +74,7 @@ (let* ((root (%vcomponent-make path)) (component (parse-dates! - (case (string->symbol (or (attr root "TYPE") "no-type")) + (case (string->symbol (or (attr root "X-HNH-SOURCETYPE") "no-type")) ;; == Single ICS file == ;; Remove the abstract ROOT component, ;; returning the wanted VCALENDAR component diff --git a/module/vcalendar/primitive.scm b/module/vcalendar/primitive.scm index b5eb9388..fed799f9 100644 --- a/module/vcalendar/primitive.scm +++ b/module/vcalendar/primitive.scm @@ -8,7 +8,8 @@ %vcomponent-parent %vcomponent-make - %vcomponent-type + %vcomponent-get-type + %vcomponent-set-type! %vcomponent-set-attribute! %vcomponent-get-attribute |