blob: 03c115f55826c2d92796b58888736644c0429830 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(define-module (vcomponent data-stores virtual)
:use-module (oop goops)
:use-module ((srfi srfi-88) :select ())
:use-module (vcomponent data-stores common)
:export (make-file-store))
(define-class <virtual-data-store> (<calendar-data-store>)
)
(define-method (get-all (this <virtual-data-store>))
#f)
(define-method (get-by-uid (this <virtual-data-store>)
(uid <string>))
#f)
(define-method (color (this <virtual-data-store>))
"")
(define-method (displayname (this <virtual-data-store>))
"Virtual Calendar")
|