From 81fc535b2b8cb2a726c8514f2ae91e913ac157c7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Apr 2023 11:18:25 +0200
Subject: UNFINISHED work on data stores and formats.

---
 module/vcomponent/data-stores/meta.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'module/vcomponent/data-stores/meta.scm')

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))))
-- 
cgit v1.2.3