From d00fea566004e67161ee45246b239fff5d416b0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 21 Dec 2021 16:17:28 +0100
Subject: 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.
---
 module/vcomponent/xcal/types.scm | 54 ----------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 module/vcomponent/xcal/types.scm

(limited to 'module/vcomponent/xcal/types.scm')

diff --git a/module/vcomponent/xcal/types.scm b/module/vcomponent/xcal/types.scm
deleted file mode 100644
index 468400f4..00000000
--- a/module/vcomponent/xcal/types.scm
+++ /dev/null
@@ -1,54 +0,0 @@
-(define-module (vcomponent xcal types)
-  :use-module (calp util)
-  :use-module (vcomponent ical types)
-  :use-module (datetime)
-  )
-
-(define (write-boolean _ v)
-  `(boolean ,(if v "true" "false")))
-
-(define (write-date _ v)
-  `(date ,(date->string v "~Y-~m-~d")))
-
-(define (write-datetime p v)
-  `(date-time
-    ,(datetime->string
-      (hashq-ref p '-X-HNH-ORIGINAL v)
-      ;; 'Z' should be included for UTC,
-      ;; other timezones MUST be specified
-      ;; in the TZID parameter.
-      "~Y-~m-~dT~H:~M:~S~Z")))
-
-(define (write-time _ v)
-  `(time ,(time->string v "~H:~M:S")))
-
-(define (write-recur _ v)
-  `(recur ,@((@@ (vcomponent recurrence internal) recur-rule->rrule-sxml) v)))
-
-;; sepparate since this text shouldn't be escaped
-(define (write-text _ v)
-  ;; TODO out type should be xsd:string.
-  ;; Look into what that means, and escape
-  ;; from there
-  `(text ,v))
-
-
-
-(define sxml-writers (make-hash-table))
-(for simple-type in '(BINARY DURATION CAL-ADDRESS DURATION FLOAT INTEGER
-                             #| TODO PERIOD |# URI UTC-OFFSET)
-     (hashq-set! sxml-writers simple-type
-                 (lambda (p v)
-                   `(,(downcase-symbol simple-type)
-                     ,(((@ (vcomponent ical types) get-writer) simple-type) p v)))))
-
-(hashq-set! sxml-writers 'BOOLEAN write-boolean)
-(hashq-set! sxml-writers 'DATE write-date)
-(hashq-set! sxml-writers 'DATE-TIME write-datetime)
-(hashq-set! sxml-writers 'TIME write-time)
-(hashq-set! sxml-writers 'RECUR write-recur)
-(hashq-set! sxml-writers 'TEXT write-text)
-
-(define-public (get-writer type)
-  (or (hashq-ref sxml-writers type #f)
-      (error "No writer for type" type)))
-- 
cgit v1.2.3