Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn v-dds [ref id]
- (let [vcl (cell nil)
- vst (cell nil)]
- (div
- (select
- :id "class"
- :change #(do
- (reset! vcl @%)
- (u/c-assoc! ref "v-class" @vcl))
- (options d/v-cats))
- (div :toggle (cell= (not= vcl ""))
- (p (text "Value of cell: ~{vcl}"))
- (select
- :change #(do
- (reset! vst @%)
- (u/c-assoc! ref "v-subclass" @vst))
- (v-case ref "v-subclass" (.-nodeValue (text "~{vcl}"))))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement