3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-19 14:16:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Small changes on multi-input behaviour and styles

Browse source
This commit is contained in:
Pablo Alba 2022-03-04 14:56:02 +01:00
parent cfe657d853
commit 7e26e2bc21
4 changed files with 19 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/app/main/ui/components/forms.cljs
View file

@ -141,9 +141,9 @@
:focus @focus?
:valid (and touched? (not error))
:invalid (and touched? error)
:disabled disabled
:disabled disabled)
;; :empty (str/empty? value)
)
on-focus #(reset! focus? true)
on-change (fn [event]
@ -278,7 +278,7 @@
(let [value (str/join " " (map :text items))]
(fm/update-input-value! form input-name value))))
on-key-up
on-key-down
(mf/use-fn
(mf/deps @value)
(fn [event]
@ -309,12 +309,13 @@
remove-item!
(mf/use-fn
(fn [item]
(swap! items #(into #{} (remove (fn [x] (= x item))) %))))]
(swap! items #(into [] (remove (fn [x] (= x item))) %))))]
(mf/with-effect [result]
(if (every? :valid result)
(update-form! result)
(update-form! [])))
(mf/with-effect [result @value]
(let [val (cond-> @value trim str/trim)
values (conj-dedup result {:text val :valid (valid-item-fn val)})
values (filterv #(:valid %) values)]
(update-form! values)))
[:div {:class klass}
(when-let [items (seq @items)]
@ -331,7 +332,7 @@
:auto-focus true
:on-focus on-focus
:on-blur on-blur
:on-key-up on-key-up
:on-key-down on-key-down
:value @value
:on-change on-change
:placeholder (when empty? label)}]