diff options
| -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)] |