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.

1 files changed, 44 insertions, 0 deletions

diff --git a/module/vcomponent/util/describe.scm b/module/vcomponent/util/describe.scm
new file mode 100644
index 00000000..5c3afd30
--- /dev/null
+++ b/module/vcomponent/util/describe.scm
@@ -0,0 +1,44 @@
+(define-module (vcomponent util describe)
+  :use-module (calp util)
+  :use-module (vcomponent base)
+  :use-module (text util))
+
+(define*-public (describe vcomponent optional: (indent 0))
+  (define ii (make-string indent #\space))
+  (define iii (make-string (1+ indent) #\space))
+
+  (define maxlen (find-max (map
+                            (lambda (a) (string-length (symbol->string a)))
+                            (map car (properties vcomponent)))))
+
+  (format #t "~aBEGIN ~a~%" ii (type vcomponent))
+
+  (for-each (lambda (kv)
+              (let* (((key . values) kv))
+                (define (out vline)
+                  (format #t "~a~a = ~a"
+                          iii
+                          (trim-to-width (symbol->string key) maxlen)
+                          (trim-to-width
+                           (format #f "~a" (value vline))
+                           (- 80 indent maxlen)))
+                  (awhen (vline-source vline)
+                         (display ((@@ (vcomponent formats ical parse) get-line) it)))
+                  (unless (null? (parameters vline))
+                    (display " ;")
+                    (for (key value) in (parameters vline)
+                         (format #t " ~a=~a" key value)))
+                  (newline))
+                (if (list? values)
+                    (for-each out values)
+                    (out values))))
+            (sort* (properties vcomponent)
+                   string<?
+                   ;; TODO is key always a symbol?
+                   (compose symbol->string car)))
+
+  (for child in (children vcomponent)
+
+       (describe child (+ indent 2)))
+
+  (format #t "~aEND   ~a~%" ii (type vcomponent)))