Add describe procedure for vcomponents.

1 files changed, 33 insertions, 0 deletions

diff --git a/module/vcomponent/describe.scm b/module/vcomponent/describe.scm
new file mode 100644
index 00000000..4e89f5e8
--- /dev/null
+++ b/module/vcomponent/describe.scm
@@ -0,0 +1,33 @@
+(define-module (vcomponent describe)
+  :use-module (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 (hash-map->list
+                            (lambda (a _) (string-length (symbol->string a)))
+                            (attributes vcomponent))))
+
+  (format #t "~aBEGIN ~a~%" ii (type vcomponent))
+
+  (hash-for-each (lambda (key 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 (properties vline)
+                          (display " ;")
+                          (for (key value) in it
+                               (format #t " ~a=~a" key value)))
+                   (newline))
+                 (attributes vcomponent))
+
+  (for child in (children vcomponent)
+       (describe child (+ indent 2)))
+
+  (format #t "~aEND   ~a~%" ii (type vcomponent)))