diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-10 21:55:59 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-12 12:11:06 +0200 |
| commit | 4b267003afd9750123030d63da8e16d0ec948b4e (patch) | |
| tree | e15d3bdde5ee3e6089438e1bc56124b93dc066e3 /module/calp/webdav/resource.scm | |
| parent | Add with-locale1. (diff) | |
| download | calp-4b267003afd9750123030d63da8e16d0ec948b4e.tar.gz calp-4b267003afd9750123030d63da8e16d0ec948b4e.tar.xz | |
UNFINISHED webdav server.
Diffstat (limited to 'module/calp/webdav/resource.scm')
| -rw-r--r-- | module/calp/webdav/resource.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/module/calp/webdav/resource.scm b/module/calp/webdav/resource.scm new file mode 100644 index 00000000..47c5aded --- /dev/null +++ b/module/calp/webdav/resource.scm @@ -0,0 +1,15 @@ +(define-module (calp webdav resource) + :use-module (srfi srfi-88) + :use-module (oop goops) + :use-module (calp webdav resource base) + :export (mount-resource!)) + +(define cm (module-public-interface (current-module))) +(module-use! cm (resolve-interface '(calp webdav resource base))) + +;;; TODO mount-resource! vs add-child! +;;; Would a good idea be that add-resource! adds directly, and should +;;; be considered internal, while mount-resource! also runs post-add +;;; hooks, and could thereby be exported +(define-method (mount-resource! (this <resource>) (child <resource>)) + (add-child! this child)) |