diff options
Diffstat (limited to '')
-rw-r--r-- | vcalendar.scm | 23 | ||||
-rw-r--r-- | vcalendar/primitive.scm | 4 |
2 files changed, 14 insertions, 13 deletions
diff --git a/vcalendar.scm b/vcalendar.scm index c2228650..b61c6140 100644 --- a/vcalendar.scm +++ b/vcalendar.scm @@ -1,12 +1,9 @@ (define-module (vcalendar) #:use-module (vcalendar primitive) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-26) - #:export (make-vcomponent children set-attr! get-attr type - type-filter - transform-attr! push-child!)) + #:use-module (srfi srfi-26)) -(define (make-vcomponent path) +(define-public (make-vcomponent path) (if (string-ci=? ".ics" (string-take-right path 4)) ;; == Single ICS file == ;; Remove the abstract ROOT component, @@ -26,7 +23,7 @@ accum) '() (%vcomponent-children (%vcomponent-make path))))) -(define (type-filter t lst) +(define-public (type-filter t lst) (filter (lambda (e) (eqv? t (type e))) lst)) @@ -35,14 +32,16 @@ (if only-type (type-filter only-type childs) childs))) +(export children) -(define set-attr! %vcomponent-set-attribute!) -(define get-attr %vcomponent-get-attribute) -(define type %vcomponent-type) -(define parent %vcomponent-parent) -(define push-child! %vcomponent-push-child!) +(define-public set-attr! %vcomponent-set-attribute!) +(define-public get-attr %vcomponent-get-attribute) +(define-public type %vcomponent-type) +(define-public parent %vcomponent-parent) +(define-public push-child! %vcomponent-push-child!) +(define-public attributes %vcomponent-attribute-list) -(define (transform-attr! ev field transformer) +(define-public (transform-attr! ev field transformer) "Apply transformer to field in ev, and store the result back." (set-attr! ev field (transformer diff --git a/vcalendar/primitive.scm b/vcalendar/primitive.scm index aa182040..b4ba1f38 100644 --- a/vcalendar/primitive.scm +++ b/vcalendar/primitive.scm @@ -10,7 +10,9 @@ %vcomponent-type %vcomponent-set-attribute! - %vcomponent-get-attribute)) + %vcomponent-get-attribute + + %vcomponent-attribute-list)) (setenv "LD_LIBRARY_PATH" (dirname (dirname (current-filename)))) (load-extension "libguile-calendar" "init_lib") |