feat(tazjin/emacs): emulate i3's "jump back-and-forth" feature

this feature makes it so that if you jump to a workspace by index, and
then ask to jump that same index again, you end up where you started.

this is useful for quickly jumping to something to look at it, and
then back.

Change-Id: I12f5bba88c0d5b3ae5956d2b6a606f49146551f7
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5244
Reviewed-by: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2022-02-07 21:55:00 +03:00 committed by tazjin
parent e00dd88b66
commit d522e75554

View file

@ -132,13 +132,30 @@
(fringe-mode 3) (fringe-mode 3)
(exwm-enable) (exwm-enable)
;; 's-N': Switch to certain workspace ;; Create 10 EXWM workspaces
(setq exwm-workspace-number 10) (setq exwm-workspace-number 10)
;; 's-N': Switch to certain workspace, but switch back to the previous
;; one when tapping twice (emulates i3's `back_and_forth' feature)
(defvar *exwm-workspace-from-to* '(-1 . -1))
(defun exwm-workspace-switch-back-and-forth (target-idx)
;; If the current workspace is the one we last jumped to, and we are
;; asked to jump to it again, set the target back to the previous
;; one.
(when (and (eq exwm-workspace-current-index (cdr *exwm-workspace-from-to*))
(eq target-idx exwm-workspace-current-index))
(setq target-idx (car *exwm-workspace-from-to*)))
(setq *exwm-workspace-from-to*
(cons exwm-workspace-current-index target-idx))
(exwm-workspace-switch-create target-idx))
(dotimes (i 10) (dotimes (i 10)
(exwm-input-set-key (kbd (format "s-%d" i)) (exwm-input-set-key (kbd (format "s-%d" i))
`(lambda () `(lambda ()
(interactive) (interactive)
(exwm-workspace-switch-create ,i)))) (exwm-workspace-switch-back-and-forth ,i))))
;; Implement MRU functionality for EXWM workspaces, making it possible ;; Implement MRU functionality for EXWM workspaces, making it possible
;; to jump to the previous/next workspace very easily. ;; to jump to the previous/next workspace very easily.