diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 20:11:11 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 20:17:52 +0100 |
commit | d46183860c1f3f10095e95023adcb79b1896ab0e (patch) | |
tree | dd331a0efe9777bfe84160139da1e39df3226b71 /module/fetch.scm | |
parent | Add stuff to test.scm. (diff) | |
download | calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.gz calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.xz |
Move C and Scheme code into subdirs.
Diffstat (limited to 'module/fetch.scm')
-rwxr-xr-x | module/fetch.scm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/module/fetch.scm b/module/fetch.scm new file mode 100755 index 00000000..a91e4d0d --- /dev/null +++ b/module/fetch.scm @@ -0,0 +1,31 @@ +#!/usr/bin/guile -s +!# + +#| + | Example file which reads my regular calendar, filters it down to only + | the events between specific times, and prints that calendar in ICS + | format to standard output. + |# + +(add-to-load-path (dirname (current-filename))) + +(use-modules (srfi srfi-1) + (srfi srfi-19) + (srfi srfi-26) + (vcalendar) + (vcalendar datetime) + (vcalendar output) + (util)) + + +(begin + ;; (define *path* "/home/hugo/.calendars/b85ba2e9-18aa-4451-91bb-b52da930e977/") + (define *path* "/home/hugo/.calendars/D1/") + (define cal (make-vcomponent *path*))) + +(filter-children! + (lambda (ev) (and (eq? 'VEVENT (type ev)) + (event-in? ev (date->time-utc (string->date "2019-04-03" "~Y-~m-~d"))))) + cal) + +(serialize-vcomponent cal) |