emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Bug: A tag of a subject doesn't get archived if org-archive-subtree-add-


From: hpgisleropen
Subject: 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/)]
Date: Sat, 11 Jul 2020 22:21:13 +0200

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"
 )



reply via email to

[Prev in Thread] Current Thread [Next in Thread]