procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add sort option -prefix-then-key-order-reverse

Browse source 
Fixes #145
This commit is contained in:
Justin Burkett 2016-10-29 08:34:42 -04:00
parent c678b93706
commit 5abc8cfd33
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
which-key.el
View file

@ -1176,6 +1176,16 @@ coming before a prefix. Within these categories order using
(and (not apref?) bpref?)
(which-key-key-order acons bcons))))
(defun which-key-prefix-then-key-order-reverse (acons bcons)
"Order first by whether A and/or B is a prefix with prefix
coming before a prefix. Within these categories order using
`which-key-key-order'."
(let ((apref? (which-key--group-p (cdr acons)))
(bpref? (which-key--group-p (cdr bcons))))
(if (not (eq apref? bpref?))
(and apref? (not bpref?))
(which-key-key-order acons bcons))))
(defun which-key-local-then-key-order (acons bcons)
"Order first by whether A and/or B is a local binding with
local bindings coming first. Within these categories order using