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 /module/c | |
parent | Merge branch 'front' (diff) | |
download | calp-447485da352bb8b66ff9abe37a9f92077689fc6d.tar.gz calp-447485da352bb8b66ff9abe37a9f92077689fc6d.tar.xz |
Add view calendar button on search page.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 4 |
1 files changed, 3 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. |