diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-20 21:39:44 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 01:53:21 +0100 |
commit | ed287bf2e7c171fc74796af541316342d55a6e3b (patch) | |
tree | bebaf0e30dfc135224f24649c62b95d5e3b98591 /main.scm | |
parent | Fix crash when day has 0 events. (diff) | |
download | calp-ed287bf2e7c171fc74796af541316342d55a6e3b.tar.gz calp-ed287bf2e7c171fc74796af541316342d55a6e3b.tar.xz |
Move time procedures from main to where they belong.
Diffstat (limited to 'main.scm')
-rwxr-xr-x | main.scm | 39 |
1 files changed, 1 insertions, 38 deletions
@@ -12,6 +12,7 @@ (texinfo string-utils) ; string->wrapped-lines (util) (vcalendar) + (vcalendar datetime) (vcalendar output) (terminal escape) (terminal util)) @@ -25,44 +26,6 @@ #; (define pizza-event (search cal "pizza")) -;; A B C D ¬E -;; |s1| : |s2| : |s1| : |s2| : |s1| -;; | | : | | : | ||s2| : |s1|| | : | | -;; | ||s2| : |s1|| | : | || | : | || | : -;; | | : | | : | || | : | || | : |s2| -;; | | : | | : | | : | | : | | -(define (timespan-overlaps? s1-begin s1-end s2-begin s2-end) - "Return whetever or not two timespans overlap." - (or - ;; A - (and (time<=? s2-begin s1-end) - (time<=? s1-begin s2-end)) - - ;; B - (and (time<=? s1-begin s2-end) - (time<=? s2-begin s1-end)) - - ;; C - (and (time<=? s1-begin s2-begin) - (time<=? s2-end s1-end)) - - ;; D - (and (time<=? s2-begin s1-begin) - (time<=? s1-end s2-end)))) - -(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-public (event-in? ev 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))) - (define (trim-to-width str len) (let ((trimmed (string-pad-right str len))) (if (< (string-length trimmed) |