diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-06 04:32:11 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-10-06 04:32:11 +0200 |
| commit | 4f499ccbf71d0ae662159515bb568826e72678a5 (patch) | |
| tree | a0300638045095aa6da1b0d6a275cf1c7e2333f4 /module/calp/html/vcomponent.scm | |
| parent | Fix issue with datetimes not getting set. (diff) | |
| download | calp-4f499ccbf71d0ae662159515bb568826e72678a5.tar.gz calp-4f499ccbf71d0ae662159515bb568826e72678a5.tar.xz | |
Drive popup tabs through javascript.
Diffstat (limited to 'module/calp/html/vcomponent.scm')
| -rw-r--r-- | module/calp/html/vcomponent.scm | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 09d0038b..d1cd4886 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -316,6 +316,40 @@ (input (@ (type "submit"))) ))) +;; (define-public (property-input-template) +;; (div (@ (class "")) +;; (input (@ (type "text") +;; (name "name") +;; (list "known-fields") +;; (placeholder "Nytt fält"))) +;; (select (@ (name "type")) +;; (option (@ (value "TEXT")) "Text")) +;; (span +;; (input (@ (type "text") +;; (name "value") +;; (placeholder "Värde")))))) + +;; (define (list-input-template) +;; ;; It would be better if these input-list's worked on the same +;; ;; class=bind system as the fields above. The problem with that +;; ;; is however that each input-list requires different search +;; ;; and join procedures. Currently this is bound in the JS, see +;; ;; [CATEGORIES_BIND]. +;; ;; It matches on ".input-list[data-property='categories']". +;; `(div (@ (class "input-list") +;; (data-property "categories")) +;; #; +;; ,@(awhen (prop ev 'CATEGORIES) ; +;; (map (lambda (c) ; +;; `(input (@ (size 2) ; +;; (class "unit") ; +;; (value ,c)))) ; +;; it)) + +;; (input (@ (class "unit final") +;; (size 2) +;; (type "text") +;; )))) ;; Single event in side bar (text objects) (define-public (fmt-day day) |