diff options
Diffstat (limited to 'module/vcomponent/output.scm')
-rw-r--r-- | module/vcomponent/output.scm | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/module/vcomponent/output.scm b/module/vcomponent/output.scm index e95574ac..47c740e2 100644 --- a/module/vcomponent/output.scm +++ b/module/vcomponent/output.scm @@ -7,27 +7,7 @@ #:use-module (datetime util) #:use-module (srfi srfi-26) #:use-module (ice-9 format) - #:export (print-vcomponent - serialize-vcomponent)) - -;;; TODO this is broken,2020-03-22 -(define* (print-vcomponent comp #:optional (port #t) #:key (descend? #t) (depth 0)) - (let ((kvs (map (lambda (key) (cons key (attr* comp key))) - (attributes comp)))) - (format port "~a <~a> :: ~:a~%" - (make-string depth #\:) - (type comp) comp) - (for kv in kvs - (let* (((key . at) kv)) - (format port "~a ~15@a~{;~a=~{~a~^,~}~}: ~a~%" - (make-string depth #\:) - key - (concatenate (hash-map->list list (cdr at))) - (value at)))) - (if descend? - (for-each (lambda (e) (print-vcomponent e port #:descend? #t #:depth (1+ depth))) - (children comp))))) - + #:export (serialize-vcomponent)) ;;; TODO |