summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-03-23 00:34:56 -0400
committerKyle Meyer <kyle@kyleam.com>2015-03-23 00:34:56 -0400
commit8367e65b411fc40239233cc98a51a85f5ce224fc (patch)
treeda663241cf539550f0e0d9324df73a99a503bb1a /lisp
parentf2705344bf8e95908188c8bdd5fe715761a3d8fe (diff)
downloademacs.d-8367e65b411fc40239233cc98a51a85f5ce224fc.tar.gz
Swap meaning of ace-window prefix arguments
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-ace.el10
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)