diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-19 00:21:33 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-19 00:21:33 +0100 |
commit | f1c62031a7344efba50027e2793fdd9f7480b5e1 (patch) | |
tree | fb204e57a48d3e4ec7a5a9bc266751d5df36c417 | |
parent | Made vulgar interface slightly more stable. (diff) | |
download | calp-f1c62031a7344efba50027e2793fdd9f7480b5e1.tar.gz calp-f1c62031a7344efba50027e2793fdd9f7480b5e1.tar.xz |
Fix problem with screen not refreshing.
Diffstat (limited to '')
-rwxr-xr-x | main.scm | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -85,8 +85,10 @@ Event must have the DTSTART and DTEND attribute set." time<? (extract "DTSTART")))) (case char - ((#\L #\l) (set! time (add-day time)) (set! cur-event 0)) - ((#\h #\H) (set! time (remove-day time)) (set! cur-event 0)) + ;; TODO The explicit loop call is a hack to rerender the display + ;; It's REALLY ugly. + ((#\L #\l) (set! time (add-day time)) (set! cur-event 0) (loop #\nul)) + ((#\h #\H) (set! time (remove-day time)) (set! cur-event 0) (loop #\nul)) ((#\j #\J) (unless (= cur-event (1- (length events))) (set! cur-event (1+ cur-event)))) ((#\k #\K) (unless (= cur-event 0) |