Move stuff between code.scm and main.scm.

1 files changed, 63 insertions, 0 deletions

diff --git a/main.scm b/main.scm
new file mode 100755
index 00000000..07836b04
--- /dev/null
+++ b/main.scm
@@ -0,0 +1,63 @@
+#!/usr/bin/guile \
+-e main -s
+!#
+
+(add-to-load-path ".")
+
+(load "code.scm")
+(use-modules (srfi srfi-1)
+             (srfi srfi-19)
+             (srfi srfi-26)
+             (vcalendar))
+
+;;; ------------------------------------------------------------
+
+(define (parse-dates! cal)
+;;; Parse all start times into scheme date objects.
+  (for-each (cut transform-attr! <> "DTSTART"
+                 (lambda (start)
+                   (localize-date
+                    (string->date
+                     start
+                     (case (string-length start)
+                       ((8) "~Y~m~d")
+                       ((15) "~Y~m~dT~H~M~S")
+                       ((16) "~Y~m~dT~H~M~S~z"))))))
+            (children cal 'VEVENT)))
+
+(define (search cal term)
+  (cdr (let ((events (filter (lambda (ev) (eq? 'VEVENT (type ev)))
+                             (children cal))))
+         (find (lambda (ev) (string-contains-ci (car ev) term))
+               (map cons (map (cut get-attr <> "SUMMARY")
+                              events)
+                    events)))))
+
+
+(define (main args)
+  (define path
+    (if (null? (cdr (command-line)))
+        "testcal/d1-b.ics"
+        (cadr (command-line))))
+
+  (define cal (make-vcomponent path))
+
+
+  #; (define pizza-event (search cal "pizza"))
+
+  (parse-dates! cal)
+
+;;; Sort the events, and print a simple agenda.
+
+  (let ((sorted-events
+         (sort* (children cal 'VEVENT)
+                time<? (compose date->time-utc (extract "DTSTART")))))
+    (for-each (lambda (ev) (format #t "~a~a~a | ~a~%"
+                              (if (date-today? (get-attr ev "DTSTART")) STR-YELLOW "")
+                              (date->string (get-attr ev "DTSTART") "~1 ~H:~M")
+                              STR-RESET
+                              (get-attr ev "SUMMARY")))
+              sorted-events))
+
+
+  )