aboutsummaryrefslogtreecommitdiff
path: root/module/calp/webdav/resource/calendar.scm
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)))