emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Bug: A tag of a subject doesn't get archived if org-archive-subtree-add-inherited-tags t [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)]
@ 2020-07-11 20:21 hpgisleropen
  2020-09-05 15:43 ` Bastien
  0 siblings, 1 reply; 2+ messages in thread
From: hpgisleropen @ 2020-07-11 20:21 UTC (permalink / raw)
  To: emacs-orgmode

a)
if:   org-archive-subtree-add-inherited-tags nil
then: Archiving a subject with its tag (C-c $) works as expected,
      i.e. the subject together with it's tag is archived
b)
if:   org-archive-subtree-add-inherited-tags t
then  Archiving a subject with its tag (C-c $)
      archives the subject with only its inherited tag
      but NOT its original tag

Example:

* parent subject :parent:
** child subject :child:

Archiving result:
a) * child subject :child:      <-- ok
b) * child subject :parent:     <-- nok

What I would expect:
b) * child subject :parent:child: 

--------------------------------------------------------------------------------


Emacs  : GNU Emacs 26.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.20)
 of 2020-05-19
Package: Org mode version 9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-caldav-calendars '((:calendar-id "7233a14a-4d9b-d577-d639-95096b2c8fdb" :files ("~/hp.org") :inbox "~/org/hp.org")
			(:calendar-id "d9ac6596-34bb-9422-a7bb-e33aeba14639" :files ("~/family.org") :inbox "~/org/family.org"))
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-columns-default-format "%TODO(state) %ITEM(task) %TAGS(by)"
 org-archive-subtree-add-inherited-tags t
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-global-properties '(("Estimate_ALL" . "0:15 0:30 1:00 2:00 3:00 5:00 8:00 13:00") ("STYLE_ALL" . "habit"))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9))
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-enforce-todo-dependencies t
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-files '("~/d_SUP.1-project-management" "~/hp.org" "~/family.org" "~/org/hp.org" "~/org/family.org")
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-modules '(org-bbdb org-bibtex org-docview org-gnus org-habit org-info org-irc org-mhe org-rmail org-w3m)
 org-agenda-log-mode-items '(closed state)
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id
 org-mode-hook '((lambda nil (local-unset-key (kbd "C-c C-m")))
		 #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-block-all append local] 5]
		 #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-startup-indented t
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-babel-pre-tangle-hook '(save-buffer)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
 org-export-with-broken-links 'mark
 org-caldav-url "https://cloud7:5232/hp"
 org-babel-load-languages '((shell . t))
 org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-ellipsis "…"
 org-icalendar-include-todo t
 org-catch-invisible-edits t
 org-occur-hook '(org-first-headline-recenter)
 outline-minor-mode-hook '(my-outline-easy-bindings)
 org-agenda-window-setup 'current-window
 org-log-into-drawer t
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change)
 org-todo-keywords '((sequence "TODO(t)" "WAIT(w)" "|" "DONE(d!)") (type "WAIT(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@)"))
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-hierarchical-todo-statistics nil
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-caldav-save-directory "~/org/.org-caldav/"
 org-refile-allow-creating-parent-nodes 'confirm
 org-caldav-backup-file "~/org/.org-caldav/org-caldav-backup.org"
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("notmuch" :follow org-notmuch-open :store org-notmuch-store-link) ("w3m" :store org-w3m-store-link)
		       ("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" :follow org-mhe-open :store org-mhe-store-link)
		       ("irc" :follow org-irc-visit :store org-irc-store-link)
		       ("info" :follow org-info-open :export org-info-export :store org-info-store-link)
		       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
		       ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link)
		       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
		       ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store org-bbdb-store-link)
		       ("id" :follow org-id-open) ("file+sys") ("file+emacs") ("doi" :follow org--open-doi-link)
		       ("elisp" :follow org--open-elisp-link) ("file" :complete org-file-complete-link)
		       ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path)))) ("help" :follow org--open-help-link)
		       ("http" :follow (lambda (path) (browse-url (concat "http:" path))))
		       ("https" :follow (lambda (path) (browse-url (concat "https:" path))))
		       ("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path))))
		       ("news" :follow (lambda (path) (browse-url (concat "news:" path)))) ("shell" :follow org--open-shell-link))
 org-icalendar-use-scheduled '(todo-start event-if-todo event-if-not-todo)
 org-icalendar-timezone "Europe/Zurich"
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-capture-templates '(("p" "private")
			 ("pa" "appointment" entry (file+headline org-default-notes-file "Appointments") "* %?\n%t\n%i\n%a" :unnarrowed nil
			  :prepend t)
			 ("pA" "calFw appointment" entry (file+headline org-default-notes-file "Appointments")
			  "* %?\n%(cfw:org-capture-day)\n%i\n%a" :unnarrowed nil :prepend t)
			 ("pt" "todo" entry (file+headline org-default-notes-file "Tasks") "* TODO %?\n%i\n%a" :unnarrowed nil)
			 ("pj" "journal" entry (file+olp+datetree org-default-notes-file "Journal") "* %?\n%i\n%a") ("w" "work")
			 ("wt" "todo" entry
			  (file+headline
			   "/home/hp/todos.org" "Captures")
			  "* TODO %?\n%i\n%a" :unnarrowed nil)
			 ("t" "todo" entry
			  (file+headline
			   "/home/hp/todos.org" "Captures")
			  "* TODO %?\n%a\n%i" :unnarrowed nil)
			 )
 org-todo-keyword-faces '(("WAIT" :foreground "turquoise3" :weight bold))
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-emphasis-alist '(("*" bold) ("/" italic) ("_" underline) ("=" (:foreground "orange")) ("~" org-verbatim verbatim) ("+" (:strike-through t)))
 org-agenda-compact-blocks t
 org-latex-classes '(("beamer" "\\documentclass[presentation]{beamer}" ("\\section{%s}" . "\\section*{%s}")
		      ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     ("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}") ("\\paragraph{%s}" . "\\paragraph*{%s}")
		      ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
		     ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
		      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
		      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
		     )
 org-html-format-headline-function 'org-html-format-headline-default-function
 org-agenda-dim-blocked-tasks nil
 org-confirm-babel-evaluate nil
 org-icalendar-use-deadline '(event-if-todo event-if-not-todo todo-due)
 org-agenda-custom-commands '(("N" "Notes" tags "NOTE" ((org-agenda-overriding-header "Notes") (org-tags-match-list-sublevels t)))
			      ("h" "Habits" tags-todo "STYLE=\"habit\""
			       ((org-agenda-overriding-header "Habits")
				(org-agenda-sorting-strategy (quote (todo-state-down effort-up category-keep))))
			       )
			      (" " "Agenda"
			       ((agenda "" nil)
				(tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile") (org-tags-match-list-sublevels nil)))
				(tags-todo "-CANCELLED/!"
				 ((org-agenda-overriding-header "Stuck Projects") (org-agenda-skip-function (quote bh/skip-non-stuck-projects))
				  (org-agenda-sorting-strategy (quote (category-keep))))
				 )
				(tags-todo "-HOLD-CANCELLED/!"
				 ((org-agenda-overriding-header "Projects") (org-agenda-skip-function (quote bh/skip-non-projects))
				  (org-tags-match-list-sublevels (quote indented)) (org-agenda-sorting-strategy (quote (category-keep))))
				 )
				(tags-todo "-CANCELLED/!NEXT"
				 ((org-agenda-overriding-header
				   (concat "Project Next Tasks"
				    (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))
				   )
				  (org-agenda-skip-function (quote bh/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-sublevels t)
				  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-sorting-strategy (quote (todo-state-down effort-up category-keep))))
				 )
				(tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
				 ((org-agenda-overriding-header
				   (concat "Project Subtasks"
				    (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))
				   )
				  (org-agenda-skip-function (quote bh/skip-non-project-tasks))
				  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-sorting-strategy (quote (category-keep))))
				 )
				(tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!"
				 ((org-agenda-overriding-header
				   (concat "Standalone Tasks"
				    (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))
				   )
				  (org-agenda-skip-function (quote bh/skip-project-tasks))
				  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-sorting-strategy (quote (category-keep))))
				 )
				(tags-todo "-CANCELLED+WAITING|HOLD/!"
				 ((org-agenda-overriding-header
				   (concat "Waiting and Postponed Tasks"
				    (if bh/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and SCHEDULED tasks)"))
				   )
				  (org-agenda-skip-function (quote bh/skip-non-tasks)) (org-tags-match-list-sublevels nil)
				  (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks)
				  (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks))
				 )
				(tags "-REFILE/"
				 ((org-agenda-overriding-header "Tasks to Archive") (org-agenda-skip-function (quote bh/skip-non-archivable-tasks))
				  (org-tags-match-list-sublevels nil))
				 )
				)
			       nil)
			      )
 org-directory "~"
 org-icalendar-alarm-time 1
 org-default-notes-file "~/hp.org"
 )


^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: Bug: A tag of a subject doesn't get archived if org-archive-subtree-add-inherited-tags t [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)]
  2020-07-11 20:21 Bug: A tag of a subject doesn't get archived if org-archive-subtree-add-inherited-tags t [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)] hpgisleropen
@ 2020-09-05 15:43 ` Bastien
  0 siblings, 0 replies; 2+ messages in thread
From: Bastien @ 2020-09-05 15:43 UTC (permalink / raw)
  To: hpgisleropen; +Cc: emacs-orgmode

Hi,

hpgisleropen@bluewin.ch writes:

> a)
> if:   org-archive-subtree-add-inherited-tags nil
> then: Archiving a subject with its tag (C-c $) works as expected,
>       i.e. the subject together with it's tag is archived
> b)
> if:   org-archive-subtree-add-inherited-tags t
> then  Archiving a subject with its tag (C-c $)
>       archives the subject with only its inherited tag
>       but NOT its original tag
>
> Example:
>
> * parent subject :parent:
> ** child subject :child:
>
> Archiving result:
> a) * child subject :child:      <-- ok
> b) * child subject :parent:     <-- nok
>
> What I would expect:
> b) * child subject :parent:child: 

I cannot reproduce this error, but you use an old version of Org, 
if you can upgrade (to 9.3.7 at least) and test again, that'd be
great.  

Thanks,

-- 
 Bastien


^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2020-09-05 15:43 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-07-11 20:21 Bug: A tag of a subject doesn't get archived if org-archive-subtree-add-inherited-tags t [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/share/emacs/26.3/lisp/org/)] hpgisleropen
2020-09-05 15:43 ` 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).