0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-12 07:41:43 -05:00

🔥 Remove unused code.

This commit is contained in:
Andrey Antukh 2020-01-21 17:40:22 +01:00
parent 1d726564df
commit abb19572b5
2 changed files with 0 additions and 42 deletions

View file

@ -444,45 +444,6 @@
[] []
(InitializeIconsToolbox.)) (InitializeIconsToolbox.))
;; --- Clipboard Management
(defrecord CopyToClipboard []
ptk/UpdateEvent
(update [_ state]
(let [selected (get-in state [:workspace :selected])
item {:id (uuid/next)
:created-at (dt/now)
:items selected}
clipboard (-> (:clipboard state)
empty
(conj item))]
(assoc state :clipboard
(if (> (count clipboard) 5)
(pop clipboard)
clipboard)))))
(defn copy-to-clipboard
"Copy selected shapes to clipboard."
[]
(CopyToClipboard.))
(defrecord PasteFromClipboard [id]
ptk/UpdateEvent
(update [_ state]
state
#_(let [page-id (get-in state [:workspace :page :id])
selected (if (nil? id)
(first (:clipboard state))
(->> (:clipboard state)
(filter #(= id (:id %)))
(first)))]
(ds/duplicate-shapes state (:items selected) page-id))))
(defn paste-from-clipboard
"Copy selected shapes to clipboard."
([] (PasteFromClipboard. nil))
([id] (PasteFromClipboard. id)))
;; --- Zoom Management ;; --- Zoom Management
(def increase-zoom (def increase-zoom

View file

@ -31,9 +31,6 @@
:ctrl+0 #(st/emit! (dw/reset-zoom)) :ctrl+0 #(st/emit! (dw/reset-zoom))
;; :ctrl+r #(st/emit! (dw/toggle-flag :ruler)) ;; :ctrl+r #(st/emit! (dw/toggle-flag :ruler))
:ctrl+d #(st/emit! dw/duplicate-selected) :ctrl+d #(st/emit! dw/duplicate-selected)
;; :ctrl+c #(st/emit! (dw/copy-to-clipboard))
;; :ctrl+v #(st/emit! (dw/paste-from-clipboard))
;; :ctrl+shift+v #(dl/open! :clipboard)
;; :ctrl+z #(st/emit! du/undo) ;; :ctrl+z #(st/emit! du/undo)
;; :ctrl+shift+z #(st/emit! du/redo) ;; :ctrl+shift+z #(st/emit! du/redo)
;; :ctrl+y #(st/emit! du/redo) ;; :ctrl+y #(st/emit! du/redo)