diff options
-rw-r--r-- | module/output/terminal.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/output.scm | 22 |
2 files changed, 1 insertions, 23 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index ddd5df9b..2855a0ac 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -145,8 +145,6 @@ (mod! cur-event 1+))) ((#\k #\K) (unless (= cur-event 0) (mod! cur-event 1-))) - ((#\p) (print-vcomponent (list-ref events cur-event) - (current-error-port))) ((#\E) (serialize-vcomponent (list-ref events cur-event) (open-output-file "/tmp/event.ics"))) ((#\e) 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 |