gistfile1.clj

(defn set-style
  [elt property value]
  (doto (.-style elt)
    (.setProperty property value))
  elt)

(defn set-styles
  [elt s]
  (let [style (.-style elt)]
    (doseq [[property value] s]
      (.setProperty style property value))
    elt))

(defn set-dim
  [elt width height]
  (if width
    (set-style elt "width" (str width "px")))
  (if height
    (set-style elt "height" (str height "px")))
  elt)

(defn flat-button
  [text & [width height]]
  (let [b (doto (goog.ui.Button. (str text) (flatbr/getInstance))
            (.render (top)))
        elt (.getContentElement b)]
    (set-dim elt width height)))