b3da46ac02
Add click handlers to the dialog component for all three targets that
close the dialog when clicking the backdrop area (outside the dialog box).
Uses event.target === event.currentTarget to distinguish backdrop clicks
from content clicks.
- :clj — inline onclick attribute
- :cljs — Replicant :on {:click handler}
- :squint — :on-click handler
- CSS: cursor: pointer on ::backdrop for affordance
89 lines
3.4 KiB
Clojure
89 lines
3.4 KiB
Clojure
(ns ui.dialog
|
|
(:require [clojure.string :as str]))
|
|
|
|
(defn dialog-class-list
|
|
"Generate a vector of CSS class strings for a dialog."
|
|
[_opts]
|
|
["dialog"])
|
|
|
|
(defn dialog-classes
|
|
"Generate CSS class string for a dialog."
|
|
[opts]
|
|
(str/join " " (dialog-class-list opts)))
|
|
|
|
(defn dialog
|
|
"Render a dialog element.
|
|
|
|
Clicking the backdrop (the area outside the dialog box) will close the
|
|
dialog automatically when opened via .showModal().
|
|
|
|
Props:
|
|
:open - boolean, whether the dialog is open
|
|
:id - dialog id for targeting
|
|
:class - additional CSS classes
|
|
:attrs - additional HTML attributes"
|
|
[{:keys [open id class attrs] :as _props} & children]
|
|
#?(:squint
|
|
(let [classes (cond-> (dialog-classes {})
|
|
class (str " " class))
|
|
base-attrs (merge {:class classes
|
|
:on-click (fn [e]
|
|
(when (identical? (.-target e) (.-currentTarget e))
|
|
(.close (.-currentTarget e))))}
|
|
(when id {:id id})
|
|
(when open {:open true})
|
|
attrs)]
|
|
(into [:dialog base-attrs] children))
|
|
|
|
:cljs
|
|
(let [cls (dialog-class-list {})
|
|
classes (cond-> cls class (conj class))
|
|
base-attrs (merge {:class classes
|
|
:on {:click (fn [e]
|
|
(when (identical? (.-target e) (.-currentTarget e))
|
|
(.close (.-currentTarget e))))}}
|
|
(when id {:id id})
|
|
(when open {:open true})
|
|
attrs)]
|
|
(into [:dialog base-attrs] children))
|
|
|
|
:clj
|
|
(let [classes (cond-> (dialog-classes {})
|
|
class (str " " class))
|
|
base-attrs (merge {:class classes
|
|
:onclick "if(event.target===this)this.close()"}
|
|
(when id {:id id})
|
|
(when open {:open true})
|
|
attrs)]
|
|
(into [:dialog base-attrs] children))))
|
|
|
|
(defn dialog-header
|
|
"Render a dialog header section."
|
|
[{:keys [class attrs] :as _props} & children]
|
|
#?(:squint
|
|
(into [:header (merge {:class (cond-> "dialog-header" class (str " " class))} attrs)] children)
|
|
:cljs
|
|
(into [:header (merge {:class (cond-> ["dialog-header"] class (conj class))} attrs)] children)
|
|
:clj
|
|
(into [:header (merge {:class (cond-> "dialog-header" class (str " " class))} attrs)] children)))
|
|
|
|
(defn dialog-body
|
|
"Render a dialog body section."
|
|
[{:keys [class attrs] :as _props} & children]
|
|
#?(:squint
|
|
(into [:div (merge {:class (cond-> "dialog-body" class (str " " class))} attrs)] children)
|
|
:cljs
|
|
(into [:div (merge {:class (cond-> ["dialog-body"] class (conj class))} attrs)] children)
|
|
:clj
|
|
(into [:div (merge {:class (cond-> "dialog-body" class (str " " class))} attrs)] children)))
|
|
|
|
(defn dialog-footer
|
|
"Render a dialog footer section."
|
|
[{:keys [class attrs] :as _props} & children]
|
|
#?(:squint
|
|
(into [:footer (merge {:class (cond-> "dialog-footer" class (str " " class))} attrs)] children)
|
|
:cljs
|
|
(into [:footer (merge {:class (cond-> ["dialog-footer"] class (conj class))} attrs)] children)
|
|
:clj
|
|
(into [:footer (merge {:class (cond-> "dialog-footer" class (str " " class))} attrs)] children)))
|