[elpa] master a2f37b0: [el-search] Add menus

[Michael Heerdegen]

branch: master
commit a2f37b05f446832618e1bcae976313e106cefb7d
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    [el-search] Add menus
    
    Add autoloaded menus for el-search under "Tools" and "Emacs-Lisp", and
    a menu for El-Occur, and bump version to 1.9.3.
---
 packages/el-search/el-search.el | 59 ++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 58 insertions(+), 1 deletion(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index a1d5634..2c3d101 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.9.2
+;; Version: 1.9.3
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
 
 
@@ -465,6 +465,7 @@
 (require 'ring)     ;el-search-history
 (require 'hideshow) ;folding in *El Occur*
 (require 'outline)  ;folding in *El Occur*
+(eval-when-compile (require 'easymenu))
 
 
 ;;;; Configuration stuff
@@ -4517,5 +4518,61 @@ Reuse already given input."
   (call-interactively #'el-search-search-from-isearch))
 
 
+;;;; Menus
+
+;;;###autoload
+(progn
+  (require 'easymenu)
+
+  (easy-menu-add-item
+   nil '("Tools")
+   `("El-Search"
+     ["Search Directory" el-search-directory]
+     ["Search Directory Recursively"
+      ,(lambda () (interactive)
+         (let ((current-prefix-arg '(4)))
+           (call-interactively #'el-search-directory)))]
+     ["Search 'load-path'"         el-search-load-path]
+     ["Search Emacs Elisp Sources" el-search-emacs-elisp-sources]
+     ["Search Elisp Buffers"       el-search-buffers]))
+
+  (easy-menu-add-item
+   (lookup-key emacs-lisp-mode-map [menu-bar]) '("Emacs-Lisp")
+   `("El-Search"
+     ["Forward"  el-search-pattern]
+     ["Backward" el-search-pattern-backward]
+     ["Sexp at Point" el-search-this-sexp]
+     ["Resume Last Search" el-search-jump-to-search-head :enable 
el-search--current-search]
+     ["Resume Former Search" ,(lambda () (interactive) 
(el-search-jump-to-search-head '(4)))
+      :enable (cdr (ring-elements el-search-history))]
+     ["Query-Replace" el-search-query-replace :enable (not buffer-read-only)]
+     ["Occur" ,(lambda () (interactive)
+                 (let ((el-search-occur-flag t)) (call-interactively 
#'el-search-pattern)))])))
+
+(easy-menu-define nil el-search-occur-mode-map "El Occur Menu"
+  `("El-Occur"
+    ["Next Match"     el-search-occur-next-match
+     :help "Go to the next match"]
+    ["Previous Match" el-search-occur-previous-match
+     :help "Go to the previous match"]
+    ["Jump to Source" el-search-occur-jump-to-match
+     :help "Jump to corresponding position in source"]
+    ["Adjust Pattern" el-search-edit-occur-pattern
+     :help "Edit search pattern and revert"]
+    ("Context"
+     ["No context"    el-search-occur-no-context
+      :style radio
+      :selected (eq el-search-get-occur-context-function 
'el-search-occur-get-null-context)]
+     ["Some context"  el-search-occur-some-context
+      :style radio
+      :selected (eq el-search-get-occur-context-function 
'el-search-occur-get-some-context)]
+     ["Top-Level"     el-search-occur-defun-context
+      :style radio
+      :selected (eq el-search-get-occur-context-function 
'el-search-occur-get-defun-context)])
+    ("Outline"
+     ["Hide all" el-search-occur-cycle :style radio :selected (not 
el-search-occur--outline-visible)]
+     ["Show All" el-search-occur-cycle :style radio :selected 
el-search-occur--outline-visible])))
+
+
 (provide 'el-search)
 ;;; el-search.el ends here