1 ;;; ibuf-ext.el --- extensions for ibuffer
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
4 ;; 2008 Free Software Foundation, Inc.
6 ;; Author: Colin Walters <walters@verbum.org>
7 ;; Maintainer: John Paul Wallington <jpw@gnu.org>
9 ;; Keywords: buffer, convenience
11 ;; This file is part of GNU Emacs.
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation, either version 3 of the License, or
16 ;; (at your option) any later version.
18 ;; GNU Emacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28 ;; These functions should be automatically loaded when called, but you
29 ;; can explicity (require 'ibuf-ext) in your ~/.emacs to have them
41 (defun ibuffer-delete-alist (key alist
)
42 "Delete all entries in ALIST that have a key equal to KEY."
44 (while (setq entry
(assoc key alist
))
45 (setq alist
(delete entry alist
)))
49 (defun ibuffer-remove-duplicates (list)
50 "Return a copy of LIST with duplicate elements removed."
54 (or (member (car tail
) new
)
55 (setq new
(cons (car tail
) new
)))
56 (setq tail
(cdr tail
)))
59 (defun ibuffer-split-list (ibuffer-split-list-fn ibuffer-split-list-elts
)
62 (dolist (ibuffer-split-list-elt ibuffer-split-list-elts
)
63 (if (funcall ibuffer-split-list-fn ibuffer-split-list-elt
)
64 (push ibuffer-split-list-elt hip-crowd
)
65 (push ibuffer-split-list-elt lamers
)))
66 ;; Too bad Emacs Lisp doesn't have multiple values.
67 (list (nreverse hip-crowd
) (nreverse lamers
))))
69 (defcustom ibuffer-never-show-predicates nil
70 "A list of predicates (a regexp or function) for buffers not to display.
71 If a regexp, then it will be matched against the buffer's name.
72 If a function, it will be called with the buffer as an argument, and
73 should return non-nil if this buffer should not be shown."
74 :type
'(repeat (choice regexp function
))
78 (defcustom ibuffer-always-show-predicates nil
79 "A list of predicates (a regexp or function) for buffers to always display.
80 If a regexp, then it will be matched against the buffer's name.
81 If a function, it will be called with the buffer as an argument, and
82 should return non-nil if this buffer should be shown.
83 Note that buffers matching one of these predicates will be shown
84 regardless of any active filters in this buffer."
85 :type
'(repeat (choice regexp function
))
88 (defvar ibuffer-tmp-hide-regexps nil
89 "A list of regexps which should match buffer names to not show.")
91 (defvar ibuffer-tmp-show-regexps nil
92 "A list of regexps which should match buffer names to always show.")
94 (defvar ibuffer-auto-mode nil
95 "If non-nil, Ibuffer auto-mode should be enabled for this buffer.
96 Do not set this variable directly! Use the function
97 `ibuffer-auto-mode' instead.")
99 (defvar ibuffer-auto-buffers-changed nil
)
101 (defcustom ibuffer-saved-filters
'(("gnus"
102 ((or (mode . message-mode
)
104 (mode . gnus-group-mode
)
105 (mode . gnus-summary-mode
)
106 (mode . gnus-article-mode
))))
108 ((or (mode . emacs-lisp-mode
)
113 (mode . lisp-mode
)))))
115 "An alist of filter qualifiers to switch between.
117 This variable should look like ((\"STRING\" QUALIFIERS)
118 (\"STRING\" QUALIFIERS) ...), where
119 QUALIFIERS is a list of the same form as
120 `ibuffer-filtering-qualifiers'.
121 See also the variables `ibuffer-filtering-qualifiers',
122 `ibuffer-filtering-alist', and the functions
123 `ibuffer-switch-to-saved-filters', `ibuffer-save-filters'."
127 (defvar ibuffer-filtering-qualifiers nil
128 "A list like (SYMBOL . QUALIFIER) which filters the current buffer list.
129 See also `ibuffer-filtering-alist'.")
131 ;; This is now frobbed by `define-ibuffer-filter'.
132 (defvar ibuffer-filtering-alist nil
133 "An alist of (SYMBOL DESCRIPTION FUNCTION) which describes a filter.
135 You most likely do not want to modify this variable directly; see
136 `define-ibuffer-filter'.
138 SYMBOL is the symbolic name of the filter. DESCRIPTION is used when
139 displaying information to the user. FUNCTION is given a buffer and
140 the value of the qualifier, and returns non-nil if and only if the
141 buffer should be displayed.")
143 (defcustom ibuffer-filter-format-alist nil
144 "An alist which has special formats used when a filter is active.
145 The contents of this variable should look like:
146 ((FILTER (FORMAT FORMAT ...)) (FILTER (FORMAT FORMAT ...)) ...)
148 For example, suppose that when you add a filter for buffers whose
149 major mode is `emacs-lisp-mode', you only want to see the mark and the
150 name of the buffer. You could accomplish that by adding:
151 (mode ((mark \" \" name)))
153 :type
'(repeat (list :tag
"Association" (symbol :tag
"Filter")
154 (list :tag
"Formats" (repeat (sexp :tag
"Format")))))
157 (defvar ibuffer-cached-filter-formats nil
)
158 (defvar ibuffer-compiled-filter-formats nil
)
160 (defvar ibuffer-filter-groups nil
161 "A list like ((\"NAME\" ((SYMBOL . QUALIFIER) ...) ...) which groups buffers.
162 The SYMBOL should be one from `ibuffer-filtering-alist'.
163 The QUALIFIER should be the same as QUALIFIER in
164 `ibuffer-filtering-qualifiers'.")
166 (defcustom ibuffer-show-empty-filter-groups t
167 "If non-nil, then show the names of filter groups which are empty."
171 (defcustom ibuffer-saved-filter-groups nil
172 "An alist of filtering groups to switch between.
174 This variable should look like ((\"STRING\" QUALIFIERS)
175 (\"STRING\" QUALIFIERS) ...), where
176 QUALIFIERS is a list of the same form as
177 `ibuffer-filtering-qualifiers'.
179 See also the variables `ibuffer-filter-groups',
180 `ibuffer-filtering-qualifiers', `ibuffer-filtering-alist', and the
181 functions `ibuffer-switch-to-saved-filter-groups',
182 `ibuffer-save-filter-groups'."
186 (defvar ibuffer-hidden-filter-groups nil
187 "A list of filtering groups which are currently hidden.")
189 (defvar ibuffer-filter-group-kill-ring nil
)
191 (defcustom ibuffer-old-time
72
192 "The number of hours before a buffer is considered \"old\"."
193 :type
'(choice (const :tag
"72 hours (3 days)" 72)
194 (const :tag
"48 hours (2 days)" 48)
195 (const :tag
"24 hours (1 day)" 24)
196 (integer :tag
"hours"))
199 (defcustom ibuffer-save-with-custom t
200 "If non-nil, then use Custom to save interactively changed variables.
201 Currently, this only applies to `ibuffer-saved-filters' and
202 `ibuffer-saved-filter-groups'."
206 (defun ibuffer-ext-visible-p (buf all
&optional ibuffer-buf
)
208 (ibuffer-buf-matches-predicates buf ibuffer-tmp-show-regexps
)
211 (ibuffer-buf-matches-predicates buf ibuffer-tmp-hide-regexps
)
212 (ibuffer-buf-matches-predicates buf ibuffer-never-show-predicates
)))
215 (ibuffer-buf-matches-predicates buf ibuffer-maybe-show-predicates
)))
216 (or ibuffer-view-ibuffer
218 (not (eq ibuffer-buf buf
))))
220 (ibuffer-included-in-filters-p buf ibuffer-filtering-qualifiers
)
221 (ibuffer-buf-matches-predicates buf ibuffer-always-show-predicates
)))))
223 (defun ibuffer-auto-update-changed ()
224 (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed
)
225 (dolist (buf (buffer-list))
227 (with-current-buffer buf
228 (when (and ibuffer-auto-mode
229 (derived-mode-p 'ibuffer-mode
))
230 (ibuffer-update nil t
)))))))
233 (defun ibuffer-auto-mode (&optional arg
)
234 "Toggle use of Ibuffer's auto-update facility.
235 With numeric ARG, enable auto-update if and only if ARG is positive."
237 (unless (derived-mode-p 'ibuffer-mode
)
238 (error "This buffer is not in Ibuffer mode"))
239 (set (make-local-variable 'ibuffer-auto-mode
)
242 (not ibuffer-auto-mode
)))
243 (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed
) ; Initialize state vector
244 (add-hook 'post-command-hook
'ibuffer-auto-update-changed
))
247 (defun ibuffer-mouse-filter-by-mode (event)
248 "Enable or disable filtering by the major mode chosen via mouse."
250 (ibuffer-interactive-filter-by-mode event
))
253 (defun ibuffer-interactive-filter-by-mode (event-or-point)
254 "Enable or disable filtering by the major mode at point."
256 (if (eventp event-or-point
)
257 (posn-set-point (event-end event-or-point
))
258 (goto-char event-or-point
))
259 (let ((buf (ibuffer-current-buffer)))
260 (if (assq 'mode ibuffer-filtering-qualifiers
)
261 (setq ibuffer-filtering-qualifiers
262 (ibuffer-delete-alist 'mode ibuffer-filtering-qualifiers
))
263 (ibuffer-push-filter (cons 'mode
264 (with-current-buffer buf
266 (ibuffer-update nil t
))
269 (defun ibuffer-mouse-toggle-filter-group (event)
270 "Toggle the display status of the filter group chosen with the mouse."
272 (ibuffer-toggle-filter-group-1 (save-excursion
273 (mouse-set-point event
)
277 (defun ibuffer-toggle-filter-group ()
278 "Toggle the display status of the filter group on this line."
280 (ibuffer-toggle-filter-group-1 (point)))
282 (defun ibuffer-toggle-filter-group-1 (posn)
283 (let ((name (get-text-property posn
'ibuffer-filter-group-name
)))
284 (unless (stringp name
)
285 (error "No filtering group name present"))
286 (if (member name ibuffer-hidden-filter-groups
)
287 (setq ibuffer-hidden-filter-groups
288 (delete name ibuffer-hidden-filter-groups
))
289 (push name ibuffer-hidden-filter-groups
))
290 (ibuffer-update nil t
)))
293 (defun ibuffer-forward-filter-group (&optional count
)
294 "Move point forwards by COUNT filtering groups."
299 (when (get-text-property (point) 'ibuffer-filter-group-name
)
300 (goto-char (next-single-property-change
301 (point) 'ibuffer-filter-group-name
303 (goto-char (next-single-property-change
304 (point) 'ibuffer-filter-group-name
306 (ibuffer-forward-filter-group (1- count
)))
307 (ibuffer-forward-line 0))
310 (defun ibuffer-backward-filter-group (&optional count
)
311 "Move point backwards by COUNT filtering groups."
316 (when (get-text-property (point) 'ibuffer-filter-group-name
)
317 (goto-char (previous-single-property-change
318 (point) 'ibuffer-filter-group-name
320 (goto-char (previous-single-property-change
321 (point) 'ibuffer-filter-group-name
323 (ibuffer-backward-filter-group (1- count
)))
324 (when (= (point) (point-min))
325 (goto-char (point-max))
326 (ibuffer-backward-filter-group 1))
327 (ibuffer-forward-line 0))
329 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe "ibuf-ext")
330 (define-ibuffer-op shell-command-pipe
(command)
331 "Pipe the contents of each marked buffer to shell command COMMAND."
332 (:interactive
"sPipe to shell command: "
333 :opstring
"Shell command executed on"
335 (shell-command-on-region
336 (point-min) (point-max) command
337 (get-buffer-create "* ibuffer-shell-output*")))
339 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe-replace "ibuf-ext")
340 (define-ibuffer-op shell-command-pipe-replace
(command)
341 "Replace the contents of marked buffers with output of pipe to COMMAND."
342 (:interactive
"sPipe to shell command (replace): "
343 :opstring
"Buffer contents replaced in"
344 :active-opstring
"replace buffer contents in"
347 (with-current-buffer buf
348 (shell-command-on-region (point-min) (point-max)
351 ;;;###autoload (autoload 'ibuffer-do-shell-command-file "ibuf-ext")
352 (define-ibuffer-op shell-command-file
(command)
353 "Run shell command COMMAND separately on files of marked buffers."
354 (:interactive
"sShell command on buffer's file: "
355 :opstring
"Shell command executed on"
357 (shell-command (concat command
" "
358 (shell-quote-argument
362 (substring (buffer-name) 0 (min 10 (length (buffer-name))))))))))
364 ;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext")
365 (define-ibuffer-op eval
(form)
366 "Evaluate FORM in each of the buffers.
367 Does not display the buffer during evaluation. See
368 `ibuffer-do-view-and-eval' for that."
371 (read-from-minibuffer
372 "Eval in buffers (form): "
373 nil read-expression-map t
'read-expression-history
))
374 :opstring
"evaluated in"
378 ;;;###autoload (autoload 'ibuffer-do-view-and-eval "ibuf-ext")
379 (define-ibuffer-op view-and-eval
(form)
380 "Evaluate FORM while displaying each of the marked buffers.
381 To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
384 (read-from-minibuffer
385 "Eval viewing in buffers (form): "
386 nil read-expression-map t
'read-expression-history
))
387 :opstring
"evaluated in"
390 (let ((ibuffer-buf (current-buffer)))
393 (switch-to-buffer buf
)
395 (switch-to-buffer ibuffer-buf
))))
397 ;;;###autoload (autoload 'ibuffer-do-rename-uniquely "ibuf-ext")
398 (define-ibuffer-op rename-uniquely
()
399 "Rename marked buffers as with `rename-uniquely'."
404 ;;;###autoload (autoload 'ibuffer-do-revert "ibuf-ext")
405 (define-ibuffer-op revert
()
406 "Revert marked buffers as with `revert-buffer'."
409 :active-opstring
"revert"
413 ;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext")
414 (define-ibuffer-op replace-regexp
(from-str to-str
)
415 "Perform a `replace-regexp' in marked buffers."
417 (let* ((from-str (read-from-minibuffer "Replace regexp: "))
418 (to-str (read-from-minibuffer (concat "Replace " from-str
420 (list from-str to-str
))
421 :opstring
"replaced in"
424 (save-window-excursion
425 (switch-to-buffer buf
)
427 (goto-char (point-min))
428 (let ((case-fold-search ibuffer-case-fold-search
))
429 (while (re-search-forward from-str nil t
)
430 (replace-match to-str
))))
433 ;;;###autoload (autoload 'ibuffer-do-query-replace "ibuf-ext")
434 (define-ibuffer-op query-replace
(&rest args
)
435 "Perform a `query-replace' in marked buffers."
437 (query-replace-read-args "Query replace" t t
)
438 :opstring
"replaced in"
441 (save-window-excursion
442 (switch-to-buffer buf
)
444 (let ((case-fold-search ibuffer-case-fold-search
))
445 (goto-char (point-min))
446 (apply #'query-replace args
)))
449 ;;;###autoload (autoload 'ibuffer-do-query-replace-regexp "ibuf-ext")
450 (define-ibuffer-op query-replace-regexp
(&rest args
)
451 "Perform a `query-replace-regexp' in marked buffers."
453 (query-replace-read-args "Query replace regexp" t t
)
454 :opstring
"replaced in"
457 (save-window-excursion
458 (switch-to-buffer buf
)
460 (let ((case-fold-search ibuffer-case-fold-search
))
461 (goto-char (point-min))
462 (apply #'query-replace-regexp args
)))
465 ;;;###autoload (autoload 'ibuffer-do-print "ibuf-ext")
466 (define-ibuffer-op print
()
467 "Print marked buffers as with `print-buffer'."
473 (defun ibuffer-included-in-filters-p (buf filters
)
475 (memq nil
;; a filter will return nil if it failed
477 ;; filter should be like (TYPE . QUALIFIER), or
478 ;; (or (TYPE . QUALIFIER) (TYPE . QUALIFIER) ...)
480 (ibuffer-included-in-filter-p buf qual
))
483 (defun ibuffer-included-in-filter-p (buf filter
)
484 (if (eq (car filter
) 'not
)
485 (not (ibuffer-included-in-filter-p-1 buf
(cdr filter
)))
486 (ibuffer-included-in-filter-p-1 buf filter
)))
488 (defun ibuffer-included-in-filter-p-1 (buf filter
)
493 (memq t
(mapcar #'(lambda (x)
494 (ibuffer-included-in-filter-p buf x
))
499 ibuffer-saved-filters
)))
501 (ibuffer-filter-disable)
502 (error "Unknown saved filter %s" (cdr filter
)))
503 (ibuffer-included-in-filters-p buf
(cadr data
))))
505 (let ((filterdat (assq (car filter
)
506 ibuffer-filtering-alist
)))
507 ;; filterdat should be like (TYPE DESCRIPTION FUNC)
508 ;; just a sanity check
510 (ibuffer-filter-disable)
511 (error "Undefined filter %s" (car filter
)))
514 (funcall (caddr filterdat
)
516 (cdr filter
))))))))))
518 (defun ibuffer-generate-filter-groups (bmarklist &optional noempty nodefault
)
519 (let ((filter-group-alist (if nodefault
520 ibuffer-filter-groups
521 (append ibuffer-filter-groups
522 (list (cons "Default" nil
))))))
523 ;; (dolist (hidden ibuffer-hidden-filter-groups)
524 ;; (setq filter-group-alist (ibuffer-delete-alist
525 ;; hidden filter-group-alist)))
526 (let ((vec (make-vector (length filter-group-alist
) nil
))
528 (dolist (filtergroup filter-group-alist
)
529 (let ((filterset (cdr filtergroup
)))
530 (multiple-value-bind (hip-crowd lamers
)
531 (ibuffer-split-list (lambda (bufmark)
532 (ibuffer-included-in-filters-p (car bufmark
)
535 (aset vec i hip-crowd
)
537 (setq bmarklist lamers
))))
540 (let ((bufs (aref vec j
)))
541 (unless (and noempty
(null bufs
))
542 (push (cons (car (nth j filter-group-alist
))
547 (defun ibuffer-filters-to-filter-group (name)
548 "Make the current filters into a filtering group."
549 (interactive "sName for filtering group: ")
550 (when (null ibuffer-filtering-qualifiers
)
551 (error "No filters in effect"))
552 (push (cons name ibuffer-filtering-qualifiers
) ibuffer-filter-groups
)
553 (ibuffer-filter-disable))
556 (defun ibuffer-set-filter-groups-by-mode ()
557 "Set the current filter groups to filter by mode."
559 (setq ibuffer-filter-groups
560 (mapcar (lambda (mode)
561 (cons (format "%s" mode
) `((mode .
,mode
))))
563 (ibuffer-remove-duplicates
564 (mapcar (lambda (buf)
565 (with-current-buffer buf major-mode
))
567 (if ibuffer-view-ibuffer
569 (delq 'ibuffer-mode modes
)))))
570 (ibuffer-update nil t
))
573 (defun ibuffer-pop-filter-group ()
574 "Remove the first filter group."
576 (when (null ibuffer-filter-groups
)
577 (error "No filter groups active"))
578 (setq ibuffer-hidden-filter-groups
579 (delete (pop ibuffer-filter-groups
)
580 ibuffer-hidden-filter-groups
))
581 (ibuffer-update nil t
))
583 (defun ibuffer-read-filter-group-name (msg &optional nodefault noerror
)
584 (when (and (not noerror
) (null ibuffer-filter-groups
))
585 (error "No filter groups active"))
586 ;; `ibuffer-generate-filter-groups' returns all non-hidden filter
587 ;; groups, possibly excluding empty groups or Default.
588 ;; We add `ibuffer-hidden-filter-groups' to the list, excluding
589 ;; Default if necessary.
590 (completing-read msg
(nconc
591 (ibuffer-generate-filter-groups
592 (ibuffer-current-state-list)
593 (not ibuffer-show-empty-filter-groups
)
596 (remove "Default" ibuffer-hidden-filter-groups
)
597 ibuffer-hidden-filter-groups
))
601 (defun ibuffer-decompose-filter-group (group)
602 "Decompose the filter group GROUP into active filters."
604 (list (ibuffer-read-filter-group-name "Decompose filter group: " t
)))
605 (let ((data (cdr (assoc group ibuffer-filter-groups
))))
606 (setq ibuffer-filter-groups
(ibuffer-delete-alist
607 group ibuffer-filter-groups
)
608 ibuffer-filtering-qualifiers data
))
609 (ibuffer-update nil t
))
612 (defun ibuffer-clear-filter-groups ()
613 "Remove all filter groups."
615 (setq ibuffer-filter-groups nil
616 ibuffer-hidden-filter-groups nil
)
617 (ibuffer-update nil t
))
619 (defun ibuffer-current-filter-groups-with-position ()
621 (goto-char (point-min))
624 (while (and (not (eobp))
625 (setq pos
(next-single-property-change
626 (point) 'ibuffer-filter-group-name
)))
628 (push (cons (get-text-property (point) 'ibuffer-filter-group-name
)
631 (goto-char (next-single-property-change
632 pos
'ibuffer-filter-group-name
)))
636 (defun ibuffer-jump-to-filter-group (name)
637 "Move point to the filter group whose name is NAME."
639 (list (ibuffer-read-filter-group-name "Jump to filter group: ")))
640 (ibuffer-aif (assoc name
(ibuffer-current-filter-groups-with-position))
642 (error "No filter group with name %s" name
)))
645 (defun ibuffer-kill-filter-group (name)
646 "Kill the filter group named NAME.
647 The group will be added to `ibuffer-filter-group-kill-ring'."
648 (interactive (list (ibuffer-read-filter-group-name "Kill filter group: " t
)))
649 (when (equal name
"Default")
650 (error "Can't kill default filter group"))
651 (ibuffer-aif (assoc name ibuffer-filter-groups
)
653 (push (copy-tree it
) ibuffer-filter-group-kill-ring
)
654 (setq ibuffer-filter-groups
(ibuffer-delete-alist
655 name ibuffer-filter-groups
))
656 (setq ibuffer-hidden-filter-groups
657 (delete name ibuffer-hidden-filter-groups
)))
658 (error "No filter group with name \"%s\"" name
))
659 (ibuffer-update nil t
))
662 (defun ibuffer-kill-line (&optional arg interactive-p
)
663 "Kill the filter group at point.
664 See also `ibuffer-kill-filter-group'."
666 (ibuffer-aif (save-excursion
667 (ibuffer-forward-line 0)
668 (get-text-property (point) 'ibuffer-filter-group-name
))
670 (ibuffer-kill-filter-group it
))
671 (funcall (if interactive-p
#'call-interactively
#'funcall
)
674 (defun ibuffer-insert-filter-group-before (newgroup group
)
676 (pos (let ((groups (mapcar #'car ibuffer-filter-groups
))
679 (if (equal (car groups
) group
)
683 (setq groups
(cdr groups
))))
686 (setq ibuffer-filter-groups
687 (nconc ibuffer-filter-groups
(list newgroup
))))
689 (push newgroup ibuffer-filter-groups
))
691 (let ((cell (nthcdr pos ibuffer-filter-groups
)))
692 (setf (cdr cell
) (cons (car cell
) (cdr cell
)))
693 (setf (car cell
) newgroup
))))))
696 (defun ibuffer-yank ()
697 "Yank the last killed filter group before group at point."
699 (ibuffer-yank-filter-group
700 (or (get-text-property (point) 'ibuffer-filter-group-name
)
701 (get-text-property (point) 'ibuffer-filter-group
)
702 (error "No filter group at point"))))
705 (defun ibuffer-yank-filter-group (name)
706 "Yank the last killed filter group before group named NAME."
707 (interactive (list (ibuffer-read-filter-group-name
708 "Yank filter group before group: ")))
709 (unless ibuffer-filter-group-kill-ring
710 (error "The Ibuffer filter group kill-ring is empty"))
712 (ibuffer-forward-line 0)
713 (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring
)
715 (ibuffer-update nil t
))
718 (defun ibuffer-save-filter-groups (name groups
)
719 "Save all active filter groups GROUPS as NAME.
720 They are added to `ibuffer-saved-filter-groups'. Interactively,
721 prompt for NAME, and use the current filters."
723 (if (null ibuffer-filter-groups
)
724 (error "No filter groups active")
726 (read-from-minibuffer "Save current filter groups as: ")
727 ibuffer-filter-groups
)))
728 (ibuffer-aif (assoc name ibuffer-saved-filter-groups
)
730 (push (cons name groups
) ibuffer-saved-filter-groups
))
731 (ibuffer-maybe-save-stuff))
734 (defun ibuffer-delete-saved-filter-groups (name)
735 "Delete saved filter groups with NAME.
736 They are removed from `ibuffer-saved-filter-groups'."
739 (if (null ibuffer-saved-filter-groups
)
740 (error "No saved filter groups")
741 (completing-read "Delete saved filter group: "
742 ibuffer-saved-filter-groups nil t
))))
743 (setq ibuffer-saved-filter-groups
744 (ibuffer-delete-alist name ibuffer-saved-filter-groups
))
745 (ibuffer-maybe-save-stuff)
746 (ibuffer-update nil t
))
749 (defun ibuffer-switch-to-saved-filter-groups (name)
750 "Set this buffer's filter groups to saved version with NAME.
751 The value from `ibuffer-saved-filter-groups' is used."
754 (if (null ibuffer-saved-filter-groups
)
755 (error "No saved filters")
756 (completing-read "Switch to saved filter group: "
757 ibuffer-saved-filter-groups nil t
))))
758 (setq ibuffer-filter-groups
(cdr (assoc name ibuffer-saved-filter-groups
))
759 ibuffer-hidden-filter-groups nil
)
760 (ibuffer-update nil t
))
763 (defun ibuffer-filter-disable ()
764 "Disable all filters currently in effect in this buffer."
766 (setq ibuffer-filtering-qualifiers nil
)
767 (let ((buf (ibuffer-current-buffer)))
768 (ibuffer-update nil t
)
770 (ibuffer-jump-to-buffer (buffer-name buf
)))))
773 (defun ibuffer-pop-filter ()
774 "Remove the top filter in this buffer."
776 (when (null ibuffer-filtering-qualifiers
)
777 (error "No filters in effect"))
778 (pop ibuffer-filtering-qualifiers
)
779 (let ((buf (ibuffer-current-buffer)))
780 (ibuffer-update nil t
)
782 (ibuffer-jump-to-buffer (buffer-name buf
)))))
784 (defun ibuffer-push-filter (qualifier)
785 "Add QUALIFIER to `ibuffer-filtering-qualifiers'."
786 (push qualifier ibuffer-filtering-qualifiers
))
789 (defun ibuffer-decompose-filter ()
790 "Separate the top compound filter (OR, NOT, or SAVED) in this buffer.
792 This means that the topmost filter on the filtering stack, which must
793 be a complex filter like (OR [name: foo] [mode: bar-mode]), will be
794 turned into two separate filters [name: foo] and [mode: bar-mode]."
796 (when (null ibuffer-filtering-qualifiers
)
797 (error "No filters in effect"))
798 (let ((lim (pop ibuffer-filtering-qualifiers
)))
801 (setq ibuffer-filtering-qualifiers
(append
803 ibuffer-filtering-qualifiers
)))
807 ibuffer-saved-filters
)))
809 (ibuffer-filter-disable)
810 (error "Unknown saved filter %s" (cdr lim
)))
811 (setq ibuffer-filtering-qualifiers
(append
813 ibuffer-filtering-qualifiers
))))
816 ibuffer-filtering-qualifiers
))
818 (error "Filter type %s is not compound" (car lim
)))))
819 (ibuffer-update nil t
))
822 (defun ibuffer-exchange-filters ()
823 "Exchange the top two filters on the stack in this buffer."
825 (when (< (length ibuffer-filtering-qualifiers
)
827 (error "Need two filters to exchange"))
828 (let ((first (pop ibuffer-filtering-qualifiers
))
829 (second (pop ibuffer-filtering-qualifiers
)))
830 (push first ibuffer-filtering-qualifiers
)
831 (push second ibuffer-filtering-qualifiers
))
832 (ibuffer-update nil t
))
835 (defun ibuffer-negate-filter ()
836 "Negate the sense of the top filter in the current buffer."
838 (when (null ibuffer-filtering-qualifiers
)
839 (error "No filters in effect"))
840 (let ((lim (pop ibuffer-filtering-qualifiers
)))
841 (push (if (eq (car lim
) 'not
)
844 ibuffer-filtering-qualifiers
))
845 (ibuffer-update nil t
))
848 (defun ibuffer-or-filter (&optional reverse
)
849 "Replace the top two filters in this buffer with their logical OR.
850 If optional argument REVERSE is non-nil, instead break the top OR
855 (when (or (null ibuffer-filtering-qualifiers
)
856 (not (eq 'or
(caar ibuffer-filtering-qualifiers
))))
857 (error "Top filter is not an OR"))
858 (let ((lim (pop ibuffer-filtering-qualifiers
)))
859 (setq ibuffer-filtering-qualifiers
860 (nconc (cdr lim
) ibuffer-filtering-qualifiers
))))
861 (when (< (length ibuffer-filtering-qualifiers
) 2)
862 (error "Need two filters to OR"))
863 ;; If the second filter is an OR, just add to it.
864 (let ((first (pop ibuffer-filtering-qualifiers
))
865 (second (pop ibuffer-filtering-qualifiers
)))
866 (if (eq 'or
(car second
))
867 (push (nconc (list 'or first
) (cdr second
))
868 ibuffer-filtering-qualifiers
)
869 (push (list 'or first second
)
870 ibuffer-filtering-qualifiers
))))
871 (ibuffer-update nil t
))
873 (defun ibuffer-maybe-save-stuff ()
874 (when ibuffer-save-with-custom
875 (if (fboundp 'customize-save-variable
)
877 (customize-save-variable 'ibuffer-saved-filters
878 ibuffer-saved-filters
)
879 (customize-save-variable 'ibuffer-saved-filter-groups
880 ibuffer-saved-filter-groups
))
881 (message "Not saved permanently: Customize not available"))))
884 (defun ibuffer-save-filters (name filters
)
885 "Save FILTERS in this buffer with name NAME in `ibuffer-saved-filters'.
886 Interactively, prompt for NAME, and use the current filters."
888 (if (null ibuffer-filtering-qualifiers
)
889 (error "No filters currently in effect")
891 (read-from-minibuffer "Save current filters as: ")
892 ibuffer-filtering-qualifiers
)))
893 (ibuffer-aif (assoc name ibuffer-saved-filters
)
895 (push (list name filters
) ibuffer-saved-filters
))
896 (ibuffer-maybe-save-stuff))
899 (defun ibuffer-delete-saved-filters (name)
900 "Delete saved filters with NAME from `ibuffer-saved-filters'."
903 (if (null ibuffer-saved-filters
)
904 (error "No saved filters")
905 (completing-read "Delete saved filters: "
906 ibuffer-saved-filters nil t
))))
907 (setq ibuffer-saved-filters
908 (ibuffer-delete-alist name ibuffer-saved-filters
))
909 (ibuffer-maybe-save-stuff)
910 (ibuffer-update nil t
))
913 (defun ibuffer-add-saved-filters (name)
914 "Add saved filters from `ibuffer-saved-filters' to this buffer's filters."
917 (if (null ibuffer-saved-filters
)
918 (error "No saved filters")
919 (completing-read "Add saved filters: "
920 ibuffer-saved-filters nil t
))))
921 (push (cons 'saved name
) ibuffer-filtering-qualifiers
)
922 (ibuffer-update nil t
))
925 (defun ibuffer-switch-to-saved-filters (name)
926 "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'."
929 (if (null ibuffer-saved-filters
)
930 (error "No saved filters")
931 (completing-read "Switch to saved filters: "
932 ibuffer-saved-filters nil t
))))
933 (setq ibuffer-filtering-qualifiers
(list (cons 'saved name
)))
934 (ibuffer-update nil t
))
936 (defun ibuffer-format-filter-group-data (filter)
937 (if (equal filter
"Default")
939 (concat "Filter:" (mapconcat #'ibuffer-format-qualifier
940 (cdr (assq filter ibuffer-filter-groups
))
943 (defun ibuffer-format-qualifier (qualifier)
944 (if (eq (car-safe qualifier
) 'not
)
945 (concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier
)) "]")
946 (ibuffer-format-qualifier-1 qualifier
)))
948 (defun ibuffer-format-qualifier-1 (qualifier)
949 (case (car qualifier
)
951 (concat " [filter: " (cdr qualifier
) "]"))
953 (concat " [OR" (mapconcat #'ibuffer-format-qualifier
954 (cdr qualifier
) "") "]"))
956 (let ((type (assq (car qualifier
) ibuffer-filtering-alist
)))
958 (error "Ibuffer: bad qualifier %s" qualifier
))
959 (concat " [" (cadr type
) ": " (format "%s]" (cdr qualifier
)))))))
962 (defun ibuffer-list-buffer-modes ()
963 "Create an alist of buffer modes currently in use.
964 The list returned will be of the form (\"MODE-NAME\" . MODE-SYMBOL)."
965 (let ((bufs (buffer-list))
976 `(,(symbol-name this-mode
) .
981 ;;; Extra operation definitions
983 ;;;###autoload (autoload 'ibuffer-filter-by-mode "ibuf-ext")
984 (define-ibuffer-filter mode
985 "Toggle current view to buffers with major mode QUALIFIER."
986 (:description
"major mode"
989 (completing-read "Filter by major mode: " obarray
991 (string-match "-mode$"
994 (let ((buf (ibuffer-current-buffer)))
995 (if (and buf
(buffer-live-p buf
))
996 (with-current-buffer buf
997 (symbol-name major-mode
))
999 (eq qualifier
(with-current-buffer buf major-mode
)))
1001 ;;;###autoload (autoload 'ibuffer-filter-by-used-mode "ibuf-ext")
1002 (define-ibuffer-filter used-mode
1003 "Toggle current view to buffers with major mode QUALIFIER.
1004 Called interactively, this function allows selection of modes
1005 currently used by buffers."
1006 (:description
"major mode in use"
1009 (completing-read "Filter by major mode: "
1010 (ibuffer-list-buffer-modes)
1013 (let ((buf (ibuffer-current-buffer)))
1014 (if (and buf
(buffer-live-p buf
))
1015 (with-current-buffer buf
1016 (symbol-name major-mode
))
1018 (eq qualifier
(with-current-buffer buf major-mode
)))
1020 ;;;###autoload (autoload 'ibuffer-filter-by-name "ibuf-ext")
1021 (define-ibuffer-filter name
1022 "Toggle current view to buffers with name matching QUALIFIER."
1023 (:description
"buffer name"
1024 :reader
(read-from-minibuffer "Filter by name (regexp): "))
1025 (string-match qualifier
(buffer-name buf
)))
1027 ;;;###autoload (autoload 'ibuffer-filter-by-filename "ibuf-ext")
1028 (define-ibuffer-filter filename
1029 "Toggle current view to buffers with filename matching QUALIFIER."
1030 (:description
"filename"
1031 :reader
(read-from-minibuffer "Filter by filename (regexp): "))
1032 (ibuffer-awhen (with-current-buffer buf
1033 (ibuffer-buffer-file-name))
1034 (string-match qualifier it
)))
1036 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext")
1037 (define-ibuffer-filter size-gt
1038 "Toggle current view to buffers with size greater than QUALIFIER."
1039 (:description
"size greater than"
1041 (string-to-number (read-from-minibuffer "Filter by size greater than: ")))
1042 (> (with-current-buffer buf
(buffer-size))
1045 ;;;###autoload (autoload 'ibuffer-filter-by-size-lt "ibuf-ext")
1046 (define-ibuffer-filter size-lt
1047 "Toggle current view to buffers with size less than QUALIFIER."
1048 (:description
"size less than"
1050 (string-to-number (read-from-minibuffer "Filter by size less than: ")))
1051 (< (with-current-buffer buf
(buffer-size))
1054 ;;;###autoload (autoload 'ibuffer-filter-by-content "ibuf-ext")
1055 (define-ibuffer-filter content
1056 "Toggle current view to buffers whose contents match QUALIFIER."
1057 (:description
"content"
1058 :reader
(read-from-minibuffer "Filter by content (regexp): "))
1059 (with-current-buffer buf
1061 (goto-char (point-min))
1062 (re-search-forward qualifier nil t
))))
1064 ;;;###autoload (autoload 'ibuffer-filter-by-predicate "ibuf-ext")
1065 (define-ibuffer-filter predicate
1066 "Toggle current view to buffers for which QUALIFIER returns non-nil."
1067 (:description
"predicate"
1068 :reader
(read-minibuffer "Filter by predicate (form): "))
1069 (with-current-buffer buf
1075 (defun ibuffer-toggle-sorting-mode ()
1076 "Toggle the current sorting mode.
1077 Default sorting modes are:
1078 Recency - the last time the buffer was viewed
1079 Name - the name of the buffer
1080 Major Mode - the name of the major mode of the buffer
1081 Size - the size of the buffer"
1083 (let ((modes (mapcar 'car ibuffer-sorting-functions-alist
)))
1084 (add-to-list 'modes
'recency
)
1085 (setq modes
(sort modes
'string-lessp
))
1086 (let ((next (or (car-safe (cdr-safe (memq ibuffer-sorting-mode modes
)))
1088 (setq ibuffer-sorting-mode next
)
1089 (message "Sorting by %s" next
)))
1090 (ibuffer-redisplay t
))
1093 (defun ibuffer-invert-sorting ()
1094 "Toggle whether or not sorting is in reverse order."
1096 (setq ibuffer-sorting-reversep
(not ibuffer-sorting-reversep
))
1097 (message "Sorting order %s"
1098 (if ibuffer-sorting-reversep
1101 (ibuffer-redisplay t
))
1103 ;;;###autoload (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext")
1104 (define-ibuffer-sorter major-mode
1105 "Sort the buffers by major modes.
1106 Ordering is lexicographic."
1107 (:description
"major mode")
1108 (string-lessp (downcase
1109 (symbol-name (with-current-buffer
1113 (symbol-name (with-current-buffer
1117 ;;;###autoload (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext")
1118 (define-ibuffer-sorter mode-name
1119 "Sort the buffers by their mode name.
1120 Ordering is lexicographic."
1121 (:description
"major mode name")
1122 (string-lessp (downcase
1123 (with-current-buffer
1125 (format-mode-line mode-name
)))
1127 (with-current-buffer
1129 (format-mode-line mode-name
)))))
1131 ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext")
1132 (define-ibuffer-sorter alphabetic
1133 "Sort the buffers by their names.
1134 Ordering is lexicographic."
1135 (:description
"buffer name")
1137 (buffer-name (car a
))
1138 (buffer-name (car b
))))
1140 ;;;###autoload (autoload 'ibuffer-do-sort-by-size "ibuf-ext")
1141 (define-ibuffer-sorter size
1142 "Sort the buffers by their size."
1143 (:description
"size")
1144 (< (with-current-buffer (car a
)
1146 (with-current-buffer (car b
)
1149 ;;;###autoload (autoload 'ibuffer-do-sort-by-filename/process "ibuf-ext")
1150 (define-ibuffer-sorter filename
/process
1151 "Sort the buffers by their file name/process name."
1152 (:description
"file name")
1154 ;; FIXME: For now just compare the file name and the process name
1155 ;; (if it exists). Is there a better way to do this?
1156 (or (buffer-file-name (car a
))
1157 (let ((pr-a (get-buffer-process (car a
))))
1158 (and (processp pr-a
) (process-name pr-a
))))
1159 (or (buffer-file-name (car b
))
1160 (let ((pr-b (get-buffer-process (car b
))))
1161 (and (processp pr-b
) (process-name pr-b
))))))
1163 ;;; Functions to emulate bs.el
1166 (defun ibuffer-bs-show ()
1167 "Emulate `bs-show' from the bs.el package."
1169 (ibuffer t
"*Ibuffer-bs*" '((filename .
".*")) nil t
)
1170 (define-key (current-local-map) "a" 'ibuffer-bs-toggle-all
))
1172 (defun ibuffer-bs-toggle-all ()
1173 "Emulate `bs-toggle-show-all' from the bs.el package."
1175 (if ibuffer-filtering-qualifiers
1176 (ibuffer-pop-filter)
1177 (progn (ibuffer-push-filter '(filename .
".*"))
1178 (ibuffer-update nil t
))))
1183 (defun ibuffer-add-to-tmp-hide (regexp)
1184 "Add REGEXP to `ibuffer-tmp-hide-regexps'.
1185 This means that buffers whose name matches REGEXP will not be shown
1186 for this Ibuffer session."
1189 (read-from-minibuffer "Never show buffers matching: "
1190 (regexp-quote (buffer-name (ibuffer-current-buffer t
))))))
1191 (push regexp ibuffer-tmp-hide-regexps
))
1194 (defun ibuffer-add-to-tmp-show (regexp)
1195 "Add REGEXP to `ibuffer-tmp-show-regexps'.
1196 This means that buffers whose name matches REGEXP will always be shown
1197 for this Ibuffer session."
1200 (read-from-minibuffer "Always show buffers matching: "
1201 (regexp-quote (buffer-name (ibuffer-current-buffer t
))))))
1202 (push regexp ibuffer-tmp-show-regexps
))
1205 (defun ibuffer-forward-next-marked (&optional count mark direction
)
1206 "Move forward by COUNT marked buffers (default 1).
1208 If MARK is non-nil, it should be a character denoting the type of mark
1209 to move by. The default is `ibuffer-marked-char'.
1211 If DIRECTION is non-nil, it should be an integer; negative integers
1212 mean move backwards, non-negative integers mean move forwards."
1217 (setq mark ibuffer-marked-char
))
1221 (ibuffer-forward-line 0)
1222 (let ((opos (point))
1224 (ibuffer-forward-line direction
)
1225 (while (not (or (= (point) opos
)
1226 (eq (setq curmark
(ibuffer-current-mark))
1228 (ibuffer-forward-line direction
))
1229 (when (and (= (point) opos
)
1230 (not (eq (ibuffer-current-mark) mark
)))
1231 (error "No buffers with mark %c" mark
))))
1234 (defun ibuffer-backwards-next-marked (&optional count mark
)
1235 "Move backwards by COUNT marked buffers (default 1).
1237 If MARK is non-nil, it should be a character denoting the type of mark
1238 to move by. The default is `ibuffer-marked-char'."
1240 (ibuffer-forward-next-marked count mark -
1))
1243 (defun ibuffer-do-kill-lines ()
1244 "Hide all of the currently marked lines."
1246 (if (= (ibuffer-count-marked-lines) 0)
1247 (message "No buffers marked; use 'm' to mark a buffer")
1249 (ibuffer-map-marked-lines
1250 #'(lambda (buf mark
)
1252 (message "Killed %s lines" count
))))
1255 (defun ibuffer-jump-to-buffer (name)
1256 "Move point to the buffer whose name is NAME.
1258 If called interactively, prompt for a buffer name and go to the
1259 corresponding line in the Ibuffer buffer. If said buffer is in a
1260 hidden group filter, open it.
1262 If `ibuffer-jump-offer-only-visible-buffers' is non-nil, only offer
1263 visible buffers in the completion list. Calling the command with
1264 a prefix argument reverses the meaning of that variable."
1266 (let ((only-visible ibuffer-jump-offer-only-visible-buffers
))
1267 (when current-prefix-arg
1268 (setq only-visible
(not only-visible
)))
1270 (let ((table (mapcar #'(lambda (x)
1271 (buffer-name (car x
)))
1272 (ibuffer-current-state-list))))
1274 (error "No buffers!"))
1275 (completing-read "Jump to buffer: "
1277 (read-buffer "Jump to buffer: " nil t
)))))
1278 (when (not (string= "" name
))
1280 ;; Blindly search for our buffer: it is very likely that it is
1281 ;; not in a hidden filter group.
1282 (ibuffer-map-lines #'(lambda (buf marks
)
1283 (when (string= (buffer-name buf
) name
)
1284 (setq buf-point
(point))
1289 (not (null ibuffer-hidden-filter-groups
)))
1290 ;; We did not find our buffer. It must be in a hidden filter
1291 ;; group, so go through all hidden filter groups to find it.
1293 (dolist (group ibuffer-hidden-filter-groups
)
1294 (ibuffer-jump-to-filter-group group
)
1295 (ibuffer-toggle-filter-group)
1296 (ibuffer-map-lines #'(lambda (buf marks
)
1297 (when (string= (buffer-name buf
) name
)
1298 (setq buf-point
(point))
1303 (ibuffer-toggle-filter-group)))))
1304 (if (null buf-point
)
1305 ;; Still not found even though we expanded all hidden filter
1306 ;; groups: that must be because it's hidden by predicate:
1307 ;; we won't bother trying to display it.
1308 (error "No buffer with name %s" name
)
1309 (goto-char buf-point
)))))
1312 (defun ibuffer-diff-with-file ()
1313 "View the differences between this buffer and its associated file.
1314 This requires the external program \"diff\" to be in your `exec-path'."
1316 (let ((buf (ibuffer-current-buffer)))
1317 (unless (buffer-live-p buf
)
1318 (error "Buffer %s has been killed" buf
))
1319 (diff-buffer-with-file buf
)))
1322 (defun ibuffer-copy-filename-as-kill (&optional arg
)
1323 "Copy filenames of marked buffers into the kill ring.
1325 The names are separated by a space.
1326 If a buffer has no filename, it is ignored.
1328 With no prefix arg, use the filename sans its directory of each marked file.
1329 With a zero prefix arg, use the complete filename of each marked file.
1330 With \\[universal-argument], use the filename of each marked file relative
1331 to `ibuffer-default-directory' if non-nil, otherwise `default-directory'.
1333 You can then feed the file name(s) to other commands with \\[yank]."
1335 (if (zerop (ibuffer-count-marked-lines))
1336 (message "No buffers marked; use 'm' to mark a buffer")
1337 (let ((ibuffer-copy-filename-as-kill-result "")
1338 (type (cond ((zerop arg
)
1344 (ibuffer-map-marked-lines
1345 #'(lambda (buf mark
)
1346 (setq ibuffer-copy-filename-as-kill-result
1347 (concat ibuffer-copy-filename-as-kill-result
1348 (let ((name (buffer-file-name buf
)))
1355 name
(or ibuffer-default-directory
1356 default-directory
)))
1358 (file-name-nondirectory name
)))
1361 (kill-new ibuffer-copy-filename-as-kill-result
))))
1363 (defun ibuffer-mark-on-buffer (func &optional ibuffer-mark-on-buffer-mark group
)
1366 #'(lambda (buf mark
)
1367 (when (funcall func buf
)
1368 (ibuffer-set-mark-1 (or ibuffer-mark-on-buffer-mark
1369 ibuffer-marked-char
))
1373 (ibuffer-redisplay t
)
1374 (message "Marked %s buffers" count
)))
1377 (defun ibuffer-mark-by-name-regexp (regexp)
1378 "Mark all buffers whose name matches REGEXP."
1379 (interactive "sMark by name (regexp): ")
1380 (ibuffer-mark-on-buffer
1382 (string-match regexp
(buffer-name buf
)))))
1385 (defun ibuffer-mark-by-mode-regexp (regexp)
1386 "Mark all buffers whose major mode matches REGEXP."
1387 (interactive "sMark by major mode (regexp): ")
1388 (ibuffer-mark-on-buffer
1390 (with-current-buffer buf
1391 (string-match regexp
(format-mode-line mode-name nil nil buf
))))))
1394 (defun ibuffer-mark-by-file-name-regexp (regexp)
1395 "Mark all buffers whose file name matches REGEXP."
1396 (interactive "sMark by file name (regexp): ")
1397 (ibuffer-mark-on-buffer
1399 (let ((name (or (buffer-file-name buf
)
1400 (with-current-buffer buf
1402 (boundp 'dired-directory
)
1403 (stringp dired-directory
)
1404 dired-directory
)))))
1406 (string-match regexp name
))))))
1409 (defun ibuffer-mark-by-mode (mode)
1410 "Mark all buffers whose major mode equals MODE."
1412 (list (intern (completing-read "Mark by major mode: " obarray
1414 ;; kind of a hack...
1416 (string-match "-mode$"
1419 (let ((buf (ibuffer-current-buffer)))
1420 (if (and buf
(buffer-live-p buf
))
1421 (with-current-buffer buf
1422 (cons (symbol-name major-mode
)
1425 (ibuffer-mark-on-buffer
1427 (with-current-buffer buf
1428 (eq major-mode mode
)))))
1431 (defun ibuffer-mark-modified-buffers ()
1432 "Mark all modified buffers."
1434 (ibuffer-mark-on-buffer
1435 #'(lambda (buf) (buffer-modified-p buf
))))
1438 (defun ibuffer-mark-unsaved-buffers ()
1439 "Mark all modified buffers that have an associated file."
1441 (ibuffer-mark-on-buffer
1442 #'(lambda (buf) (and (with-current-buffer buf buffer-file-name
)
1443 (buffer-modified-p buf
)))))
1446 (defun ibuffer-mark-dissociated-buffers ()
1447 "Mark all buffers whose associated file does not exist."
1449 (ibuffer-mark-on-buffer
1451 (with-current-buffer buf
1453 (and buffer-file-name
1454 (not (file-exists-p buffer-file-name
)))
1455 (and (eq major-mode
'dired-mode
)
1456 (boundp 'dired-directory
)
1457 (stringp dired-directory
)
1458 (not (file-exists-p (file-name-directory dired-directory
)))))))))
1461 (defun ibuffer-mark-help-buffers ()
1462 "Mark buffers like *Help*, *Apropos*, *Info*."
1464 (ibuffer-mark-on-buffer
1466 (with-current-buffer buf
1467 (memq major-mode ibuffer-help-buffer-modes
)))))
1470 (defun ibuffer-mark-compressed-file-buffers ()
1471 "Mark buffers whose associated file is compressed."
1473 (ibuffer-mark-on-buffer
1475 (with-current-buffer buf
1476 (and buffer-file-name
1477 (string-match ibuffer-compressed-file-name-regexp
1478 buffer-file-name
))))))
1481 (defun ibuffer-mark-old-buffers ()
1482 "Mark buffers which have not been viewed in `ibuffer-old-time' hours."
1484 (ibuffer-mark-on-buffer
1486 (with-current-buffer buf
1487 ;; hacked from midnight.el
1488 (when buffer-display-time
1489 (let* ((tm (current-time))
1490 (now (+ (* (float (ash 1 16)) (car tm
))
1491 (float (cadr tm
)) (* 0.0000001 (caddr tm
))))
1492 (then (+ (* (float (ash 1 16))
1493 (car buffer-display-time
))
1494 (float (cadr buffer-display-time
))
1495 (* 0.0000001 (caddr buffer-display-time
)))))
1496 (> (- now then
) (* 60 60 ibuffer-old-time
))))))))
1499 (defun ibuffer-mark-special-buffers ()
1500 "Mark all buffers whose name begins and ends with '*'."
1502 (ibuffer-mark-on-buffer
1503 #'(lambda (buf) (string-match "^\\*.+\\*$"
1504 (buffer-name buf
)))))
1507 (defun ibuffer-mark-read-only-buffers ()
1508 "Mark all read-only buffers."
1510 (ibuffer-mark-on-buffer
1512 (with-current-buffer buf
1513 buffer-read-only
))))
1516 (defun ibuffer-mark-dired-buffers ()
1517 "Mark all `dired' buffers."
1519 (ibuffer-mark-on-buffer
1521 (with-current-buffer buf
1522 (eq major-mode
'dired-mode
)))))
1525 (defun ibuffer-do-occur (regexp &optional nlines
)
1526 "View lines which match REGEXP in all marked buffers.
1527 Optional argument NLINES says how many lines of context to display: it
1529 (interactive (occur-read-primary-args))
1530 (if (or (not (integerp nlines
))
1533 (when (zerop (ibuffer-count-marked-lines))
1534 (ibuffer-set-mark ibuffer-marked-char
))
1535 (let ((ibuffer-do-occur-bufs nil
))
1536 ;; Accumulate a list of marked buffers
1537 (ibuffer-map-marked-lines
1538 #'(lambda (buf mark
)
1539 (push buf ibuffer-do-occur-bufs
)))
1540 (occur-1 regexp nlines ibuffer-do-occur-bufs
)))
1544 ;; arch-tag: 9af21953-deda-4c30-b76d-f81d9128e76d
1545 ;;; ibuf-ext.el ends here