diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-22 23:37:21 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 12:59:19 +0200 |
| commit | 9c1ee98ce8bce037b58ca8e0387479436e25290f (patch) | |
| tree | 8c68fd927e14d7544d7f01da39d38ae1c163649e /module/output/terminal.scm | |
| parent | Remove print-vcomponent. (diff) | |
| download | calp-9c1ee98ce8bce037b58ca8e0387479436e25290f.tar.gz calp-9c1ee98ce8bce037b58ca8e0387479436e25290f.tar.xz | |
Remove export functions from terminal output.
Diffstat (limited to 'module/output/terminal.scm')
| -rw-r--r-- | module/output/terminal.scm | 20 |
1 files changed, 0 insertions, 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<? ev event-stream)) - (set! grouped-stream (group-stream event-stream)) - ))) - ((#\g) (set! cur-event 0)) ((#\G) (set! cur-event (1- (length events))))) |