diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-02 17:48:17 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-02 17:48:17 +0100 |
commit | c5e511a8b6e4488d35e18d9d2defba5508bfb8f2 (patch) | |
tree | 3ad25b596bee2c1c553b0a9939474e1e7ee973c4 /vcalendar.scm | |
parent | Fix lingering strbuf off by one error. (diff) | |
download | calp-c5e511a8b6e4488d35e18d9d2defba5508bfb8f2.tar.gz calp-c5e511a8b6e4488d35e18d9d2defba5508bfb8f2.tar.xz |
Expose KEY(TRIE(content_line)) to scheme.
Diffstat (limited to 'vcalendar.scm')
-rw-r--r-- | vcalendar.scm | 23 |
1 files changed, 11 insertions, 12 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 |