[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 23911d1 288/332: [el-search] Add menus
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 23911d1 288/332: [el-search] Add menus |
Date: |
Tue, 1 Dec 2020 15:49:06 -0500 (EST) |
branch: externals/el-search
commit 23911d108597eecbaea7d6bfda0cf56a8430f2db
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
[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.
---
el-search.el | 59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 58 insertions(+), 1 deletion(-)
diff --git a/el-search.el b/el-search.el
index a1d5634..2c3d101 100644
--- a/el-search.el
+++ b/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
- [elpa] externals/el-search 3699425 246/332: [el-search] Add command 'el-search-last-buffer-match', (continued)
- [elpa] externals/el-search 3699425 246/332: [el-search] Add command 'el-search-last-buffer-match', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search cf68daf 249/332: [el-search] Avoid most calls to 'scan-sexps', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 894f8b1 254/332: [el-search] More minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6c5a6b4 265/332: [el-search] Fix an infloop in el-search--search-pattern-1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b830be5 263/332: [el-search] Some scrolling tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e60f228 267/332: [el-search] Don't try to kill modified buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 34f734e 258/332: [el-search] Add special scroll commands, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d4ad652 278/332: [el-search] Implement an explicit quit command, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fbe70bf 284/332: [el-search] Add C-h help, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search fac5586 285/332: [el-search] Improve my last commit "Add C-h help", Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 23911d1 288/332: [el-search] Add menus,
Stefan Monnier <=
- [elpa] externals/el-search 68fcfcd 286/332: [el-search] Include preceding comments in occur defun context, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 90062c5 290/332: Update copyrights of some packages, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 120c662 296/332: [el-search] Minibuffer pattern prompt hints part 2, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 668d049 302/332: [el-search] Add el-search-list-defined-patterns, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search bb978b2 306/332: [el-search] Fix behavior after completed single-buffer search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 985ca3c 312/332: [el-search] Add "List patterns" menu item, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search f5e8235 321/332: [el-search] C-c C-c in edit-replacement means replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9d8798f 140/332: Work around more manifestations of Emacs bug #24542, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7d621de 216/332: * el-search/el-search.el: Some minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 29eeda2 228/332: Show progress of automatic el-search-query-replace, Stefan Monnier, 2020/12/01