* Mutually-exclusive Org tags still inherit each other
@ 2019-02-08 0:42 Tina Russell
2019-02-09 18:03 ` Nicolas Goaziou
0 siblings, 1 reply; 4+ messages in thread
From: Tina Russell @ 2019-02-08 0:42 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 1535 bytes --]
First of all, I want to say that I really appreciate Org Mode, I wouldn’t
be using Emacs without it, and it’s where I spend the vast majority of my
time in Emacs. Thank you all!
So, according to the Org documentation: “You can also group together tags
that are mutually exclusive by using braces … Selecting a tag in a group of
mutually exclusive tags will turn off any other tags from that group.
But, if I do this…
#+TAGS: { place(c) container(c) object(o) }
* Room :place:
** Box :container:
*** Toy :object:
…and then use (org-get-tags) on “Toy,” it reports that it has the tags
“place”, “container”, and “object”, even though these tags are all defined
to be mutually exclusive! This is a problem, since turning off tag
inheritance (for a document or for specific tags) seems to be an
all-or-nothing affair. That means if I wanted to do this:
* Room :place:
** Bookcase
** Dresser
** Desk
** Nightstand
** Closet
*** Box :container:
**** Toy :object:
…and then search for all headings with the tag “place,” either (with tag
inheritance) everything, including “Box” and “Toy,” will be returned, or
(without tag inheritance) only “Room” would be returned. (I could put a tag
on every heading where I want it inherited, but that would both defeat the
purpose of inheritance and make it difficult to manage large trees.)
I can’t find any solutions to this online, so I’m posting this here. I hope
it can get fixed. Thank you!
—Tina
[-- Attachment #2: Type: text/html, Size: 1841 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: Mutually-exclusive Org tags still inherit each other 2019-02-08 0:42 Mutually-exclusive Org tags still inherit each other Tina Russell @ 2019-02-09 18:03 ` Nicolas Goaziou 2019-03-01 21:47 ` Tina Russell 0 siblings, 1 reply; 4+ messages in thread From: Nicolas Goaziou @ 2019-02-09 18:03 UTC (permalink / raw) To: Tina Russell; +Cc: emacs-orgmode Hello, Tina Russell <tinakellyrussell@gmail.com> writes: > So, according to the Org documentation: “You can also group together tags > that are mutually exclusive by using braces … Selecting a tag in a group of > mutually exclusive tags will turn off any other tags from that group. > > But, if I do this… > > #+TAGS: { place(c) container(c) object(o) } > > * Room :place: > ** Box :container: > *** Toy :object: > > …and then use (org-get-tags) on “Toy,” it reports that it has the tags > “place”, “container”, and “object”, even though these tags are all defined > to be mutually exclusive! This is a problem, Not really. `org-get-tags' is a low-level function, i.e., it has no knowledge about tag groups or mutually exclusive tags. > since turning off tag > inheritance (for a document or for specific tags) seems to be an > all-or-nothing affair. That means if I wanted to do this: > > * Room :place: > ** Bookcase > ** Dresser > ** Desk > ** Nightstand > ** Closet > *** Box :container: > **** Toy :object: > > …and then search for all headings with the tag “place,” either (with tag > inheritance) everything, including “Box” and “Toy,” will be returned, or > (without tag inheritance) only “Room” would be returned. (I could put a tag > on every heading where I want it inherited, but that would both defeat the > purpose of inheritance and make it difficult to manage large trees.) You don't need to use mutually exclusive tags for this example. You could search for "place-container", assuming tag inheritance. Regards, -- Nicolas Goaziou ^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Mutually-exclusive Org tags still inherit each other 2019-02-09 18:03 ` Nicolas Goaziou @ 2019-03-01 21:47 ` Tina Russell 2019-03-04 9:48 ` Nicolas Goaziou 0 siblings, 1 reply; 4+ messages in thread From: Tina Russell @ 2019-03-01 21:47 UTC (permalink / raw) To: emacs-orgmode Well, I think it’s unreasonable to ask users to reinforce manually and continuously something they’ve already specified in their settings. Besides, my example was intentionally trivial—imagine managing a large tree and having to remember which tags are mutually exclusive to what, all the time. But, no matter! I have created a patch! It works great, even for edge cases like when an entry has two tags that are set as mutually exclusive to each other. First, we have two new functions: one which returns the tags currently defined as mutually exclusive, and one which checks for tags that conflict with the given tag (with the help of the cl-loop “if” clause and cl-set-difference). (defun org-get-exclusive-tags (&optional alist) "Return a list of mutually exclusive tags occuring in ALIST. ALIST defaults to `org-current-tag-alist'. The result is a list of lists of strings, where each string represents a tag, and each list of strings represents a group of mutually exclusive tags." ;; Most of this code was culled from `org-fast-tag-selection' (let ((alist (or alist org-current-tag-alist)) groups ingroup intaggroup tag) (dolist (e alist groups) (cond ((eq (car e) :startgroup) (push '() groups) (setq ingroup t)) ((eq (car e) :endgroup) (setq ingroup nil)) ((eq (car e) :startgrouptag) (setq intaggroup t)) ((eq (car e) :endgrouptag) (setq intaggroup nil)) ((equal e '(:newline))) ; do nothing ((equal e '(:grouptags))) ; do nothing (t (setq tag (copy-sequence (car e))) (when ingroup (push tag (car groups)))))))) (defun org-get-conflicting-tags (tags &optional alist) "For list TAGS, return tags which would conflict according to ALIST. ALIST defaults to `org-current-tag-alist'. For more information on mutually exclusive tags, see Info node `(org)Tag Hierarchy'." (let* ((alist (or alist org-current-tag-alist)) (groups (org-get-exclusive-tags alist))) (cl-loop for group in groups if (cl-some (lambda (x) (member x group)) tags) append (cl-set-difference group tags :test 'equal)))) Then, we redefine org-get-tags slightly to remove conflicting tags from the list of inherited tags. (defun org-get-tags (&optional pos local) ;; "the usual docstring, skipped here for email brevity" (if (and org-trust-scanner-tags (or (not pos) (eq pos (point))) (not local)) org-scanner-tags (org-with-point-at (or pos (point)) (unless (org-before-first-heading-p) (org-back-to-heading t) (let ((ltags (org--get-local-tags)) itags) (if (or local (not org-use-tag-inheritance)) ltags (let* ((conflicting-tags (org-get-conflicting-tags ltags)) (ct-predicate (lambda (x) (member x conflicting-tags)))) (while (org-up-heading-safe) (nconc conflicting-tags (org-get-conflicting-tags itags org-current-tag-alist)) (setq itags (append (mapcar #'org-add-prop-inherited (cl-remove-if ct-predicate (org--get-local-tags))) itags))) (setq itags (append (cl-remove-if ct-predicate org-file-tags) itags))) (delete-dups (append (org-remove-uninherited-tags itags) ltags)))))))) If everything looks good, I’ll figure out how to submit it as a proper Git patch (right now it’s just “code that’s been sitting in my config for weeks”), and do the copyright-assignment thing so we can get it merged. I hope you like it! —Tina On Sat, Feb 9, 2019 at 10:03 AM Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote: > > Hello, > > Tina Russell <tinakellyrussell@gmail.com> writes: > > > So, according to the Org documentation: “You can also group together tags > > that are mutually exclusive by using braces … Selecting a tag in a group of > > mutually exclusive tags will turn off any other tags from that group. > > > > But, if I do this… > > > > #+TAGS: { place(c) container(c) object(o) } > > > > * Room :place: > > ** Box :container: > > *** Toy :object: > > > > …and then use (org-get-tags) on “Toy,” it reports that it has the tags > > “place”, “container”, and “object”, even though these tags are all defined > > to be mutually exclusive! This is a problem, > > Not really. `org-get-tags' is a low-level function, i.e., it has no > knowledge about tag groups or mutually exclusive tags. > > > since turning off tag > > inheritance (for a document or for specific tags) seems to be an > > all-or-nothing affair. That means if I wanted to do this: > > > > * Room :place: > > ** Bookcase > > ** Dresser > > ** Desk > > ** Nightstand > > ** Closet > > *** Box :container: > > **** Toy :object: > > > > …and then search for all headings with the tag “place,” either (with tag > > inheritance) everything, including “Box” and “Toy,” will be returned, or > > (without tag inheritance) only “Room” would be returned. (I could put a tag > > on every heading where I want it inherited, but that would both defeat the > > purpose of inheritance and make it difficult to manage large trees.) > > You don't need to use mutually exclusive tags for this example. You > could search for "place-container", assuming tag inheritance. > > Regards, > > -- > Nicolas Goaziou ^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Mutually-exclusive Org tags still inherit each other 2019-03-01 21:47 ` Tina Russell @ 2019-03-04 9:48 ` Nicolas Goaziou 0 siblings, 0 replies; 4+ messages in thread From: Nicolas Goaziou @ 2019-03-04 9:48 UTC (permalink / raw) To: Tina Russell; +Cc: emacs-orgmode Hello, Tina Russell <tinakellyrussell@gmail.com> writes: > Well, I think it’s unreasonable to ask users to reinforce manually and > continuously something they’ve already specified in their settings. > Besides, my example was intentionally trivial—imagine managing a large > tree and having to remember which tags are mutually exclusive to what, > all the time. > > But, no matter! I have created a patch! It works great, even for edge > cases like when an entry has two tags that are set as mutually > exclusive to each other. Thank you for the patch. Unfortunately, I think we are miscommunicating, because we are thinking at different levels of abstraction. Le me clarify this. Org syntax supports colons-wrapped cookies at the end of a headline, called tags. That's about it. Of course, you can extend those cookies to support, e.g., inheritance, groups, mutual exclusion, and whatnot. But at the lowest level, there are only cookies at the end of a headline. The function `org-get-tags' was implemented to get those, possibly with inheritance. Most, if not all, of its callers in the code base do not care about groups, or mutual exclusion. Also, most, if not all, callers care about internal tags. Not that some internal tags are automatically inherited, hence support for this mechanism in `org-get-tags'. You apparently have a need for user-defined tags, with all bells and whistles. However, IIUC, you don't really need to list them, but ultimately do a tag search on them. There are advanced functions for tag searches: `org-make-tags-matcher' and `org-scan-tags'. My point is that you should first check if they already do what you want, and patch them otherwise, instead of changing `org-get-tags', which has a clear scope. WDYT? Regards, -- Nicolas Goaziou ^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2019-03-04 9:48 UTC | newest] Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2019-02-08 0:42 Mutually-exclusive Org tags still inherit each other Tina Russell 2019-02-09 18:03 ` Nicolas Goaziou 2019-03-01 21:47 ` Tina Russell 2019-03-04 9:48 ` Nicolas Goaziou
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs/org-mode.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).