Modal about soda-ash HOT 3 CLOSED

(ns mymodal.core
    (:require
     [reagent.core :as reagent]))

(def app-state
  (reagent/atom {}))

;; This is the modal that will be displayed when you 
;; trigger the appropriate javascript found here: http://semantic-ui.com/modules/modal.html
(defn modal []
  [:div.ui.basic.modal
   [:div.header "Modal"]
   [:p "This is some content"]
   ])


(defn page [ratom]
  [:div
   [modal]

;; This button will fire the javascript to display the modal
   [:button
    {:on-click #(.modal (js/$ ".ui.basic.modal")
                        "show")}
    "Show Modal"]
   ])

(defn reload []
  (reagent/render [page app-state]
                  (.getElementById js/document "app")))

(defn ^:export main []
  (reload))