mirror of
https://github.com/penpot/penpot.git
synced 2025-05-07 09:05:54 +02:00
17 lines
437 B
Clojure
17 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}]))
|