gistfile1.clj

(ns zenbox.main
  (:require ...))


(def controls (atom []))

(defn build-drop-down-menu [menu-node service menu-data]
  "Given a root dom element MENU-NODE, will render template named \"menus/{{service}}_menu\" with supplied MENU-DATA, create a document fragment and append it to MENU-NODE. Finally, it takes care of turning MENU-NODE into a drop-down menu"
  (let [menu-button (goog.ui.MenuButton.)]
    (swap! controls into [menu-button])))

(defn destroy-widget! []
  (map #(do (.exitDocument %) (.dispose %)) @controls)
 ; reset/empty controls
  (swap! controls (fn [& args] []))
  (.log js/console "post-Controls:")
  (.log js/console @controls))