Split WebDAV calendar resources into 2.

Differentiate between calendar collection and calendar objects already
at the DAV level. This is sensible since they support completely
different properties, and only collections support REPORTS (as for as I
can tell).

1 files changed, 76 insertions, 0 deletions

diff --git a/module/calp/webdav/resource/calendar/object.scm b/module/calp/webdav/resource/calendar/object.scm
new file mode 100644
index 00000000..82a8c18e
--- /dev/null
+++ b/module/calp/webdav/resource/calendar/object.scm
@@ -0,0 +1,76 @@
+(define-module (calp webdav resource calendar object)
+  :use-module (srfi srfi-1)
+  :use-module (srfi srfi-71)
+  :use-module (srfi srfi-88)
+  :use-module (oop goops)
+  :use-module (calp webdav resource)
+  :use-module ((vcomponent formats ical) :prefix #{ics:}#)
+  :use-module ((vcomponent formats xcal) :prefix #{xcs:}#)
+  :use-module ((vcomponent) :prefix vcs-)
+  :use-module ((calp namespaces) :select (webdav))
+  :use-module (calp webdav property)
+  :use-module (sxml namespaced)
+
+  :export (<calendar-object-resource>
+           calendar-object-resource?
+           component)
+  )
+
+;;; content%
+
+(define-class <calendar-object-resource> (<resource>)
+  (component getter: component
+             init-keyword: component:))
+
+
+
+(define-method (is-collection? (_ <calendar-object-resource>))
+  #f)
+
+
+
+(define-method (children (_ <calendar-object-resource>))
+  '())
+
+(define (calendar-object-resource? x)
+ (is-a? x <calendar-object-resource>))
+
+(define-method (content (self <calendar-object-resource>) content-type)
+  (case content-type
+    ((text/calendar)
+     (call-with-output-string (lambda (port) (ics:serialize (content% self) port))))
+    ((application/calendar+xml)
+     (call-with-output-string (lambda (port) (xcs:serialize (content% self) port))))
+    ;; ((text/html))
+    ;; ((application/xhtml+xml))
+    ;; ((application/calendar+json))
+    (else (content self 'text/calendar))
+    )
+  )
+
+(define-method (creationdate (self <calendar-object-resource>))
+  (propstat 200
+            `((,(xml webdav 'creationdate)
+               (-> (content self)
+                   (prop 'CREATED)
+                   ;; TODO timezone
+                   (datetime->string "~Y-~m-~dT~H:~M:~SZ"))))))
+
+
+(define-method (getcontentlength (self <calendar-object-resource>))
+  ;; TODO which representation should be choosen to calculate length?
+  (propstat 501 `((,(xml webdav 'getcontentlength)))))
+
+
+
+(define-method (getcontenttyype (self <calendar-object-resource>))
+  ;; TODO different representations
+  (propstat 200 `((,(xml webdav 'getcontentlength)
+                   "text/calendar"))))
+
+
+(define-method (getlastmodified (self <calendar-object-resource>))
+  (propstat 200
+            `((,(xml webdav 'getlastmodified)
+               (string->datetime (prop (content self) 'LAST-MODIFIED)
+                                 "~Y~m~dT~H~M~S")))))