diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-07-21 16:12:00 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-07-21 16:12:00 +0200 |
commit | b8d6e3d226889e04060f938864fa208c6d0a565e (patch) | |
tree | ae60d5c9511b62d62b8747046fad2c1912352f2b /module | |
parent | Add html target. (diff) | |
download | calp-b8d6e3d226889e04060f938864fa208c6d0a565e.tar.gz calp-b8d6e3d226889e04060f938864fa208c6d0a565e.tar.xz |
Remove fetch script.
Diffstat (limited to 'module')
-rwxr-xr-x | module/fetch.scm | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/module/fetch.scm b/module/fetch.scm deleted file mode 100755 index 4497fa98..00000000 --- a/module/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) - (vcomponent) - (vcomponent datetime) - (vcomponent 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-contains? ev (date->time-utc (string->date "2019-04-03" "~Y-~m-~d"))))) - cal) - -(serialize-vcomponent cal) |