2016-12-07 14:55:34 +00:00
|
|
|
(ns status-im.utils.views
|
|
|
|
|
(:require [clojure.walk :as w]))
|
|
|
|
|
|
|
|
|
|
(defn atom? [sub]
|
|
|
|
|
(or (vector? sub)
|
|
|
|
|
(and (seq sub)
|
2017-09-06 09:30:09 +00:00
|
|
|
(#{`reagent.core/atom} (first sub)))))
|
2016-12-07 14:55:34 +00:00
|
|
|
|
|
|
|
|
(defn walk-sub [sub form->sym]
|
|
|
|
|
(if (coll? sub)
|
|
|
|
|
(w/postwalk (fn [f]
|
|
|
|
|
(or (form->sym f) f)) sub)
|
|
|
|
|
(or (form->sym sub) sub)))
|
2016-05-14 09:39:01 +00:00
|
|
|
|
|
|
|
|
(defn prepare-subs [subs]
|
2016-12-07 14:55:34 +00:00
|
|
|
(let [pairs (map (fn [[form sub]]
|
|
|
|
|
{:form form
|
|
|
|
|
:sub sub
|
|
|
|
|
:sym (if (atom? sub)
|
|
|
|
|
(gensym (str (if (map? form) "keys" form)))
|
|
|
|
|
form)})
|
|
|
|
|
(partition 2 subs))
|
|
|
|
|
form->sym (->> pairs
|
|
|
|
|
(map (fn [{:keys [form sym]}]
|
|
|
|
|
[form sym]))
|
|
|
|
|
(into {}))]
|
|
|
|
|
[(mapcat (fn [{:keys [form sym sub]}]
|
|
|
|
|
(if (vector? sub)
|
|
|
|
|
[sym `(re-frame.core/subscribe ~(walk-sub sub form->sym))]
|
|
|
|
|
[form (walk-sub sub form->sym)]))
|
2016-05-14 09:39:01 +00:00
|
|
|
pairs)
|
2016-12-07 14:55:34 +00:00
|
|
|
(apply concat (keep (fn [{:keys [sym form sub]}]
|
|
|
|
|
(when (atom? sub)
|
|
|
|
|
[form `(deref ~sym)]))
|
|
|
|
|
pairs))]))
|
2016-05-14 09:39:01 +00:00
|
|
|
|
2017-07-10 10:29:58 +00:00
|
|
|
(defmacro letsubs [args & body])
|
2017-06-30 13:49:28 +00:00
|
|
|
|
2016-05-14 09:39:01 +00:00
|
|
|
(defmacro defview
|
2017-06-30 13:49:28 +00:00
|
|
|
[n params & rest-body]
|
|
|
|
|
(let [first-symbol (ffirst rest-body)
|
|
|
|
|
rest-body' (if (and (symbol? first-symbol)
|
|
|
|
|
(= (name first-symbol) "letsubs"))
|
|
|
|
|
(rest (first rest-body))
|
|
|
|
|
rest-body)
|
|
|
|
|
[subs component-map body] (case (count rest-body')
|
|
|
|
|
1 [nil {} (first rest-body')]
|
|
|
|
|
2 [(first rest-body') {} (second rest-body')]
|
|
|
|
|
3 rest-body')
|
2016-05-14 09:39:01 +00:00
|
|
|
[subs-bindings vars-bindings] (prepare-subs subs)]
|
2017-10-11 06:53:11 +00:00
|
|
|
`(do
|
|
|
|
|
(when-not (find-ns 're-frame.core)
|
|
|
|
|
(require 're-frame.core))
|
|
|
|
|
(defn ~n ~params
|
|
|
|
|
(let [~@subs-bindings]
|
|
|
|
|
(reagent.core/create-class
|
|
|
|
|
(merge ~(->> component-map
|
|
|
|
|
(map (fn [[k f]]
|
|
|
|
|
(let [args (gensym "args")]
|
|
|
|
|
[k `(fn [& ~args]
|
|
|
|
|
(let [~@vars-bindings]
|
|
|
|
|
(apply ~f ~args)))])))
|
|
|
|
|
(into {}))
|
|
|
|
|
{:display-name (name '~n)
|
|
|
|
|
:reagent-render
|
|
|
|
|
(fn ~params
|
|
|
|
|
(let [~@vars-bindings]
|
|
|
|
|
~body))})))))))
|
2017-12-20 18:45:42 +00:00
|
|
|
|
|
|
|
|
(defn check-view [all {:keys [view views component hide? parent]}]
|
|
|
|
|
(let [parent (or parent :root)
|
|
|
|
|
views (or views #{view})
|
|
|
|
|
comp {:views views
|
|
|
|
|
:component component
|
|
|
|
|
:hide? hide?}]
|
|
|
|
|
(-> all
|
|
|
|
|
(assoc-in [:components views] comp)
|
|
|
|
|
(update-in [:view->children parent]
|
|
|
|
|
(fn [children]
|
|
|
|
|
(let [children (or children [])]
|
|
|
|
|
(conj children views))))
|
|
|
|
|
(update :view->components
|
|
|
|
|
(fn [view->components]
|
|
|
|
|
(reduce (fn [view->components view]
|
|
|
|
|
(assoc view->components view views))
|
|
|
|
|
view->components views))))))
|
|
|
|
|
|
|
|
|
|
(defn -build-tree [views]
|
|
|
|
|
(reduce check-view {:components {}
|
|
|
|
|
:view->components {}
|
|
|
|
|
:view->children {}} views))
|
|
|
|
|
|
|
|
|
|
(defn -get-all-views
|
|
|
|
|
[{:keys [view->children] :as config} component]
|
|
|
|
|
(let [children (reduce clojure.set/union (keep view->children component))]
|
|
|
|
|
(reduce clojure.set/union
|
|
|
|
|
(concat [component]
|
|
|
|
|
children
|
|
|
|
|
(map (fn [child]
|
|
|
|
|
(-get-all-views config child))
|
|
|
|
|
(reduce clojure.set/union
|
|
|
|
|
(map view->children component)))))))
|
|
|
|
|
|
|
|
|
|
(defn -get-grandchildren [{:keys [view->children] :as config} children]
|
|
|
|
|
(into {}
|
|
|
|
|
(filter
|
|
|
|
|
(fn [[_ children]]
|
|
|
|
|
(not (nil? children)))
|
|
|
|
|
(map (fn [child]
|
|
|
|
|
[child (get view->children child)])
|
|
|
|
|
(reduce clojure.set/union children)))))
|
|
|
|
|
|
|
|
|
|
(defn -generate-component
|
|
|
|
|
[{:keys [components view->children] :as config} view-sym component-name]
|
|
|
|
|
(let [component-config (get components component-name)
|
|
|
|
|
children (get view->children component-name)
|
|
|
|
|
grandchildren (-get-grandchildren config children)]
|
|
|
|
|
`[status-im.ui.components.react/view
|
|
|
|
|
{:flex
|
|
|
|
|
~(if (= :root component-name)
|
|
|
|
|
1
|
|
|
|
|
`(if (contains?
|
|
|
|
|
~(disj (-get-all-views config #{component-name}) component-name)
|
|
|
|
|
~view-sym)
|
|
|
|
|
1
|
|
|
|
|
0))}
|
|
|
|
|
~@(when component-config
|
|
|
|
|
`[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
~(assoc component-config :current-view view-sym)])
|
|
|
|
|
~@(map (fn [child]
|
|
|
|
|
`[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
~(assoc (get components child) :current-view view-sym)])
|
|
|
|
|
children)
|
|
|
|
|
~@(map (fn [[component-name children]]
|
|
|
|
|
`[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:component [status-im.ui.components.react/with-empty-preview
|
|
|
|
|
~(-generate-component config view-sym component-name)]
|
|
|
|
|
:views ~(conj
|
|
|
|
|
(reduce
|
|
|
|
|
clojure.set/union
|
|
|
|
|
(map (fn [child]
|
|
|
|
|
(-get-all-views config child))
|
|
|
|
|
children))
|
|
|
|
|
component-name)
|
|
|
|
|
:hide? true
|
|
|
|
|
:current-view ~view-sym}])
|
|
|
|
|
grandchildren)]))
|
|
|
|
|
|
|
|
|
|
(defn -compile-views [n views]
|
|
|
|
|
(let [view-sym (gensym "view-id")]
|
|
|
|
|
`(defview ~n []
|
|
|
|
|
(letsubs [~view-sym [:get :view-id]]
|
|
|
|
|
~(let [tree (-build-tree views)]
|
|
|
|
|
(-generate-component tree view-sym :root))))))
|
|
|
|
|
|
|
|
|
|
(defmacro compile-views
|
|
|
|
|
[n views]
|
|
|
|
|
(-compile-views n views))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(comment
|
|
|
|
|
|
|
|
|
|
(-compile-views
|
|
|
|
|
'root-view
|
|
|
|
|
'[{:views #{:home :wallet :my-profile}
|
|
|
|
|
:component main-tabs}
|
|
|
|
|
|
|
|
|
|
{:view :chat
|
|
|
|
|
:hide? (not android?)
|
|
|
|
|
:component chat}
|
|
|
|
|
|
|
|
|
|
{:view :wallet-send-transaction
|
|
|
|
|
:parent :wallet
|
|
|
|
|
:component send-transaction}
|
|
|
|
|
|
|
|
|
|
{:view :wallet-request-transaction
|
|
|
|
|
:parent :wallet
|
|
|
|
|
:component request-transaction}
|
|
|
|
|
|
|
|
|
|
{:view :choose-recipient
|
|
|
|
|
:parent :wallet-send-transaction
|
|
|
|
|
:component choose-recipient}
|
|
|
|
|
|
|
|
|
|
{:view :wallet-transaction-sent
|
|
|
|
|
:parent :wallet-send-transaction
|
|
|
|
|
:component transaction-sent}
|
|
|
|
|
|
|
|
|
|
{:views #{:transactions-history :unsigned-transactions}
|
|
|
|
|
:parent :wallet
|
|
|
|
|
:component wallet-transactions/transactions}
|
|
|
|
|
|
|
|
|
|
{:view :edit-my-profile
|
|
|
|
|
:parent :profile
|
|
|
|
|
:component edit-my-profile}])
|
|
|
|
|
|
|
|
|
|
(status-im.utils.views/defview
|
|
|
|
|
root-view
|
|
|
|
|
[]
|
|
|
|
|
(status-im.utils.views/letsubs
|
|
|
|
|
[view-id76826 [:get :view-id]]
|
|
|
|
|
[status-im.ui.components.react/view
|
|
|
|
|
{:flex 1}
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:home :wallet :my-profile},
|
|
|
|
|
:component main-tabs,
|
|
|
|
|
:hide? nil,
|
|
|
|
|
:current-view view-id76826}]
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:chat},
|
|
|
|
|
:component chat,
|
|
|
|
|
:hide? (not android?),
|
|
|
|
|
:current-view view-id76826}]
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:hide? true,
|
|
|
|
|
:component [status-im.ui.components.react/with-empty-preview
|
|
|
|
|
[status-im.ui.components.react/view
|
|
|
|
|
{:flex (if
|
|
|
|
|
(clojure.core/contains?
|
|
|
|
|
#{:wallet-request-transaction
|
|
|
|
|
:wallet-send-transaction
|
|
|
|
|
:choose-recipient
|
|
|
|
|
:wallet-transaction-sent
|
|
|
|
|
:transactions-history
|
|
|
|
|
:unsigned-transactions}
|
|
|
|
|
view-id76826)
|
|
|
|
|
1
|
|
|
|
|
0)}
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:wallet-send-transaction},
|
|
|
|
|
:component send-transaction,
|
|
|
|
|
:hide? nil,
|
|
|
|
|
:current-view view-id76826}]
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:wallet-request-transaction},
|
|
|
|
|
:component request-transaction,
|
|
|
|
|
:hide? nil,
|
|
|
|
|
:current-view view-id76826}]
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:transactions-history :unsigned-transactions},
|
|
|
|
|
:component wallet-transactions/transactions,
|
|
|
|
|
:hide? nil,
|
|
|
|
|
:current-view view-id76826}]
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:hide? true,
|
|
|
|
|
:component [status-im.ui.components.react/with-empty-preview
|
|
|
|
|
[status-im.ui.components.react/view
|
|
|
|
|
{:flex (if
|
|
|
|
|
(clojure.core/contains?
|
|
|
|
|
#{:choose-recipient
|
|
|
|
|
:wallet-transaction-sent}
|
|
|
|
|
view-id76826)
|
|
|
|
|
1
|
|
|
|
|
0)}
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:choose-recipient},
|
|
|
|
|
:component choose-recipient,
|
|
|
|
|
:hide? nil,
|
|
|
|
|
:current-view view-id76826}]
|
|
|
|
|
[status-im.ui.components.react/navigation-wrapper
|
|
|
|
|
{:views #{:wallet-transaction-sent},
|
|
|
|
|
:component transaction-sent,
|
|
|
|
|
:hide? nil,
|
|
|
|
|
:current-view view-id76826}]]],
|
|
|
|
|
:current-view view-id76826,
|
|
|
|
|
:views #{:wallet-send-transaction
|
|
|
|
|
:choose-recipient
|
|
|
|
|
:wallet-transaction-sent}}]]],
|
|
|
|
|
:current-view view-id76826,
|
|
|
|
|
:views #{:wallet-request-transaction
|
|
|
|
|
:wallet
|
|
|
|
|
:wallet-send-transaction
|
|
|
|
|
:choose-recipient
|
|
|
|
|
:wallet-transaction-sent
|
|
|
|
|
:transactions-history
|
|
|
|
|
:unsigned-transactions}}]])))
|
