aboutsummaryrefslogtreecommitdiff
path: root/fetch.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:11:11 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:17:52 +0100
commitd46183860c1f3f10095e95023adcb79b1896ab0e (patch)
treedd331a0efe9777bfe84160139da1e39df3226b71 /fetch.scm
parentAdd stuff to test.scm. (diff)
downloadcalp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.gz
calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.xz
Move C and Scheme code into subdirs.
Diffstat (limited to 'fetch.scm')
-rwxr-xr-xfetch.scm31
1 files changed, 0 insertions, 31 deletions
diff --git a/fetch.scm b/fetch.scm
deleted file mode 100755
index a91e4d0d..00000000
--- a/fetch.scm
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/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)