gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reconfigure ace-window

Browse Source 
* Make it possible to scroll (up/down) and bury window buffers
* Map window selectors back to the defaults (numbers)
* Make dispatcher run always, even for only two windows
This commit is contained in:
Gergely Polonkai 2016-11-17 14:01:17 +01:00
parent 822260dad0
commit a80b9348cc
2 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.el
View File

@ -371,9 +371,18 @@
(use-package ace-window (use-package ace-window
:ensure t :ensure t
:init :config
(setq aw-keys '(?a ?o ?e ?u ?i ?d ?h ?t ?n) (setq aw-background nil
aw-background nil) aw-dispatch-always t)
(add-to-list 'aw-dispatch-alist
'(?s gpolonkai/scroll-window-up " Scroll window up")
t)
(add-to-list 'aw-dispatch-alist
'(?S gpolonkai/scroll-window-down " Scroll window down")
t)
(add-to-list 'aw-dispatch-alist
'(?q gpolonkai/bury-window " Bury (quit) window")
t)
:bind :bind
(:map ctl-x-map (:map ctl-x-map
("o" . ace-window))) ("o" . ace-window)))

19
lisp/window-manip.el
View File

@ -35,3 +35,22 @@
(select-window first-win) (select-window first-win)
(if this-win-2nd (other-window 1)))) (if this-win-2nd (other-window 1))))
(error "This works only for two windows!"))) (error "This works only for two windows!")))
(defun gpolonkai/scroll-window-up (window)
"Scroll WINDOW up as `scroll-up-command' would."
(interactive)
(save-selected-window
(select-window window)
(scroll-up)))
(defun gpolonkai/scroll-window-down (window)
"Scroll WINDOW down as `scroll-down-command' would."
(interactive)
(save-selected-window
(select-window window)
(scroll-down)))
(defun gpolonkai/bury-window (window)
"Quit WINDOW without killing it."
(interactive)
(quit-window nil window))