Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-26 16:56:11 -05:00
Code Issues Activity

Use new components macros on clipboard ns.

Browse source
This commit is contained in:
Andrey Antukh 2016-08-31 17:23:06 +03:00
parent 20e89cb8a7
commit 271a305cc0
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 19 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
src/uxbox/main/ui/workspace/clipboard.cljs
View file

@ -6,9 +6,7 @@
;; Copyright (c) 2015-2016 Juan de la Cruz <delacruzgarciajuan@gmail.com>
(ns uxbox.main.ui.workspace.clipboard
(:require [sablono.core :as html :refer-macros [html]]
[rum.core :as rum]
[lentes.core :as l]
(:require [lentes.core :as l]
[uxbox.util.rstore :as rs]
[uxbox.main.state :as st]
[uxbox.main.data.lightbox :as udl]
@ -19,40 +17,28 @@
[uxbox.util.dom :as dom]
[uxbox.util.datetime :as dt]))
;; --- Lenses
(def ^:private clipboard-ref
(-> (l/key :clipboard)
(l/derive st/state)))
;; --- Clipboard Dialog Component
(defn- on-paste
[item]
(rs/emit! (udw/paste-from-clipboard (:id item)))
(udl/close!))
(defn- clipboard-dialog-render
[own]
(let [clipboard (mx/react clipboard-ref)]
(html
[:div.lightbox-body.clipboard
[:div.clipboard-list
(for [item clipboard]
[:div.clipboard-item
{:key (str (:id item))
:on-click (partial on-paste item)}
[:span.clipboard-icon i/box]
[:span (str "Copied (" (dt/timeago (:created-at item)) ")")]])]
[:a.close {:href "#"
:on-click #(do (dom/prevent-default %)
(udl/close!))} i/close]])))
(def clipboard-dialog
(mx/component
{:render clipboard-dialog-render
:name "clipboard-dialog"
:mixins [mx/static mx/reactive]}))
(mx/defc clipboard-dialog
{:mixins [mx/static mx/reactive]}
[]
(letfn [(on-paste [item]
(rs/emit! (udw/paste-from-clipboard (:id item)))
(udl/close!))
(on-close [event]
(dom/prevent-default event)
(udl/close!))]
[:div.lightbox-body.clipboard
[:div.clipboard-list
(for [item (mx/react clipboard-ref)]
[:div.clipboard-item
{:key (str (:id item))
:on-click (partial on-paste item)}
[:span.clipboard-icon i/box]
[:span (str "Copied (" (dt/timeago (:created-at item)) ")")]])]
[:a.close {:href "#" :on-click on-close} i/close]]))
(defmethod lbx/render-lightbox :clipboard
[_]