unofficial mirror of notmuch@notmuchmail.org
 help / color / mirror / code / Atom feed
* [PATCH] emacs: When completing tags, offer each tag once
@ 2021-02-01 14:54 David Edmondson
  2021-02-01 15:49 ` David Bremner
  0 siblings, 1 reply; 6+ messages in thread
From: David Edmondson @ 2021-02-01 14:54 UTC (permalink / raw)
  To: notmuch; +Cc: David Edmondson

When prompting for one or more tags to add or remove to/from one or
more threads, ensure that the set of tags offered for completion
contains no duplicates.

Some completion packages (e.g. selectrum) will include every member of
the offered list, resulting in the same tag being indicated as a
possibility several times.
---
 emacs/notmuch.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 26efcccd..ceec5b5d 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -572,12 +572,20 @@ thread."
 (defun notmuch-search-get-tags (&optional pos)
   (plist-get (notmuch-search-get-result pos) :tags))
 
+(defun notmuch-search-uniq-tags (tags)
+  (let (result)
+    (mapc (lambda (tag)
+	    (unless (member tag result)
+	      (push tag result)))
+	  tags)
+    result))
+
 (defun notmuch-search-get-tags-region (beg end)
   (let (output)
     (notmuch-search-foreach-result beg end
       (lambda (pos)
 	(setq output (append output (notmuch-search-get-tags pos)))))
-    output))
+    (notmuch-search-uniq-tags output)))
 
 (defun notmuch-search-interactive-tag-changes (&optional initial-input)
   "Prompt for tag changes for the current thread or region.
-- 
2.29.2

^ permalink raw reply related	[flat|nested] 6+ messages in thread

* Re: [PATCH] emacs: When completing tags, offer each tag once
  2021-02-01 14:54 [PATCH] emacs: When completing tags, offer each tag once David Edmondson
@ 2021-02-01 15:49 ` David Bremner
  2021-02-01 16:13   ` David Edmondson
  0 siblings, 1 reply; 6+ messages in thread
From: David Bremner @ 2021-02-01 15:49 UTC (permalink / raw)
  To: David Edmondson, notmuch; +Cc: David Edmondson

David Edmondson <dme@dme.org> writes:
>  
> +(defun notmuch-search-uniq-tags (tags)
> +  (let (result)
> +    (mapc (lambda (tag)
> +	    (unless (member tag result)
> +	      (push tag result)))
> +	  tags)
> +    result))

I leave elisp style to others...

Is there some bound on the length of tags? Otherwise this seems like
it's potentially a bit slow?

d

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: [PATCH] emacs: When completing tags, offer each tag once
  2021-02-01 15:49 ` David Bremner
@ 2021-02-01 16:13   ` David Edmondson
  2021-02-02 19:09     ` Tomi Ollila
  0 siblings, 1 reply; 6+ messages in thread
From: David Edmondson @ 2021-02-01 16:13 UTC (permalink / raw)
  To: David Bremner, notmuch

On Monday, 2021-02-01 at 11:49:36 -04, David Bremner wrote:

> David Edmondson <dme@dme.org> writes:
>>  
>> +(defun notmuch-search-uniq-tags (tags)
>> +  (let (result)
>> +    (mapc (lambda (tag)
>> +	    (unless (member tag result)
>> +	      (push tag result)))
>> +	  tags)
>> +    result))
>
> I leave elisp style to others...

Me too :-)

> Is there some bound on the length of tags? Otherwise this seems like
> it's potentially a bit slow?

No, there isn't any bound. I'd be surprised to see lists longer than low
tens of elements.

For similar functionality the dash library provides `-distinct', which
uses a lookup table if there are more than 32 elements in the list,
claiming that this is the break-point for the hash based approach to be
faster.

I'm a bit loath to just re-implement that. Am I allowed to depend on
dash? (I'd guess not, but figured that it's worth asking.)

dme.
-- 
Why stay in college? Why go to night school?

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: [PATCH] emacs: When completing tags, offer each tag once
  2021-02-01 16:13   ` David Edmondson
@ 2021-02-02 19:09     ` Tomi Ollila
  2021-02-02 19:23       ` David Bremner
  0 siblings, 1 reply; 6+ messages in thread
From: Tomi Ollila @ 2021-02-02 19:09 UTC (permalink / raw)
  To: David Edmondson, David Bremner, notmuch

On Mon, Feb 01 2021, David Edmondson wrote:

> On Monday, 2021-02-01 at 11:49:36 -04, David Bremner wrote:
>
>> David Edmondson <dme@dme.org> writes:
>>>  
>>> +(defun notmuch-search-uniq-tags (tags)
>>> +  (let (result)
>>> +    (mapc (lambda (tag)
>>> +	    (unless (member tag result)
>>> +	      (push tag result)))
>>> +	  tags)
>>> +    result))
>>
>> I leave elisp style to others...
>
> Me too :-)
>
>> Is there some bound on the length of tags? Otherwise this seems like
>> it's potentially a bit slow?
>
> No, there isn't any bound. I'd be surprised to see lists longer than low
> tens of elements.
>
> For similar functionality the dash library provides `-distinct', which
> uses a lookup table if there are more than 32 elements in the list,
> claiming that this is the break-point for the hash based approach to be
> faster.
>
> I'm a bit loath to just re-implement that. Am I allowed to depend on
> dash? (I'd guess not, but figured that it's worth asking.)

list-packages doesn't tell whether dash is from elpa or from melpa --
nevertheless so far notmuch hasn't even required anything from elpa,
so I'd default to 'no'.

Anyway, I'd guess this is fast enough for the vast majority of the 
specific use cases of this feature (dash is more generic(?)), and there
are worse hiccups elsewhere (although such is never an excuse to make
other code slow).

Tomi

>
> dme.
> -- 
> Why stay in college? Why go to night school?

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: [PATCH] emacs: When completing tags, offer each tag once
  2021-02-02 19:09     ` Tomi Ollila
@ 2021-02-02 19:23       ` David Bremner
  2021-02-02 19:53         ` Tomi Ollila
  0 siblings, 1 reply; 6+ messages in thread
From: David Bremner @ 2021-02-02 19:23 UTC (permalink / raw)
  To: Tomi Ollila, David Edmondson, notmuch

Tomi Ollila <tomi.ollila@iki.fi> writes:

> On Mon, Feb 01 2021, David Edmondson wrote:
>
>> On Monday, 2021-02-01 at 11:49:36 -04, David Bremner wrote:
>>
>>> David Edmondson <dme@dme.org> writes:
>>>>  
>>>> +(defun notmuch-search-uniq-tags (tags)
>>>> +  (let (result)
>>>> +    (mapc (lambda (tag)
>>>> +	    (unless (member tag result)
>>>> +	      (push tag result)))
>>>> +	  tags)
>>>> +    result))
>>>
>>> I leave elisp style to others...
>>
>> Me too :-)
>>
>>> Is there some bound on the length of tags? Otherwise this seems like
>>> it's potentially a bit slow?
>>
>> No, there isn't any bound. I'd be surprised to see lists longer than low
>> tens of elements.
>>
>> For similar functionality the dash library provides `-distinct', which
>> uses a lookup table if there are more than 32 elements in the list,
>> claiming that this is the break-point for the hash based approach to be
>> faster.

Maybe delete-dups (subr.el) would be useful here? It is destructive, but
even with a copy (if needed), it should still be faster.

d

^ permalink raw reply	[flat|nested] 6+ messages in thread

* Re: [PATCH] emacs: When completing tags, offer each tag once
  2021-02-02 19:23       ` David Bremner
@ 2021-02-02 19:53         ` Tomi Ollila
  0 siblings, 0 replies; 6+ messages in thread
From: Tomi Ollila @ 2021-02-02 19:53 UTC (permalink / raw)
  To: David Bremner, David Edmondson, notmuch

On Tue, Feb 02 2021, David Bremner wrote:

>
> Maybe delete-dups (subr.el) would be useful here? It is destructive, but
> even with a copy (if needed), it should still be faster.

I looked the implementation of delete-dups. In case of >100 elements, it
uses hash table for checking duplicates. less than 101 elements and
the code is

      (let ((tail list))
        (while tail
          (setcdr tail (delete (car tail) (cdr tail)))
          (setq tail (cdr tail))))))

It took me a bit of time to understand, but then I got it:

* delete all elements that match car of tail in the list of (cdr tail)
* set tail to cdr of tail
* redo until tail exhausted

setcdr and delete are built-in functions implemented in c code

(and copy-sequence, unsurprisingly, is implemented in c (if needed))

>
> d

Tomi

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2021-02-02 19:53 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-02-01 14:54 [PATCH] emacs: When completing tags, offer each tag once David Edmondson
2021-02-01 15:49 ` David Bremner
2021-02-01 16:13   ` David Edmondson
2021-02-02 19:09     ` Tomi Ollila
2021-02-02 19:23       ` David Bremner
2021-02-02 19:53         ` Tomi Ollila

Code repositories for project(s) associated with this public inbox

	https://yhetil.org/notmuch.git/

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).