mirror of
https://github.com/penpot/penpot.git
synced 2026-06-01 13:10:21 +00:00
18 lines
437 B
Clojure
18 lines
437 B
Clojure
(ns uxbox.main.ui.messages
|
|
(:require
|
|
[lentes.core :as l]
|
|
[rumext.alpha :as mf]
|
|
[uxbox.main.store :as st]
|
|
[uxbox.util.messages :as um]))
|
|
|
|
(def ^:private message-iref
|
|
(-> (l/key :message)
|
|
(l/derive st/state)))
|
|
|
|
(mf/defc messages-widget
|
|
[]
|
|
(let [message (mf/deref message-iref)
|
|
on-close #(st/emit! (um/hide))]
|
|
[:& um/messages-widget {:message message
|
|
:on-close on-close}]))
|