aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-17 18:09:46 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-17 18:09:46 +0200
commit051edf0de9f1dd39269b6ecdf1c5e534023dd8e4 (patch)
tree6a93dc2a7bc3f30d95c567b3f2ff299eef4b5392
parentStart moving stuff out from output. (diff)
downloadcalp-051edf0de9f1dd39269b6ecdf1c5e534023dd8e4.tar.gz
calp-051edf0de9f1dd39269b6ecdf1c5e534023dd8e4.tar.xz
Got type files out of output.
-rw-r--r--module/vcomponent/ical/output.scm2
-rw-r--r--module/vcomponent/ical/types.scm (renamed from module/output/types.scm)2
-rw-r--r--module/vcomponent/xcal/output.scm2
-rw-r--r--module/vcomponent/xcal/types.scm (renamed from module/output/sxml-types.scm)6
4 files changed, 6 insertions, 6 deletions
diff --git a/module/vcomponent/ical/output.scm b/module/vcomponent/ical/output.scm
index 530203e6..eead035b 100644
--- a/module/vcomponent/ical/output.scm
+++ b/module/vcomponent/ical/output.scm
@@ -13,7 +13,7 @@
:use-module (glob)
:use-module (vcomponent recurrence)
:use-module (vcomponent geo)
- :use-module (output types)
+ :use-module (vcomponent ical types)
:use-module (output common)
:autoload (vcomponent instance) (global-event-object)
:use-module ((datetime instance) :select (zoneinfo))
diff --git a/module/output/types.scm b/module/vcomponent/ical/types.scm
index d4305b7a..f2787693 100644
--- a/module/output/types.scm
+++ b/module/vcomponent/ical/types.scm
@@ -1,5 +1,5 @@
;; see (vcomponent parse types)
-(define-module (output types)
+(define-module (vcomponent ical types)
:use-module (util)
:use-module (util exceptions)
:use-module (util base64)
diff --git a/module/vcomponent/xcal/output.scm b/module/vcomponent/xcal/output.scm
index a689b2cf..4aa68b00 100644
--- a/module/vcomponent/xcal/output.scm
+++ b/module/vcomponent/xcal/output.scm
@@ -3,7 +3,7 @@
:use-module (util exceptions)
:use-module (vcomponent)
:use-module (vcomponent geo)
- :use-module (output sxml-types)
+ :use-module (vcomponent xcal types)
:use-module (ice-9 match)
:use-module (output common)
:use-module (datetime)
diff --git a/module/output/sxml-types.scm b/module/vcomponent/xcal/types.scm
index 2d5b3742..e56ace55 100644
--- a/module/output/sxml-types.scm
+++ b/module/vcomponent/xcal/types.scm
@@ -1,6 +1,6 @@
-(define-module (output sxml-types)
+(define-module (vcomponent xcal types)
:use-module (util)
- :use-module (output types)
+ :use-module (vcomponent ical types)
:use-module (datetime)
:use-module (output common)
)
@@ -41,7 +41,7 @@
(hashq-set! sxml-writers simple-type
(lambda (p v)
`(,(downcase-symbol simple-type)
- ,(((@ (output types) get-writer) simple-type) p v)))))
+ ,(((@ (vcomponent ical types) get-writer) simple-type) p v)))))
(hashq-set! sxml-writers 'BOOLEAN write-boolean)
(hashq-set! sxml-writers 'DATE write-date)