diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 22:39:31 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 22:39:31 +0200 |
commit | 01840a044085fba7d04c2e8e83a695e9de8daa58 (patch) | |
tree | 7d84cfc128e537c2119164c84dbf013be103ec32 /module/main.scm | |
parent | Update parse-recurrence-rule to use new catch-multiple. (diff) | |
download | calp-01840a044085fba7d04c2e8e83a695e9de8daa58.tar.gz calp-01840a044085fba7d04c2e8e83a695e9de8daa58.tar.xz |
Add binding to dump vcomponent to stdout.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/main.scm b/module/main.scm index 2e7759d1..a85c6363 100755 --- a/module/main.scm +++ b/module/main.scm @@ -124,6 +124,8 @@ (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))) ((#\g) (set! cur-event 0)) ((#\G) (set! cur-event (1- (length events))))) |