diff options
-rw-r--r-- | module/calp/html/vcomponent.scm | 2 | ||||
-rw-r--r-- | module/calp/html/view/calendar/week.scm | 11 | ||||
-rw-r--r-- | module/calp/terminal.scm | 1 | ||||
-rw-r--r-- | static/style.scss | 17 |
4 files changed, 26 insertions, 5 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 787c4501..ca38bdf7 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -507,7 +507,7 @@ (else (error "Unknown field, " key)))) ;; TODO enable this button - (td (button (@ (class "clear-input") (title "Rensa input")) "X")) + (td (button (@ (class "clear-input") (title "Rensa input")) "🗙")) )) '(freq until count interval bysecond byminute byhour byday bymonthday byyearday byweekno bymonth bysetpos diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 111c8f21..fb28923e 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -25,6 +25,12 @@ `((script "const VIEW='week';") (div (@ (class "calendar")) (div (@ (class "days")) + ;; Top left area + (div (@ (class "week-indicator")) + (span (@ (style "font-size: 50%")) "v.") ; figure out if we want this... + ,@(->> (week-number start-date) + number->string string->list + (map (lambda (c) `(span ,(string c)))))) ,@(time-marker-div) (div (@ (class "longevents event-container") (data-start ,(date->string start-date) ) @@ -53,10 +59,7 @@ (define (time-marker-div) - ;; element to make rest of grid align correct. - ;; Could be extended to contain something fun. - `((div (@ (style "grid-row: 1 / span 2"))) - (div (@ (class "sideclock")) + `((div (@ (class "sideclock")) ,@(map (lambda (time) `(div (@ (class "clock clock-" ,time)) (span (@ (class "clocktext")) diff --git a/module/calp/terminal.scm b/module/calp/terminal.scm index 7887df5e..4b62895d 100644 --- a/module/calp/terminal.scm +++ b/module/calp/terminal.scm @@ -188,6 +188,7 @@ ;; TODO this should be local time ;; currently it's UTC (maybe?) (set! (current-page this) (current-date) + (cached-events this) #f (active-element this) 0)) ((#\/) (set-cursor-pos 0 (1- height)) diff --git a/static/style.scss b/static/style.scss index 052c9a93..87e62637 100644 --- a/static/style.scss +++ b/static/style.scss @@ -439,6 +439,23 @@ along with their colors. grid-column-start: 2; position: relative; } + + .week-indicator { + grid-row: 1 / span 2; + } + + .sideclock { + grid-row: 3; + } +} + +.week-indicator { + display: flex; + flex-direction: column; + align-items: center; + justify-content: center; + font-size: 200%; + color: $gray; } .events { |