Lines Matching +defs:auto +defs:mode +defs:list
51 (defun ibuffer-remove-duplicates (list)
54 (tail list))
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)))
69 (list (nreverse hip-crowd) (nreverse lamers))))
72 "A list of predicates (a regexp or function) for buffers not to display.
81 "A list of predicates (a regexp or function) for buffers to always display.
91 "A list of regexps which should match buffer names to not show.")
94 "A list of regexps which should match buffer names to always show.")
96 (defvar ibuffer-auto-mode nil
97 "If non-nil, Ibuffer auto-mode should be enabled for this buffer.
99 `ibuffer-auto-mode' instead.")
101 (defvar ibuffer-auto-buffers-changed nil)
104 ((or (mode . message-mode)
105 (mode . mail-mode)
106 (mode . gnus-group-mode)
107 (mode . gnus-summary-mode)
108 (mode . gnus-article-mode))))
110 ((or (mode . emacs-lisp-mode)
111 (mode . cperl-mode)
112 (mode . c-mode)
113 (mode . java-mode)
114 (mode . idl-mode)
115 (mode . lisp-mode)))))
121 QUALIFIERS is a list of the same form as
130 "A list like (SYMBOL . QUALIFIER) which filters the current buffer list.
151 major mode is `emacs-lisp-mode', you only want to see the mark and the
153 (mode ((mark \" \" name)))
155 :type '(repeat (list :tag "Association" (symbol :tag "Filter")
156 (list :tag "Formats" (repeat (sexp :tag "Format")))))
163 "A list like ((\"NAME\" ((SYMBOL . QUALIFIER) ...) ...) which groups buffers.
178 QUALIFIERS is a list of the same form as
189 "A list of filtering groups which are currently hidden.")
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))
233 (buffer-list))))
236 (defun ibuffer-auto-mode (&optional arg)
237 "Toggle use of Ibuffer's auto-update facility.
238 With numeric ARG, enable auto-update if and only if ARG is positive."
240 (unless (eq major-mode 'ibuffer-mode)
241 (error "This buffer is not in 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."
264 (if (assq 'mode ibuffer-filtering-qualifiers)
266 (ibuffer-delete-alist 'mode ibuffer-filtering-qualifiers))
267 (ibuffer-push-filter (cons 'mode
269 major-mode)))))
374 (list
387 (list
424 (list from-str to-str))
526 (list (cons "Default" nil))))))
535 (ibuffer-split-list (lambda (bufmark)
560 (defun ibuffer-set-filter-groups-by-mode ()
561 "Set the current filter groups to filter by mode."
564 (mapcar (lambda (mode)
565 (cons (format "%s" mode) `((mode . ,mode))))
569 (with-current-buffer buf major-mode))
570 (buffer-list)))))
573 (delq 'ibuffer-mode modes)))))
592 ;; We add `ibuffer-hidden-filter-groups' to the list, excluding
596 (ibuffer-current-state-list)
608 (list (ibuffer-read-filter-group-name "Decompose filter group: " t)))
643 (list (ibuffer-read-filter-group-name "Jump to filter group: ")))
652 (interactive (list (ibuffer-read-filter-group-name "Kill filter group: " t)))
691 (nconc ibuffer-filter-groups (list newgroup))))
711 (interactive (list (ibuffer-read-filter-group-name
729 (list
736 (ibuffer-update-mode-name))
743 (list
760 (list
800 be a complex filter like (OR [name: foo] [mode: bar-mode]), will be
801 turned into two separate filters [name: foo] and [mode: bar-mode]."
874 (push (nconc (list 'or first) (cdr second))
876 (push (list 'or first second)
897 (list
902 (push (list name filters) ibuffer-saved-filters))
904 (ibuffer-update-mode-name))
910 (list
924 (list
938 (list
943 (setq ibuffer-filtering-qualifiers (list (cons 'saved name)))
972 (defun ibuffer-list-buffer-modes ()
974 The list returned will be of the form (\"MODE-NAME\" . MODE-SYMBOL)."
975 (let ((bufs (buffer-list))
977 (this-mode))
979 (setq this-mode
982 major-mode)
984 (add-to-list
986 `(,(symbol-name this-mode) .
987 ,this-mode)))
993 ;;;###autoload (autoload 'ibuffer-filter-by-mode "ibuf-ext")
994 (define-ibuffer-filter mode
995 "Toggle current view to buffers with major mode QUALIFIER."
996 (:description "major mode"
999 (completing-read "Filter by major mode: " obarray
1001 (string-match "-mode$"
1007 (symbol-name major-mode))
1009 (eq qualifier (with-current-buffer buf major-mode)))
1011 ;;;###autoload (autoload 'ibuffer-filter-by-used-mode "ibuf-ext")
1012 (define-ibuffer-filter used-mode
1013 "Toggle current view to buffers with major mode QUALIFIER.
1016 (:description "major mode in use"
1019 (completing-read "Filter by major mode: "
1020 (ibuffer-list-buffer-modes)
1026 (symbol-name major-mode))
1028 (eq qualifier (with-current-buffer buf major-mode)))
1092 (defun ibuffer-toggle-sorting-mode ()
1093 "Toggle the current sorting mode.
1097 Major Mode - the name of the major mode of the buffer
1101 (add-to-list 'modes 'recency)
1103 (let ((next (or (car-safe (cdr-safe (memq ibuffer-sorting-mode modes)))
1105 (setq ibuffer-sorting-mode next)
1120 ;;;###autoload (autoload 'ibuffer-do-sort-by-major-mode "ibuf-ext")
1121 (define-ibuffer-sorter major-mode
1124 (:description "major mode")
1128 major-mode)))
1132 major-mode)))))
1134 ;;;###autoload (autoload 'ibuffer-do-sort-by-mode-name "ibuf-ext")
1135 (define-ibuffer-sorter mode-name
1136 "Sort the buffers by their mode name.
1138 (:description "major mode name")
1142 mode-name))
1146 mode-name))))
1191 (list
1202 (list
1266 visible buffers in the completion list. Calling the command with
1268 (interactive (list
1275 (ibuffer-current-state-list))))
1388 (defun ibuffer-mark-by-mode-regexp (regexp)
1389 "Mark all buffers whose major mode matches REGEXP."
1390 (interactive "sMark by major mode (regexp): ")
1394 (string-match regexp mode-name)))))
1412 (defun ibuffer-mark-by-mode (mode)
1413 "Mark all buffers whose major mode equals MODE."
1415 (list (intern (completing-read "Mark by major mode: " obarray
1419 (string-match "-mode$"
1425 (cons (symbol-name major-mode)
1431 (eq major-mode mode)))))
1458 (and (eq major-mode 'dired-mode)
1470 (memq major-mode ibuffer-help-buffer-modes)))))
1525 (eq major-mode 'dired-mode)))))
1539 ;; Accumulate a list of marked buffers