blob: 314d66aa6c9689374d63ee29191d704de317186c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(define-module (calp webdav resource calendar)
;; :use-module (hnh util)
;; :use-module (datetime)
;; :use-module (sxml namespaced util)
;; :use-module (calp webdav property)
;; :use-module (ice-9 hash-table)
:use-module (calp webdav resource calendar collection)
:use-module (calp webdav resource calendar object)
:export (
calendar-resource?
)
)
(define cm (module-public-interface (current-module)))
(module-use! cm (resolve-interface '(calp webdav resource calendar collection)))
(module-use! cm (resolve-interface '(calp webdav resource calendar object)))
(define (calendar-resource? x)
(or (calendar-collection-resource? x)
(calendar-object-resource? x)))
|