Move C and Scheme code into subdirs.

1 files changed, 0 insertions, 34 deletions

diff --git a/vcalendar/datetime.scm b/vcalendar/datetime.scm
deleted file mode 100644
index 360b8348..00000000
--- a/vcalendar/datetime.scm
+++ /dev/null
@@ -1,34 +0,0 @@
-(define-module (vcalendar datetime)
-  #:use-module (vcalendar)
-  #:use-module (srfi srfi-19)
-  #:use-module (srfi srfi-19 util)
-
-  #:export (parse-datetime
-            event-overlaps?
-            event-in?)
-  )
-
-(define (parse-datetime dtime)
-  "Parse the given date[time] string into a date object."
-  ;; localize-date
-  (date->time-utc
-   (string->date
-    dtime
-    (case (string-length dtime)
-      ((8) "~Y~m~d")
-      ((15) "~Y~m~dT~H~M~S")
-      ((16) "~Y~m~dT~H~M~S~z")))))
-
-(define (event-overlaps? event begin end)
-  "Returns if the event overlaps the timespan.
-Event must have the DTSTART and DTEND attribute set."
-  (timespan-overlaps? (attr event 'DTSTART)
-                      (attr event 'DTEND)
-                      begin end))
-
-(define (event-in? ev time)
-  "Does event overlap the date that contains time."
-  (let* ((date (time-utc->date time))
-         (start (date->time-utc (drop-time date)))
-         (end (add-duration start (make-duration (* 60 60 24)))))
-    (event-overlaps? ev start end)))