mutually exclusive tags

mutually exclusive tags

[Richard G Riley]

Could someone show me an example of mutually exclusive tag setting in
elisp please? There is an example of non exclusive ones in the manual:

     (setq org-tag-alist '(("@work" . ?w) ("@home" . ?h) ("laptop"
     . ?l)))

But how to do it for

     #+TAGS: { @work(w)  @home(h)  @tennisclub(t) }  laptop(l)  pc(p)
?

thanks,

r.

Re: mutually exclusive tags

[Bernt Hansen]

Richard G Riley <rileyrgdev@googlemail.com> writes:

> Could someone show me an example of mutually exclusive tag setting in
> elisp please? There is an example of non exclusive ones in the manual:
>
>      (setq org-tag-alist '(("@work" . ?w) ("@home" . ?h) ("laptop"
>      . ?l)))
>
> But how to do it for
>
>      #+TAGS: { @work(w)  @home(h)  @tennisclub(t) }  laptop(l)  pc(p)
> ?

@work, @home, @errand are exclusive below.

admin, org, notaproject, newtask are not.

(setq org-tag-alist '((:startgroup . nil) ("@work" . ?w) ("@home" . ?h) ("@errand" . ?e) (:endgroup . nil) 
		      ("admin" . ?a) ("org" . ?o) ("notaproject" . ?n) ("newtask" . ?x)))

HTH,
Bernt

[PATCH] doc: Add example of the global setting for mutually exclusive tags

[Bernt Hansen]

Explicitly show an example for setting org-tag-alist globally
with mutually exclusive tags for people new to lisp.
---

I had trouble with this originally and ended up digging in the org.el
code to figure out how to do this.  Hopefully this makes it easier
on org-mode users :)

 org.texi |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/org.texi b/org.texi
index a13b2e7..fd90b5b 100644
--- a/org.texi
+++ b/org.texi
@@ -3324,6 +3324,17 @@ and @samp{@@tennisclub} should be selected.
 @noindent Don't forget to press @kbd{C-c C-c} with the cursor in one of
 these lines to activate any changes.
 
+@noindent
+The equivalent global setting is
+
+@lisp
+(setq org-tag-alist '((:startgroup . nil)
+                      ("@@work" . ?w) ("@@home" . ?h)
+                      ("@@tennisclub" . ?t)
+                      (:endgroup . nil)
+                      ("laptop" . ?l) ("pc" . ?p)))
+@end lisp
+
 If at least one tag has a selection key, pressing @kbd{C-c C-c} will
 automatically present you with a special interface, listing inherited
 tags, the tags of the current headline, and a list of all valid tags
-- 
1.5.5.rc1