* Remove redundant tags of headlines
@ 2014-03-13 15:36 Sebastien Vauban
2014-03-13 15:54 ` Bastien
2014-03-14 12:05 ` Nicolas Richard
0 siblings, 2 replies; 9+ messages in thread
From: Sebastien Vauban @ 2014-03-13 15:36 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hello,
FYI, the code to "Remove redundant tags of headlines" (see
http://orgmode.org/worg/org-hacks.html#sec-1-8-1) is not functioning
anymore.
--8<---------------cut here---------------start------------->8---
(defun dmj/org-remove-redundant-tags ()
"Remove redundant tags of headlines in current buffer.
A tag is considered redundant if it is local to a headline and
inherited by a parent headline."
(interactive)
(when (eq major-mode 'org-mode)
(save-excursion
(org-map-entries
'(lambda ()
(let ((alltags (split-string (or (org-entry-get (point) "ALLTAGS") "") ":"))
local inherited tag)
(dolist (tag alltags)
(if (get-text-property 0 'inherited tag)
(push tag inherited) (push tag local)))
(dolist (tag local)
(if (member tag inherited) (org-toggle-tag tag 'off)))))
t nil))))
--8<---------------cut here---------------end--------------->8---
The problem seems to be that `org-map-entries' return a sequence of
`nil'.
I tried Edebugging it, but Edebug does not jump into the execution of
the anonymous function...
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-13 15:36 Remove redundant tags of headlines Sebastien Vauban
@ 2014-03-13 15:54 ` Bastien
2014-03-14 11:31 ` Sebastien Vauban
2014-03-14 12:05 ` Nicolas Richard
1 sibling, 1 reply; 9+ messages in thread
From: Bastien @ 2014-03-13 15:54 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ
Sebastien Vauban <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:
> I tried Edebugging it, but Edebug does not jump into the execution of
> the anonymous function...
Just give a name to the anonymous function... and you're back on
edebugging. :)
--
Bastien
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-13 15:54 ` Bastien
@ 2014-03-14 11:31 ` Sebastien Vauban
2014-03-14 14:49 ` Bastien
0 siblings, 1 reply; 9+ messages in thread
From: Sebastien Vauban @ 2014-03-14 11:31 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Bastien wrote:
>> I tried Edebugging it, but Edebug does not jump into the execution of
>> the anonymous function...
>
> Just give a name to the anonymous function... and you're back on
> edebugging. :)
OK, of course! Thanks for the tip.
Back to the problem... The root cause is that, with the following
example:
--8<---------------cut here---------------start------------->8---
#+TITLE: ECM Inherited tags
#+FILETAGS: :org:
* Test
** TODO Vérifier pourquoi les tags redondants ne sont plus effacés :FLAGGED:
Lorsqu'ils correspondent à un tag hérité.
*** TODO Test :FLAGGED:
--8<---------------cut here---------------end--------------->8---
when point is somewhere on the outline-3 heading "TODO Test", the
following expression:
(org-entry-get (point) "ALLTAGS")
returns
#(":org:FLAGGED:" 1 4 (inherited t))
IOW, "FLAGGED" is not shown as inherited! Hence, all the mechanics
which follows never removes it!
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-13 15:36 Remove redundant tags of headlines Sebastien Vauban
2014-03-13 15:54 ` Bastien
@ 2014-03-14 12:05 ` Nicolas Richard
2014-03-14 14:53 ` Bastien
1 sibling, 1 reply; 9+ messages in thread
From: Nicolas Richard @ 2014-03-14 12:05 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ
Sebastien Vauban <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
> I tried Edebugging it, but Edebug does not jump into the execution of
> the anonymous function...
edebug can only jump to the anonymous function if it knows that it is a
function, which means : don't quote the lambda (or quote using #'). I
fixed it on worg.
(btw, I noticed that worg says
remote: No such file: "/home/emacs/git/worg/org-tutorials/"../code/awk/ical2org.awk" src awk"
when I push to it. I *guess* it comes from
org-tutorials/org-google-sync.org which tries to #+INCLUDE the above,
but I'm unsure how to fix it. I didn't touch that file.)
--
Nico.
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-14 11:31 ` Sebastien Vauban
@ 2014-03-14 14:49 ` Bastien
2014-03-14 15:03 ` Sebastien Vauban
0 siblings, 1 reply; 9+ messages in thread
From: Bastien @ 2014-03-14 14:49 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ
Hi Sébastien,
Sebastien Vauban <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:
> #(":org:FLAGGED:" 1 4 (inherited t))
>
> IOW, "FLAGGED" is not shown as inherited!
Because it is not inherited, it is present in the headline.
Am I missing something?
> Hence, all the mechanics which follows never removes it!
You mean the mechanics of the function on Worg?
Or is there any real Org bug hidden somewhere here?
--
Bastien
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-14 12:05 ` Nicolas Richard
@ 2014-03-14 14:53 ` Bastien
0 siblings, 0 replies; 9+ messages in thread
From: Bastien @ 2014-03-14 14:53 UTC (permalink / raw)
To: Nicolas Richard; +Cc: public-emacs-orgmode-mXXj517/zsQ, Sebastien Vauban
Hi Nicolas,
Nicolas Richard <theonewiththeevillook@yahoo.fr> writes:
> (btw, I noticed that worg says
> remote: No such file: "/home/emacs/git/worg/org-tutorials/"../code/awk/ical2org.awk" src awk"
> when I push to it. I *guess* it comes from
> org-tutorials/org-google-sync.org which tries to #+INCLUDE the above,
> but I'm unsure how to fix it. I didn't touch that file.)
I've created a link to ical2org.awk, including such a big file
looks wrong. This does not fix the problem, it only circumvent
it.
--
Bastien
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-14 14:49 ` Bastien
@ 2014-03-14 15:03 ` Sebastien Vauban
2014-03-14 15:28 ` Bastien
0 siblings, 1 reply; 9+ messages in thread
From: Sebastien Vauban @ 2014-03-14 15:03 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hi Bastien,
Bastien wrote:
> Sebastien Vauban writes:
>
>> #(":org:FLAGGED:" 1 4 (inherited t))
>>
>> IOW, "FLAGGED" is not shown as inherited!
>
> Because it is not inherited, it is present in the headline.
>
> Am I missing something?
From my point of view and the point of that function (IIUC), yes.
Look again:
--8<---------------cut here---------------start------------->8---
#+FILETAGS: :org:
* List of projects
** TODO Project A :FLAGGED:
*** TODO Task 1 :FLAGGED:
--8<---------------cut here---------------end--------------->8---
Of course, "FLAGGED" is present in the headline but, at the same time,
it is inherited.
IIUC, the goal of the function written by David was to remove redundant
tags. In the above case, "FLAGGED" should be removed from "Task 1"
because it is superfluous (redundant with its parent entry).
>> Hence, all the mechanics which follows never removes it!
>
> You mean the mechanics of the function on Worg?
Yes, as explicited above.
> Or is there any real Org bug hidden somewhere here?
I'd think that asking for all tags of "Task 1" should output both
a local "FLAGGED" tag and an inherited "FLAGGED" one.
Am I wrong?
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
2014-03-14 15:03 ` Sebastien Vauban
@ 2014-03-14 15:28 ` Bastien
[not found] ` <87bnx8re93.fsf-E3UqQZAQFPqWIDz0JBNUog@public.gmane.org>
0 siblings, 1 reply; 9+ messages in thread
From: Bastien @ 2014-03-14 15:28 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ
Hi Sébastien,
Sebastien Vauban <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:
> ** TODO Project A :FLAGGED:
> *** TODO Task 1 :FLAGGED:
>
> Of course, "FLAGGED" is present in the headline but, at the same time,
> it is inherited.
It means Org favors explicit tags over inherited ones when presenting
them through `org-entry-get'.
> IIUC, the goal of the function written by David was to remove redundant
> tags. In the above case, "FLAGGED" should be removed from "Task 1"
> because it is superfluous (redundant with its parent entry).
Can you find when David's function was still functional for you?
> I'd think that asking for all tags of "Task 1" should output both
> a local "FLAGGED" tag and an inherited "FLAGGED" one.
Well, ALLTAGS means all distinct tags for me, and I don't see how
outputting all duplicate tags would be useful. You'll have to find
another use-case than just David's function to convince me :)
--
Bastien
^ permalink raw reply [flat|nested] 9+ messages in thread
* Re: Remove redundant tags of headlines
[not found] ` <87bnx8re93.fsf-E3UqQZAQFPqWIDz0JBNUog@public.gmane.org>
@ 2014-03-14 16:17 ` Sebastien Vauban
0 siblings, 0 replies; 9+ messages in thread
From: Sebastien Vauban @ 2014-03-14 16:17 UTC (permalink / raw)
To: Bastien; +Cc: David Maus,
public-emacs-orgmode-mXXj517/zsQ-wOFGN7rlS/M9smdsby/KFg
Hi Bastien,
>> ** TODO Project A :FLAGGED:
>> *** TODO Task 1 :FLAGGED:
>>
>> Of course, "FLAGGED" is present in the headline but, at the same time,
>> it is inherited.
>
> It means Org favors explicit tags over inherited ones when presenting
> them through `org-entry-get'.
Yes, that's what I thought. That makes sense.
>> IIUC, the goal of the function written by David was to remove redundant
>> tags. In the above case, "FLAGGED" should be removed from "Task 1"
>> because it is superfluous (redundant with its parent entry).
>
> Can you find when David's function was still functional for you?
No, and, honestly, I won't try, because I remember seeing that not
functioning for a very long time, certainly well above 1 year. And so
many things changed in my config (Emacs, Org mode) and in Org mode, that
I'm not sure at all to come back to a previously working state -- if it
did [1].
>> I'd think that asking for all tags of "Task 1" should output both
>> a local "FLAGGED" tag and an inherited "FLAGGED" one.
>
> Well, ALLTAGS means all distinct tags for me, and I don't see how
> outputting all duplicate tags would be useful.
Well, here, it would be useful that ALLTAGS would really report ALL
TAGS... (even if it wasn't its default behavior)
> You'll have to find another use-case than just David's function to
> convince me :)
Then, I won't. But such a cleaning (in `before-save-hook') is not
possible, then?
Best regards,
Seb
[1] I can't exclude that my mind would play me tricks.
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 9+ messages in thread
end of thread, other threads:[~2014-03-14 16:17 UTC | newest]
Thread overview: 9+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-03-13 15:36 Remove redundant tags of headlines Sebastien Vauban
2014-03-13 15:54 ` Bastien
2014-03-14 11:31 ` Sebastien Vauban
2014-03-14 14:49 ` Bastien
2014-03-14 15:03 ` Sebastien Vauban
2014-03-14 15:28 ` Bastien
[not found] ` <87bnx8re93.fsf-E3UqQZAQFPqWIDz0JBNUog@public.gmane.org>
2014-03-14 16:17 ` Sebastien Vauban
2014-03-14 12:05 ` Nicolas Richard
2014-03-14 14:53 ` Bastien
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).