edit-buttons

gistfile1.clj

(defn edit-buttons [_ _ {:keys [ch>]}]
  (reify
    om/IRender
    (render [_]
      (dom/div #js {:className "form-group btn-group"
                    :style (js-margin-right)}
        (dom/button #js {:className "btn btn-default" 
                         :onClick (fn [e]
                                    (.preventDefault e)
                                    (put! ch> {:event e
                                               :kind :insert}))}
          (dom/span #js {:className "glyphicon glyphicon-plus"}))

        (dom/button #js {:className "btn btn-default"
                         :onClick (fn [e]
                                    (.preventDefault e)
                                    (put! ch> {:event e
                                               :kind :save} ))}
          (dom/span #js {:className "glyphicon glyphicon-ok"}))

        (dom/button #js {:className "btn btn-default"
                         :style (js-margin-right)
                         :onClick (fn [e]
                                    (.preventDefault e)
                                    (put! ch> {:event e
                                               :kind :cancel}))}
          (dom/span #js {:className "fa fa-undo"}))

        (dom/button #js {:className "btn btn-default"
                         :onClick (fn [e]
                                    (.preventDefault e)
                                    (put! ch> {:event e
                                               :kind :delete}))}
          (dom/span #js {:className "glyphicon glyphicon-trash"}))))))