repeat map for previous window

1 files 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