emacs/lisp/ibuffer.el

11 ;; This file is part of GNU Emacs.
24 ;; along with this program ; see the file COPYING.  If not, write to
129 to your ~/.emacs file.
145     (15 (and buffer-file-name
146 	     (string-match ibuffer-compressed-file-name-regexp
147 			   buffer-file-name))
151 	     (null buffer-file-name))
170 (defcustom ibuffer-use-other-window nil
201 view of the buffers."
202   :type '(choice (const :tag "Last view time" :value recency)
230 						   (null buffer-file-name))))
284 (defcustom ibuffer-view-ibuffer nil
327 (defcustom ibuffer-compressed-file-name-regexp
329   "Regexp to match compressed file names."
373   "An alist of file name abbreviations like `directory-abbrev-alist'."
402     (define-key map (kbd "=") 'ibuffer-diff-with-file)
416     (define-key map (kbd "* z") 'ibuffer-mark-compressed-file-buffers)
486     (define-key map (kbd "% f") 'ibuffer-mark-by-file-name-regexp)
491     (define-key map (kbd "!") 'ibuffer-do-shell-command-file)
494     (define-key map (kbd "A") 'ibuffer-do-view)
497     (define-key map (kbd "F") 'ibuffer-do-shell-command-file)
499     (define-key map (kbd "H") 'ibuffer-do-view-other-frame)
510     (define-key map (kbd "W") 'ibuffer-do-view-and-eval)
519     (define-key map (kbd "C-x C-f") 'ibuffer-find-file)
520     (define-key map (kbd "o") 'ibuffer-visit-buffer-other-window)
521     (define-key map (kbd "C-o") 'ibuffer-visit-buffer-other-window-noselect)
523     (define-key map (kbd "v") 'ibuffer-do-view)
524     (define-key map (kbd "C-x v") 'ibuffer-do-view-horizontally)
526     (define-key map (kbd "C-x 4 RET") 'ibuffer-visit-buffer-other-window)
527     (define-key map (kbd "C-x 5 RET") 'ibuffer-visit-buffer-other-frame)
529     (define-key map [menu-bar view]
532     (define-key-after map [menu-bar view visit-buffer]
534     (define-key-after map [menu-bar view visit-buffer-other-window]
535       '(menu-item "View (other window)" ibuffer-visit-buffer-other-window))
536     (define-key-after map [menu-bar view visit-buffer-other-frame]
537       '(menu-item "View (other frame)" ibuffer-visit-buffer-other-frame))
538     (define-key-after map [menu-bar view ibuffer-update]
541     (define-key-after map [menu-bar view switch-format]
545     (define-key-after map [menu-bar view dashes]
548     (define-key-after map [menu-bar view sort]
551     (define-key-after map [menu-bar view sort do-sort-by-major-mode]
553     (define-key-after map [menu-bar view sort do-sort-by-size]
555     (define-key-after map [menu-bar view sort do-sort-by-alphabetic]
558     (define-key-after map [menu-bar view sort do-sort-by-recency]
559       '(menu-item "Sort by view time" ibuffer-do-sort-by-recency
561     (define-key-after map [menu-bar view sort dashes]
563     (define-key-after map [menu-bar view sort invert-sorting]
565     (define-key-after map [menu-bar view sort toggle-sorting-mode]
569     (define-key-after map [menu-bar view filter]
572     (define-key-after map [menu-bar view filter filter-disable]
575     (define-key-after map [menu-bar view filter filter-by-mode]
577     (define-key-after map [menu-bar view filter filter-by-mode]
579     (define-key-after map [menu-bar view filter filter-by-name]
581     (define-key-after map [menu-bar view filter filter-by-filename]
583     (define-key-after map [menu-bar view filter filter-by-size-lt]
585     (define-key-after map [menu-bar view filter filter-by-size-gt]
587     (define-key-after map [menu-bar view filter filter-by-content]
589     (define-key-after map [menu-bar view filter filter-by-predicate]
591     (define-key-after map [menu-bar view filter pop-filter]
594     (define-key-after map [menu-bar view filter or-filter]
599     (define-key-after map [menu-bar view filter negate-filter]
602     (define-key-after map [menu-bar view filter decompose-filter]
606     (define-key-after map [menu-bar view filter exchange-filters]
610     (define-key-after map [menu-bar view filter save-filters]
614     (define-key-after map [menu-bar view filter switch-to-saved-filters]
618     (define-key-after map [menu-bar view filter add-saved-filters]
622     (define-key-after map [menu-bar view filter delete-saved-filters]
681     (define-key-after map [menu-bar view filter-groups]
684     (define-key-after map [menu-bar view dashes2]
686     (define-key-after map [menu-bar view diff-with-file]
687       '(menu-item "Diff with file" ibuffer-diff-with-file
688 		  :help "View the differences between this buffer and its file"))
689     (define-key-after map [menu-bar view auto-mode]
692     (define-key-after map [menu-bar view customize]
716 		  :help "Mark all buffers which have a file and are modified"))
728 		  :help "Mark buffers with a non-existent associated file"))
732     (define-key-after map [menu-bar mark mark-compressed-file-buffers]
733       '(menu-item "Mark compressed file buffers" ibuffer-mark-compressed-file-buffers
734 		  :help "Mark buffers which have a file that is compressed"))
750     (define-key-after map [menu-bar mark mark-by-file-name-regexp]
751       '(menu-item "Mark by file name (regexp)..." ibuffer-mark-by-file-name-regexp
752 		  :help "Mark buffers whose file name matches a regexp"))
756     (define-key-after operate-map [do-view]
757       '(menu-item "View" ibuffer-do-view))
758     (define-key-after operate-map [do-view-other-frame]
759       '(menu-item "View (separate frame)" ibuffer-do-view-other-frame))
777 		  :help "Revert marked buffers to their associated file"))
792     (define-key-after operate-map [do-shell-command-file]
793       '(menu-item "Shell command on buffer's file..." ibuffer-do-shell-command-file
794 		  :help "For each marked buffer, run a shell command with its file as argument"))
798     (define-key-after operate-map [do-view-and-eval]
799       '(menu-item "Eval (viewing buffer)..." ibuffer-do-view-and-eval
921 (defun ibuffer-find-file (file &optional wildcards)
922   "Like `find-file', but default to the directory of the buffer at point."
929      (list (read-file-name "Find file: " default-directory)
931   (find-file file wildcards))
1043       (delete-other-windows))))
1045 (defun ibuffer-visit-buffer-other-window (&optional noselect)
1054       (switch-to-buffer-other-window buf))))
1056 (defun ibuffer-visit-buffer-other-window-noselect ()
1059   (ibuffer-visit-buffer-other-window t))
1061 (defun ibuffer-visit-buffer-other-frame ()
1062   "Visit the buffer on this line in another frame."
1066     (switch-to-buffer-other-frame buf)))
1069   "Visit the buffer on this line, and delete other windows."
1085   (let ((file (buffer-file-name (ibuffer-current-buffer t))))
1086     (if file
1087 	(visit-tags-table file)
1088       (error "Specified buffer has no file"))))
1090 (defun ibuffer-do-view (&optional other-frame)
1093 marked buffer in a new frame.  Otherwise, display each buffer as
1094 a new window in the current frame, splitting vertically."
1096   (ibuffer-do-view-1 (if other-frame 'other-frame 'vertically)))
1098 (defun ibuffer-do-view-horizontally (&optional other-frame)
1099   "As `ibuffer-do-view', but split windows horizontally."
1101   (ibuffer-do-view-1 (if other-frame 'other-frame 'horizontally)))
1103 (defun ibuffer-do-view-1 (type)
1107     (unless (and (eq type 'other-frame)
1110 		 (not (y-or-n-p (format "Really create a new frame for %s buffers? "
1113       (delete-other-windows)
1115       (let ((height (/ (1- (if (eq type 'horizontally) (frame-width)
1116 			     (frame-height)))
1118 	(mapcar (if (eq type 'other-frame)
1120 			(let ((curframe (selected-frame)))
1121 			  (select-frame (make-frame))
1123 			  (select-frame curframe)))
1126 		      (other-window 1)
1130 (defun ibuffer-do-view-other-frame ()
1131   "View each of the marked buffers in a separate frame."
1133   (ibuffer-do-view t))
1140   (fit-window-to-buffer nil (when owin (/ (frame-height)
1141 					  (length (window-list (selected-frame)))))))
1229 	       buffer-file-name))
1231 	;; for a file name
1300 In other words, unmarked buffers become marked, and marked buffers
1736 	     ((= 1 total) "1 file")
1739     (abbreviate-file-name
1740      (or buffer-file-name
1761 		     ((= 1 files) "1 file")
1970        (or ibuffer-view-ibuffer
1977   "Sort the buffers by last view time."
2096 					    "view time")))
2284 buffers which are visiting a file."
2290 (defun ibuffer-other-window (&optional files-only)
2293 buffers which are visiting a file."
2299 (defun ibuffer (&optional other-window-p name qualifiers noselect
2318   (when ibuffer-use-other-window
2319     (setq other-window-p t))
2322     (if other-window-p
2332 	(setq ibuffer-restore-window-config-on-quit other-window-p)
2358 currently open buffers, in addition to filtering your view to a
2364   '\\[ibuffer-do-view]' - View the marked buffers in this frame.
2365   '\\[ibuffer-do-view-other-frame]' - View the marked buffers in another frame.
2380   '\\[ibuffer-do-shell-command-file]' - Run a shell command with the
2381           buffer's file as an argument.
2386   '\\[ibuffer-do-view-and-eval]' - As above, but view each buffer while the form
2403           This means that the buffer is modified, and has an associated file.
2405           regardless of whether or not they have an associated file.
2409           an associated file, but that file doesn't currently exist.
2417   '\\[ibuffer-mark-by-file-name-regexp]' - Mark buffers by their filename, using a regexp.
2469   '\\[ibuffer-diff-with-file]' - View the differences between this buffer
2470           and its associated file.
2472   '\\[ibuffer-visit-buffer-other-window]' - As above, but in another window.
2473   '\\[ibuffer-visit-buffer-other-window-noselect]' - As both above, but don't select
2479  You can filter your ibuffer view via different critera.  Each Ibuffer