Add temporal ugly buttons to confirm dialog.

src/uxbox/ui/confirm.cljs

@@ -13,13 +13,27 @@
             [uxbox.ui.lightbox :as lightbox]))
 
 (defn- confirm-dialog-render
-  [own]
+  [own {:keys [on-accept on-cancel] :as ctx}]
-  (html
+  (letfn [(accept [event]
-   [:div.lightbox-body.confirm-dialog
+            (dom/prevent-default event)
-    [:span "HERE"]
+            (lightbox/close!)
-    [:a.close {:href "#"
+            (on-accept (dissoc ctx :on-accept :on-cancel)))
-               :on-click #(do (dom/prevent-default %)
+          (cancel [event]
-                              (lightbox/close!))} i/close]]))
+            (dom/prevent-default event)
+            (lightbox/close!)
+            (when on-cancel
+              (on-cancel (dissoc ctx :on-accept :on-cancel))))]
+    (html
+     [:div.lightbox-body.confirm-dialog
+      [:span "HERE"]
+      [:input
+       {:type "button"
+        :value "Ok"
+        :on-click accept}]
+      [:input
+       {:type "button"
+        :value "Cancel"
+        :on-click cancel}]])))
 
 (def confirm-dialog
   (mx/component
@@ -28,5 +42,5 @@
     :mixins []}))
 
 (defmethod lightbox/render-lightbox :confirm
-  [_]
+  [context]
-  (confirm-dialog))
+  (confirm-dialog context))