From cab4413d62d8228ba034b1610acf64e707a8338f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 14 May 2020 17:45:03 +0200 Subject: Add some TODO's. --- module/datetime.scm | 3 ++- module/util/app.scm | 5 ++++- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'module') 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)] -- cgit v1.2.3