diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-02 23:25:56 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-02 23:25:56 +0200 |
commit | 5188fb2251e02b32fd017dc7ba8cd6d0ce892c75 (patch) | |
tree | c79ed2f7b1734ebccc53fa4daee9ed1a5a2862c4 /module/output/terminal.scm | |
parent | Repair vcomponent describe. (diff) | |
download | calp-5188fb2251e02b32fd017dc7ba8cd6d0ce892c75.tar.gz calp-5188fb2251e02b32fd017dc7ba8cd6d0ce892c75.tar.xz |
Remove (util app).
Diffstat (limited to '')
-rw-r--r-- | module/output/terminal.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index f4f46272..b8c1b4ac 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -7,7 +7,6 @@ #:use-module (srfi srfi-41) #:use-module (srfi srfi-41 util) #:use-module (util) - #:use-module ((util app) :prefix app/) #:use-module (vulgar) #:use-module (vulgar info) #:use-module (vulgar color) @@ -30,6 +29,8 @@ #:use-module (oop goops) #:use-module (oop goops describe) + #:autoload (vcomponent instance) (#|get-calendars get-event-set|# global-event-object) + #:export (main-loop)) (define-values (height width) (get-terminal-size)) @@ -336,8 +337,8 @@ (cached-page this) #f)) (else (next-method)))) -(app/define-method (main-loop date) - (define state (list (day-view (app/getf 'event-set) date))) +(define-public (main-loop date) + (define state (list (day-view (get-event-set global-event-object) date))) (while #t (output (car state)) |