[nongnu] elpa/drupal-mode 493acf44da 166/308: Redone building `drupal-mode-map`.

[ELPA Syncer]

branch: elpa/drupal-mode
commit 493acf44da901ee746559d80c83182f19dd33027
Author: Arne Jørgensen <arne@arnested.dk>
Commit: Arne Jørgensen <arne@arnested.dk>

    Redone building `drupal-mode-map`.
    
    This way it is easier to also add the mnemonic keys / functions to other
    key bindings. I.e. I do the following in my .emacs to map them to the
    hyper key:
    
    ```
    (add-hook 'drupal-mode-hook (lambda ()
                                  (dolist (elem drupal-mode-map-alist)
                                    (local-set-key `[(hyper ,(car elem))] (cdr 
elem)))))
    ```
---
 drupal-mode.el | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/drupal-mode.el b/drupal-mode.el
index 7d75e17872..e87a75f733 100644
--- a/drupal-mode.el
+++ b/drupal-mode.el
@@ -188,14 +188,23 @@ Include path to the executable if it is not in your 
$PATH."
 (make-variable-buffer-local 'drupal-project)
 (put 'drupal-project 'safe-local-variable 'string-or-null-p)
 
+(defvar drupal-mode-map-alist
+  '((?d . drupal-search-documentation)
+    (?c . drupal-drush-cache-clear)
+    (?h . drupal-insert-hook)
+    (?f . drupal-insert-function)
+    (?m . drupal-module-name)
+    (?t . drupal-wrap-string-in-t-function))
+  "Map of mnemonic keys and functions for keyboard shortcuts.
+See `drupal-mode-map'.")
+
 (defvar drupal-mode-map
   (let ((map (make-sparse-keymap)))
-    (define-key map [(control c) (control v) (control d)] 
#'drupal-search-documentation)
-    (define-key map [(control c) (control v) (control c)] 
#'drupal-drush-cache-clear)
-    (define-key map [(control c) (control v) (control h)] #'drupal-insert-hook)
-    (define-key map [(control c) (control v) (control f)] 
#'drupal-insert-function)
-    (define-key map [(control c) (control v) (control m)] #'drupal-module-name)
-    (define-key map [(control c) (control v) (control t)] 
#'drupal-wrap-string-in-t-function)
+    ;; Iterate `drupal-mode-map-alist' and assign the functions to the
+    ;; mode map on C-c C-v C-`mnemonic-key'.
+    (dolist (elem drupal-mode-map-alist)
+      (define-key map `[(control c) (control v) (control ,(car elem))] (cdr 
elem)))
+
     (define-key map [(control a)] #'drupal-mode-beginning-of-line)
     map)
   "Keymap for `drupal-mode'")