diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-03-23 00:34:56 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-03-23 00:34:56 -0400 |
| commit | 8367e65b411fc40239233cc98a51a85f5ce224fc (patch) | |
| tree | da663241cf539550f0e0d9324df73a99a503bb1a | |
| parent | f2705344bf8e95908188c8bdd5fe715761a3d8fe (diff) | |
| download | emacs.d-8367e65b411fc40239233cc98a51a85f5ce224fc.tar.gz | |
Swap meaning of ace-window prefix arguments
| -rw-r--r-- | lisp/init-ace.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/init-ace.el b/lisp/init-ace.el index c6e1071..5e8eba8 100644 --- a/lisp/init-ace.el +++ b/lisp/init-ace.el @@ -36,6 +36,14 @@ (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l) aw-scope 'frame) -(key-chord-define-global "jw" 'ace-window) +(defun km/ace-window (arg) + "Run `ace-window', swapping single and double C-u's." + (interactive "p") + (cl-case arg + (4 (setq arg 16)) + (16 (setq arg 4))) + (ace-window arg)) + +(key-chord-define-global "jw" 'km/ace-window) (provide 'init-ace) |