dialog custom size

Author: awb99

.github/workflows/ci.yml

@@ -31,6 +31,5 @@ jobs:
       run: |
         git config --global user.email "[email protected]"
         git config --global user.name "CI/CD"
-        cd ui-keybindings
         clojure -T:build jar
         clojure -T:build deploy

ui-keybindings/build.clj build.clj

@@ -1,6 +1,5 @@
 (ns build
   (:require
-   [babashka.fs :as fs]
    [clojure.tools.build.api :as b]
    [deps-deploy.deps-deploy :as dd]))
 

ui-keybindings/deps.edn deps.edn

@@ -8,10 +8,9 @@
                                                             :sha "cc75980b43011773162b485f46f939dc5fba91e4"}}
          :main-opts ["-m" "cognitect.test-runner"]
          :exec-fn cognitect.test-runner.api/test}
-  
-   :build {:deps {io.github.clojure/tools.build {:mvn/version "0.9.6"}
-                 slipset/deps-deploy {:mvn/version "0.2.1"}
-                 babashka/fs {:mvn/version "0.0.5"}}
+
+  :build {:deps {io.github.clojure/tools.build {:mvn/version "0.9.6"}
+                 slipset/deps-deploy {:mvn/version "0.2.1"}}
           :ns-default build}
 
 ;

ui-keybindings/resources/demo/notebook/dialog.cljs resources/demo/notebook/dialog.cljs

@@ -16,7 +16,7 @@
              {:show? true
               :child child
               :close (or close nil) ; optionally dispatch on close reframe event
-              :size (or size :default)})))
+              :size (or size nil)})))
 
 (reg-event-db
  :modal/close
@@ -27,7 +27,7 @@
              (dispatch close))
            (assoc-in db [:modal] {:show? false
                                   :child nil
-                                  :size :default
+                                  :size nil
                                   :close nil}))
        db))))
 
@@ -39,13 +39,18 @@
                       (dispatch [:modal/close])
                       (.preventDefault event)
                       (.stopPropagation event))}]
-   [:div {:class "modal-child"
-          :style {:width (case size
-                           :extra-small "15%"
-                           :small "30%"
-                           :large "70%"
-                           :extra-large "85%"
-                           "50%")}} child]])
+   (if size
+     ;wrap % size
+     [:div {:class "modal-child"
+            :style {:width (case size
+                             :extra-small "15%"
+                             :small "30%"
+                             :large "70%"
+                             :extra-large "85%"
+                             "50%")}} child]
+     ; just wrap the class we use.
+     [:div {:class "modal-child"}
+      child])])
 
 (reg-sub-raw
  :modal
@@ -60,7 +65,7 @@
 
 (defn dialog-show
   ([ui]
-   (dispatch [:modal/open ui :small]))
+   (dispatch [:modal/open ui]))
   ([ui size]
    (dispatch [:modal/open ui size]))
   ([ui size close]