From 44c960c08bc8a36ec09bc9fd228df1213c3c9f11 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 22 Apr 2019 01:59:17 +0200
Subject: Add rudamentary HTML output.

---
 module/main.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'module/main.scm')

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))
+  )
-- 
cgit v1.2.3