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/common.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/common.scm | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/module/vcomponent/data-stores/common.scm b/module/vcomponent/data-stores/common.scm index d6775141..2fb4422a 100644 --- a/module/vcomponent/data-stores/common.scm +++ b/module/vcomponent/data-stores/common.scm @@ -2,25 +2,42 @@ :use-module ((srfi srfi-88) :select ()) :use-module (oop goops) :export (<calendar-data-store> - path + ;; path get-all get-by-uid)) (define-class <calendar-data-store> () - (path init-keyword: path: - getter: path) + ;; (path init-keyword: path: + ;; getter: path) ) + +;;; In (calp server routes) + + + + +;;; Load - Load store into memero +;;; Dump - Save store into "disk" + (define-method (get-all (this <calendar-data-store>)) (scm-error 'not-implemented "get-all" "Get-all is not implemented for ~s" - (list (class-of this)) + (class-of this) #f)) (define-method (get-by-uid (this <calendar-data-store>) (uid <string>)) (scm-error 'not-implemented "get-by-uid" "Get-by-uid is not implemented for ~s" - (list (class-of this)) + (class-of this) #f)) + + +(define-method (color (this <calendar-data-store>)) + "") + + +(define-method (displayname (this <calendar-data-store>)) + "") |