diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 11:18:25 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 11:51:08 +0200 |
commit | 81fc535b2b8cb2a726c8514f2ae91e913ac157c7 (patch) | |
tree | d37e85a0f87f9a3464f5e57c4de1241d671faf1c /module/vcomponent/data-stores/meta.scm | |
parent | UNFINISHED work on formats. (diff) | |
download | calp-81fc535b2b8cb2a726c8514f2ae91e913ac157c7.tar.gz calp-81fc535b2b8cb2a726c8514f2ae91e913ac157c7.tar.xz |
UNFINISHED work on data stores and formats.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/data-stores/meta.scm | 16 |
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)))) |