ryuslash/emacs-config
1
0
Fork 0
Code Activity

[oni-core] Add keybinding to select which window to use as “other”

Browse source
This commit is contained in:
Tom Willemse 2023-05-24 23:51:09 -07:00
parent b26c3c8899
commit 020f19fcbc
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
oni-core.el
View file

@ -358,6 +358,11 @@ _s_: String list"
(backward-char) (backward-char)
(looking-back (rx word) (1- (point))))) (looking-back (rx word) (1- (point)))))
(defun oni-core-ace-window-select-other-window ()
"Use ‘ace-window’ to select which window is considered “other”."
(interactive)
(setq other-window-scroll-buffer (ace-select-window)))
(with-eval-after-load 'electric (with-eval-after-load 'electric
(add-hook 'electric-quote-inhibit-functions #'oni-core-in-word-p)) (add-hook 'electric-quote-inhibit-functions #'oni-core-in-word-p))
@ -399,6 +404,7 @@ _s_: String list"
(global-set-key (kbd "C-c w d") '("Delete a window" . ace-delete-window)) (global-set-key (kbd "C-c w d") '("Delete a window" . ace-delete-window))
(global-set-key (kbd "C-c w k") '("Keep a single window" . ace-delete-other-windows)) (global-set-key (kbd "C-c w k") '("Keep a single window" . ace-delete-other-windows))
(global-set-key (kbd "C-c w o") '("Select other window" . oni-core-ace-window-select-other-window))
(global-set-key (kbd "M-g M") '("Jump to a mark anywhere" . consult-global-mark)) (global-set-key (kbd "M-g M") '("Jump to a mark anywhere" . consult-global-mark))
(global-set-key (kbd "M-g m") '("Jump to a mark" . consult-mark)) (global-set-key (kbd "M-g m") '("Jump to a mark" . consult-mark))
(global-set-key [remap bookmark-jump] 'consult-bookmark) (global-set-key [remap bookmark-jump] 'consult-bookmark)