[elpa] externals/objed f55b4c9 160/166: Add key definition helpers for object keys

[Clemens Radermacher]

branch: externals/objed
commit f55b4c912ab231d97e419b0504df06a95ee6acfd
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Add key definition helpers for object keys
---
 objed-objects.el | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/objed-objects.el b/objed-objects.el
index 9e31d2f..afd00de 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -445,6 +445,38 @@ defined."
              (nreverse res))))))
 
 
+(defun objed--define-kpair (map key name)
+  (let ((cmd (objed--name2func name 'nomode)))
+    (define-key map key cmd)))
+
+(defun objed-define-global-object-keys (&rest kpairs)
+  "Define global object keys.
+
+KPAIRS are pairs of the key and the object name."
+  (let ((map (default-value 'objed-object-map)))
+    (while kpairs
+      (objed--define-kpair map (pop kpairs) (pop kpairs)))))
+
+(defun objed-define-local-object-keys (&rest kpairs)
+  "Define object keys locally for current buffer.
+
+This function is intended to be used inside mode hooks to create
+mode specific object bindings.
+
+KPAIRS are pairs of the key and the object name."
+  (unless (local-variable-p 'objed-map)
+    (setq-local objed-map
+                (make-composed-keymap nil (default-value 'objed-map))))
+  (unless (local-variable-p 'objed-object-map)
+    (setq-local objed-object-map
+                (make-composed-keymap nil (default-value 'objed-object-map))))
+  (while kpairs
+    (objed--define-kpair objed-object-map (pop kpairs) (pop kpairs)))
+  (let ((switchk (where-is-internal 'objed-object-map
+                                    (default-value 'objed-map) t)))
+    (define-key objed-map switchk objed-object-map)))
+
+
 (defmacro objed--with-narrow-for-text (&rest body)
   "Execute BODY narrowed to string or comment."
   `(save-restriction