1 files changed, 29 insertions, 0 deletions
diff --git a/module/vcomponent/data-stores/meta.scm b/module/vcomponent/data-stores/meta.scm
new file mode 100644
index 00000000..8ec5f7fd
--- /dev/null
+++ b/module/vcomponent/data-stores/meta.scm
@@ -0,0 +1,29 @@
+;;; Commentary:
+;;; A virtual data store which uses other data stores for its storage.
+;;; Used to merge stores into larger stores
+;;; Code:
+
+(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-keyword: stores:))
+
+
+
+(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))))