diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-18 19:26:42 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-19 22:12:36 +0200 |
| commit | 6d397148565e581f9546b3b8dfb882a78890b60f (patch) | |
| tree | ee53f9141fa9ad43396512ad70221f35486f6e5a /module/calp/webdav | |
| parent | Allow namespaced sxml to add namespaces. (diff) | |
| download | calp-6d397148565e581f9546b3b8dfb882a78890b60f.tar.gz calp-6d397148565e581f9546b3b8dfb882a78890b60f.tar.xz | |
Utilities for namespaced sxml.
Diffstat (limited to 'module/calp/webdav')
| -rw-r--r-- | module/calp/webdav/propfind.scm | 1 | ||||
| -rw-r--r-- | module/calp/webdav/resource/base.scm | 6 | ||||
| -rw-r--r-- | module/calp/webdav/resource/virtual.scm | 1 |
3 files changed, 3 insertions, 5 deletions
diff --git a/module/calp/webdav/propfind.scm b/module/calp/webdav/propfind.scm index 3e86304c..83725825 100644 --- a/module/calp/webdav/propfind.scm +++ b/module/calp/webdav/propfind.scm @@ -4,6 +4,7 @@ :use-module (calp namespaces) :use-module (srfi srfi-1) :use-module (sxml namespaced) + :use-module (sxml namespaced util) :export (propfind-selected-properties propfind-all-live-properties propfind-most-live-properties diff --git a/module/calp/webdav/resource/base.scm b/module/calp/webdav/resource/base.scm index 5f308cc7..95e9ad43 100644 --- a/module/calp/webdav/resource/base.scm +++ b/module/calp/webdav/resource/base.scm @@ -5,6 +5,7 @@ :use-module (srfi srfi-88) :use-module (oop goops) :use-module (sxml namespaced) + :use-module (sxml namespaced util) :use-module (calp webdav property) :use-module (calp namespaces) :use-module ((hnh util) :select (unless)) @@ -22,7 +23,6 @@ ;; resource-children resource? children - xml-element-hash-key @@ -276,10 +276,6 @@ status) ((collision) 'collision)))) -(define (xml-element-hash-key tag) - "Returns a value suitable as a key to hash-ref (and family)" - (cons (xml-element-namespace tag) - (xml-element-tagname tag))) ;; Only tagname and namespaces are checked on the <xml-element> for the {get,set}-property diff --git a/module/calp/webdav/resource/virtual.scm b/module/calp/webdav/resource/virtual.scm index 2fcaa76a..1d2d5d31 100644 --- a/module/calp/webdav/resource/virtual.scm +++ b/module/calp/webdav/resource/virtual.scm @@ -4,6 +4,7 @@ :use-module (rnrs bytevectors) :use-module (hnh util) :use-module (sxml namespaced) + :use-module (sxml namespaced util) :use-module (calp webdav resource) :use-module (calp webdav property) :use-module (calp namespaces) |