[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 6b01504 210/332: Add command `el-search-ibuff
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 6b01504 210/332: Add command `el-search-ibuffer-marked-buffers' |
Date: |
Tue, 1 Dec 2020 15:48:47 -0500 (EST) |
branch: externals/el-search
commit 6b01504140368d26a06c51f6a1014a43513934c1
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
Add command `el-search-ibuffer-marked-buffers'
* el-search/el-search.el (el-search-ibuffer-marked-buffers): New
command.
(el-search-loop-over-bindings): Add binding in `ibuffer-mode-map'.
Also mention the command in the key binding list in the file header.
---
NEWS | 6 ++++++
el-search.el | 27 +++++++++++++++++++++++++--
2 files changed, 31 insertions(+), 2 deletions(-)
diff --git a/NEWS b/NEWS
index 1365ef5..7548e1d 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,11 @@
Some of the user visible news were:
+
+Version: 1.5.1
+
+ The new command `el-search-ibuffer-marked-buffers' el-searches the
+ marked buffers in *Ibuffer*.
+
Version: 1.5
The new function `el-search-install-bindings-under-prefix' can be
diff --git a/el-search.el b/el-search.el
index 605d40e..278f7c2 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.5
+;; Version: 1.5.1
;; Package-Requires: ((emacs "25") (stream "2.2.4"))
@@ -90,6 +90,9 @@
;; C-S, M-s e s in Dired (el-search-dired-marked-files)
;; Like above but uses the marked files and directories.
;;
+;; C-S, M-s e s in Ibuffer (el-search-ibuffer-marked-buffers)
+;; Search marked buffers in *Ibuffer*.
+;;
;; C-O, M-s e o (el-search-occur)
;; Pop up an occur buffer for the current search.
;;
@@ -1484,9 +1487,12 @@ in, in order, when called with no arguments."
(keybind global-map ?b #'el-search-buffers)
(defvar dired-mode-map)
+ (defvar ibuffer-mode-map)
(with-eval-after-load 'dired
- (keybind dired-mode-map ?s #'el-search-dired-marked-files))))
+ (keybind dired-mode-map ?s #'el-search-dired-marked-files))
+ (with-eval-after-load 'ibuffer
+ (keybind ibuffer-mode-map ?s #'el-search-ibuffer-marked-buffers))))
(defvar el-search-prefix-key-transient-map
(let ((transient-map (make-sparse-keymap)))
@@ -2952,6 +2958,23 @@ related user options."
(lambda (search) (setf (alist-get 'description (el-search-object-properties
search))
"el-search-dired-marked-files"))))
+(declare-function ibuffer-get-marked-buffers 'ibuffer)
+
+;;;###autoload
+(defun el-search-ibuffer-marked-buffers (pattern buffer-names)
+ "El-search the buffers marked in *Ibuffer*."
+ (interactive
+ (list (el-search-read-pattern-for-interactive
+ "Search marked files for pattern: ")
+ ;; Return a list of buffer names here so that `repeat-complex-command'
+ ;; works ok
+ (mapcar #'buffer-name (ibuffer-get-marked-buffers))))
+ (el-search-setup-search
+ pattern
+ (lambda () (stream (delq nil (mapcar #'get-buffer buffer-names))))
+ (lambda (search) (setf (alist-get 'description (el-search-object-properties
search))
+ "el-search-ibuffer-marked-files"))))
+
;;;; Query-replace
- [elpa] externals/el-search 79ab903 179/332: Always use the current search for query-replace, (continued)
- [elpa] externals/el-search 79ab903 179/332: Always use the current search for query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6a7ca23 181/332: Don't limit `el-search-emacs-elisp-sources' to "lisp/" subdir, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 8dc608e 187/332: Improve folding behavior in *El Occur* buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a2e367e 189/332: Fix starting a search with `el-search-this-sexp', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d1706eb 190/332: Display match count for *El Occur* buffers, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 97626ac 192/332: Use local binding of `post-command-hook' to reset wrap flag, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 16a5f70 193/332: * el-search/el-search.el: Shorten the query-replace prompt, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 224f384 196/332: ; * el-search/el-search.el: Mention Emacs Bug#29857 in the header, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1175d21 200/332: Allow `string' and `symbol' el-search patterns to set match data, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search b88b65a 204/332: Declare any search started with `el-search-this-sexp' single-buffer, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6b01504 210/332: Add command `el-search-ibuffer-marked-buffers',
Stefan Monnier <=
- [elpa] externals/el-search d869368 211/332: Implement `cl-print-object' for el-search-objects, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 6251577 213/332: * el-search/el-search.el: Add `el-search-edit-search-description', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 48103e3 221/332: * el-search/el-search.el: Fix handling of void replacements, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7c099aa 225/332: Small improvements to el-search--search-and-replace-pattern, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search da7857b 227/332: * el-search/el-search.el: Add `el-search-looking-at', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9f400b4 234/332: * el-search/el-search.el: Fix infloop in el-search--flatten-tree, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 3bb5b76 236/332: * el-search/el-search.el: Prefer adverb "backward" in names and text, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 41e0251 224/332: * el-search/el-search.el: Bump version to 1.6; some minor tweaks, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c4eeae5 223/332: * el-search/el-search.el: Fix single buffer query-replace, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search bd67d58 239/332: [el-search] Raise user-error when replacement contains gensyms, Stefan Monnier, 2020/12/01