Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2014
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn v-dds [ref id]
  2.   (let [vcl (cell nil)
  3.         vst (cell nil)]
  4.     (div
  5.      (select
  6.       :id "class"
  7.       :change #(do
  8.                  (reset! vcl @%)
  9.                  (u/c-assoc! ref "v-class" @vcl))
  10.       (options d/v-cats))
  11.      (div :toggle (cell= (not= vcl ""))
  12.           (p (text "Value of cell: ~{vcl}"))          
  13.           (select
  14.            :change #(do
  15.                       (reset! vst @%)
  16.                       (u/c-assoc! ref "v-subclass" @vst))
  17.            (v-case ref "v-subclass" (.-nodeValue (text "~{vcl}"))))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement