notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more progress for client fdorm.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-20 08:10:30 -07:00
parent 86aaa4a933
commit 899efe0efa
5 changed files with 130 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
src/cljs/auto_ap/views/components/multi.cljs
View File

@@ -20,9 +20,9 @@
[:div {:style {:margin-bottom "0.25em"}}
(into [appearing-group]
(for [[i override] (map vector (range) prop-value)
:let [is-disabled? (if (= false allow-change?)
(not (boolean (::new? override)))
nil)]]
:let [extant? (boolean (key-fn override))
is-disabled? (boolean (and (= false allow-change?)
extant?))]]
^{:key (or (key-fn override)
(::key override))}
@@ -31,25 +31,31 @@
(::key override))}
[:div.level {:style {:margin-bottom "0.25em"}}
[:div.level-left {:style {:padding "0.5em 1em"}
:class (when-not (key-fn override)
:class (when-not extant?
"has-background-info-light")}
(let [template (if (fn? template)
(template override)
template)]
(for [[idx template] (map vector (range ) template)]
^{:key idx}
[:div.level-item
template]))
(when-not disable-remove?
[:div.level-item
[:a.button.level-item
{:disabled is-disabled?
:on-click (fn []
(on-change (into []
(for [[idx item] (map vector (range) prop-value)
:when (not= idx i)]
item))))}
[:span.icon [:span.icon-remove]]]])]]]))
[:fieldset.level-left {:disabled is-disabled?
:style {:padding "0.5em 1em"}
:class (when-not extant?
"has-background-info-light")}
(for [[idx template] (map vector (range ) template)]
^{:key idx}
[:div.level-item
template])
(when-not (and disable-remove?
extant?)
[:div.level-item
[:a.button.level-item
{:disabled is-disabled?
:on-click (fn []
(on-change (into []
(for [[idx item] (map vector (range) prop-value)
:when (not= idx i)]
item))))}
[:span.icon [:span.icon-remove]]]])])
]]]))
(when-not disable-new?
[:button.button.is-outline
{:type "button"