diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 18:37:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-30 18:37:03 +0200 |
| commit | 8b426edf1b6d4de0ec825da8a34b1df7b51212db (patch) | |
| tree | 7149e0f71ab49998d65ec95adfb1715490360bf0 /module/main.scm | |
| parent | Add tzget script. (diff) | |
| download | calp-8b426edf1b6d4de0ec825da8a34b1df7b51212db.tar.gz calp-8b426edf1b6d4de0ec825da8a34b1df7b51212db.tar.xz | |
Update ical parts to use app context.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/module/main.scm b/module/main.scm index b2899014..96fe2da1 100755 --- a/module/main.scm +++ b/module/main.scm @@ -13,6 +13,7 @@ (util) (util io) (util time) + (util app) ((entry-points html) :prefix html-) ((entry-points terminal) :prefix terminal-) @@ -31,6 +32,7 @@ ) + (define options '((statprof (value optional)) (repl (value optional)) @@ -56,6 +58,12 @@ (when (file-exists? config-file) (primitive-load config-file))) + + (current-app (make-app)) + + ((@ (vcomponent) init-app) (get-config 'calendar-files)) + ((@ (datetime app) init-app)) + (let ((ropt (ornull (option-ref opts '() '()) '("term")))) ((case (string->symbol (car ropt)) |