diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-24 21:59:42 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-10 23:45:29 +0200 |
commit | 8daf73adf8914ea318d7c703d17c64d650c2d5cc (patch) | |
tree | 9f2337f7b98f766929cb68563e8bd282597f6ea2 /module/vcomponent/data-stores/meta.scm | |
parent | Put base for new store-load interface. (diff) | |
download | calp-8daf73adf8914ea318d7c703d17c64d650c2d5cc.tar.gz calp-8daf73adf8914ea318d7c703d17c64d650c2d5cc.tar.xz |
Start writing data-store: meta
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/data-stores/meta.scm | 17 |
1 files changed, 17 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..c670d692 --- /dev/null +++ b/module/vcomponent/data-stores/meta.scm @@ -0,0 +1,17 @@ +;;; 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-88) :select ()) + :export () + ) + +(define-class <meta-data-store> (<calendar-data-store>) + (stores accessor: stores + init-value: '())) + +(define-method (get-calendar )) |