1 files changed, 27 insertions, 0 deletions
diff --git a/module/calp/webdav/resource/calendar.scm b/module/calp/webdav/resource/calendar.scm
new file mode 100644
index 00000000..314d66aa
--- /dev/null
+++ b/module/calp/webdav/resource/calendar.scm
@@ -0,0 +1,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)))
+
+
+
+
+
+
+