branch: externals/inspector
commit 75ac7da10ef20efc34e2d7efe518059a1b27c741
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Menu and tool bar
---
inspector.el | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/inspector.el b/inspector.el
index a2c1573e33..8ff404de22 100644
--- a/inspector.el
+++ b/inspector.el
@@ -322,6 +322,29 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector
history for navigation pu
(define-key map (kbd "l") 'inspector-pop)
map))
+(easy-menu-define
+ inspector-mode-menu inspector-mode-map
+ "Menu for inspector."
+ '("Inspector"
+ ["Previous" inspector-pop :help "Inpect previous object"]
+ ["Exit" inspector-quit :help "Quit the Emacs Lisp inspector"]))
+
+(defvar inspector-tool-bar-map
+ (let ((map (make-sparse-keymap)))
+ (tool-bar-local-item-from-menu
+ 'inspector-pop "left-arrow" map inspector-mode-map
+ :rtl "left-arrow"
+ :label "Back"
+ :vert-only t)
+ (tool-bar-local-item-from-menu
+ 'inspector-quit "exit" map inspector-mode-map
+ :vert-only t)
+ map))
+
+(add-hook 'inspector-mode-hook
+ (lambda ()
+ (setq-local tool-bar-map inspector-tool-bar-map)))
+
(define-minor-mode inspector-mode
"Minor mode for inspector buffers."
:init-value nil
