gered/views.reagent
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

allow for defvc components to include doc comments and attribute maps

Browse source 
just like reagent components would be able to do when defined with defn
This commit is contained in:
Gered 2016-05-25 13:42:11 -04:00
parent 20be582a1a
commit d5e421de52
1 changed files with 38 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
reagent-data-views/src/reagent_data_views/client/component.clj
View file

@ -11,8 +11,22 @@
components defined with defvc will automatically manage subscribing components defined with defvc will automatically manage subscribing
and unsubscribing to views as the view signatures passed to any and unsubscribing to views as the view signatures passed to any
view-cursor calls change across the lifetime of this component." view-cursor calls change across the lifetime of this component."
[component-name args & body] {:arglists '([component-name doc-string? attr-map? [params*] body])}
`(defn ~component-name [] [component-name & decl]
(let [attr-map (if (string? (first decl))
{:doc (first decl)}
{})
decl (if (string? (first decl))
(next decl)
decl)
attr-map (if (map? (first decl))
(conj attr-map (first decl))
attr-map)
decl (if (map? (first decl))
(next decl)
decl)
[args & body] decl]
`(defn ~component-name ~attr-map []
(reagent.core/create-class (reagent.core/create-class
{:component-will-mount {:component-will-mount
(fn [this#] (fn [this#]
@ -39,4 +53,4 @@
:component-function :component-function
(fn ~args (fn ~args
~@body)}))) ~@body)}))))