From 7fd611550b54dd47b1da695bbdf8d2ee9e1746fa Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 10 Aug 2022 14:18:11 +0100 Subject: repeat map for previous window --- init.el | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/init.el b/init.el index d273840..1ebd2f3 100644 --- a/init.el +++ b/init.el @@ -1122,7 +1122,6 @@ (interactive) (other-window -1)) -(global-set-key (kbd "C-x p") #'jao-prev-window) (global-set-key (kbd "s-a") #'jao-first-window) (global-set-key (kbd "M-a") #'jao-first-window) @@ -1140,11 +1139,18 @@ (interactive) (other-window -1)) -(defun jao-next-window () - "Go to previous window" - (interactive) - ;; next-window-any-frame - (other-window 1)) +(defvar jao-prev-window-repeat-map + (let ((map (make-sparse-keymap))) + (define-key map "p" 'jao-prev-window) + (define-key map "o" (lambda () + (interactive) + (setq repeat-map 'jao-prev-window-repeat-map) + (other-window 1))) + map) + "Keymap to repeat `prev-window' key sequences. Used in `repeat-mode'.") +(put 'jao-prev-window 'repeat-map jao-prev-window-repeat-map) + +(define-key other-window-repeat-map "p" 'jao-prev-window) (global-set-key (kbd "C-x p") 'jao-prev-window) (global-set-key (kbd "C-x o") 'other-window) @@ -1698,6 +1704,7 @@ ;;;; pdf-tools (use-package pdf-tools + :disabled t :ensure t :demand t :init -- cgit v1.2.3