jimeh/.emacs.d
1
0
Fork 0
mirror of https://github.com/jimeh/.emacs.d.git synced 2026-02-19 13:46:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore(workspaces): improve persp-mode index switching keybinding code

Browse Source
This commit is contained in:
Jim Myhrberg
2020-08-16 11:28:34 +01:00
parent 4faa48a09b
commit 3602399165
1 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
modules/workspaces/siren-persp-mode.el
View File

@@ -48,16 +48,16 @@
("C-z C-;" . siren-persp-mode-show-current-perspective-name)
("C-z e" . siren-persp-mode-edit-names-cache)
("C-z C-e" . siren-persp-mode-edit-names-cache)
("C-z 0" . siren-persp-switch-to-index-0)
("C-z 1" . siren-persp-switch-to-index-1)
("C-z 2" . siren-persp-switch-to-index-2)
("C-z 3" . siren-persp-switch-to-index-3)
("C-z 4" . siren-persp-switch-to-index-4)
("C-z 5" . siren-persp-switch-to-index-5)
("C-z 6" . siren-persp-switch-to-index-6)
("C-z 7" . siren-persp-switch-to-index-7)
("C-z 8" . siren-persp-switch-to-index-8)
("C-z 9" . siren-persp-switch-to-index-9))
("C-z 0" . siren-persp-switch-to-index)
("C-z 1" . siren-persp-switch-to-index)
("C-z 2" . siren-persp-switch-to-index)
("C-z 3" . siren-persp-switch-to-index)
("C-z 4" . siren-persp-switch-to-index)
("C-z 5" . siren-persp-switch-to-index)
("C-z 6" . siren-persp-switch-to-index)
("C-z 7" . siren-persp-switch-to-index)
("C-z 8" . siren-persp-switch-to-index)
("C-z 9" . siren-persp-switch-to-index))
:custom
(persp-auto-save-num-of-backups 10)
@@ -162,22 +162,22 @@
(set-frame-parameter frame 'persp-recent-just-killed nil)
(message "perspectives: %s" output)))
(defun siren-persp-switch-to-index (index)
"Switch to perspective with index INDEX."
(let ((name (nth index (persp-names-current-frame-fast-ordered))))
(defun siren-persp-switch-to-index (&optional arg)
"Switch to perspective with index ARG.
When this command is bound to a numeric key, calling it without
an argument will translate its bound numeric key to the numeric
argument.
ARG counts from 1."
(interactive "P")
(unless (integerp arg)
(let ((key (event-basic-type last-command-event)))
(setq arg (if (and (characterp key) (>= key ?0) (<= key ?9))
(- key ?0)
0))))
(let ((name (nth arg (persp-names-current-frame-fast-ordered))))
(if name (persp-switch name))))
(defun siren-persp-switch-to-index-defun (index)
`(defun ,(intern (format "siren-persp-switch-to-index-%d" index)) ()
,(format "Switch to perspective with index %d" index)
(interactive)
(siren-persp-switch-to-index ,index)))
(defmacro siren-persp-switch-to-index-defuns (indexes)
`(progn ,@(mapcar 'siren-persp-switch-to-index-defun indexes)))
(siren-persp-switch-to-index-defuns (0 1 2 3 4 5 6 7 8 9))
:config
(add-hook 'persp-common-buffer-filter-functions
'siren-persp-mode-filter-magit-buffers)