diff options
-rw-r--r-- | module/calp/html/vcomponent.scm | 4 | ||||
-rw-r--r-- | static/style.scss | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index fbf344b0..b03e0afa 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -37,13 +37,15 @@ (if (datetime? dt) (datetime->string dt "~Y-~m-~d ~H:~M") (date->string dt "~Y-~m-~d" )))) + (a (@ (href ,(date->string (as-date (prop event 'DTSTART)) "/week/~Y-~m-~d.html"))) + "View 📅") (span ,(prop event 'SUMMARY))))) (cons (calendar-styles calendars) (for event in list `(details ,(summary event) - ;; TODO better format, add show in calendar button + ;; TODO better format ,(fmt-single-event event))))) ;; Format event as text. diff --git a/static/style.scss b/static/style.scss index 954f84fe..6a9728de 100644 --- a/static/style.scss +++ b/static/style.scss @@ -664,6 +664,8 @@ along with their colors. > * { display: inline-block; + padding-left: 1ch; + padding-right: 1ch; } time { |