diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-05 22:43:12 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-05 22:43:12 +0200 |
commit | 7300fa5ce1e1a5993d06ebcc2766113179b9dcf2 (patch) | |
tree | dca20c7fb23ae1430d657dfa522d97c9bb841e46 | |
parent | Made dates in month-view slightly smaller. (diff) | |
download | calp-7300fa5ce1e1a5993d06ebcc2766113179b9dcf2.tar.gz calp-7300fa5ce1e1a5993d06ebcc2766113179b9dcf2.tar.xz |
Minor changes.
-rw-r--r-- | TODO | 7 | ||||
-rw-r--r-- | module/entry-points/html.scm | 1 | ||||
-rwxr-xr-x | module/main.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/load.scm | 4 | ||||
-rw-r--r-- | static/style.css | 3 |
5 files changed, 14 insertions, 3 deletions
@@ -45,6 +45,13 @@ Brädd på elementen vid smal skärm. Cutoff-punkten är dock lite för smal. Kom på hur minimi-brädden på <main/> beräknas, för att sätta ett korrekt värde. +Events in pre-start and post-start not mentioned in event list +-------------------------------------------------------------- + +Fel färg månadsvy +----------------- +Om sista dagen i månadsvyn också är sista dagen på månaden renderas +datumet med fel färg. (altså när post-end == '()) Se maj 2020. ICS === diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm index 34ecc2dd..18b1c0ea 100644 --- a/module/entry-points/html.scm +++ b/module/entry-points/html.scm @@ -3,6 +3,7 @@ :use-module (output html) :use-module (util) :use-module (util time) + :use-module (util config) :use-module (vcomponent) :use-module (datetime) :use-module (datetime util) diff --git a/module/main.scm b/module/main.scm index c34c41b2..4b47025a 100755 --- a/module/main.scm +++ b/module/main.scm @@ -3,7 +3,7 @@ . $(dirname $(dirname $(realpath $0)))/env -exec guile --listen -e main -s $0 "$@" +exec guile -e main -s $0 "$@" !# (use-modules (srfi srfi-1) diff --git a/module/vcomponent/load.scm b/module/vcomponent/load.scm index 065cafcb..5fbb5553 100644 --- a/module/vcomponent/load.scm +++ b/module/vcomponent/load.scm @@ -21,7 +21,7 @@ ;; and returns a list of calendars, and a stream of all events "ready" for display. (define* (load-calendars #:optional (calendar-files (get-config 'calendar-files))) (report-time! "Parsing ~a calendars" (length calendar-files)) - (let* ((calendars regular repeating (load-calendars* #:calendar-files calendar-files))) + (let* ((calendars regular repeating (load-calendars* calendar-files))) (report-time! "Calendars loaded, interleaving and reccurring") (values calendars @@ -35,7 +35,7 @@ ;; regular and repeating events separated from each other. ;; ;; (list string) → (list calendar), (list event), (list event) -(define* (load-calendars* #:key (calendar-files (get-config 'calendar-files))) +(define* (load-calendars* #:optional (calendar-files (get-config 'calendar-files))) (define calendars (map parse-cal-path calendar-files)) (define events (concatenate diff --git a/static/style.css b/static/style.css index dc8dcdfd..c928e7b5 100644 --- a/static/style.css +++ b/static/style.css @@ -272,6 +272,9 @@ along with their colors. } .date-info.non-current { + /* TODO +Find color between gray and lightgray +*/ color: lightgray !important; } |