diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-06 11:11:14 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-06 11:11:14 +0100 |
commit | 447485da352bb8b66ff9abe37a9f92077689fc6d (patch) | |
tree | f83b96258f8244f3d809095c2942f885daf88563 | |
parent | Merge branch 'front' (diff) | |
download | calp-447485da352bb8b66ff9abe37a9f92077689fc6d.tar.gz calp-447485da352bb8b66ff9abe37a9f92077689fc6d.tar.xz |
Add view calendar button on search page.
-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 { |