Extract event handlers to local bindings

This commit is contained in:
Alejandro Gómez 2016-02-17 20:11:24 +01:00
parent 1258d954d0
commit 9ede688b6e

View File

@ -164,12 +164,13 @@
(defn project-sort-render (defn project-sort-render
[] []
(let [ordering (rum/react project-ordering-l)] (let [ordering (rum/react project-ordering-l)
change-order #(rs/emit! (dd/set-project-ordering (keyword (.-value (.-target %)))))]
(html (html
[:div [:div
[:span (tr "ds.project-ordering")] [:span (tr "ds.project-ordering")]
[:select.input-select [:select.input-select
{:on-change #(rs/emit! (dd/set-project-ordering (keyword (.-value (.-target %))))) {:on-change change-order
:value (name ordering)} :value (name ordering)}
(for [option (keys +ordering-options+) (for [option (keys +ordering-options+)
:let [option-id (get +ordering-options+ option) :let [option-id (get +ordering-options+ option)
@ -188,17 +189,19 @@
(defn project-search-render (defn project-search-render
[] []
(html (let [change-term #(rs/emit! (dd/set-project-filtering (.-value (.-target %))))
[:form clear-term #(rs/emit! (dd/clear-project-filtering))]
[:input (html
{:type "text" [:form
:on-change #(rs/emit! (dd/set-project-filtering (.-value (.-target %)))) [:input
:auto-focus true {:type "text"
:value (rum/react project-filtering-l)}] :on-change change-term
[:input :auto-focus true
{:type "button" :value (rum/react project-filtering-l)}]
:on-click #(rs/emit! (dd/clear-project-filtering)) [:input
:value "X"}]])) {:type "button"
:on-click clear-term
:value "X"}]])))
(def project-search (def project-search
(mx/component (mx/component