diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-25 13:56:15 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-25 13:56:15 +0100 |
| commit | 7c2adefaee82dbf2843dc6bf5364c4b664b4b366 (patch) | |
| tree | e831c289deafdd41758a51dc9092c2e3fb5d1f86 /module/main.scm | |
| parent | Fix events being dropped by sorting them. (diff) | |
| download | calp-7c2adefaee82dbf2843dc6bf5364c4b664b4b366.tar.gz calp-7c2adefaee82dbf2843dc6bf5364c4b664b4b366.tar.xz | |
Minor cleanups.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/module/main.scm b/module/main.scm index e29ae2c0..e97b5f12 100755 --- a/module/main.scm +++ b/module/main.scm @@ -24,7 +24,7 @@ (time<? (attr a 'DTSTART) (attr b 'DTSTART))) -;;; ------------------------------------------------------------ + #; (define pizza-event (search cal "pizza")) @@ -94,7 +94,8 @@ (unless (null? events) (let ((ev (list-ref events cur-event))) - (format #t "~a~%~aStart: ~a Slut: ~a~%~%~a~%" + (format #t "~a~%~a~%~aStart: ~a Slut: ~a~%~%~a~%" + (attr ev 'X-HNH-FILENAME) (attr ev 'SUMMARY) (or (and=> (attr ev 'LOCATION) (cut string-append "Plats: " <> "\n")) "") (time->string (attr ev 'DTSTART) "~1 ~3") @@ -119,8 +120,10 @@ (memv char (list #\q (ctrl #\C)))) (loop (read-char (current-input-port))))))) -(load "config.scm") + + +(load "config.scm") (define (main args) |