mirror of
https://github.com/penpot/penpot.git
synced 2025-08-03 16:38:38 +02:00
56 lines
1.8 KiB
Clojure
56 lines
1.8 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) UXBOX Labs SL
|
|
|
|
(ns app.main.data.viewer.shortcuts
|
|
(:require
|
|
[app.main.data.shortcuts :as ds]
|
|
[app.main.data.viewer :as dv]
|
|
[app.main.store :as st]))
|
|
|
|
(def shortcuts
|
|
{:increase-zoom {:tooltip "+"
|
|
:command "+"
|
|
:fn (st/emitf dv/increase-zoom)}
|
|
|
|
:decrease-zoom {:tooltip "-"
|
|
:command "-"
|
|
:fn (st/emitf dv/decrease-zoom)}
|
|
|
|
:select-all {:tooltip (ds/meta "A")
|
|
:command (ds/c-mod "a")
|
|
:fn (st/emitf (dv/select-all))}
|
|
|
|
:zoom-50 {:tooltip (ds/shift "0")
|
|
:command "shift+0"
|
|
:fn (st/emitf dv/zoom-to-50)}
|
|
|
|
:reset-zoom {:tooltip (ds/shift "1")
|
|
:command "shift+1"
|
|
:fn (st/emitf dv/reset-zoom)}
|
|
|
|
:zoom-200 {:tooltip (ds/shift "2")
|
|
:command "shift+2"
|
|
:fn (st/emitf dv/zoom-to-200)}
|
|
|
|
:next-frame {:tooltip ds/left-arrow
|
|
:command "left"
|
|
:fn (st/emitf dv/select-prev-frame)}
|
|
|
|
:prev-frame {:tooltip ds/right-arrow
|
|
:command "right"
|
|
:fn (st/emitf dv/select-next-frame)}
|
|
|
|
:open-handoff {:tooltip "G H"
|
|
:command "g h"
|
|
:fn #(st/emit! (dv/go-to-section :handoff))}
|
|
|
|
:open-comments {:tooltip "G C"
|
|
:command "g c"
|
|
:fn #(st/emit! (dv/go-to-section :comments))}})
|
|
|
|
(defn get-tooltip [shortcut]
|
|
(assert (contains? shortcuts shortcut) (str shortcut))
|
|
(get-in shortcuts [shortcut :tooltip]))
|