diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-22 01:59:17 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-22 01:59:17 +0200 |
commit | 44c960c08bc8a36ec09bc9fd228df1213c3c9f11 (patch) | |
tree | e4a14a5a3d996783a446c1853543833e35bd1a51 /module/main.scm | |
parent | Remove trailing newline from color. (diff) | |
download | calp-44c960c08bc8a36ec09bc9fd228df1213c3c9f11.tar.gz calp-44c960c08bc8a36ec09bc9fd228df1213c3c9f11.tar.xz |
Add rudamentary HTML output.HTML
Diffstat (limited to '')
-rwxr-xr-x | module/main.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/module/main.scm b/module/main.scm index aef7fa8b..a83f651f 100755 --- a/module/main.scm +++ b/module/main.scm @@ -19,7 +19,10 @@ (vcalendar datetime) (vcalendar output) (terminal escape) - (terminal util)) + (terminal util) + + (html html) + ) (define (ev-time<? a b) (time<? (attr a 'DTSTART) @@ -146,12 +149,15 @@ regular (sort*! regular time<? (extract 'DTSTART))) (proc + calendars (interleave-streams ev-time<? (cons (list->stream regular) (map generate-recurrence-set repeating)))))) (define (main args) - (init (lambda (events) - (with-vulgar - (lambda () (main-loop events)))))) + ;; (init (lambda (calendars events) + ;; (with-vulgar + ;; (lambda () (main-loop events))))) + ((@ (sxml simple) sxml->xml) (init html-main)) + ) |