Popup UI demo for Respo apps
Demo http://repo.respo-mvc.org/inflow-popup/
[respo/inflow-popup "0.3.0"]
It's like local popup/dropdown menu component in React.js .
inflow-popup.comp.popup/comp-popup
(cursor-> :popup comp-popup states
{:trigger (<> "Launch"),
:style {:background-color (hsl 0 0 96), :padding "0 8px"}
:on-popup (fn [e d! m!])}
(fn [toggle!]
(div {}
(<> "Inside")
(=< 8 nil)
(button
{:style ui/button,
:inner-text "Close",
:on-click (fn [e d! m!] (toggle! m!))})))))
inflow-popup.comp.dialog/comp-dialog
(if (:show? state)
(comp-dialog
(fn [mutate!] (mutate! %cursor (update state :show? not)))
(div {} (<> "Inside"))))
inflow-popup.comp.dialog/comp-menu-dialog
(if (:show-menu? state)
(comp-menu-dialog
(fn [result d! m!]
(println "result" result)
(m! %cursor (update state :show-menu? not)))
{:haskell "Haskell",
:clojure "Clojure",
:elixir (div
{:style {}}
(div {} (<> "Elixir"))
(div {} (<> "...with an extra line")))})))
inflow-popup.comp.dropdown/comp-dropdown
TODO.
https://github.com/mvc-works/calcit-workflow
MIT