Clojurians Log v2

We need a blog post about this ;)

(defn ->js [form]
  (->>
   (squint/compile-string* (str form))
   :body))

(defn button->modal [& {:keys [path name id label header content] :as opts}]
  (let [dialog-id (str name "-" id)
        show-dialog (->js `(.showModal (document.getElementById ~dialog-id)))
        close-dialog (->js `(.close (document.getElementById ~dialog-id)))]
    [:div
     [:a {:onclick show-dialog} label]
     [:dialog {:id (str name "-" id)}
      [:article
       [:header
        [:button {:aria-label "Close" :rel "prev" :onclick close-dialog}]
        [:p [:strong header]]]
       content
       [:div
        [:a {:role "button" :onclick close-dialog} "Close"]]]]]))

guess i have to create a record for that or use a map instead of the simple attributes

(button->modal
 :path (str "/commands/" (:id item))
 :name "cmd-delete"
 :id (:id item)
 :label "Delete"
 :header "Delete"
 :content [:div
           [:a "Hello"]])

BTW is there a maven supplied squint i can use in deps? currently i use the git version

you can use squint as a git dependency