diff options
Diffstat (limited to 'module/vcomponent/util/describe.scm')
-rw-r--r-- | module/vcomponent/util/describe.scm | 44 |
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))) |