From 8367e65b411fc40239233cc98a51a85f5ce224fc Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 23 Mar 2015 00:34:56 -0400 Subject: Swap meaning of ace-window prefix arguments --- lisp/init-ace.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'lisp') 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) -- cgit v1.2.3