From 9c1ee98ce8bce037b58ca8e0387479436e25290f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 May 2020 23:37:21 +0200 Subject: Remove export functions from terminal output. --- module/output/terminal.scm | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 2855a0ac..02539faf 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -145,26 +145,6 @@ (mod! cur-event 1+))) ((#\k #\K) (unless (= cur-event 0) (mod! cur-event 1-))) - ((#\E) (serialize-vcomponent (list-ref events cur-event) - (open-output-file "/tmp/event.ics"))) - ((#\e) - (let ((fname (tmpnam))) - (with-output-to-file fname - (lambda () (serialize-vcomponent (list-ref events cur-event)))) - (open-in-editor fname) - (let ((ev (parse-cal-path fname))) - (serialize-vcomponent ev (current-error-port)) - - ;; TODO remove child - - (add-child! (parent (list-ref events cur-event)) ev) - (format (current-error-port) "Children: ~a~%start: ~a~%" (children ev) - (attr ev 'DTSTART)) - (set! (attr ev 'X-HNH-DIRTY) #t) - (set! event-stream (stream-insert ev-time