* [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).