ALmost done on UI improvements.
This commit is contained in:
@@ -1,14 +1,12 @@
|
||||
(ns auto-ap.forms.builder
|
||||
(:require
|
||||
[auto-ap.views.utils :refer [bind-field]]
|
||||
[re-frame.core :as re-frame]
|
||||
[react :as react]
|
||||
[reagent.core :as r]
|
||||
[auto-ap.forms :as forms]
|
||||
[auto-ap.status :as status]
|
||||
[malli.core :as m]
|
||||
[malli.error :as me]
|
||||
[clojure.string :as str]))
|
||||
[malli.error :as me]))
|
||||
|
||||
(defonce ^js/React.Context form-context (react/createContext "default"))
|
||||
(def ^js/React.Provider Provider (. form-context -Provider))
|
||||
@@ -119,28 +117,6 @@
|
||||
(into [:<>]
|
||||
(r/children (r/current-component)))))))))
|
||||
|
||||
(defn raw-field []
|
||||
(let [[child] (r/children (r/current-component))]
|
||||
[:> Consumer {}
|
||||
(fn [consume-form]
|
||||
(r/as-element
|
||||
[:> FormScopeConsumer {}
|
||||
(fn [form-scope]
|
||||
(r/as-element
|
||||
[bind-field (-> child
|
||||
(update-in [1 :field] (fn [f]
|
||||
(cond
|
||||
(sequential? f)
|
||||
(into form-scope f)
|
||||
|
||||
f
|
||||
(conj form-scope f)
|
||||
|
||||
:else
|
||||
nil)))
|
||||
|
||||
(assoc-in [1 :subscription] (aget consume-form "data"))
|
||||
(assoc-in [1 :event] (aget consume-form "change-event")))]))]))]))
|
||||
|
||||
(defn change-handler [path re-frame-change-event event-or-value]
|
||||
(re-frame/dispatch (-> re-frame-change-event
|
||||
|
||||
Reference in New Issue
Block a user