aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/data-stores/meta.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/data-stores/meta.scm')
-rw-r--r--module/vcomponent/data-stores/meta.scm16
1 files changed, 14 insertions, 2 deletions
diff --git a/module/vcomponent/data-stores/meta.scm b/module/vcomponent/data-stores/meta.scm
index c670d692..8ec5f7fd 100644
--- a/module/vcomponent/data-stores/meta.scm
+++ b/module/vcomponent/data-stores/meta.scm
@@ -6,12 +6,24 @@
(define-module (vcomponent data-stores meta)
:use-module (oop goops)
:use-module (vcomponent data-stores common)
+ :use-module (srfi srfi-41)
:use-module ((srfi srfi-88) :select ())
:export ()
)
(define-class <meta-data-store> (<calendar-data-store>)
(stores accessor: stores
- init-value: '()))
+ init-value: '()
+ init-keyword: stores:))
-(define-method (get-calendar ))
+
+
+(define-method (get-all (this <meta-data-store>))
+ (map get-all (stores this)))
+
+(define-method (get-by-uid (this <meta-data-store>) (uid <string>))
+ (stream-car
+ (stream-append
+ (steam-map (lambda (store) (get-by-uid store uid))
+ (list->stream (stores this)))
+ (stream #f))))