respo / alerts.calcit Goto Github PK

respo-alerts.core :refer $ use-alert use-prompt use-confirm

{}
  :text "|message text"
  :style $ {}
  :card-style $ {}
  :backdrop-style $ {}
  :card-class style-card
  :backdrop-class style-backdrop
  :confirm-class style-confirm

let
    alert-plugin $ use-alert (>> states :alert) ({} (:text "|demo"))
  button $ {}
    :on-click $ fn (e d!)
      .show alert-plugin d!

.show alert-plugin d! "|Extra text"

{}
  :text "|message text"
  :style $ {}
  :card-style $ {}
  :backdrop-style $ {}
  :card-class style-card
  :backdrop-class style-backdrop
  :confirm-class style-confirm

let
    confirm-plugin $ use-confirm (>> states :alert) ({} (:text "|demo"))
  button
    {}
      :on-click $ fn (e d!)
        ; "open UI"
        .show confirm-plugin d! $ fn ()
          println "|after confirmed"

  ; "render UI"
  .render confirm-plugin

{}
  :text "|message text"
  :style $ {}
  :input-style $ {}
  :card-style $ {}
  :backdrop-style $ {}
  :card-class style-card
  :backdrop-class style-backdrop
  :confirm-class style-confirm
  :multiline? false
  :initial "|default text"
  :placeholder "|input"
  :button-text "|Submit"
  :validator $ fn (x)
    if (blank? x) "|Blank failed" nil

let
    prompt-plugin $ use-prompt (>> states :prompt) ({} (:text "|demo"))
  button $ {}
    :on-click $ fn (e d!)
      .show prompt-plugin d! $ fn (text)
        println "|read from prompt" (pr-str text)

  ; "render UI"
  .render prompt-plugin

let
    demo-modal $ use-modal (>> states :modal) $ {}
      :title "|demo"
      :style $ {} (:width 400)
      :container-style $ {}
      :backdrop-style $ {}
      :card-class style-card
      :backdrop-class style-backdrop
      :confirm-class style-confirm
      :render $ fn (on-close)
        div ({})
          <> "|Place for child content"

  ; "event handler to open menu"
  .show demo-modal d!

  ; "render UI"
  .render demo-modal

let
    demo-modal-menu $ use-modal-menu (>> states :modal-menu) $ {}
      :title "|Demo"
      :style $ {} (:width 300)
      :backdrop-style $ {}
      :card-class style-card
      :backdrop-class style-backdrop
      :confirm-class style-confirm
      :items $ []
        :: :item |a |A
        :: :item |b $ div ({} (<> "|B"))
      :on-result $ fn (result d!)
        println "|got result" result

  ; "event handler to open menu"
  .show demo-modal-menu d!

  ; "render UI"
  .render demo-modal-menu

let
    demo-drawer $ use-drawer (>> states :drawer) $ {}
      :title "|demo"
      :style $ {} (:width 400)
      :container-style $ {}
      :backdrop-style $ {}
      :card-class style-card
      :backdrop-class style-backdrop
      :confirm-class style-confirm
      :render $ fn (on-close)
        div ({})
          <> "|Place for child content"

  ; "event handler to open menu"
  .show demo-drawer d!

  ; "render UI"
  .render demo-drawer

let
    on-close $ fn (d!)
      d! cursor (assoc state :show? false)
  comp-modal
    {}
      :title "|Demo"
      :style $ {} (:width 400)
      :container-style $ {}
      :backdrop-style $ {}
      :card-class style-card
      :backdrop-class style-backdrop
      :confirm-class style-confirm
      :render $ fn (on-close)
        div ({})
          <> "|Place for child content"
    , show? on-close

comp-modal-menu (:show-modal-menu? state)
  {} (:title "|Demo")
    :style $ {} (:width 300)
    :backdrop-style $ {}
    :card-class style-card
    :backdrop-class style-backdrop
    :confirm-class style-confirm
  []
    :: :item |a |A
    :: :item |b $ div ({}) (<> "|B")
  fn (d!)
    d! cursor (assoc state :show-modal-menu? false)
  fn (result d!)
    println "|result" result
    d! cursor (assoc state :show-modal-menu? false)