Re: [PATCH] Stable key assignment for org-fast-tag-selection

[Matt Lundin <mdl@imapmail.org>]

Bastien <bastien.guerry@wikimedia.fr> writes:

> emacs-orgmode@dunsmor.com writes:
>
>> - Eval (setq org-use-fast-tag-selection t)
>> - Eval (setq org-fast-tag-selection-single-key "expert")
>> - Create a heading with tags :a1:a2:
>> - Create another heading with tags :a1:a2:
>> - Type "C-c a", "C-c a", "C-c a", "C-c a"
>> - Notice how it changes from a1 to a2
>
> I reproduced this, well spotted.
>
>> Below is a patch to make the character assignment stable, given that all
>> of the same tags exist in the file each time it's run.
>
> Thanks for the patch!
>
> I was not able to apply it using the pw utility, so I made the change
> myself -- I forgot to do a "git commit --amend --author" tho, sorry!

This patch breaks grouping in fast tag selection, since the sort
function ignores the grouping information provided in org-tag-alist.

Here's a sample org-tag-alist:

(setq org-tag-alist '((:startgroup . nil)
		      ("desk" . ?d)
		      ("email" . ?m)
		      ("hack" . ?k)
		      ("net" . ?n)
		      ("phone" . ?p)
		      (:endgroup . nil)
		      (:startgroup . nil)
		      ("home" . ?h)
		      ("yard" . ?y)
		      ("errands" . ?e)
		      (:endgroup . nil)
		      (:startgroup . nil)
		      ("read" . ?r)
		      ("script" .?s)
		      ("think" . ?t)
		      ("travel" . ?j)
		      (:endgroup . nil)))

And here's the prompt for org-tag-alist:

--8<---------------cut here---------------start------------->8---
Inherited:  inbox per prof
Current:    
							   Next change exits
}
}
}
{ { { [d] desk      [m] email     [e] errands   [k] hack      [h] home      
  [n] net       [p] phone     [r] read      [s] script    [t] think     
  [j] travel    [y] yard      
--8<---------------cut here---------------end--------------->8---

Best,
Matt