[nongnu] elpa/inf-clojure f00b2b5 026/313: Add a menu for inf-clojure-minor-mode

[ELPA Syncer]

branch: elpa/inf-clojure
commit f00b2b5b1b098cd7cd746c43b055415cb1d004ed
Author: Bozhidar Batsov <bozhidar@tradeo.com>
Commit: Bozhidar Batsov <bozhidar@tradeo.com>

    Add a menu for inf-clojure-minor-mode
---
 inf-clojure.el | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index 9023146..267ab63 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -68,9 +68,9 @@ mode.  Default is whitespace followed by 0 or 1 single-letter 
colon-keyword
     (define-key map "\C-c\C-a" 'inf-clojure-show-arglist)
     (define-key map "\C-c\C-v" 'inf-clojure-show-var-documentation)
     (define-key map "\C-c\C-s" 'inf-clojure-show-var-source)
-    (easy-menu-define inf-clojure-menu map
-      "Inferior Clojure Menu"
-      '("Inf-Clojure"
+    (easy-menu-define inf-clojure-mode-menu map
+      "Inferior Clojure REPL Menu"
+      '("Inf-Clojure REPL"
         ["Eval Last Sexp" inf-clojure-eval-last-sexp t]
         "--"
         ["Load File..." inf-clojure-load-file t]
@@ -97,6 +97,24 @@ mode.  Default is whitespace followed by 0 or 1 
single-letter colon-keyword
     (define-key map "\C-c\C-v" 'inf-clojure-show-var-documentation)
     (define-key map "\C-c\C-s" 'inf-clojure-show-var-source)
     (define-key map "\C-c\M-n" 'inf-clojure-set-ns)
+    (easy-menu-define inf-clojure-minor-mode-menu map
+      "Inferior Clojure Minor Mode Menu"
+      '("Inf-Clojure"
+        ["Eval top-level sexp at point" inf-clojure-eval-defun t]
+        ["Eval last sexp" inf-clojure-eval-last-sexp t]
+        ["Eval region" inf-clojure-eval-region t]
+        "--"
+        ["Load file..." inf-clojure-load-file t]
+        "--"
+        ["Switch to REPL" inf-clojure-switch-to-repl t]
+        ["Set REPL ns" inf-clojure-set-ns t]
+        "--"
+        ["Show arglist" inf-clojure-show-arglist t]
+        ["Show documentation for var" inf-clojure-show-var-documentation t]
+        ["Show source for var" inf-clojure-show-var-source t]
+        ["Show vars in ns" inf-clojure-show-ns-varst]
+        ["Apropos" inf-clojure-apropos t]
+        ["Macroexpand" inf-clojure-macroexpand t]))
     map))
 
 ;;;###autoload