[elpa] externals/objed e079a76 152/166: Add objed-init-hook #57

[Clemens Radermacher]

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

    Add objed-init-hook #57
---
 objed.el | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/objed.el b/objed.el
index 5bfe8e3..3a1040c 100644
--- a/objed.el
+++ b/objed.el
@@ -186,6 +186,11 @@ The function should return nil if objed should not 
initialize."
   :type 'function)
 
 
+(defcustom objed-init-hook '(objed-init-mode-line objed-init-which-key)
+  "Hook that runs after objed initialized."
+  :type 'hook)
+
+
 (defcustom objed-cmd-alist
   '((left-char . char)
     (right-char . char)
@@ -1436,12 +1441,20 @@ that any previous instance of this object is used."
                              #'objed--keep-transient-p
                              #'objed--reset))
 
-    (when objed-modeline-hint-p
-      (funcall objed-modeline-setup-func objed-mode-line-format))
-    ;; show which key after redisplay if active
-    (when objed-auto-wk-top-level-p
-      (run-at-time 0 nil #'objed-show-top-level))))
+    (run-hooks 'objed-init-hook)))
+
+(defun objed-init-mode-line ()
+  "Init mode line."
+  ;; FIXME: obsolete and remove the variable users should use init hook
+  (when objed-modeline-hint-p
+    (funcall objed-modeline-setup-func objed-mode-line-format)))
 
+(defun objed-init-which-key ()
+  "Show top level help."
+  ;; FIXME: obsolete and remove the variable users should use init hook
+  ;; show which key after redisplay if active
+  (when objed-auto-wk-top-level-p
+    (run-at-time 0 nil #'objed-show-top-level)))
 
 (defun objed--setup-mode-line (format &optional reset)
   "Default function to setup the mode line hint.