branch: elpa/bind-map
commit fe76f92777e2e487d1512d2d39315cf3a9bf1a05
Author: justbur <jus...@burkett.cc>
Commit: justbur <jus...@burkett.cc>
Add default keys and default evil-keys
See bind-map-default-keys and bind-map-default-evil-keys. Both nil by
default.
---
bind-map.el | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/bind-map.el b/bind-map.el
index 2532ed0aa3..65aa1d06af 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -107,10 +107,18 @@
"Bind personal keymaps in multiple locations."
:group 'emacs)
+(defcustom bind-map-default-keys nil
+ "Default for :keys when unspecified."
+ :group 'bind-map)
+
(defcustom bind-map-default-evil-states '(normal motion visual)
"Default states for evil bindings."
:group 'bind-map)
+(defcustom bind-map-default-evil-keys nil
+ "Default for :evil-keys when unspecified."
+ :group 'bind-map)
+
(defcustom bind-map-default-map-suffix "-bm-map"
"Default suffix to use for `bind-map-for-major-mode' and
`bind-map-for-minor-mode'."
@@ -262,7 +270,8 @@ a convenience."
(active-var (intern (format "%s-active" map)))
(prefix-cmd (or (plist-get args :prefix-cmd)
(intern (format "%s-prefix" map))))
- (keys (plist-get args :keys))
+ (keys (or (plist-get args :keys)
+ bind-map-default-keys))
(override-minor-modes (or (plist-get args :override-minor-modes)
(plist-get args :evil-use-local)))
(override-mode (if (plist-get args :override-mode-name)
@@ -274,7 +283,8 @@ mode maps. Set up by bind-map.el." map))
(turn-on-override-mode (intern (format "turn-on-%s" override-mode)))
(turn-on-override-mode-doc (format "Enable `%s' except in minibuffer"
override-mode))
- (evil-keys (plist-get args :evil-keys))
+ (evil-keys (or (plist-get args :evil-keys)
+ bind-map-default-evil-keys))
(evil-states (or (plist-get args :evil-states)
bind-map-default-evil-states))
(minor-modes (plist-get args :minor-modes))
