diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2015-08-31 05:17:52 (GMT) |
|---|---|---|
| committer | Ravi R Kiran <aine.marina@gmail.com> | 2015-08-31 05:17:52 (GMT) |
| commit | 2e6e06642d668f6fd667d95bd43c3d8e81823943 (patch) | |
| tree | 995880b349ec78345e95caa8a870c624d7cfbe5a /lisp | |
| parent | 72503695fdbc002c294965ff37d82daa33f9e1eb (diff) | |
| download | dotemacs-2e6e06642d668f6fd667d95bd43c3d8e81823943.zip dotemacs-2e6e06642d668f6fd667d95bd43c3d8e81823943.tar.gz dotemacs-2e6e06642d668f6fd667d95bd43c3d8e81823943.tar.bz2 | |
Sometimes the dispatch list does come in handy
How can we make it display the dispatch alist as help?
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ravi-init-appearance.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ravi-init-appearance.el b/lisp/ravi-init-appearance.el index 80c4d8a..af0d411 100644 --- a/lisp/ravi-init-appearance.el +++ b/lisp/ravi-init-appearance.el @@ -351,7 +351,8 @@ Delete all whitespace on a successive key press." :ensure t) (use-package ace-window - :bind (("M-o" . ace-window)) + :bind (("M-o" . ace-window) + ("M-O" . ravi/dispatched-ace-window)) :config (progn (set-face-attribute 'aw-leading-char-face nil :foreground "deep sky blue" :weight 'bold :height 3.0) @@ -370,6 +371,12 @@ Delete all whitespace on a successive key press." (?u winner-undo) (?r winner-redo))) + (defun ravi/dispatched-ace-window (arg) + "Select window with dispatch always present" + (interactive "p") + (let ((aw-dispatch-always t)) + (ace-window arg))) + (when (package-installed-p 'hydra) (defhydra hydra-window-size (:color red) "Windows size" |