GNU bug report logs - #32731
26.1.50; Ibuffer filter by mode: Handle >1 mode names

Previous Next

Full log

Message #53 received at 32731 <at> debbugs.gnu.org (full text, mbox):

From: Noam Postavsky <npostavs <at> gmail.com>
To: Tino Calancha <tino.calancha <at> gmail.com>
Cc: Eli Zaretskii <eliz <at> gnu.org>, 32731 <at> debbugs.gnu.org
Subject: Re: bug#32731: 26.1.50; Ibuffer filter by mode: Handle >1 mode names
Date: Sat, 22 Sep 2018 09:00:10 -0400

Tino Calancha <tino.calancha <at> gmail.com> writes:

> commit 72e332c986304775e91020c88ded1ba9d7226023
> Author: Tino Calancha <tino.calancha <at> gmail.com>
> Date:   Fri Sep 21 17:32:57 2018 +0900
>
>     Ibuffer filter by modes: Accept several mode names
>     
>     Extend all mode filters so that they handle >1 mode.
>     For instance, if the user wants to filter all buffers in
>     C or C++ mode, then s?he can call the filter interactively

If you'll pardon another nit, I suggest using "they" instead of "s?he"
which has the advantage of being a pronounceable English word.

> +	 (let ((,filter (cons ',name qualifier))
> +	       (,qualifier-str qualifier))
> +	   ,(when accept-list
> +	      `(progn
> +		 (unless (listp qualifier) (setq qualifier (list qualifier)))
> +		 ;; Reject equivalent filters: (or f1 f2) is same as (or f2 f1).
> +		 (setq qualifier (sort (delete-dups qualifier) #'string-lessp))
> +		 (setq ,filter (cons ',name (car qualifier)))
> +		 (setq ,qualifier-str
> +		       (mapconcat (lambda (m) (if (symbolp m) (symbol-name m) m))
> +				  qualifier ","))
> +		 (when (cdr qualifier) ; Compose individual filters with `or'.
> +		   (setq ,filter `(or ,@(mapcar (lambda (m) (cons ',name m)) qualifier))))))
> +	   (if (null (ibuffer-push-filter ,filter))
> +	       (message ,(format "Filter by %s already applied:  %%s" description)
> +		        ,qualifier-str)
> +	     (message ,(format "Filter by %s added:  %%s" description)
> +		      ,qualifier-str)
> +	     (ibuffer-update nil t))))

Since I'm here nitting anyway, I would tweak this code a bit:

    (let ((,filter (cons ',name qualifier))
          (,qualifier-desc qualifier))
      ,(when accept-list
         `(when (listp qualifier)
            (setq ,qualifier-desc
                  (mapconcat (lambda (m) (if (symbolp m) (symbol-name m) m))
                             qualifier ","))
            (if (null (cdr qualifier))
                (setf (cdr ,filter) (car qualifier)) ; Singleton list.
              ;; Reject equivalent filters: (or f1 f2) is same as (or f2 f1).
              (setq qualifier (delete-consecutive-dups
                               (sort qualifier #'string-lessp)))
              ;; Compose individual filters with `or'.
              (setq ,filter `(or ,@(mapcar (lambda (m) (cons ',name m))
                                           qualifier))))))
      (if (null (ibuffer-push-filter ,filter))
          (message ,(format "Filter by %s already applied:  %%s" description)
                   ,qualifier-desc)
        (message ,(format "Filter by %s added:  %%s" description)
                 ,qualifier-desc)
        (ibuffer-update nil t)))

>         (push (list ',name ,description
>  		   (lambda (buf qualifier)
> -                     (condition-case nil
> -                         (progn ,@body)
> -                       (error (ibuffer-pop-filter)
> -                              (when (eq ',name 'predicate)
> -                                (error "Wrong filter predicate: %S"
> -                                       qualifier))))))
> +		     (condition-case nil
> +			 (progn ,@body)
> +		       (error (ibuffer-pop-filter)
> +			      (when (eq ',name 'predicate)
> +				(error "Wrong filter predicate: %S"
> +				       qualifier))))))
>  	     ibuffer-filtering-alist)
>         :autoload-end)))

I think this hunk is just changing spaces to tabs (shouldn't .dir-locals
be setting indent-tabs-mode to nil though?).

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.