(define-ibuffer-sorter): Define the sorter to reverse sorting order if

[gnu-emacs] / lisp / ibuf-macs.el

diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el
index f32410aa8689a2e2b5d491cdcc7a3b9734291532..947c2b7040af8856025ea2e622de4d87864aa3c8 100644 (file)
--- a/lisp/ibuf-macs.el
+++ b/lisp/ibuf-macs.el
@@ -1,8 +1,10 @@
 ;;; ibuf-macs.el --- macros for ibuffer
 
 ;;; ibuf-macs.el --- macros for ibuffer
 

-;; Copyright (C) 2000, 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.

 
 ;; Author: Colin Walters <walters@verbum.org>
 
 ;; Author: Colin Walters <walters@verbum.org>

+;; Maintainer: John Paul Wallington <jpw@gnu.org>

 ;; Created: 6 Dec 2001
 ;; Keywords: buffer, convenience
 
 ;; Created: 6 Dec 2001
 ;; Keywords: buffer, convenience
 


@@ -10,7 +12,7 @@
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU General Public License as

-;; published by the Free Software Foundation; either version 2, or (at
+;; published by the Free Software Foundation; either version 3, or (at

 ;; your option) any later version.
 
 ;; This program is distributed in the hope that it will be useful, but
 ;; your option) any later version.
 
 ;; This program is distributed in the hope that it will be useful, but


@@ -20,8 +22,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program ; see the file COPYING.  If not, write to
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program ; see the file COPYING.  If not, write to

-;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.

 
 ;;; Commentary:
 
 
 ;;; Commentary:
 


@@ -36,7 +38,7 @@
 If TEST returns non-nil, bind `it' to the value, and evaluate
 TRUE-BODY.  Otherwise, evaluate forms in FALSE-BODY as if in `progn'.
 Compare with `if'."
 If TEST returns non-nil, bind `it' to the value, and evaluate
 TRUE-BODY.  Otherwise, evaluate forms in FALSE-BODY as if in `progn'.
 Compare with `if'."

-  (let ((sym (gensym "--ibuffer-aif-")))
+  (let ((sym (make-symbol "ibuffer-aif-sym")))

     `(let ((,sym ,test))
        (if ,sym
           (let ((it ,sym))
     `(let ((,sym ,test))
        (if ,sym
           (let ((it ,sym))


@@ -55,7 +57,7 @@ During evaluation of body, bind `it' to the value returned by TEST."
 
 (defmacro ibuffer-save-marks (&rest body)
   "Save the marked status of the buffers and execute BODY; restore marks."
 
 (defmacro ibuffer-save-marks (&rest body)
   "Save the marked status of the buffers and execute BODY; restore marks."

-  (let ((bufsym (gensym)))
+  (let ((bufsym (make-symbol "bufsym")))

     `(let ((,bufsym (current-buffer))
           (ibuffer-save-marks-tmp-mark-list (ibuffer-current-state-list)))
        (unwind-protect
     `(let ((,bufsym (current-buffer))
           (ibuffer-save-marks-tmp-mark-list (ibuffer-current-state-list)))
        (unwind-protect


@@ -73,8 +75,8 @@ During evaluation of body, bind `it' to the value returned by TEST."
 ;; (put 'ibuffer-save-marks 'lisp-indent-function 0)
 
 ;;;###autoload
 ;; (put 'ibuffer-save-marks 'lisp-indent-function 0)
 
 ;;;###autoload

-(defmacro* define-ibuffer-column (symbol (&key name inline props
-                                              summarizer) &rest body)
+(defmacro* define-ibuffer-column (symbol (&key name inline props summarizer 
+                                              header-mouse-map) &rest body)

   "Define a column SYMBOL for use with `ibuffer-formats'.
 
 BODY will be called with `buffer' bound to the buffer object, and
   "Define a column SYMBOL for use with `ibuffer-formats'.
 
 BODY will be called with `buffer' bound to the buffer object, and


@@ -88,11 +90,16 @@ the text, such as `mouse-face'.  And SUMMARIZER, if given, is a
 function which will be passed a list of all the strings in its column;
 it should return a string to display at the bottom.
 
 function which will be passed a list of all the strings in its column;
 it should return a string to display at the bottom.
 

+If HEADER-MOUSE-MAP is given, it will be used as a keymap for the
+title of the column.
+

 Note that this macro expands into a `defun' for a function named
 ibuffer-make-column-NAME.  If INLINE is non-nil, then the form will be
 inlined into the compiled format versions.  This means that if you
 change its definition, you should explicitly call
 Note that this macro expands into a `defun' for a function named
 ibuffer-make-column-NAME.  If INLINE is non-nil, then the form will be
 inlined into the compiled format versions.  This means that if you
 change its definition, you should explicitly call

-`ibuffer-recompile-formats'."
+`ibuffer-recompile-formats'.
+
+\(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)"

   (let* ((sym (intern (concat "ibuffer-make-column-"
                              (symbol-name symbol))))
         (bod-1 `(with-current-buffer buffer
   (let* ((sym (intern (concat "ibuffer-make-column-"
                              (symbol-name symbol))))
         (bod-1 `(with-current-buffer buffer


@@ -111,6 +118,7 @@ change its definition, you should explicitly call
            ,(if (stringp name)
                 name
               (capitalize (symbol-name symbol))))
            ,(if (stringp name)
                 name
               (capitalize (symbol-name symbol))))

+       ,(if header-mouse-map `(put (quote ,sym) 'header-mouse-map ,header-mouse-map))

        ,(if summarizer
            ;; Store the name of the summarizing function.
            `(put (quote ,sym) 'ibuffer-column-summarizer
        ,(if summarizer
            ;; Store the name of the summarizing function.
            `(put (quote ,sym) 'ibuffer-column-summarizer


@@ -124,7 +132,7 @@ change its definition, you should explicitly call
 
 ;;;###autoload
 (defmacro* define-ibuffer-sorter (name documentation
 
 ;;;###autoload
 (defmacro* define-ibuffer-sorter (name documentation

-                                      (&key 
+                                      (&key

                                        description)
                                       &rest body)
   "Define a method of sorting named NAME.
                                        description)
                                       &rest body)
   "Define a method of sorting named NAME.


@@ -134,13 +142,18 @@ DESCRIPTION is a short string describing the sorting method.
 
 For sorting, the forms in BODY will be evaluated with `a' bound to one
 buffer object, and `b' bound to another.  BODY should return a non-nil
 
 For sorting, the forms in BODY will be evaluated with `a' bound to one
 buffer object, and `b' bound to another.  BODY should return a non-nil

-value if and only if `a' is \"less than\" `b'."
+value if and only if `a' is \"less than\" `b'.
+
+\(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)"

   `(progn
      (defun ,(intern (concat "ibuffer-do-sort-by-" (symbol-name name))) ()
        ,(or documentation "No :documentation specified for this sorting method.")
        (interactive)
        (setq ibuffer-sorting-mode ',name)
   `(progn
      (defun ,(intern (concat "ibuffer-do-sort-by-" (symbol-name name))) ()
        ,(or documentation "No :documentation specified for this sorting method.")
        (interactive)
        (setq ibuffer-sorting-mode ',name)

-       (ibuffer-redisplay t))
+       (when (eq ibuffer-sorting-mode ibuffer-last-sorting-mode)
+        (setq ibuffer-sorting-reversep (not ibuffer-sorting-reversep)))
+       (ibuffer-redisplay t)
+       (setq ibuffer-last-sorting-mode ',name))

      (push (list ',name ,description
                 #'(lambda (a b)
                     ,@body))
      (push (list ',name ,description
                 #'(lambda (a b)
                     ,@body))


@@ -151,7 +164,7 @@ value if and only if `a' is \"less than\" `b'."
 ;;;###autoload
 (defmacro* define-ibuffer-op (op args
                                 documentation
 ;;;###autoload
 (defmacro* define-ibuffer-op (op args
                                 documentation

-                                (&key 
+                                (&key

                                  interactive
                                  mark
                                  modifier-p
                                  interactive
                                  mark
                                  modifier-p


@@ -188,7 +201,9 @@ ACTIVE-OPSTRING is a string which will be displayed to the user in a
 confirmation message, in the form:
  \"Really ACTIVE-OPSTRING x buffers?\"
 COMPLEX means this function is special; see the source code of this
 confirmation message, in the form:
  \"Really ACTIVE-OPSTRING x buffers?\"
 COMPLEX means this function is special; see the source code of this

-macro for exactly what it does."
+macro for exactly what it does.
+
+\(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING COMPLEX) &rest BODY)"

   `(progn
     (defun ,(intern (concat (if (string-match "^ibuffer-do" (symbol-name op))
                                "" "ibuffer-do-") (symbol-name op)))
   `(progn
     (defun ,(intern (concat (if (string-match "^ibuffer-do" (symbol-name op))
                                "" "ibuffer-do-") (symbol-name op)))


@@ -252,7 +267,7 @@ macro for exactly what it does."
 
 ;;;###autoload
 (defmacro* define-ibuffer-filter (name documentation
 
 ;;;###autoload
 (defmacro* define-ibuffer-filter (name documentation

-                                      (&key 
+                                      (&key

                                        reader
                                        description)
                                       &rest body)
                                        reader
                                        description)
                                       &rest body)


@@ -264,14 +279,16 @@ DESCRIPTION is a short string describing the filter.
 BODY should contain forms which will be evaluated to test whether or
 not a particular buffer should be displayed or not.  The forms in BODY
 will be evaluated with BUF bound to the buffer object, and QUALIFIER
 BODY should contain forms which will be evaluated to test whether or
 not a particular buffer should be displayed or not.  The forms in BODY
 will be evaluated with BUF bound to the buffer object, and QUALIFIER

-bound to the current value of the filter."
+bound to the current value of the filter.
+
+\(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)"

   (let ((fn-name (intern (concat "ibuffer-filter-by-" (symbol-name name)))))
   (let ((fn-name (intern (concat "ibuffer-filter-by-" (symbol-name name)))))

-    `(progn 
+    `(progn

        (defun ,fn-name (qualifier)
         ,(concat (or documentation "This filter is not documented."))
         (interactive (list ,reader))
         (ibuffer-push-filter (cons ',name qualifier))
        (defun ,fn-name (qualifier)
         ,(concat (or documentation "This filter is not documented."))
         (interactive (list ,reader))
         (ibuffer-push-filter (cons ',name qualifier))

-        (message
+        (message "%s"

          (format ,(concat (format "Filter by %s added: " description)
                           " %s")
                  qualifier))
          (format ,(concat (format "Filter by %s added: " description)
                           " %s")
                  qualifier))


@@ -285,4 +302,5 @@ bound to the current value of the filter."
 
 (provide 'ibuf-macs)
 
 
 (provide 'ibuf-macs)
 

+;; arch-tag: 2748edce-82c9-4cd9-9d9d-bd73e43c20c5

 ;;; ibuf-macs.el ends here
 ;;; ibuf-macs.el ends here