branch: elpa/bind-map
commit b1870693135b76efa849a86f3af942dc2e55340b
Author: justbur <jus...@burkett.cc>
Commit: justbur <jus...@burkett.cc>
Add short versions for single major/minor mode
---
bind-map.el | 42 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 42 insertions(+)
diff --git a/bind-map.el b/bind-map.el
index 5eab7c7fb1..15c5c5bb43 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -175,6 +175,48 @@ Declare a prefix command for MAP named COMMAND-NAME."
',evil-states nil ',evil-keys (quote prefix)))))))
(put 'bind-map 'lisp-indent-function 'defun)
+;;;###autoload
+(defmacro bind-map-for-major-mode (major-mode &rest args)
+ "Short version of `bind-map' if you want to bind a map for a
+single major mode. MAJOR-MODE is the unquoted symbol representing
+a major mode. This macro makes the call
+
+(bind-map MAJOR-MODE-bm-map
+ :major-modes (MAJOR-MODE)
+ ARGS)
+
+where ARGS should include :keys or :evil-keys. The name of the
+generated keymap is returned, which is always the name of the
+major mode with -bm-map appended."
+ (let ((map-name (intern (format "%s-bm-map" major-mode))))
+ `(progn
+ (bind-map ,map-name
+ :major-modes (,major-mode)
+ ,@args)
+ ',map-name)))
+(put 'bind-map-for-major-mode 'lisp-indent-function 'defun)
+
+;;;###autoload
+(defmacro bind-map-for-minor-mode (minor-mode &rest args)
+ "Short version of `bind-map' if you want to bind a map for a
+single minor mode. MINOR-MODE is the unquoted symbol representing
+a minor mode. This macro makes the call
+
+(bind-map MINOR-MODE-bm-map
+ :minor-modes (MINOR-MODE)
+ ARGS)
+
+where ARGS should include :keys or :evil-keys. The name of the
+generated keymap is returned, which is always the name of the
+minor mode with -bm-map appended."
+ (let ((map-name (intern (format "%s-bm-map" minor-mode))))
+ `(progn
+ (bind-map ,map-name
+ :minor-modes (,minor-mode)
+ ,@args)
+ ',map-name)))
+(put 'bind-map-for-minor-mode 'lisp-indent-function 'defun)
+
(defun bind-map-evil-define-key (states maps keys def)
"Version of `evil-define-key' that binds DEF across multiple STATES,
MAPS, and KEYS."
