diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-05-17 01:07:09 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-05-17 01:07:09 +0200 |
| commit | 3d3963e53cb0646ded92c871a6ea7636b25714b3 (patch) | |
| tree | 6cc6807ea74511258c542ac6615ecd126f7b47ed /module/calp/html/vcomponent.scm | |
| parent | Rework date-time input to be cleaner + work again. (diff) | |
| download | calp-3d3963e53cb0646ded92c871a6ea7636b25714b3.tar.gz calp-3d3963e53cb0646ded92c871a6ea7636b25714b3.tar.xz | |
Cleanup + fix for wholeday checkbox.
Diffstat (limited to 'module/calp/html/vcomponent.scm')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 31 |
1 files changed, 19 insertions, 12 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 7530de91..787c4501 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -168,17 +168,23 @@ (input (@ (type "date") (value ,(date->string (as-date start))))) (input (@ (type "time") - (value ,(time->string (as-time start))))))) - - ,@(with-label - "Sluttid" - `(div (@ (class "date-time bind") - (data-bindby "bind_date_time") - (name "dtend")) - (input (@ (type "date") - ,@(when end `((value ,(date->string (as-date end))))))) - (input (@ (type "time") - ,@(when end `((value ,(time->string (as-time end))))))))) + (value ,(time->string (as-time start) "~H:~M")) + ,@(when (date? start) '((disabled))) + )))) + + ;; TODO some way to add an endtime if missing beforehand + ;; TODO, actually proper support for event without end times + ,@(when end + (with-label + "Sluttid" + `(div (@ (class "date-time bind") + (data-bindby "bind_date_time") + (name "dtend")) + (input (@ (type "date") + (value ,(date->string (as-date end))))) + (input (@ (type "time") + (value ,(time->string (as-time end) "~H:~M")) + ,@(when (date? end) '((disabled)))))))) (div ,@(with-label @@ -186,7 +192,8 @@ `(input (@ (type "checkbox") (class "bind") (data-bindby "bind_wholeday") - (name "wholeday"))))) + (name "wholeday") + ,@(when (date? start) '((checked))))))) )) |