Lines Matching +defs:ibuffer +defs:or +defs:filter
1 ;;; ibuf-ext.el --- extensions for ibuffer
13 ;; This program is free software; you can redistribute it and/or
15 ;; published by the Free Software Foundation; either version 2, or (at
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
36 (require 'ibuffer)
43 (defun ibuffer-delete-alist (key alist)
51 (defun ibuffer-remove-duplicates (list)
56 (or (member (car tail) new)
61 (defun ibuffer-split-list (ibuffer-split-list-fn ibuffer-split-list-elts)
64 (dolist (ibuffer-split-list-elt ibuffer-split-list-elts)
65 (if (funcall ibuffer-split-list-fn ibuffer-split-list-elt)
66 (push ibuffer-split-list-elt hip-crowd)
67 (push ibuffer-split-list-elt lamers)))
71 (defcustom ibuffer-never-show-predicates nil
72 "A list of predicates (a regexp or function) for buffers not to display.
78 :group 'ibuffer)
80 (defcustom ibuffer-always-show-predicates nil
81 "A list of predicates (a regexp or function) for buffers to always display.
88 :group 'ibuffer)
90 (defvar ibuffer-tmp-hide-regexps nil
93 (defvar ibuffer-tmp-show-regexps nil
96 (defvar ibuffer-auto-mode nil
99 `ibuffer-auto-mode' instead.")
101 (defvar ibuffer-auto-buffers-changed nil)
103 (defcustom ibuffer-saved-filters '(("gnus"
104 ((or (mode . message-mode)
110 ((or (mode . emacs-lisp-mode)
117 "An alist of filter qualifiers to switch between.
122 `ibuffer-filtering-qualifiers'.
123 See also the variables `ibuffer-filtering-qualifiers',
124 `ibuffer-filtering-alist', and the functions
125 `ibuffer-switch-to-saved-filters', `ibuffer-save-filters'."
127 :group 'ibuffer)
129 (defvar ibuffer-filtering-qualifiers nil
131 See also `ibuffer-filtering-alist'.")
133 ;; This is now frobbed by `define-ibuffer-filter'.
134 (defvar ibuffer-filtering-alist nil
135 "An alist of (SYMBOL DESCRIPTION FUNCTION) which describes a filter.
138 `define-ibuffer-filter'.
140 SYMBOL is the symbolic name of the filter. DESCRIPTION is used when
145 (defcustom ibuffer-filter-format-alist nil
146 "An alist which has special formats used when a filter is active.
150 For example, suppose that when you add a filter for buffers whose
157 :group 'ibuffer)
159 (defvar ibuffer-cached-filter-formats nil)
160 (defvar ibuffer-compiled-filter-formats nil)
162 (defvar ibuffer-filter-groups nil
164 The SYMBOL should be one from `ibuffer-filtering-alist'.
166 `ibuffer-filtering-qualifiers'.")
168 (defcustom ibuffer-show-empty-filter-groups t
169 "If non-nil, then show the names of filter groups which are empty."
171 :group 'ibuffer)
173 (defcustom ibuffer-saved-filter-groups nil
179 `ibuffer-filtering-qualifiers'.
181 See also the variables `ibuffer-filter-groups',
182 `ibuffer-filtering-qualifiers', `ibuffer-filtering-alist', and the
183 functions `ibuffer-switch-to-saved-filter-group',
184 `ibuffer-save-filter-group'."
186 :group 'ibuffer)
188 (defvar ibuffer-hidden-filter-groups nil
191 (defvar ibuffer-filter-group-kill-ring nil)
193 (defcustom ibuffer-old-time 72
199 :group 'ibuffer)
201 (defcustom ibuffer-save-with-custom t
203 Currently, this only applies to `ibuffer-saved-filters' and
204 `ibuffer-saved-filter-groups'."
206 :group 'ibuffer)
208 (defun ibuffer-ext-visible-p (buf all &optional ibuffer-buf)
209 (or
210 (ibuffer-buf-matches-predicates buf ibuffer-tmp-show-regexps)
212 (or
213 (ibuffer-buf-matches-predicates buf ibuffer-tmp-hide-regexps)
214 (ibuffer-buf-matches-predicates buf ibuffer-never-show-predicates)))
215 (or all
217 (ibuffer-buf-matches-predicates buf ibuffer-maybe-show-predicates)))
218 (or ibuffer-view-ibuffer
219 (and ibuffer-buf
220 (not (eq ibuffer-buf buf))))
221 (or
222 (ibuffer-included-in-filters-p buf ibuffer-filtering-qualifiers)
223 (ibuffer-buf-matches-predicates buf ibuffer-always-show-predicates)))))
225 (defun ibuffer-auto-update-changed ()
226 (when (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
230 (when (and ibuffer-auto-mode
231 (eq major-mode 'ibuffer-mode))
232 (ibuffer-update nil t)))))
236 (defun ibuffer-auto-mode (&optional arg)
240 (unless (eq major-mode 'ibuffer-mode)
242 (set (make-local-variable 'ibuffer-auto-mode)
245 (not ibuffer-auto-mode)))
246 (frame-or-buffer-changed-p 'ibuffer-auto-buffers-changed)
247 (add-hook 'post-command-hook 'ibuffer-auto-update-changed)
248 (ibuffer-update-mode-name))
251 (defun ibuffer-mouse-filter-by-mode (event)
252 "Enable or disable filtering by the major mode chosen via mouse."
254 (ibuffer-interactive-filter-by-mode event))
257 (defun ibuffer-interactive-filter-by-mode (event-or-point)
258 "Enable or disable filtering by the major mode at point."
260 (if (eventp event-or-point)
261 (posn-set-point (event-end event-or-point))
262 (goto-char event-or-point))
263 (let ((buf (ibuffer-current-buffer)))
264 (if (assq 'mode ibuffer-filtering-qualifiers)
265 (setq ibuffer-filtering-qualifiers
266 (ibuffer-delete-alist 'mode ibuffer-filtering-qualifiers))
267 (ibuffer-push-filter (cons 'mode
270 (ibuffer-update nil t))
273 (defun ibuffer-mouse-toggle-filter-group (event)
274 "Toggle the display status of the filter group chosen with the mouse."
276 (ibuffer-toggle-filter-group-1 (save-excursion
281 (defun ibuffer-toggle-filter-group ()
282 "Toggle the display status of the filter group on this line."
284 (ibuffer-toggle-filter-group-1 (point)))
286 (defun ibuffer-toggle-filter-group-1 (posn)
287 (let ((name (get-text-property posn 'ibuffer-filter-group-name)))
290 (if (member name ibuffer-hidden-filter-groups)
291 (setq ibuffer-hidden-filter-groups
292 (delete name ibuffer-hidden-filter-groups))
293 (push name ibuffer-hidden-filter-groups))
294 (ibuffer-update nil t)))
297 (defun ibuffer-forward-filter-group (&optional count)
303 (when (get-text-property (point) 'ibuffer-filter-group-name)
305 (point) 'ibuffer-filter-group-name
308 (point) 'ibuffer-filter-group-name
310 (ibuffer-forward-filter-group (1- count)))
311 (ibuffer-forward-line 0))
314 (defun ibuffer-backward-filter-group (&optional count)
320 (when (get-text-property (point) 'ibuffer-filter-group-name)
322 (point) 'ibuffer-filter-group-name
325 (point) 'ibuffer-filter-group-name
327 (ibuffer-backward-filter-group (1- count)))
330 (ibuffer-backward-filter-group 1))
331 (ibuffer-forward-line 0))
333 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe "ibuf-ext")
334 (define-ibuffer-op shell-command-pipe (command)
341 (get-buffer-create "* ibuffer-shell-output*")))
343 ;;;###autoload (autoload 'ibuffer-do-shell-command-pipe-replace "ibuf-ext")
344 (define-ibuffer-op shell-command-pipe-replace (command)
355 ;;;###autoload (autoload 'ibuffer-do-shell-command-file "ibuf-ext")
356 (define-ibuffer-op shell-command-file (command)
368 ;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext")
369 (define-ibuffer-op eval (form)
372 `ibuffer-do-view-and-eval' for that."
382 ;;;###autoload (autoload 'ibuffer-do-view-and-eval "ibuf-ext")
383 (define-ibuffer-op view-and-eval (form)
385 To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
394 (let ((ibuffer-buf (current-buffer)))
399 (switch-to-buffer ibuffer-buf))))
401 ;;;###autoload (autoload 'ibuffer-do-rename-uniquely "ibuf-ext")
402 (define-ibuffer-op rename-uniquely ()
408 ;;;###autoload (autoload 'ibuffer-do-revert "ibuf-ext")
409 (define-ibuffer-op revert ()
417 ;;;###autoload (autoload 'ibuffer-do-replace-regexp "ibuf-ext")
418 (define-ibuffer-op replace-regexp (from-str to-str)
432 (let ((case-fold-search ibuffer-case-fold-search))
437 ;;;###autoload (autoload 'ibuffer-do-query-replace "ibuf-ext")
438 (define-ibuffer-op query-replace (&rest args)
448 (let ((case-fold-search ibuffer-case-fold-search))
453 ;;;###autoload (autoload 'ibuffer-do-query-replace-regexp "ibuf-ext")
454 (define-ibuffer-op query-replace-regexp (&rest args)
464 (let ((case-fold-search ibuffer-case-fold-search))
469 ;;;###autoload (autoload 'ibuffer-do-print "ibuf-ext")
470 (define-ibuffer-op print ()
477 (defun ibuffer-included-in-filters-p (buf filters)
479 (memq nil ;; a filter will return nil if it failed
481 ;; filter should be like (TYPE . QUALIFIER), or
482 ;; (or (TYPE . QUALIFIER) (TYPE . QUALIFIER) ...)
484 (ibuffer-included-in-filter-p buf qual))
487 (defun ibuffer-included-in-filter-p (buf filter)
488 (if (eq (car filter) 'not)
489 (not (ibuffer-included-in-filter-p-1 buf (cdr filter)))
490 (ibuffer-included-in-filter-p-1 buf filter)))
492 (defun ibuffer-included-in-filter-p-1 (buf filter)
495 (case (car filter)
496 (or
498 (ibuffer-included-in-filter-p buf x))
499 (cdr filter))))
502 (assoc (cdr filter)
503 ibuffer-saved-filters)))
505 (ibuffer-filter-disable)
506 (error "Unknown saved filter %s" (cdr filter)))
507 (ibuffer-included-in-filters-p buf (cadr data))))
509 (let ((filterdat (assq (car filter)
510 ibuffer-filtering-alist)))
514 (ibuffer-filter-disable)
515 (error "Undefined filter %s" (car filter)))
520 (cdr filter))))))))))
522 (defun ibuffer-generate-filter-groups (bmarklist &optional noempty nodefault)
523 (let ((filter-group-alist (if nodefault
524 ibuffer-filter-groups
525 (append ibuffer-filter-groups
527 ;; (dolist (hidden ibuffer-hidden-filter-groups)
528 ;; (setq filter-group-alist (ibuffer-delete-alist
529 ;; hidden filter-group-alist)))
530 (let ((vec (make-vector (length filter-group-alist) nil))
532 (dolist (filtergroup filter-group-alist)
535 (ibuffer-split-list (lambda (bufmark)
536 (ibuffer-included-in-filters-p (car bufmark)
546 (push (cons (car (nth j filter-group-alist))
551 (defun ibuffer-filters-to-filter-group (name)
554 (when (null ibuffer-filtering-qualifiers)
556 (push (cons name ibuffer-filtering-qualifiers) ibuffer-filter-groups)
557 (ibuffer-filter-disable))
560 (defun ibuffer-set-filter-groups-by-mode ()
561 "Set the current filter groups to filter by mode."
563 (setq ibuffer-filter-groups
567 (ibuffer-remove-duplicates
571 (if ibuffer-view-ibuffer
573 (delq 'ibuffer-mode modes)))))
574 (ibuffer-update nil t))
577 (defun ibuffer-pop-filter-group ()
578 "Remove the first filter group."
580 (when (null ibuffer-filter-groups)
581 (error "No filter groups active"))
582 (setq ibuffer-hidden-filter-groups
583 (delete (pop ibuffer-filter-groups)
584 ibuffer-hidden-filter-groups))
585 (ibuffer-update nil t))
587 (defun ibuffer-read-filter-group-name (msg &optional nodefault noerror)
588 (when (and (not noerror) (null ibuffer-filter-groups))
589 (error "No filter groups active"))
590 ;; `ibuffer-generate-filter-groups' returns all non-hidden filter
591 ;; groups, possibly excluding empty groups or Default.
592 ;; We add `ibuffer-hidden-filter-groups' to the list, excluding
595 (ibuffer-generate-filter-groups
596 (ibuffer-current-state-list)
597 (not ibuffer-show-empty-filter-groups)
600 (remove "Default" ibuffer-hidden-filter-groups)
601 ibuffer-hidden-filter-groups))
605 (defun ibuffer-decompose-filter-group (group)
606 "Decompose the filter group GROUP into active filters."
608 (list (ibuffer-read-filter-group-name "Decompose filter group: " t)))
609 (let ((data (cdr (assoc group ibuffer-filter-groups))))
610 (setq ibuffer-filter-groups (ibuffer-delete-alist
611 group ibuffer-filter-groups)
612 ibuffer-filtering-qualifiers data))
613 (ibuffer-update nil t))
616 (defun ibuffer-clear-filter-groups ()
617 "Remove all filter groups."
619 (setq ibuffer-filter-groups nil
620 ibuffer-hidden-filter-groups nil)
621 (ibuffer-update nil t))
623 (defun ibuffer-current-filter-groups-with-position ()
630 (point) 'ibuffer-filter-group-name)))
632 (push (cons (get-text-property (point) 'ibuffer-filter-group-name)
636 pos 'ibuffer-filter-group-name)))
640 (defun ibuffer-jump-to-filter-group (name)
641 "Move point to the filter group whose name is NAME."
643 (list (ibuffer-read-filter-group-name "Jump to filter group: ")))
644 (ibuffer-aif (assoc name (ibuffer-current-filter-groups-with-position))
646 (error "No filter group with name %s" name)))
649 (defun ibuffer-kill-filter-group (name)
650 "Kill the filter group named NAME.
651 The group will be added to `ibuffer-filter-group-kill-ring'."
652 (interactive (list (ibuffer-read-filter-group-name "Kill filter group: " t)))
654 (error "Can't kill default filter group"))
655 (ibuffer-aif (assoc name ibuffer-filter-groups)
657 (push (copy-tree it) ibuffer-filter-group-kill-ring)
658 (setq ibuffer-filter-groups (ibuffer-delete-alist
659 name ibuffer-filter-groups))
660 (setq ibuffer-hidden-filter-groups
661 (delete name ibuffer-hidden-filter-groups)))
662 (error "No filter group with name \"%s\"" name))
663 (ibuffer-update nil t))
666 (defun ibuffer-kill-line (&optional arg interactive-p)
667 "Kill the filter group at point.
668 See also `ibuffer-kill-filter-group'."
670 (ibuffer-aif (save-excursion
671 (ibuffer-forward-line 0)
672 (get-text-property (point) 'ibuffer-filter-group-name))
674 (ibuffer-kill-filter-group it))
678 (defun ibuffer-insert-filter-group-before (newgroup group)
680 (pos (let ((groups (mapcar #'car ibuffer-filter-groups))
690 (setq ibuffer-filter-groups
691 (nconc ibuffer-filter-groups (list newgroup))))
693 (push newgroup ibuffer-filter-groups))
695 (let ((cell (nthcdr pos ibuffer-filter-groups)))
700 (defun ibuffer-yank ()
701 "Yank the last killed filter group before group at point."
703 (ibuffer-yank-filter-group
704 (or (get-text-property (point) 'ibuffer-filter-group-name)
705 (get-text-property (point) 'ibuffer-filter-group)
706 (error "No filter group at point"))))
709 (defun ibuffer-yank-filter-group (name)
710 "Yank the last killed filter group before group named NAME."
711 (interactive (list (ibuffer-read-filter-group-name
712 "Yank filter group before group: ")))
713 (unless ibuffer-filter-group-kill-ring
714 (error "The Ibuffer filter group kill-ring is empty"))
716 (ibuffer-forward-line 0)
717 (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)
719 (ibuffer-update nil t))
722 (defun ibuffer-save-filter-groups (name groups)
723 "Save all active filter groups GROUPS as NAME.
724 They are added to `ibuffer-saved-filter-groups'. Interactively,
727 (if (null ibuffer-filter-groups)
728 (error "No filter groups active")
730 (read-from-minibuffer "Save current filter groups as: ")
731 ibuffer-filter-groups)))
732 (ibuffer-aif (assoc name ibuffer-saved-filter-groups)
734 (push (cons name groups) ibuffer-saved-filter-groups))
735 (ibuffer-maybe-save-stuff)
736 (ibuffer-update-mode-name))
739 (defun ibuffer-delete-saved-filter-groups (name)
740 "Delete saved filter groups with NAME.
741 They are removed from `ibuffer-saved-filter-groups'."
744 (if (null ibuffer-saved-filter-groups)
745 (error "No saved filter groups")
746 (completing-read "Delete saved filter group: "
747 ibuffer-saved-filter-groups nil t))))
748 (setq ibuffer-saved-filter-groups
749 (ibuffer-delete-alist name ibuffer-saved-filter-groups))
750 (ibuffer-maybe-save-stuff)
751 (ibuffer-update nil t))
754 (defun ibuffer-switch-to-saved-filter-groups (name)
755 "Set this buffer's filter groups to saved version with NAME.
756 The value from `ibuffer-saved-filters' is used.
761 (if (null ibuffer-saved-filter-groups)
763 (completing-read "Switch to saved filter group: "
764 ibuffer-saved-filter-groups nil t))))
765 (setq ibuffer-filter-groups (cdr (assoc name ibuffer-saved-filter-groups))
766 ibuffer-hidden-filter-groups nil)
767 (ibuffer-update nil t))
770 (defun ibuffer-filter-disable ()
773 (setq ibuffer-filtering-qualifiers nil)
774 (let ((buf (ibuffer-current-buffer)))
775 (ibuffer-update nil t)
777 (ibuffer-jump-to-buffer (buffer-name buf)))))
780 (defun ibuffer-pop-filter ()
781 "Remove the top filter in this buffer."
783 (when (null ibuffer-filtering-qualifiers)
785 (pop ibuffer-filtering-qualifiers)
786 (let ((buf (ibuffer-current-buffer)))
787 (ibuffer-update nil t)
789 (ibuffer-jump-to-buffer (buffer-name buf)))))
791 (defun ibuffer-push-filter (qualifier)
792 "Add QUALIFIER to `ibuffer-filtering-qualifiers'."
793 (push qualifier ibuffer-filtering-qualifiers))
796 (defun ibuffer-decompose-filter ()
797 "Separate the top compound filter (OR, NOT, or SAVED) in this buffer.
799 This means that the topmost filter on the filtering stack, which must
800 be a complex filter like (OR [name: foo] [mode: bar-mode]), will be
803 (when (null ibuffer-filtering-qualifiers)
805 (let ((lim (pop ibuffer-filtering-qualifiers)))
807 (or
808 (setq ibuffer-filtering-qualifiers (append
810 ibuffer-filtering-qualifiers)))
814 ibuffer-saved-filters)))
816 (ibuffer-filter-disable)
817 (error "Unknown saved filter %s" (cdr lim)))
818 (setq ibuffer-filtering-qualifiers (append
820 ibuffer-filtering-qualifiers))))
823 ibuffer-filtering-qualifiers))
826 (ibuffer-update nil t))
829 (defun ibuffer-exchange-filters ()
832 (when (< (length ibuffer-filtering-qualifiers)
835 (let ((first (pop ibuffer-filtering-qualifiers))
836 (second (pop ibuffer-filtering-qualifiers)))
837 (push first ibuffer-filtering-qualifiers)
838 (push second ibuffer-filtering-qualifiers))
839 (ibuffer-update nil t))
842 (defun ibuffer-negate-filter ()
843 "Negate the sense of the top filter in the current buffer."
845 (when (null ibuffer-filtering-qualifiers)
847 (let ((lim (pop ibuffer-filtering-qualifiers)))
851 ibuffer-filtering-qualifiers))
852 (ibuffer-update nil t))
855 (defun ibuffer-or-filter (&optional reverse)
858 filter into parts."
862 (when (or (null ibuffer-filtering-qualifiers)
863 (not (eq 'or (caar ibuffer-filtering-qualifiers))))
864 (error "Top filter is not an OR"))
865 (let ((lim (pop ibuffer-filtering-qualifiers)))
866 (setq ibuffer-filtering-qualifiers
867 (nconc (cdr lim) ibuffer-filtering-qualifiers))))
868 (when (< (length ibuffer-filtering-qualifiers) 2)
870 ;; If the second filter is an OR, just add to it.
871 (let ((first (pop ibuffer-filtering-qualifiers))
872 (second (pop ibuffer-filtering-qualifiers)))
873 (if (eq 'or (car second))
874 (push (nconc (list 'or first) (cdr second))
875 ibuffer-filtering-qualifiers)
876 (push (list 'or first second)
877 ibuffer-filtering-qualifiers))))
878 (ibuffer-update nil t))
880 (defun ibuffer-maybe-save-stuff ()
881 (when ibuffer-save-with-custom
884 (customize-save-variable 'ibuffer-saved-filters
885 ibuffer-saved-filters)
886 (customize-save-variable 'ibuffer-saved-filter-groups
887 ibuffer-saved-filter-groups))
891 (defun ibuffer-save-filters (name filters)
892 "Save FILTERS in this buffer with name NAME in `ibuffer-saved-filters'.
895 (if (null ibuffer-filtering-qualifiers)
899 ibuffer-filtering-qualifiers)))
900 (ibuffer-aif (assoc name ibuffer-saved-filters)
902 (push (list name filters) ibuffer-saved-filters))
903 (ibuffer-maybe-save-stuff)
904 (ibuffer-update-mode-name))
907 (defun ibuffer-delete-saved-filters (name)
908 "Delete saved filters with NAME from `ibuffer-saved-filters'."
911 (if (null ibuffer-saved-filters)
914 ibuffer-saved-filters nil t))))
915 (setq ibuffer-saved-filters
916 (ibuffer-delete-alist name ibuffer-saved-filters))
917 (ibuffer-maybe-save-stuff)
918 (ibuffer-update nil t))
921 (defun ibuffer-add-saved-filters (name)
922 "Add saved filters from `ibuffer-saved-filters' to this buffer's filters."
925 (if (null ibuffer-saved-filters)
928 ibuffer-saved-filters nil t))))
929 (push (cons 'saved name) ibuffer-filtering-qualifiers)
930 (ibuffer-update nil t))
933 (defun ibuffer-switch-to-saved-filters (name)
934 "Set this buffer's filters to filters with NAME from `ibuffer-saved-filters'.
939 (if (null ibuffer-saved-filters)
942 ibuffer-saved-filters nil t))))
943 (setq ibuffer-filtering-qualifiers (list (cons 'saved name)))
944 (ibuffer-update nil t))
946 (defun ibuffer-format-filter-group-data (filter)
947 (if (equal filter "Default")
949 (concat "Filter:" (mapconcat #'ibuffer-format-qualifier
950 (cdr (assq filter ibuffer-filter-groups))
953 (defun ibuffer-format-qualifier (qualifier)
955 (concat " [NOT" (ibuffer-format-qualifier-1 (cdr qualifier)) "]")
956 (ibuffer-format-qualifier-1 qualifier)))
958 (defun ibuffer-format-qualifier-1 (qualifier)
961 (concat " [filter: " (cdr qualifier) "]"))
962 (or
963 (concat " [OR" (mapconcat #'ibuffer-format-qualifier
966 (let ((type (assq (car qualifier) ibuffer-filtering-alist)))
972 (defun ibuffer-list-buffer-modes ()
993 ;;;###autoload (autoload 'ibuffer-filter-by-mode "ibuf-ext")
994 (define-ibuffer-filter mode
1004 (let ((buf (ibuffer-current-buffer)))
1011 ;;;###autoload (autoload 'ibuffer-filter-by-used-mode "ibuf-ext")
1012 (define-ibuffer-filter used-mode
1020 (ibuffer-list-buffer-modes)
1023 (let ((buf (ibuffer-current-buffer)))
1030 ;;;###autoload (autoload 'ibuffer-filter-by-name "ibuf-ext")
1031 (define-ibuffer-filter name
1037 ;;;###autoload (autoload 'ibuffer-filter-by-filename "ibuf-ext")
1038 (define-ibuffer-filter filename
1042 (ibuffer-awhen (with-current-buffer buf
1043 (or buffer-file-name
1053 ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext")
1054 (define-ibuffer-filter size-gt
1062 ;;;###autoload (autoload 'ibuffer-filter-by-size-lt "ibuf-ext")
1063 (define-ibuffer-filter size-lt
1071 ;;;###autoload (autoload 'ibuffer-filter-by-content "ibuf-ext")
1072 (define-ibuffer-filter content
1081 ;;;###autoload (autoload 'ibuffer-filter-by-predicate "ibuf-ext")
1082 (define-ibuffer-filter predicate
1092 (defun ibuffer-toggle-sorting-mode ()
1100 (let ((modes (mapcar 'car ibuffer-sorting-functions-alist)))
1103 (let ((next (or (car-safe (cdr-safe (memq ibuffer-sorting-mode modes)))
1105 (setq ibuffer-sorting-mode next)
1107 (ibuffer-redisplay t))
1110 (defun ibuffer-invert-sorting ()
1111 "Toggle whether or not sorting is in reverse order."
1113 (setq ibuffer-sorting-reversep (not ibuffer-sorting-reversep))
1115 (if ibuffer-sorting-reversep
1118 (ibuffer-redisplay t))
1120 ;;;###autoload (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext")
1121 (define-ibuffer-sorter major-mode
1134 ;;;###autoload (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext")
1135 (define-ibuffer-sorter mode-name
1148 ;;;###autoload (autoload 'ibuffer-do-sort-by-alphabetic "ibuf-ext")
1149 (define-ibuffer-sorter alphabetic
1157 ;;;###autoload (autoload 'ibuffer-do-sort-by-size "ibuf-ext")
1158 (define-ibuffer-sorter size
1169 (defun ibuffer-bs-show ()
1172 (ibuffer t "*Ibuffer-bs*" '((filename . ".*")) nil t)
1173 (define-key (current-local-map) "a" 'ibuffer-bs-toggle-all))
1175 (defun ibuffer-bs-toggle-all ()
1178 (if ibuffer-filtering-qualifiers
1179 (ibuffer-pop-filter)
1180 (progn (ibuffer-push-filter '(filename . ".*"))
1181 (ibuffer-update nil t))))
1186 (defun ibuffer-add-to-tmp-hide (regexp)
1187 "Add REGEXP to `ibuffer-tmp-hide-regexps'.
1193 (regexp-quote (buffer-name (ibuffer-current-buffer t))))))
1194 (push regexp ibuffer-tmp-hide-regexps))
1197 (defun ibuffer-add-to-tmp-show (regexp)
1198 "Add REGEXP to `ibuffer-tmp-show-regexps'.
1204 (regexp-quote (buffer-name (ibuffer-current-buffer t))))))
1205 (push regexp ibuffer-tmp-show-regexps))
1208 (defun ibuffer-forward-next-marked (&optional count mark direction)
1212 to move by. The default is `ibuffer-marked-char'.
1220 (setq mark ibuffer-marked-char))
1224 (ibuffer-forward-line 0)
1227 (ibuffer-forward-line direction)
1228 (while (not (or (= (point) opos)
1229 (eq (setq curmark (ibuffer-current-mark))
1231 (ibuffer-forward-line direction))
1233 (not (eq (ibuffer-current-mark) mark)))
1237 (defun ibuffer-backwards-next-marked (&optional count mark)
1241 to move by. The default is `ibuffer-marked-char'."
1243 (ibuffer-forward-next-marked count mark -1))
1246 (defun ibuffer-do-kill-lines ()
1249 (if (= (ibuffer-count-marked-lines) 0)
1252 (ibuffer-map-marked-lines
1258 (defun ibuffer-jump-to-buffer (name)
1263 hidden group filter, open it.
1265 If `ibuffer-jump-offer-only-visible-buffers' is non-nil, only offer
1269 (let ((only-visible ibuffer-jump-offer-only-visible-buffers))
1275 (ibuffer-current-state-list))))
1284 ;; not in a hidden filter group.
1285 (ibuffer-map-lines #'(lambda (buf marks)
1292 (not (null ibuffer-hidden-filter-groups)))
1293 ;; We did not find our buffer. It must be in a hidden filter
1294 ;; group, so go through all hidden filter groups to find it.
1296 (dolist (group ibuffer-hidden-filter-groups)
1297 (ibuffer-jump-to-filter-group group)
1298 (ibuffer-toggle-filter-group)
1299 (ibuffer-map-lines #'(lambda (buf marks)
1306 (ibuffer-toggle-filter-group)))))
1308 ;; Still not found even though we expanded all hidden filter
1315 (defun ibuffer-diff-with-file ()
1319 (let ((buf (ibuffer-current-buffer)))
1325 (defun ibuffer-copy-filename-as-kill (&optional arg)
1334 to `ibuffer-default-directory' iff non-nil, otherwise `default-directory'.
1338 (if (zerop (ibuffer-count-marked-lines))
1340 (let ((ibuffer-copy-filename-as-kill-result "")
1347 (ibuffer-map-marked-lines
1349 (setq ibuffer-copy-filename-as-kill-result
1350 (concat ibuffer-copy-filename-as-kill-result
1358 name (or ibuffer-default-directory
1364 (kill-new ibuffer-copy-filename-as-kill-result))))
1366 (defun ibuffer-mark-on-buffer (func &optional ibuffer-mark-on-buffer-mark group)
1368 (ibuffer-map-lines
1371 (ibuffer-set-mark-1 (or ibuffer-mark-on-buffer-mark
1372 ibuffer-marked-char))
1376 (ibuffer-redisplay t)
1380 (defun ibuffer-mark-by-name-regexp (regexp)
1383 (ibuffer-mark-on-buffer
1388 (defun ibuffer-mark-by-mode-regexp (regexp)
1391 (ibuffer-mark-on-buffer
1397 (defun ibuffer-mark-by-file-name-regexp (regexp)
1400 (ibuffer-mark-on-buffer
1402 (let ((name (or (buffer-file-name buf)
1412 (defun ibuffer-mark-by-mode (mode)
1422 (let ((buf (ibuffer-current-buffer)))
1428 (ibuffer-mark-on-buffer
1434 (defun ibuffer-mark-modified-buffers ()
1437 (ibuffer-mark-on-buffer
1441 (defun ibuffer-mark-unsaved-buffers ()
1444 (ibuffer-mark-on-buffer
1449 (defun ibuffer-mark-dissociated-buffers ()
1452 (ibuffer-mark-on-buffer
1455 (or
1464 (defun ibuffer-mark-help-buffers ()
1467 (ibuffer-mark-on-buffer
1470 (memq major-mode ibuffer-help-buffer-modes)))))
1473 (defun ibuffer-mark-compressed-file-buffers ()
1476 (ibuffer-mark-on-buffer
1480 (string-match ibuffer-compressed-file-name-regexp
1484 (defun ibuffer-mark-old-buffers ()
1485 "Mark buffers which have not been viewed in `ibuffer-old-time' days."
1487 (ibuffer-mark-on-buffer
1499 (> (- now then) (* 60 60 ibuffer-old-time))))))))
1502 (defun ibuffer-mark-special-buffers ()
1505 (ibuffer-mark-on-buffer
1510 (defun ibuffer-mark-read-only-buffers ()
1513 (ibuffer-mark-on-buffer
1519 (defun ibuffer-mark-dired-buffers ()
1522 (ibuffer-mark-on-buffer
1528 (defun ibuffer-do-occur (regexp &optional nlines)
1533 (if (or (not (integerp nlines))
1536 (when (zerop (ibuffer-count-marked-lines))
1537 (ibuffer-set-mark ibuffer-marked-char))
1538 (let ((ibuffer-do-occur-bufs nil))
1540 (ibuffer-map-marked-lines
1542 (push buf ibuffer-do-occur-bufs)))
1543 (occur-1 regexp nlines ibuffer-do-occur-bufs)))