From b8d6e3d226889e04060f938864fa208c6d0a565e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sun, 21 Jul 2019 16:12:00 +0200
Subject: Remove fetch script.

---
 module/fetch.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100755 module/fetch.scm

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