diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-21 16:17:28 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:58:30 +0100 |
commit | d00fea566004e67161ee45246b239fff5d416b0e (patch) | |
tree | 5641c0c0d0e78b046b6045ed2440512f12259560 /module/vcomponent/xcal | |
parent | Complete rewrite of use2dot (diff) | |
download | calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.gz calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.xz |
Cleanup modules.
Primarly this moves all vcompenent input and output code to clearly
labeled modules, instead of being spread out. At the same time it also
removes a handfull of unused procedures.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/formats/xcal/output.scm (renamed from module/vcomponent/xcal/output.scm) | 4 | ||||
-rw-r--r-- | module/vcomponent/formats/xcal/parse.scm (renamed from module/vcomponent/xcal/parse.scm) | 4 | ||||
-rw-r--r-- | module/vcomponent/formats/xcal/types.scm (renamed from module/vcomponent/xcal/types.scm) | 6 |
3 files changed, 7 insertions, 7 deletions
diff --git a/module/vcomponent/xcal/output.scm b/module/vcomponent/formats/xcal/output.scm index 70288cba..e2cada83 100644 --- a/module/vcomponent/xcal/output.scm +++ b/module/vcomponent/formats/xcal/output.scm @@ -1,9 +1,9 @@ -(define-module (vcomponent xcal output) +(define-module (vcomponent formats xcal output) :use-module (calp util) :use-module (calp util exceptions) :use-module (vcomponent) :use-module (vcomponent geo) - :use-module (vcomponent xcal types) + :use-module (vcomponent formats xcal types) :use-module (ice-9 match) :use-module (datetime) :use-module (srfi srfi-1) diff --git a/module/vcomponent/xcal/parse.scm b/module/vcomponent/formats/xcal/parse.scm index c6a2122f..e84f380e 100644 --- a/module/vcomponent/xcal/parse.scm +++ b/module/vcomponent/formats/xcal/parse.scm @@ -1,4 +1,4 @@ -(define-module (vcomponent xcal parse) +(define-module (vcomponent formats xcal parse) :use-module (calp util) :use-module (calp util exceptions) :use-module (base64) @@ -6,7 +6,7 @@ :use-module (sxml match) :use-module (vcomponent) :use-module (vcomponent geo) - :use-module (vcomponent parse types) + :use-module (vcomponent formats common types) :use-module (datetime) :use-module (srfi srfi-1) ) diff --git a/module/vcomponent/xcal/types.scm b/module/vcomponent/formats/xcal/types.scm index 468400f4..34c7c40d 100644 --- a/module/vcomponent/xcal/types.scm +++ b/module/vcomponent/formats/xcal/types.scm @@ -1,6 +1,6 @@ -(define-module (vcomponent xcal types) +(define-module (vcomponent formats xcal types) :use-module (calp util) - :use-module (vcomponent ical types) + :use-module (vcomponent formats ical types) :use-module (datetime) ) @@ -40,7 +40,7 @@ (hashq-set! sxml-writers simple-type (lambda (p v) `(,(downcase-symbol simple-type) - ,(((@ (vcomponent ical types) get-writer) simple-type) p v))))) + ,(((@ (vcomponent formats ical types) get-writer) simple-type) p v))))) (hashq-set! sxml-writers 'BOOLEAN write-boolean) (hashq-set! sxml-writers 'DATE write-date) |