emacs: lisp/ibuffer.el comparison

comparison lisp/ibuffer.el @ 44854:6cd35f994b33

(ibuffer-formats): Doc fix. (ibuffer-mode-map): Bind <up> to `ibuffer-backward-line'. Bind new functions from ibuf-ext.el. Add menu entries for them. Remove superfluous tooltips. (ibuffer-toggle-marks): If on a group name, then toggle marks just in that group. (ibuffer-mark-interactive): Handle filter groups. (ibuffer-mark-forward, ibuffer-unmark-forward) (ibuffer-mark-for-delete, ibuffer-unmark-backward) (ibuffer-mark-for-delete-backwards): Update docs. (ibuffer-current-filter-groups): Moved to ibuf-ext.el, and renamed to `ibuffer-current-filter-groups-with-position'. (ibuffer-redisplay-engine): Handle `ibuffer-show-empty-filter-groups'. (ibuffer-mode): Add some documentation about filter groups.

author	Colin Walters <walters@gnu.org>
date	Thu, 25 Apr 2002 19:03:12 +0000
parents	ce8cb080a127
children	ed308b745565

comparison

equal deleted inserted replaced

-:ca887baefc80
+:6cd35f994b33
 			     (mark " " (name 16 -1) " " filename))
 "A list of ways to display buffer lines.
 With Ibuffer, you are not limited to displaying just certain
 attributes of a buffer such as size, name, and mode in a particular
-fashion.  Through this variable, you can completely customize and
+order.  Through this variable, you can completely customize and
 control the appearance of an Ibuffer buffer.  See also
 `define-ibuffer-column', which allows you to define your own columns
 for display.
 This variable has the form
 (mark modified read-only \" \" (name 16 16 :left) \" \" (size 6 -1 :right))
 This format displays the current mark (if any), its modification and
 read-only status, as well as the name of the buffer and its size.  In
 this format, the name is restricted to 16 characters (longer names
 will be truncated, and shorter names will be padded with spaces), and
-the name is also aligned to the right.  The size of the buffer will
+the name is also aligned to the left.  The size of the buffer will
 be padded with spaces up to a minimum of six characters, but there is
 no upper limit on its size.  The size will also be aligned to the
 right.
 Thus, if you wanted to use these two formats, add
 ;; immediate operations
 (define-key map (kbd "n") 'ibuffer-forward-line)
 (define-key map (kbd "<down>") 'ibuffer-forward-line)
 (define-key map (kbd "SPC") 'forward-line)
 (define-key map (kbd "p") 'ibuffer-backward-line)
-(define-key map (kbd "<up>") 'ibuffer-forward-line)
+(define-key map (kbd "<up>") 'ibuffer-backward-line)
 (define-key map (kbd "M-}") 'ibuffer-forward-next-marked)
 (define-key map (kbd "M-{") 'ibuffer-backwards-next-marked)
 (define-key map (kbd "l") 'ibuffer-redisplay)
 (define-key map (kbd "g") 'ibuffer-update)
 (define-key map "`" 'ibuffer-switch-format)
 (define-key map (kbd "M-n") 'ibuffer-forward-filter-group)
 (define-key map (kbd "<right>") 'ibuffer-forward-filter-group)
 (define-key map (kbd "M-p") 'ibuffer-backward-filter-group)
 (define-key map (kbd "<left>") 'ibuffer-backward-filter-group)
 (define-key map (kbd "M-j") 'ibuffer-jump-to-filter-group)
+(define-key map (kbd "C-k") 'ibuffer-kill-line)
+(define-key map (kbd "C-y") 'ibuffer-yank)
+(define-key map (kbd "/ S") 'ibuffer-save-filter-groups)
+(define-key map (kbd "/ R") 'ibuffer-switch-to-saved-filter-groups)
+(define-key map (kbd "/ X") 'ibuffer-delete-saved-filter-groups)
+(define-key map (kbd "/ \\") 'ibuffer-clear-filter-groups)
 (define-key map (kbd "q") 'ibuffer-quit)
 (define-key map (kbd "h") 'describe-mode)
 (define-key map (kbd "?") 'describe-mode)
 (define-key-after map [menu-bar view sort]
 (cons "Sort" (make-sparse-keymap "Sort")))
 (define-key-after map [menu-bar view sort do-sort-by-major-mode]
-'(menu-item "Sort by major mode" ibuffer-do-sort-by-major-mode
+'(menu-item "Sort by major mode" ibuffer-do-sort-by-major-mode))
-		  :help "Sort by the alphabetic order of the buffer's major mode"))
 (define-key-after map [menu-bar view sort do-sort-by-size]
-'(menu-item "Sort by buffer size" ibuffer-do-sort-by-size
+'(menu-item "Sort by buffer size" ibuffer-do-sort-by-size))
-		  :help "Sort by the size of the buffer"))
 (define-key-after map [menu-bar view sort do-sort-by-alphabetic]
 '(menu-item "Sort lexicographically" ibuffer-do-sort-by-alphabetic
 		  :help "Sort by the alphabetic order of buffer name"))
 (define-key-after map [menu-bar view sort do-sort-by-recency]
 '(menu-item "Sort by view time" ibuffer-do-sort-by-recency
 (cons "Filter" (make-sparse-keymap "Filter")))
 (define-key-after map [menu-bar view filter filter-disable]
 '(menu-item "Disable all filtering" ibuffer-filter-disable))
 (define-key-after map [menu-bar view filter filter-by-mode]
-'(menu-item "Add filter by major mode..." ibuffer-filter-by-mode
+'(menu-item "Add filter by major mode..." ibuffer-filter-by-mode))
-		  :help "Show only buffers in a major mode"))
 (define-key-after map [menu-bar view filter filter-by-name]
-'(menu-item "Add filter by buffer name..." ibuffer-filter-by-name
+'(menu-item "Add filter by buffer name..." ibuffer-filter-by-name))
-		  :help "Show only buffers whose name matches a regexp"))
 (define-key-after map [menu-bar view filter filter-by-filename]
-'(menu-item "Add filter by filename..." ibuffer-filter-by-filename
+'(menu-item "Add filter by filename..." ibuffer-filter-by-filename))
-		  :help "Show only buffers whose filename matches a regexp"))
 (define-key-after map [menu-bar view filter filter-by-size-lt]
-'(menu-item "Add filter by size less than..." ibuffer-filter-by-size-lt
+'(menu-item "Add filter by size less than..." ibuffer-filter-by-size-lt))
-		  :help "Show only buffers of size less than..."))
 (define-key-after map [menu-bar view filter filter-by-size-gt]
-'(menu-item "Add filter by size greater than..." ibuffer-filter-by-size-gt
+'(menu-item "Add filter by size greater than..." ibuffer-filter-by-size-gt))
-		  :help "Show only buffers of size greater than..."))
 (define-key-after map [menu-bar view filter filter-by-content]
-'(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content
+'(menu-item "Add filter by content (regexp)..." ibuffer-filter-by-content))
-		  :help "Show only buffers containing a regexp"))
 (define-key-after map [menu-bar view filter filter-by-predicate]
-'(menu-item "Add filter by Lisp predicate..." ibuffer-filter-by-predicate
+'(menu-item "Add filter by Lisp predicate..." ibuffer-filter-by-predicate))
-		  :help "Show only buffers for which a predicate is true"))
 (define-key-after map [menu-bar view filter pop-filter]
 '(menu-item "Remove top filter" ibuffer-pop-filter))
 (define-key-after map [menu-bar view filter or-filter]
 '(menu-item "OR top two filters" ibuffer-or-filter
 		  :help "Create a new filter which is the logical OR of the top two filters"))
 (define-key-after map [menu-bar view filter switch-to-saved-filters]
 '(menu-item "Restore permanently saved filters..." ibuffer-switch-to-saved-filters
 		  :help "Replace current filters with a saved stack"))
 (define-key-after map [menu-bar view filter add-saved-filters]
 '(menu-item "Add to permanently saved filters..." ibuffer-add-saved-filters
-		  :help "Include current filters in an already saved stack"))
+		  :help "Include already saved stack with current filters"))
 (define-key-after map [menu-bar view filter delete-saved-filters]
-'(menu-item "Delete permanently saved filters..." ibuffer-delete-saved-filters
+'(menu-item "Delete permanently saved filters..."
-		  :help "Remove stack of filters from saved list"))
+		  ibuffer-delete-saved-filters))
 (define-key-after map [menu-bar view filter-groups]
 (cons "Filter Groups" (make-sparse-keymap "Filter Groups")))
 (define-key-after map [menu-bar view filter-groups filters-to-filter-group]
-'(menu-item "Make current filters into filter group"
+'(menu-item "Create filter group from current filters..."
 		  ibuffer-filters-to-filter-group))
+(define-key-after map [menu-bar view filter-groups forward-filter-group]
+'(menu-item "Move point to the next filter group"
+		  ibuffer-forward-filter-group))
+(define-key-after map [menu-bar view filter-groups backward-filter-group]
+'(menu-item "Move point to the previous filter group"
+		  ibuffer-backward-filter-group))
+(define-key-after map [menu-bar view filter-groups jump-to-filter-group]
+'(menu-item "Move point to a specific filter group..."
+		  ibuffer-jump-to-filter-group))
 (define-key-after map [menu-bar view filter-groups pop-filter-group]
 '(menu-item "Remove top filter group"
 		  ibuffer-pop-filter-group))
-(define-key-after map [menu-bar view filter-groups filters-to-filter-group]
+(define-key-after map [menu-bar view filter-groups clear-filter-groups]
-'(menu-item "Create filter group from current filters"
+'(menu-item "Remove all filter groups"
-		  ibuffer-filters-to-filter-group))
+		  ibuffer-clear-filter-groups))
+(define-key-after map [menu-bar view filter-groups save-filter-groups]
+'(menu-item "Save current filter groups permanently..."
+		  ibuffer-save-filter-groups
+		  :help "Use a mnemnonic name to store current filter groups"))
+(define-key-after map [menu-bar view filter-groups switch-to-saved-filter-groups]
+'(menu-item "Restore permanently saved filters..."
+		  ibuffer-switch-to-saved-filter-groups
+		  :help "Replace current filters with a saved stack"))
+(define-key-after map [menu-bar view filter-groups delete-saved-filter-groups]
+'(menu-item "Delete permanently saved filter groups..."
+		  ibuffer-delete-saved-filter-groups))
+(define-key-after map [menu-bar view filter-groups set-filter-groups-by-mode]
+'(menu-item "Set current filter groups to filter by mode"
+		  ibuffer-set-filter-groups-by-mode))
+;; FIXME add menu entries
+;;    (define-key map (kbd "C-k") 'ibuffer-kill-line)
+;;    (define-key map (kbd "C-y") 'ibuffer-yank)
 (define-key-after map [menu-bar view dashes2]
 '("--"))
 (define-key-after map [menu-bar view diff-with-file]
 '(menu-item "Diff with file" ibuffer-diff-with-file
 		  :help "View the differences between this buffer and its file"))
 (ibuffer-redisplay t))
 (defun ibuffer-toggle-marks (&optional group)
 "Toggle which buffers are marked.
 In other words, unmarked buffers become marked, and marked buffers
-become unmarked."
+become unmarked.
+If point is on a group name, then this function operates on that
+group."
 (interactive)
+(ibuffer-aif (get-text-property (point) 'ibuffer-filter-group-name)
+(setq group it))
 (let ((count
 	 (ibuffer-map-lines
 	  #'(lambda (buf mark)
 	      (cond ((eq mark ibuffer-marked-char)
 		     (ibuffer-set-mark-1 ? )
 	  nil group)))
 (message "%s buffers marked" count))
 (ibuffer-redisplay t))
 (defun ibuffer-mark-forward (arg)
-"Mark the buffer on this line, and move forward ARG lines."
+"Mark the buffer on this line, and move forward ARG lines.
+If point is on a group name, this function operates on that group."
 (interactive "P")
 (ibuffer-mark-interactive arg ibuffer-marked-char 1))
 (defun ibuffer-unmark-forward (arg)
-"Unmark the buffer on this line, and move forward ARG lines."
+"Unmark the buffer on this line, and move forward ARG lines.
+If point is on a group name, this function operates on that group."
 (interactive "P")
 (ibuffer-mark-interactive arg ?  1))
 (defun ibuffer-unmark-backward (arg)
-"Unmark the buffer on this line, and move backward ARG lines."
+"Unmark the buffer on this line, and move backward ARG lines.
+If point is on a group name, this function operates on that group."
 (interactive "P")
 (ibuffer-mark-interactive arg ?  -1))
 (defun ibuffer-mark-interactive (arg mark movement)
 (assert (eq major-mode 'ibuffer-mode))
 (unless arg
 (setq arg 1))
-(ibuffer-forward-line 0 t)
+(ibuffer-forward-line 0)
-(let ((inhibit-read-only t))
+(ibuffer-aif (get-text-property (point) 'ibuffer-filter-group-name)
-(while (> arg 0)
+(progn
-(ibuffer-set-mark mark)
+	(require 'ibuf-ext)
-(ibuffer-forward-line movement t)
+	(ibuffer-mark-on-buffer #'identity mark it))
-(setq arg (1- arg)))))
+(ibuffer-forward-line 0 t)
+(let ((inhibit-read-only t))
+(while (> arg 0)
+	(ibuffer-set-mark mark)
+	(ibuffer-forward-line movement t)
+	(setq arg (1- arg))))))
 (defun ibuffer-set-mark (mark)
 (assert (eq major-mode 'ibuffer-mode))
 (let ((inhibit-read-only t))
 (ibuffer-set-mark-1 mark)
 (put-text-property beg end 'ibuffer-properties
 		       (list (ibuffer-current-buffer)
 			     mark))))
 (defun ibuffer-mark-for-delete (arg)
-"Mark the buffers on ARG lines forward for deletion."
+"Mark the buffers on ARG lines forward for deletion.
+If point is on a group name, this function operates on that group."
 (interactive "P")
 (ibuffer-mark-interactive arg ibuffer-deletion-char 1))
 (defun ibuffer-mark-for-delete-backwards (arg)
-"Mark the buffers on ARG lines backward for deletion."
+"Mark the buffers on ARG lines backward for deletion.
+If point is on a group name, this function operates on that group."
 (interactive "P")
 (ibuffer-mark-interactive arg ibuffer-deletion-char -1))
 (defun ibuffer-current-buffer (&optional must-be-live)
 (let ((buf (car (get-text-property (line-beginning-position)
 #'(lambda (buf mark)
 	   (when (buffer-live-p buf)
 	     (push (cons buf mark) ibuffer-current-state-list-tmp)))))
 (nreverse ibuffer-current-state-list-tmp)))
-(defun ibuffer-current-filter-groups ()
-(save-excursion
-(goto-char (point-min))
-(let ((pos nil)
-	  (result nil))
-(while (and (not (eobp))
-		  (setq pos (next-single-property-change
-			     (point) 'ibuffer-filter-group-name)))
-	(goto-char pos)
-	(push (cons (get-text-property (point) 'ibuffer-filter-group-name)
-		    pos)
-	      result)
-	(goto-char (next-single-property-change
-		    pos 'ibuffer-filter-group-name)))
-(nreverse result))))
 (defun ibuffer-current-buffers-with-marks (curbufs)
 "Return a list like (BUF . MARK) of all open buffers."
 (let ((bufs (ibuffer-current-state-list)))
 (mapcar #'(lambda (buf) (let ((e (assq buf bufs)))
 			      (if e
 (unless silent
 (message "Redisplaying current buffer list..."))
 (let ((blist (ibuffer-current-state-list)))
 (when (null blist)
 (if (and (featurep 'ibuf-ext)
-	       (or ibuffer-filtering-qualifiers ibuffer-hidden-filtering-groups))
+	       (or ibuffer-filtering-qualifiers ibuffer-hidden-filter-groups))
 	  (message "No buffers! (note: filtering in effect)")
 	(error "No buffers!")))
 (ibuffer-redisplay-engine blist t)
 (ibuffer-update-mode-name)
 (unless silent
 	  (erase-buffer)
 	  (ibuffer-update-format)
 	  (dolist (group (nreverse bgroups))
 	    (let* ((name (car group))
 		   (disabled (and ext-loaded
-				  (member name ibuffer-hidden-filtering-groups)))
+				  (member name ibuffer-hidden-filter-groups)))
 		   (bmarklist (cdr group)))
-	      (ibuffer-insert-filter-group
+	      (unless (and (null bmarklist)
-	       name
+			   ext-loaded
-	       (if disabled (concat name " ...") name)
+			   (null ibuffer-show-empty-filter-groups))
-	       --ibuffer-insert-buffers-and-marks-format
+		(ibuffer-insert-filter-group
-	       (if disabled
+		 name
-		   nil
+		 (if disabled (concat name " ...") name)
-		 (ibuffer-sort-bufferlist bmarklist)))))
+		 --ibuffer-insert-buffers-and-marks-format
+		 (if disabled
+		     nil
+		   (ibuffer-sort-bufferlist bmarklist))))))
 	  (ibuffer-update-title-and-summary --ibuffer-expanded-format))
 (setq buffer-read-only t)
 (set-buffer-modified-p ibuffer-did-modification)
 (setq ibuffer-did-modification nil)
 (goto-line (1+ orig)))))
 to use; see `ibuffer-filtering-qualifiers'.
 Optional argument NOSELECT means don't select the Ibuffer buffer.
 Optional argument SHRINK means shrink the buffer to minimal size.  The
 special value `onewindow' means always use another window.
 Optional argument FILTER-GROUPS is an initial set of filtering
-groups to use; see `ibuffer-filtering-groups'."
+groups to use; see `ibuffer-filter-groups'."
 (interactive "P")
 (when ibuffer-use-other-window
 (setq other-window-p t))
 (let* ((buf (get-buffer-create (or name "*Ibuffer*")))
 	 (already-in (eq (current-buffer) buf))
 	(when qualifiers
 	  (require 'ibuf-ext)
 	  (setq ibuffer-filtering-qualifiers qualifiers))
 	(when filter-groups
 	  (require 'ibuf-ext)
-	  (setq ibuffer-filtering-groups filter-groups))
+	  (setq ibuffer-filter-groups filter-groups))
 	(ibuffer-update nil)
 	;; Skip the group name by default.
 	(ibuffer-forward-line 0 t)
 	(unwind-protect
 	    (progn
 '\\[ibuffer-or-filter]' - Replace the top two filters with their logical OR.
 '\\[ibuffer-pop-filter]' - Remove the top filter.
 '\\[ibuffer-negate-filter]' - Invert the logical sense of the top filter.
 '\\[ibuffer-decompose-filter]' - Break down the topmost filter.
 '\\[ibuffer-filter-disable]' - Remove all filtering currently in effect.
+Filter group commands:
+'\\[ibuffer-filters-to-filter-group]' - Create filter group from filters.
+'\\[ibuffer-pop-filter-group]' - Remove top filter group.
 Sorting commands:
 '\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes.
 '\\[ibuffer-invert-sorting]' - Reverse the current sorting order.
 '\\[ibuffer-visit-buffer-other-window]' - As above, but in another window.
 '\\[ibuffer-visit-buffer-other-window-noselect]' - As both above, but don't select
 the new window.
 '\\[ibuffer-bury-buffer]' - Bury (not kill!) the buffer on this line.
-Information on Filtering:
+** Information on Filtering:
 You can filter your ibuffer view via different critera.  Each Ibuffer
 buffer has its own stack of active filters.  For example, suppose you
 are working on an Emacs Lisp project.  You can create an Ibuffer
 buffer displays buffers in just `emacs-lisp' modes via
 Filters can also be saved and restored using mnemonic names: see the
 functions `ibuffer-save-filters' and `ibuffer-switch-to-saved-filters'.
 To remove the top filter on the stack, use '\\[ibuffer-pop-filter]', and
 to disable all filtering currently in effect, use
-'\\[ibuffer-filter-disable]'."
+'\\[ibuffer-filter-disable]'.
+** Filter Groups:
+Once one has mastered filters, the next logical step up is \"filter
+groups\".  A filter group is basically a named group of buffers which
+match a filter, which are displayed together in an Ibuffer buffer.  To
+create a filter group, simply use the regular functions to create a
+filter, and then type '\\[ibuffer-filters-to-filter-group]'.
+A quick example will make things clearer.  Suppose that one wants to
+group all of one's Emacs Lisp buffers together.  To do this, type
+'\\[ibuffer-filter-by-mode] emacs-lisp-mode RET \\[ibuffer-filters-to-filter-group] RET emacs lisp buffers RET'
+You may, of course, name the group whatever you want; it doesn't have
+to be \"emacs lisp buffers\".  Filter groups may be composed of any
+arbitrary combination of filters.
+Just like filters themselves, filter groups act as a stack.  Buffers
+will not be displayed multiple times if they would be included in
+multiple filter groups; instead, the first filter group is used.  The
+filter groups are displayed in this order of precedence.
+You may rearrange filter groups by using the regular
+'\\[ibuffer-kill-line]' and '\\[ibuffer-yank]' pair.  Yanked groups
+will be inserted before the group at point."
 (kill-all-local-variables)
 (use-local-map ibuffer-mode-map)
 (setq major-mode 'ibuffer-mode)
 (setq mode-name "Ibuffer")
 (setq buffer-read-only t)
 (set (make-local-variable 'ibuffer-sorting-reversep)
 ibuffer-default-sorting-reversep)
 (set (make-local-variable 'ibuffer-shrink-to-minimum-size)
 ibuffer-default-shrink-to-minimum-size)
 (set (make-local-variable 'ibuffer-filtering-qualifiers) nil)
-(set (make-local-variable 'ibuffer-filtering-groups) nil)
+(set (make-local-variable 'ibuffer-filter-groups) nil)
-(set (make-local-variable 'ibuffer-hidden-filtering-groups) nil)
+(set (make-local-variable 'ibuffer-filter-group-kill-ring) nil)
+(set (make-local-variable 'ibuffer-hidden-filter-groups) nil)
 (set (make-local-variable 'ibuffer-compiled-formats) nil)
 (set (make-local-variable 'ibuffer-cached-formats) nil)
 (set (make-local-variable 'ibuffer-cached-eliding-string) nil)
 (set (make-local-variable 'ibuffer-cached-elide-long-columns) nil)
 (set (make-local-variable 'ibuffer-current-format) nil)

Mercurial > emacs

comparison lisp/ibuffer.el @ 44854:6cd35f994b33