diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-14 17:45:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-14 17:45:03 +0200 |
| commit | cab4413d62d8228ba034b1610acf64e707a8338f (patch) | |
| tree | 53f3acb0d078683d3578fe9e30916b5fc0927a37 | |
| parent | Remove recurrence instances before our start date. (diff) | |
| download | calp-cab4413d62d8228ba034b1610acf64e707a8338f.tar.gz calp-cab4413d62d8228ba034b1610acf64e707a8338f.tar.xz | |
Add some TODO's.
| -rw-r--r-- | TODO | 6 | ||||
| -rw-r--r-- | module/datetime.scm | 3 | ||||
| -rw-r--r-- | module/util/app.scm | 5 |
3 files changed, 12 insertions, 2 deletions
@@ -64,6 +64,12 @@ Popup Dropshadow ---------------- Skulle nog se bra ut. Fungerar dock inte med nuvarande popup-bibliotek. +Knappar för nästa och föregående instans av ett upprepat event +-------------------------------------------------------------- + +Upprepat event orginalstarttid +------------------------------ + ICS === diff --git a/module/datetime.scm b/module/datetime.scm index b2a3d38e..b8b515fc 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -686,13 +686,14 @@ time: (parse-ics-time timestr) tz: tz))) - +;; TODO rewrite this (define-public (current-date) (let ((d ((@ (srfi srfi-19) current-date)))) (date year: ((@ (srfi srfi-19) date-year) d) month: ((@ (srfi srfi-19) date-month) d) day: ((@ (srfi srfi-19) date-day) d)))) +;; TODO this returns UTC time, but without a TZ component (define-public (current-datetime) (unix-time->datetime ((@ (guile) current-time)))) diff --git a/module/util/app.scm b/module/util/app.scm index e5b03b0f..67725a8c 100644 --- a/module/util/app.scm +++ b/module/util/app.scm @@ -38,9 +38,12 @@ [(_ app field value) (hashq-set! (get-ht app) field (delay value))])) +;; TODO setting a field should invalidate the cache of all dependant +;; fields. Among other things allowing a full calendar reload by running +;; (setf 'calendars (load-calendars ...)) (define-syntax setf (syntax-rules () - ;; special case to use current appp) + ;; special case to use current app) [(_ key value) (setf% key value)] |