Lines Matching +refs:dired +refs:mark +refs:files +refs:regexp
1 ;;; ibuffer.el --- operate on buffers like dired
39 (require 'dired))
67 (defcustom ibuffer-formats '((mark modified read-only " " (name 18 18 :left :elide)
70 (mark " " (name 16 -1) " " filename))
86 mark modified read-only name size mode process filename
90 The first argument is the buffer object, and the second is the mark
110 (mark \" \" name)
111 This format just displays the current mark (if any) and the name of
113 (mark modified read-only \" \" (name 16 16 :left) \" \" (size 6 -1 :right))
114 This format displays the current mark (if any), its modification and
125 (setq ibuffer-formats '((mark \" \" name)
126 (mark modified read-only
146 (string-match ibuffer-compressed-file-name-regexp
154 (35 (eq major-mode 'dired-mode) font-lock-function-name-face))
233 A predicate can be a regexp or a function.
234 If a regexp, then it will be matched against the buffer's name.
242 :type '(repeat (choice regexp function))
327 (defcustom ibuffer-compressed-file-name-regexp
330 :type 'regexp
376 (regexp :tag "From")
377 (regexp :tag "To")))
399 (define-key map (kbd "m") 'ibuffer-mark-forward)
408 (define-key map (kbd "* M") 'ibuffer-mark-by-mode)
409 (define-key map (kbd "* m") 'ibuffer-mark-modified-buffers)
410 (define-key map (kbd "* u") 'ibuffer-mark-unsaved-buffers)
411 (define-key map (kbd "* s") 'ibuffer-mark-special-buffers)
412 (define-key map (kbd "* r") 'ibuffer-mark-read-only-buffers)
413 (define-key map (kbd "* /") 'ibuffer-mark-dired-buffers)
414 (define-key map (kbd "* e") 'ibuffer-mark-dissociated-buffers)
415 (define-key map (kbd "* h") 'ibuffer-mark-help-buffers)
416 (define-key map (kbd "* z") 'ibuffer-mark-compressed-file-buffers)
417 (define-key map (kbd ".") 'ibuffer-mark-old-buffers)
419 (define-key map (kbd "d") 'ibuffer-mark-for-delete)
420 (define-key map (kbd "C-d") 'ibuffer-mark-for-delete-backwards)
421 (define-key map (kbd "k") 'ibuffer-mark-for-delete)
484 (define-key map (kbd "% n") 'ibuffer-mark-by-name-regexp)
485 (define-key map (kbd "% m") 'ibuffer-mark-by-mode-regexp)
486 (define-key map (kbd "% f") 'ibuffer-mark-by-file-name-regexp)
498 (define-key map (kbd "I") 'ibuffer-do-query-replace-regexp)
508 (define-key map (kbd "U") 'ibuffer-do-replace-regexp)
588 '(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content))
696 (define-key-after map [menu-bar mark]
699 (define-key-after map [menu-bar mark toggle-marks]
701 :help "Unmark marked buffers, and mark unmarked buffers"))
702 (define-key-after map [menu-bar mark mark-forward]
703 '(menu-item "Mark" ibuffer-mark-forward
705 (define-key-after map [menu-bar mark unmark-forward]
708 (define-key-after map [menu-bar mark mark-by-mode]
709 '(menu-item "Mark by mode..." ibuffer-mark-by-mode
711 (define-key-after map [menu-bar mark mark-modified-buffers]
712 '(menu-item "Mark modified buffers" ibuffer-mark-modified-buffers
714 (define-key-after map [menu-bar mark mark-unsaved-buffers]
715 '(menu-item "Mark unsaved buffers" ibuffer-mark-unsaved-buffers
717 (define-key-after map [menu-bar mark mark-read-only-buffers]
718 '(menu-item "Mark read-only buffers" ibuffer-mark-read-only-buffers
720 (define-key-after map [menu-bar mark mark-special-buffers]
721 '(menu-item "Mark special buffers" ibuffer-mark-special-buffers
723 (define-key-after map [menu-bar mark mark-dired-buffers]
724 '(menu-item "Mark dired buffers" ibuffer-mark-dired-buffers
725 :help "Mark buffers in dired-mode"))
726 (define-key-after map [menu-bar mark mark-dissociated-buffers]
727 '(menu-item "Mark dissociated buffers" ibuffer-mark-dissociated-buffers
729 (define-key-after map [menu-bar mark mark-help-buffers]
730 '(menu-item "Mark help buffers" ibuffer-mark-help-buffers
732 (define-key-after map [menu-bar mark mark-compressed-file-buffers]
733 '(menu-item "Mark compressed file buffers" ibuffer-mark-compressed-file-buffers
735 (define-key-after map [menu-bar mark mark-old-buffers]
736 '(menu-item "Mark old buffers" ibuffer-mark-old-buffers
738 (define-key-after map [menu-bar mark unmark-all]
741 (define-key-after map [menu-bar mark dashes]
744 (define-key-after map [menu-bar mark mark-by-name-regexp]
745 '(menu-item "Mark by buffer name (regexp)..." ibuffer-mark-by-name-regexp
746 :help "Mark buffers whose name matches a regexp"))
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"))
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"))
762 (define-key-after operate-map [do-replace-regexp]
763 '(menu-item "Replace (regexp)..." ibuffer-do-replace-regexp
768 (define-key-after operate-map [do-query-replace-regexp]
769 '(menu-item "Query Replace (regexp)..." ibuffer-do-query-replace-regexp
770 :help "Replace text in marked buffers by regexp, asking each time"))
785 :help "View all lines in marked buffers matching a regexp"))
819 (define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
847 (define-key map [(mouse-1)] 'ibuffer-mouse-toggle-mark)
900 (defsubst ibuffer-current-mark ()
904 (defun ibuffer-mouse-toggle-mark (event)
914 (let ((mark (ibuffer-current-mark)))
916 (if (eq mark ibuffer-marked-char)
917 (ibuffer-set-mark ?\s)
918 (ibuffer-set-mark ibuffer-marked-char)))))
957 (ibuffer-set-mark ibuffer-marked-char))
1136 (prog1 (ibuffer-map-on-mark ibuffer-marked-char func)
1190 (defun ibuffer-buffer-names-with-mark (mark)
1191 (let ((ibuffer-buffer-names-with-mark-result nil))
1194 (when (char-equal mark mk)
1196 ibuffer-buffer-names-with-mark-result))))
1197 ibuffer-buffer-names-with-mark-result))
1200 (ibuffer-buffer-names-with-mark ibuffer-marked-char))
1203 (ibuffer-buffer-names-with-mark ibuffer-deletion-char))
1208 #'(lambda (buf mark)
1209 (not (char-equal mark ?\s))))
1211 #'(lambda (buf mark)
1212 (char-equal mark ibuffer-marked-char)))))
1216 #'(lambda (buf mark)
1217 (char-equal mark ibuffer-deletion-char))))
1220 (ibuffer-map-on-mark ibuffer-deletion-char func))
1268 :mark :deletion
1274 (defun ibuffer-unmark-all (mark)
1275 "Unmark all buffers with mark MARK."
1278 (message "No buffers marked; use 'm' to mark a buffer")
1280 ((char-equal mark ibuffer-marked-char)
1282 #'(lambda (buf mark)
1283 (ibuffer-set-mark-1 ?\s)
1285 ((char-equal mark ibuffer-deletion-char)
1287 #'(lambda (buf mark)
1288 (ibuffer-set-mark-1 ?\s)
1292 #'(lambda (buf mark)
1293 (when (not (char-equal mark ?\s))
1294 (ibuffer-set-mark-1 ?\s))
1309 #'(lambda (buf mark)
1310 (cond ((eq mark ibuffer-marked-char)
1311 (ibuffer-set-mark-1 ?\s)
1313 ((eq mark ?\s)
1314 (ibuffer-set-mark-1 ibuffer-marked-char)
1322 (defun ibuffer-mark-forward (arg)
1326 (ibuffer-mark-interactive arg ibuffer-marked-char 1))
1332 (ibuffer-mark-interactive arg ?\s 1))
1338 (ibuffer-mark-interactive arg ?\s -1))
1340 (defun ibuffer-mark-interactive (arg mark movement)
1347 (ibuffer-mark-on-buffer #'identity mark it))
1351 (ibuffer-set-mark mark)
1355 (defun ibuffer-set-mark (mark)
1358 (ibuffer-set-mark-1 mark)
1363 (defun ibuffer-set-mark-1 (mark)
1368 mark))))
1370 (defun ibuffer-mark-for-delete (arg)
1374 (ibuffer-mark-interactive arg ibuffer-deletion-char 1))
1376 (defun ibuffer-mark-for-delete-backwards (arg)
1380 (ibuffer-mark-interactive arg ibuffer-deletion-char -1))
1485 ;; " ", mark, or (mode 16 16 :right).
1544 `(,sym buffer mark)))
1608 (nconc (list 'lambda '(buffer mark))
1667 (define-ibuffer-column mark (:name " " :inline t)
1668 (string mark))
1687 "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer"
1688 "mouse-1: mark buffer mouse-2: select buffer mouse-3: operate"))
1695 (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark)))
1735 (cond ((zerop total) "No files")
1737 (t (format "%d files" total))))))
1741 (and (boundp 'dired-directory)
1742 (if (stringp dired-directory)
1743 dired-directory
1744 (car dired-directory)))
1753 (files 0))
1758 (setq files (1+ files))))
1759 (setq files (1+ files))))
1760 (concat (cond ((zerop files) "No files")
1761 ((= 1 files) "1 file")
1762 (t (format "%d files" files)))
1768 (filename (ibuffer-make-column-filename buffer mark)))
1785 (defun ibuffer-buffer-name-face (buf mark)
1786 (cond ((char-equal mark ibuffer-marked-char)
1788 ((char-equal mark ibuffer-deletion-char)
1800 (defun ibuffer-insert-buffer-line (buffer mark format)
1804 (funcall format buffer mark)
1805 (put-text-property beg (point) 'ibuffer-properties (list buffer mark)))
1820 (let ((mark (ibuffer-current-mark)))
1824 buf mark
1829 (defun ibuffer-map-on-mark (mark func)
1832 (if (char-equal mark mk)
1833 (funcall func buf mark)
1844 the buffer object itself and the current mark symbol."
1874 (ibuffer-current-mark))))
1920 #'(lambda (buf mark)
1922 (push (list buf mark (point)) ibuffer-current-state-list-tmp))))
1924 #'(lambda (buf mark)
1926 (push (cons buf mark) ibuffer-current-state-list-tmp)))))
2110 (replace-regexp-in-string "%" "%%"
2281 (defun ibuffer-list-buffers (&optional files-only)
2286 (ibuffer t nil (when files-only
2290 (defun ibuffer-other-window (&optional files-only)
2295 (ibuffer t nil (when files-only
2369 '\\[ibuffer-do-replace-regexp]' - Replace by regexp in each of the marked
2372 '\\[ibuffer-do-query-replace-regexp]' - As above, with a regular expression.
2375 a given regexp (like the function `occur').
2394 '\\[ibuffer-mark-forward]' - Mark the buffer at point.
2395 '\\[ibuffer-toggle-marks]' - Unmark all currently marked buffers, and mark
2401 '\\[ibuffer-mark-by-mode]' - Mark buffers by major mode.
2402 '\\[ibuffer-mark-unsaved-buffers]' - Mark all \"unsaved\" buffers.
2404 '\\[ibuffer-mark-modified-buffers]' - Mark all modified buffers,
2406 '\\[ibuffer-mark-special-buffers]' - Mark all buffers whose name begins and
2408 '\\[ibuffer-mark-dissociated-buffers]' - Mark all buffers which have
2410 '\\[ibuffer-mark-read-only-buffers]' - Mark all read-only buffers.
2411 '\\[ibuffer-mark-dired-buffers]' - Mark buffers in `dired' mode.
2412 '\\[ibuffer-mark-help-buffers]' - Mark buffers in `help-mode', `apropos-mode', etc.
2413 '\\[ibuffer-mark-old-buffers]' - Mark buffers older than `ibuffer-old-time'.
2414 '\\[ibuffer-mark-for-delete]' - Mark the buffer at point for deletion.
2415 '\\[ibuffer-mark-by-name-regexp]' - Mark buffers by their name, using a regexp.
2416 '\\[ibuffer-mark-by-mode-regexp]' - Mark buffers by their major mode, using a regexp.
2417 '\\[ibuffer-mark-by-file-name-regexp]' - Mark buffers by their filename, using a regexp.