emacs/lisp/ibuffer.el

45 (defvar ibuffer-auto-mode)
69 				   " " (mode 16 16 :left :elide) " " filename-and-process)
71   "A list of ways to display buffer lines.
74 attributes of a buffer such as size, name, and mode in a particular
82 Each element in `ibuffer-formats' should be a list containing COLUMN
86        mark modified read-only name size mode process filename
132 the specified formats in the list."
153     (30 (memq major-mode ibuffer-help-buffer-modes) font-lock-comment-face)
154     (35 (eq major-mode 'dired-mode) font-lock-function-name-face))
165 	  (list (integer :tag "Priority")
196 (defcustom ibuffer-default-sorting-mode 'recency
205 		 (const :tag "Major mode" :value major-mode))
207 (defvar ibuffer-sorting-mode nil)
231   "A list of predicates for buffers to display conditionally.
322   '(help-mode apropos-mode Info-mode Info-edit-mode)
340 (defcustom ibuffer-mode-hook nil
341   "Hook run upon entry into `ibuffer-mode'."
344 (define-obsolete-variable-alias 'ibuffer-mode-hooks
345                                 'ibuffer-mode-hook "22.1")
381 (defvar ibuffer-mode-map nil)
382 (defvar ibuffer-mode-operate-map nil)
383 (defvar ibuffer-mode-groups-popup nil)
384 (unless ibuffer-mode-map
408     (define-key map (kbd "* M") 'ibuffer-mark-by-mode)
438     (define-key map (kbd ",") 'ibuffer-toggle-sorting-mode)
443     (define-key map (kbd "s m") 'ibuffer-do-sort-by-major-mode)
445     (define-key map (kbd "/ m") 'ibuffer-filter-by-mode)
446     (define-key map (kbd "/ M") 'ibuffer-filter-by-used-mode)
481     (define-key map (kbd "h") 'describe-mode)
482     (define-key map (kbd "?") 'describe-mode)
485     (define-key map (kbd "% m") 'ibuffer-mark-by-mode-regexp)
525     (define-key map (kbd "C-c C-a") 'ibuffer-auto-mode)
540 		  :help "Regenerate the list of buffers"))
551     (define-key-after map [menu-bar view sort do-sort-by-major-mode]
552       '(menu-item "Sort by major mode" ibuffer-do-sort-by-major-mode))
565     (define-key-after map [menu-bar view sort toggle-sorting-mode]
566       '(menu-item "Switch sorting mode" ibuffer-toggle-sorting-mode
575     (define-key-after map [menu-bar view filter filter-by-mode]
576       '(menu-item "Add filter by major mode..." ibuffer-filter-by-mode))
577     (define-key-after map [menu-bar view filter filter-by-mode]
578       '(menu-item "Add filter by major mode in use..." ibuffer-filter-by-used-mode))
677     (define-key-after groups-map [set-filter-groups-by-mode]
678       '(menu-item "Set current filter groups to filter by mode"
679 		  ibuffer-set-filter-groups-by-mode))
689     (define-key-after map [menu-bar view auto-mode]
690       '(menu-item "Toggle Auto Mode" ibuffer-auto-mode
708     (define-key-after map [menu-bar mark mark-by-mode]
709       '(menu-item "Mark by mode..." ibuffer-mark-by-mode
710 		  :help "Mark all buffers in a particular major mode"))
725 		  :help "Mark buffers in dired-mode"))
731 		  :help "Mark buffers in help-mode"))
747     (define-key-after map [menu-bar mark mark-by-mode-regexp]
748       '(menu-item "Mark by major mode (regexp)..." ibuffer-mark-by-mode-regexp
749 		  :help "Mark buffers whose major mode name matches a regexp"))
802     (setq ibuffer-mode-map map
803 	  ibuffer-mode-operate-map operate-map
804 	  ibuffer-mode-groups-popup (copy-keymap groups-map))))
806 (define-key ibuffer-mode-groups-popup [kill-filter-group]
811 (define-key ibuffer-mode-groups-popup [yank-filter-group]
824 (defvar ibuffer-mode-name-map
826     (define-key map [(mouse-2)] 'ibuffer-mouse-filter-by-mode)
827     (define-key map (kbd "RET") 'ibuffer-interactive-filter-by-mode)
840 (defvar ibuffer-mode-header-map
842     (define-key map [(mouse-1)] 'ibuffer-do-sort-by-major-mode)
845 (defvar ibuffer-mode-filter-group-map
879 (defun ibuffer-columnize-and-insert-list (list &optional pad-width)
886 	(max (+ (apply #'max (mapcar #'length list))
891       (while list
893 	  (insert (concat (car list) (make-string (- max (length (car list)))
895 	  (setq list (cdr list)))
896 	(when (not (null list))
897 	  (insert (pop list)))
929      (list (read-file-name "Find file: " default-directory)
950 	      (popup-menu ibuffer-mode-groups-popup))
959 		(popup-menu ibuffer-mode-operate-map)))))
979   "Move backwards ARG lines, wrapping around the list if necessary."
1003   "Move forward ARG lines, wrapping around the list if necessary."
1106       (setq marked-bufs (list (ibuffer-current-buffer t))))
1141 					  (length (window-list (selected-frame)))))))
1152 	    (ibuffer-columnize-and-insert-list names)
1155 	  (let ((lastwin (car (last (window-list nil 'nomini)))))
1341   (assert (eq major-mode 'ibuffer-mode))
1356   (assert (eq major-mode 'ibuffer-mode))
1367 		       (list (ibuffer-current-buffer)
1441 	  (list sym min max align elide)))
1485        ;; " ", mark, or (mode 16 16 :right).
1590 			   (append outforms (list (funcall insertgenfn 'str sym)))))
1608 		   (nconc (list 'lambda '(buffer mark))
1686 		'help-echo '(if tooltip-mode
1711 (define-ibuffer-column mode
1713    :header-mouse-map ibuffer-mode-header-map
1716 		'keymap ibuffer-mode-name-map
1717 		'help-echo "mouse-2: filter by this mode"))
1718   (format "%s" mode-name))
1802   (assert (eq major-mode 'ibuffer-mode))
1805     (put-text-property beg (point) 'ibuffer-properties (list buffer mark)))
1811   (assert (eq major-mode 'ibuffer-mode))
1845   (assert (eq major-mode 'ibuffer-mode))
1879 	      ;; `kill' means the remove line from the buffer list
1904   "Return a list of buffer objects currently marked."
1909 		(ibuffer-current-state-list))))
1911 (defun ibuffer-current-state-list (&optional pos)
1912   "Return a list like (BUF . MARK) of all buffers in an ibuffer.
1913 If POS is non-nil, return a list like (BUF MARK POINT), where POINT is
1915   (let ((ibuffer-current-state-list-tmp '()))
1922 	       (push (list buf mark (point)) ibuffer-current-state-list-tmp))))
1926 	     (push (cons buf mark) ibuffer-current-state-list-tmp)))))
1927     (nreverse ibuffer-current-state-list-tmp)))
1930   "Return a list like (BUF . MARK) of all open buffers."
1931   (let ((bufs (ibuffer-current-state-list)))
1979   (setq ibuffer-sorting-mode 'recency)
1991   (assert (eq major-mode 'ibuffer-mode))
2002   (assert (eq major-mode 'ibuffer-mode))
2093 (defun ibuffer-update-mode-name ()
2094   (setq mode-name (format "Ibuffer by %s" (if ibuffer-sorting-mode
2095 					      ibuffer-sorting-mode
2098     (setq mode-name (concat mode-name " [rev]")))
2100 	     ibuffer-auto-mode)
2101     (setq mode-name (concat mode-name " (Auto)")))
2111 					    (concat mode-name result))))
2113 	  (setq mode-name (concat mode-name result))
2118   "Redisplay the current list of buffers.
2125     (message "Redisplaying current buffer list..."))
2126   (let ((blist (ibuffer-current-state-list)))
2133     (ibuffer-update-mode-name)
2135       (message "Redisplaying current buffer list...done"))
2139   "Regenerate the list of all buffers.
2150   (let* ((bufs (buffer-list))
2168       (message "Updating buffer list..."))
2170     (ibuffer-update-mode-name)
2172       (message "Updating buffer list...done")))
2180   (let* ((sortdat (assq ibuffer-sorting-mode
2188       ;; perhaps reverse the sorted buffer list
2202      keymap ,ibuffer-mode-filter-group-map
2204      help-echo ,(let ((echo '(if tooltip-mode
2209 			       (if tooltip-mode "\n" " ")
2224   (assert (eq major-mode 'ibuffer-mode))
2236 		    (list (cons "Default" bmarklist)))))
2281 (defun ibuffer-list-buffers (&optional files-only)
2282   "Display a list of buffers, in another window.
2301   "Begin using Ibuffer to edit a list of buffers.
2330 	(or (eq major-mode 'ibuffer-mode)
2331 	    (ibuffer-mode))
2354 (put 'ibuffer-mode 'mode-class 'special)
2355 (defun ibuffer-mode ()
2356   "A major mode for viewing a list of buffers.
2401   '\\[ibuffer-mark-by-mode]' - Mark buffers by major mode.
2411   '\\[ibuffer-mark-dired-buffers]' - Mark buffers in `dired' mode.
2412   '\\[ibuffer-mark-help-buffers]' - Mark buffers in `help-mode', `apropos-mode', etc.
2416   '\\[ibuffer-mark-by-mode-regexp]' - Mark buffers by their major mode, using a regexp.
2421   '\\[ibuffer-filter-by-mode]' - Add a filter by major mode.
2422   '\\[ibuffer-filter-by-used-mode]' - Add a filter by major mode now in use.
2451   '\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes.
2456   '\\[ibuffer-do-sort-by-major-mode]' - Sort the buffers by major mode.
2460   '\\[ibuffer-update]' - Regenerate the list of all buffers.
2468   '\\[describe-mode]' - This help.
2483 '\\[ibuffer-filter-by-mode] emacs-lisp-mode RET'.  In this case, there
2489 you only want to see buffers in `emacs-lisp' mode, whose names begin
2491 '\\[ibuffer-filter-by-mode] emacs-lisp-mode RET
2496 `emacs-lisp-mode' or `lisp-interaction-mode', type:
2498 '\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filter-by-mode] lisp-interaction-mode RET \\[ibuffer-or-filters]'.
2518 '\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filters-to-filter-group] RET emacs lisp buffers RET'
2533   (use-local-map ibuffer-mode-map)
2534   (setq major-mode 'ibuffer-mode)
2535   (setq mode-name "Ibuffer")
2542   ;; disable `show-paren-mode' buffer-locally
2543   (if (bound-and-true-p show-paren-mode)
2544       (set (make-local-variable 'show-paren-mode) nil))
2547   (set (make-local-variable 'ibuffer-sorting-mode)
2548        ibuffer-default-sorting-mode)
2568   (define-key ibuffer-mode-map [menu-bar edit] 'undefined)
2569   (define-key ibuffer-mode-map [menu-bar operate] (cons "Operate" ibuffer-mode-operate-map))
2573   (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
2574   (run-mode-hooks 'ibuffer-mode-hook)
2575   ;; called after mode hooks to allow the user to add filters
2576   (ibuffer-update-mode-name))