emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] archiving subtrees archives adjacent / on the same level below subtrees instead of just the subtree itself + any below [9.6 (9.6-??-971eb6885 @ /home/riccardo/.emacs.d/.local/straight/build-27.2/org/)]
@ 2022-07-01 19:07 Riccardo Varenna
  2022-07-05 14:09 ` Ihor Radchenko
  0 siblings, 1 reply; 2+ messages in thread
From: Riccardo Varenna @ 2022-07-01 19:07 UTC (permalink / raw)
  To: emacs-orgmode

--text follows this line--

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

      https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

When trying to archive a subtree it regularly happens that instead of
just the intended subtree, other subtrees get archived as well. As an
example:

* A
** B
** C

when trying to archive B using org-archive-subtree instead of just B
getting archived, C often gets archived as well.

Occasionally I get a warning when this happens, I will attach the logs
for that below, but more often it doesn't even give a warning when this
happens.

Most likely this is somehow related to the org-element-cache. I see it
happen more often when I fold / unfold subsections or when the tree I
want to archive is unfolded. Most of my subheadings have properties like 
this:
:PROPERTIES:
:CREATED:  [2022-07-01 Fr 01:00]
:END:

which are automatically added when I create a new heading.

Thank you very much for looking into this problem, as I haven't found a
solution myself.

=== attached logs

Warning (org-element-cache): org-element--cache: (org-archive-subtree) 
Cached element is incorrect in todo.org. (Cache tic up to date: "yes") 
Resetting.
If this warning appears regularly, please report the warning text to Org 
mode mailing list (M-x org-submit-bug-report).
The element is: "(headline (:raw-value \"get back to Xan\" :begin 52350 
:end 52624 :pre-blank 0 :contents-begin 52379 :contents-end 52624 
:robust-begin 52430 :robust-end 52622 :level 2 :priority 66 :tags nil 
:todo-keyword #(\"DONE\" 0 4 (line-prefix #(\"*\" 0 1 ...) wrap-prefix 
#(\"*** \" 0 1 ... 1 4 ...) ws-butler-chg chg fontified nil face 
(org-done org-done org-level-2) org-todo-head #(\"TODO\" 0 4 ...))) 
:todo-type done :post-blank 0 :footnote-section-p nil :archivedp nil 
:commentedp nil :post-affiliated 52350 :CREATED \"[2022-06-30 Do 
22:31]\" :title (#(\"get back to Xan\" 0 15 (:parent ...))) :mode nil 
:granularity nil :parent (headline (:raw-value \"Quick\" :begin 51758 
:end 52823 :pre-blank 0 :contents-begin 51766 :contents-end 52823 
:robust-begin 51768 :robust-end 52821 :level 1 :priority nil :tags nil 
:todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil 
:archivedp nil :commentedp nil :post-affiliated 51758 :title 
(#(\"Quick\" 0 5 ...)) :mode nil :granularity nil :parent (org-data ...) 
:cached t :org-element--cache-sync-key (2673 . 51758))) :cached t 
:org-element--cache-sync-key (2673 . 52398)))"
  The real element is: "(headline (:raw-value \"get back to Xan\" :begin 
52350 :end 52508 :pre-blank 0 :contents-begin 52379 :contents-end 52508 
:robust-begin 52430 :robust-end 52506 :level 2 :priority 66 :tags nil 
:todo-keyword #(\"DONE\" 0 4 (line-prefix #(\"*\" 0 1 ...) wrap-prefix 
#(\"*** \" 0 1 ... 1 4 ...) ws-butler-chg chg fontified t org-todo-head 
#(\"TODO\" 0 4 ...) face (org-done org-done org-level-2))) :todo-type 
done :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp 
nil :post-affiliated 52350 :CREATED \"[2022-06-30 Do 22:31]\" :title 
\"get back to Xan\" :mode nil :granularity element :parent nil))"
  Cache around :begin:
(headline (:raw-value "maybe add another section for people eating fish" 
:begin 52182 :end 52350 :pre-blank 0 :contents-begin 52244 :contents-end 
52350 :robust-begin 52304 :robust-end 52348 :level 2 :priority 67 :tags 
nil :todo-keyword #("TODO" 0 4 (fontified t line-prefix #("*" 0 1 (face 
org-indent)) wrap-prefix #("*** " 0 1 (face org-indent) 1 4 (face 
org-indent)) face (org-todo org-todo org-level-2))) :todo-type todo 
:post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil 
:post-affiliated 52182 :CREATED "[2022-06-30 Thu 01:24]" :title "maybe 
add another section for people eating fish" :mode nil :granularity 
element :org-element--cache-sync-key (2673 . 52250) :cached t :parent 
(headline (:raw-value "Quick" :begin 51758 :end 52823 :pre-blank 0 
:contents-begin 51766 :contents-end 52823 :robust-begin 51768 
:robust-end 52821 :level 1 :priority nil :tags nil :todo-keyword nil 
:todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil 
:commentedp nil :post-affiliated 51758 :title (#("Quick" 0 5 (:parent 
(headline #3)))) :mode nil :granularity nil :parent (org-data (:begin 1 
:contents-begin 1 :contents-end 52823 :end 52823 :robust-begin 3 
:robust-end 52821 :post-blank 0 :post-affiliated 1 :path 
"/home/riccardo/Dropbox/org/todo.org" :mode org-data :CATEGORY "todo" 
:parent nil :cached t)) :cached t :org-element--cache-sync-key (2673 . 
51758)))))
(headline (:raw-value "get back to Xan" :begin 52350 :end 52624 
:pre-blank 0 :contents-begin 52379 :contents-end 52624 :robust-begin 
52430 :robust-end 52622 :level 2 :priority 66 :tags nil :todo-keyword 
#("DONE" 0 4 (line-prefix #("*" 0 1 (face org-indent)) wrap-prefix 
#("*** " 0 1 (face org-indent) 1 4 (face org-indent)) ws-butler-chg chg 
fontified nil face (org-done org-done org-level-2) org-todo-head 
#("TODO" 0 4 (face org-todo)))) :todo-type done :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 
52350 :CREATED "[2022-06-30 Do 22:31]" :title (#("get back to Xan" 0 15 
(:parent (headline #1)))) :mode nil :granularity nil :parent (headline 
(:raw-value "Quick" :begin 51758 :end 52823 :pre-blank 0 :contents-begin 
51766 :contents-end 52823 :robust-begin 51768 :robust-end 52821 :level 1 
:priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 
51758 :title (#("Quick" 0 5 (:parent (headline #3)))) :mode nil 
:granularity nil :parent (org-data (:begin 1 :contents-begin 1 
:contents-end 52823 :end 52823 :robust-begin 3 :robust-end 52821 
:post-blank 0 :post-affiliated 1 :path 
"/home/riccardo/Dropbox/org/todo.org" :mode org-data :CATEGORY "todo" 
:parent nil :cached t)) :cached t :org-element--cache-sync-key (2673 . 
51758))) :cached t :org-element--cache-sync-key (2673 . 52398)))
(section (:begin 52379 :end 52508 :contents-begin 52379 :contents-end 
52508 :robust-begin 52379 :robust-end 52506 :post-blank 0 
:post-affiliated 52379 :mode section :granularity element 
:org-element--cache-sync-key (2673 . 52472) :cached t :parent (headline 
(:raw-value "get back to Xan" :begin 52350 :end 52624 :pre-blank 0 
:contents-begin 52379 :contents-end 52624 :robust-begin 52430 
:robust-end 52622 :level 2 :priority 66 :tags nil :todo-keyword #("DONE" 
0 4 (line-prefix #("*" 0 1 (face org-indent)) wrap-prefix #("*** " 0 1 
(face org-indent) 1 4 (face org-indent)) ws-butler-chg chg fontified nil 
face (org-done org-done org-level-2) org-todo-head #("TODO" 0 4 (face 
org-todo)))) :todo-type done :post-blank 0 :footnote-section-p nil 
:archivedp nil :commentedp nil :post-affiliated 52350 :CREATED 
"[2022-06-30 Do 22:31]" :title (#("get back to Xan" 0 15 (:parent 
(headline #3)))) :mode nil :granularity nil :parent (headline 
(:raw-value "Quick" :begin 51758 :end 52823 :pre-blank 0 :contents-begin 
51766 :contents-end 52823 :robust-begin 51768 :robust-end 52821 :level 1 
:priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 
:footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 
51758 :title (#("Quick" 0 5 (:parent (headline #5)))) :mode nil 
:granularity nil :parent (org-data (:begin 1 :contents-begin 1 
:contents-end 52823 :end 52823 :robust-begin 3 :robust-end 52821 
:post-blank 0 :post-affiliated 1 :path 
"/home/riccardo/Dropbox/org/todo.org" :mode org-data :CATEGORY "todo" 
:parent nil :cached t)) :cached t :org-element--cache-sync-key (2673 . 
51758))) :cached t :org-element--cache-sync-key (2673 . 52398)))))


=== end of attached logs





Emacs  : GNU Emacs 27.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 
3.24.27, cairo version 1.17.4)
  of 2021-03-26
Package: Org mode version 9.6 (9.6-??-971eb6885 @ 
/home/riccardo/.emacs.d/.local/straight/build-27.2/org/)

current state:
==============
(setq
  org-roam-db-location "/home/riccardo/.emacs.d/.local/etc/org-roam.db"
  org-src-mode-hook '(org-src-babel-configure-edit-buffer
                      org-src-mode-configure-edit-buffer
                      doom-modeline-set-org-src-modeline)
  org-fontify-whole-heading-line t
  org-agenda-scheduled-leaders '("" "Sched.%2dx: ")
  org-after-todo-state-change-hook '(org-checklist)
  org-capture-prepare-finalize-hook '(org-roam-capture--install-finalize)
  org-roam-dailies-calendar-hook '(org-roam-dailies-calendar-mark-entries)
  org-link-shell-confirm-function 'yes-or-no-p
  org-mode-local-vars-hook '(+org-init-gifs-h eldoc-mode)
  org-babel-after-execute-hook 
'(+org-redisplay-inline-images-in-babel-result-h)
  org-insert-heading-respect-content t
  org-after-refile-insert-hook '(save-buffer)
  org-agenda-sticky t
  org-metadown-hook '(org-babel-pop-to-session-maybe)
  org-roam-title-to-slug-function 'org-roam--title-to-slug
  org-follow-link-hook '(+nav-flash-delayed-blink-cursor-h)
  org-persist-directory "/home/riccardo/.emacs.d/.local/cache/org-persist/"
  org-refile-targets '((nil :maxlevel . 2) (org-agenda-files :maxlevel . 2))
  org-enforce-todo-dependencies t
  org-special-ctrl-a/e t
  org-imenu-depth 6
  org-persist-before-write-hook '(org-element--cache-persist-before-write)
  org-agenda-files '("~/Dropbox/org")
  org-tag-alist '(("check_with_people" . 99) ("review_evening" . 101) 
("family" . 102)
                  ("health" . 104) ("linux" . 108) ("review_morning" . 109)
                  ("programming" . 112))
  org-reveal-start-hook '(org-decrypt-entry)
  org-modules '(ol-bibtex org-checklist)
  org-startup-folded nil
  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
  org-roam-buffer-prepare-hook '(hide-mode-line-mode 
org-roam-buffer--insert-title
                                 org-roam-buffer--insert-backlinks
                                 org-roam-buffer--insert-ref-links)
  org-super-agenda-mode t
  org-mode-hook '(er/add-org-mode-expansions 
+lookup--init-org-mode-handlers-h
                  (closure ((hook . org-mode-hook) (--dolist-tail--) t) 
(&rest _)
                   (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                  #[0 "\300\301\302\303\304$\207"
                    [add-hook change-major-mode-hook org-show-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
                  #[0 "\301\211\x10\207" [imenu-create-index-function 
org-imenu-get-tree] 2]
                  doom-disable-show-paren-mode-h 
doom-disable-show-trailing-whitespace-h
                  +org-enable-auto-reformat-tables-h 
+org-enable-auto-update-cookies-h
                  +org-make-last-point-visible-h org-fancy-priorities-mode
                  org-superstar-mode evil-org-mode toc-org-enable 
embrace-org-mode-hook
                  org-eldoc-load)
  org-roam-mode t
  org-clock-persist 'history
  org-fancy-priorities-list '("[#A]" "[#B]" "[#C]")
  org-roam-link-use-custom-faces 'everywhere
  org-outline-path-complete-in-steps nil
  org-archive-hook '(org-attach-archive-delete-maybe)
  org-persist-before-read-hook '(org-element--cache-persist-before-read)
  org-agenda-finalize-hook '(org-fancy-priorities-create-overlays
+org-exclude-agenda-buffers-from-workspace-h
                             +org-defer-mode-in-agenda-buffers-h)
  org-startup-indented t
  org-roam-title-change-hook '(org-roam--update-file-name-on-title-change
org-roam--update-links-on-title-change)
  org-agenda-todo-list-sublevels nil
  org-clock-history-length 20
  org-roam-capture-function 'org-capture
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-persist-after-read-hook '(org-element--cache-persist-after-read)
  org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 
"\n\n(fn ENTRY)"]
  org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning)
                              (0.5 . org-upcoming-deadline)
                              (0.0 . org-upcoming-distant-deadline))
  org-crypt-key nil
  org-babel-pre-tangle-hook '(save-buffer)
  org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs)
                  ("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
                  ("\\.pdf\\'" . default))
  org-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h
                       org-babel-hide-result-toggle-maybe 
org-babel-header-arg-expand
                       +org-clear-babel-results-h 
+org-cycle-only-current-subtree-h)
  org-hide-leading-stars nil
  org-load-hook '(+org-init-org-directory-h +org-init-appearance-h 
+org-init-agenda-h
                  +org-init-attachments-h +org-init-babel-h 
+org-init-babel-lazy-loader-h
                  +org-init-capture-defaults-h +org-init-capture-frame-h
                  +org-init-custom-links-h +org-init-export-h 
+org-init-habit-h
                  +org-init-hacks-h +org-init-keybinds-h 
+org-init-popup-rules-h
                  +org-init-protocol-h +org-init-protocol-lazy-loader-h
                  +org-init-smartparens-h +org-init-roam-maybe-h)
  org-roam-buffer-preview-function 'org-roam-buffer--preview
  org-link-abbrev-alist '(("doom-repo" . 
"https://github.com/hlissner/doom-emacs/%s")
                          ("wolfram" . 
"https://wolframalpha.com/input/?i=%s")
                          ("wikipedia" . "https://en.wikipedia.org/wiki/%s")
                          ("duckduckgo" . "https://duckduckgo.com/?q=%s")
                          ("gmap" . "https://maps.google.com/maps?q=%s")
                          ("gimages" . "https://google.com/images?q=%s")
                          ("google" . "https://google.com/search?q=")
                          ("youtube" . "https://youtube.com/watch?v=%s")
                          ("github" . "https://github.com/%s"))
  org-export-backends '(md ascii html icalendar latex odt)
  org-roam-completion-everywhere t
  org-roam-capture-templates '(("d" "default" plain 
#'org-roam--capture-get-point "%?"
                                :file-name "${title}" :head "#+title: 
${title}\n"
                                :unnarrowed t)
                               ("b" "book" plain 
#'org-roam--capture-get-point :file-name
                                "books/${title}" :head
                                "#+title: ${title}\n* Author\n%?\n* 
Rating\n* The book in 3 sentences\n1." :unnarrowed t)
                               ("g" "goal" plain 
#'org-roam--capture-get-point :file-name
                                "goal/${title}" :head
                                "#+title: ${title}\n* Dream\n%?\n* 
Why\n* Smart Goal\n* What is the habit to achieve this\n* How surprised 
would I be if I fail\n* Top 3 Reasons for failure\n1.\n* Who can help\n* 
How can I stack the deck to succeed\n* action [/]\n- [ ] " :unnarrowed t)
                               ("o" "OKRs" plain 
#'org-roam--capture-get-point :file-name
                                "okrs/${title}" :head
                                "#+title: ${title}\n* Objective\n%?\n* 
Key Results\n1."
                                :unnarrowed t)
                               )
  org-highlight-latex-and-related '(native script entities)
  org-clock-in-resume t
  org-checklist-export-function 'org-export-as-ascii
  org-superstar-leading-bullet 32
  org-attach-store-link-p t
  org-archive-subtree-save-file-p t
  org-agenda-span 10
  org-superstar-todo-bullet-alist '(("TODO" . 9744) ("[ ]" . 9744) 
("DONE" . 9745)
                                    ("[X]" . 9745))
  org-agenda-loop-over-headlines-in-active-region nil
  org-src-lang-modes '(("md" . markdown) ("C" . c) ("C++" . c++) 
("asymptote" . asy)
                       ("bash" . sh) ("beamer" . latex) ("calc" . 
fundamental)
                       ("cpp" . c++) ("ditaa" . artist) ("dot" . 
fundamental)
                       ("elisp" . emacs-lisp) ("ocaml" . tuareg)
                       ("screen" . shell-script) ("shell" . sh) 
("sqlite" . sql))
  org-src-preserve-indentation t
  org-fontify-quote-and-verse-blocks t
  org-roam-completion-system 'ivy
  org-roam-backlinks-mode-hook '(turn-on-visual-line-mode)
  org-catch-invisible-edits 'smart
  org-habit-show-habits-only-for-today nil
  org-agenda-prefix-format '((agenda . " %t %s") (todo . " %?-8t %-25b %s")
                             (tags . " %?-8t %-25b %s") (search . " 
%?-8t %-25b %s"))
  org-occur-hook '(org-first-headline-recenter)
  org-agenda-mode-hook '(+org-habit-resize-graph-h org-fancy-priorities-mode
                         evil-org-agenda-mode)
  org-agenda-window-setup 'current-window
  org-log-into-drawer t
  org-indirect-buffer-display 'current-window
  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!)" "PROJ(p!)" "|" 
"DONE(d!)"))
  org-speed-command-hook '(org-speed-command-activate 
org-babel-speed-command-activate)
  org-tags-column 0
  org-capture-mode-hook '(+org-show-target-in-capture-header-h 
evil-insert-state)
  org-clock-persist-file 
"/home/riccardo/.emacs.d/.local/etc/org-clock-save.el"
  org-attach-id-dir "/home/riccardo/Dropbox/org/.attach/"
  org-M-RET-may-split-line nil
  org-display-remote-inline-images 'download
  org-refile-use-outline-path 'file
  org-priority-faces '((65 . error) (66 . warning) (67 . success))
  org-export-before-parsing-hook '(org-attach-expand-links)
  org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
  org-id-locations-file "/home/riccardo/org/.orgids"
  org-confirm-shell-link-function 'yes-or-no-p
  org-link-parameters '(("bibtex" :follow org-bibtex-open :store 
org-bibtex-store-link)
                        ("download" :complete
                         (closure
                          ((dir-fn closure (t) nil
                            (or org-download-image-dir org-attach-id-dir 
"."))
                           (requires . org-download)
                           (plist :image-data-fun 
+org-image-file-data-fn :requires
                            org-download)
                           (dir-var closure (t) nil
                            (or org-download-image-dir org-attach-id-dir 
"."))
                           (key . "download") t)
                          nil (if requires (mapc #'require (doom-enlist 
requires)))
                          (+org--relative-path
                           (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure (t) nil
                            (or org-download-image-dir org-attach-id-dir 
"."))
                           (requires . org-download)
                           (plist :image-data-fun 
+org-image-file-data-fn :requires
                            org-download)
                           (dir-var closure (t) nil
                            (or org-download-image-dir org-attach-id-dir 
"."))
                           (key . "download") t)
                          (link)
                          (org-link-open-as-file (expand-file-name link 
(funcall dir-fn))
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn closure (t) nil
                            (or org-download-image-dir org-attach-id-dir 
"."))
                           (requires . org-download)
                           (plist :image-data-fun 
+org-image-file-data-fn :requires
                            org-download)
                           (dir-var closure (t) nil
                            (or org-download-image-dir org-attach-id-dir 
"."))
                           (key . "download") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p 
"::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         :image-data-fun +org-image-file-data-fn)
                        ("elfeed" :follow elfeed-link-open :store 
elfeed-link-store-link)
                        ("orgit-rev" :store orgit-rev-store :follow 
orgit-rev-open
                         :export orgit-rev-export :complete 
orgit-rev-complete-link)
                        ("orgit-log" :store orgit-log-store :follow 
orgit-log-open
                         :export orgit-log-export :complete 
orgit-log-complete-link)
                        ("orgit" :store orgit-status-store :follow 
orgit-status-open
                         :export orgit-status-export :complete 
orgit-status-complete-link)
                        ("roam" :follow org-roam-link-follow-link)
                        ("yt" :follow org-yt-follow :image-data-fun 
org-yt-image-data-fun)
                        ("id" :follow org-id-open :face 
org-roam--id-link-face)
                        ("img" :image-data-fun +org-inline-image-data-fn)
                        ("doom-module" :follow 
+org-link--doom-module-follow-fn :face
                         +org-link--doom-module-face-fn)
                        ("doom-package" :follow 
+org-link--doom-package-follow-fn :face
                         (closure (t) (_) '(:inherit org-priority :slant 
italic)))
                        ("kbd" :follow
                         (closure (t) (_)
                          (minibuffer-message "%s" 
(+org-display-link-in-eldoc-a)))
                         :help-echo +org-read-kbd-at-point :face 
help-key-binding)
                        ("doom-modules" :complete
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-modules-dir) (key . 
"doom-modules")
                             t)
                            nil (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-modules-dir)
                           (key . "doom-modules") t)
                          nil (if requires (mapc #'require (doom-enlist 
requires)))
                          (+org--relative-path
                           (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-modules-dir) (key . 
"doom-modules")
                             t)
                            nil (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-modules-dir)
                           (key . "doom-modules") t)
                          (link)
                          (org-link-open-as-file (expand-file-name link 
(funcall dir-fn))
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-modules-dir) (key . 
"doom-modules")
                             t)
                            nil (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-modules-dir)
                           (key . "doom-modules") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p 
"::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         )
                        ("doom-docs" :complete
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-docs-dir) (key . 
"doom-docs") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-docs-dir)
                           (key . "doom-docs") t)
                          nil (if requires (mapc #'require (doom-enlist 
requires)))
                          (+org--relative-path
                           (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-docs-dir) (key . 
"doom-docs") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-docs-dir)
                           (key . "doom-docs") t)
                          (link)
                          (org-link-open-as-file (expand-file-name link 
(funcall dir-fn))
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-docs-dir) (key . 
"doom-docs") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-docs-dir)
                           (key . "doom-docs") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p 
"::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         )
                        ("doom" :complete
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-emacs-dir) (key . 
"doom") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-emacs-dir) 
(key . "doom") t)
                          nil (if requires (mapc #'require (doom-enlist 
requires)))
                          (+org--relative-path
                           (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-emacs-dir) (key . 
"doom") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-emacs-dir) 
(key . "doom") t)
                          (link)
                          (org-link-open-as-file (expand-file-name link 
(funcall dir-fn))
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-emacs-dir) (key . 
"doom") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-emacs-dir) 
(key . "doom") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p 
"::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         )
                        ("org" :complete
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . org-directory) (key . 
"org") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . org-directory) 
(key . "org") t)
                          nil (if requires (mapc #'require (doom-enlist 
requires)))
                          (+org--relative-path
                           (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . org-directory) (key . 
"org") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . org-directory) 
(key . "org") t)
                          (link)
                          (org-link-open-as-file (expand-file-name link 
(funcall dir-fn))
                           nil)
                          )
                         :face
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . org-directory) (key . 
"org") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . org-directory) 
(key . "org") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p 
"::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         )
                        ("attachment" :image-data-fun 
+org-inline-image-data-fn :follow
                         org-attach-follow :complete 
org-attach-complete-link)
                        ("file+sys") ("file+emacs")
                        ("shell" :follow org-link--open-shell)
                        ("news" :follow
                         #[514 "\301\300\302\x04Q\x02\"\207" ["news" 
browse-url ":"] 6
                           "\n\n(fn URL ARG)"]
                         )
                        ("mailto" :follow
                         #[514 "\301\300\302\x04Q\x02\"\207" ["mailto" 
browse-url ":"] 6
                           "\n\n(fn URL ARG)"]
                         )
                        ("https" :follow
                         #[514 "\301\300\302\x04Q\x02\"\207" ["https" 
browse-url ":"] 6
                           "\n\n(fn URL ARG)"]
                         :image-data-fun +org-http-image-data-fn)
                        ("http" :follow
                         #[514 "\301\300\302\x04Q\x02\"\207" ["http" 
browse-url ":"] 6
                           "\n\n(fn URL ARG)"]
                         :image-data-fun +org-http-image-data-fn)
                        ("ftp" :follow
                         #[514 "\301\300\302\x04Q\x02\"\207" ["ftp" browse-url 
":"] 6
                           "\n\n(fn URL ARG)"]
                         )
                        ("help" :follow org-link--open-help :store 
org-link--store-help)
                        ("file" :complete org-link-complete-file :face
                         org-roam--file-link-face)
                        ("elisp" :follow org-link--open-elisp))
  org-capture-templates '(("n" "note" entry
                           (file+headline +org-capture-todo-file "Quick")
                           "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:")
                          ("c" "check with everyone" entry
                           (file+headline +org-capture-todo-file "Quick")
                           "* TODO %? [/]\n- [ ] Ben\n- [ ] Brian\n- [ ] 
Igor\n- [ ] Jakob\n- [ ] Konrad\n- [ ] Leon\n- [ ] Nikita\n- [ ] 
Rasmus\n- [ ] Rowan\n- [ ] Sebastian\n- [ ] Xan")
                          ("j" "journal entry" entry
                           (file+olp+datetree +org-capture-journal-file) 
"* %U\n%?"
                           :unnarrowed t)
                          ("t" "todo" entry
                           (file+headline +org-capture-todo-file "Quick")
                           "* TODO [#C] %?\n:PROPERTIES:\n:CREATED:  
%U\n:END:")
                          ("r" "read" table-line (id 
"ID-TBL-PAGES-READ") "|%?||"
                           :prepend t :unnarrowed t)
                          ("w" "wpm" table-line (id "ID-TBL-WPM") 
"|%?||" :prepend t
                           :unnarrowed t)
                          )
  org-link-translation-function 'toc-org-unhrefify
  org-link-elisp-confirm-function nil
  org-todo-keyword-faces '(("[-]" . +org-todo-active) ("WAIT" . 
+org-todo-onhold))
  org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
  org-super-agenda-groups '((:name "deadlines" :order 0 :deadline t)
                            (:name "scheduled" :order 1 :tag "scheduled")
                            (:name "followup" :order 2 :tag "followup")
                            (:name "todo" :order 3 :file-path "todo.org")
                            (:name "family" :order 4 :tag "family")
                            (:name "review morning" :order 5 :tag 
"review_morning")
                            (:name "health" :order 6 :tag "health")
                            (:name "eta" :order 7 :tag "eta")
                            (:name "habits" :order 8 :tag "habit")
                            (:name "check with people" :order 9 :tag 
"check_with_people")
                            (:name "review evening" :order 10 :tag 
"review_evening")
                            (:name "programming" :order 11 :tag 
"programming"))
  org-show-notification-timeout 30
  org-image-actual-width nil
  org-roam-directory "~/Dropbox/org/roam"
  org-eldoc-breadcrumb-separator " → "
  org-priority-default 67
  org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭")
                      ("sharp" "\\sharp" nil "" "" "266F" "♯"))
  org-src-window-setup 'other-window
  org-clock-out-remove-zero-time-clocks t
  org-confirm-babel-evaluate nil
  org-deadline-warning-days 7
  org-use-sub-superscripts '{}
  org-directory "~/Dropbox/org/"
  org-preview-latex-image-directory 
"/home/riccardo/.emacs.d/.local/cache/org-latex/"
  org-roam-buffer-window-parameters '((no-delete-other-windows . t))
  org-tags-exclude-from-inheritance '("crypt")
  org-attach-use-inheritance t
  org-agenda-todo-ignore-scheduled t
  org-agenda-inhibit-startup t
  org-roam-capture-immediate-template '("d" "default" plain 
#'org-roam-capture--get-point
                                        "%?" :file-name 
"%<%Y%m%d%H%M%S>-${slug}" :head
                                        "#+title: ${title}\n" :unnarrowed t
                                        :immediate-finish t)
  org-agenda-start-on-weekday nil
  org-default-notes-file "/home/riccardo/org/notes.org"
  org-id-locations-file-relative t
  org-list-allow-alphabetical t
  org-agenda-skip-unavailable-files t
  org-agenda-show-future-repeats nil
  )



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

* Re: [BUG] archiving subtrees archives adjacent / on the same level below subtrees instead of just the subtree itself + any below [9.6 (9.6-??-971eb6885 @ /home/riccardo/.emacs.d/.local/straight/build-27.2/org/)]
  2022-07-01 19:07 [BUG] archiving subtrees archives adjacent / on the same level below subtrees instead of just the subtree itself + any below [9.6 (9.6-??-971eb6885 @ /home/riccardo/.emacs.d/.local/straight/build-27.2/org/)] Riccardo Varenna
@ 2022-07-05 14:09 ` Ihor Radchenko
  0 siblings, 0 replies; 2+ messages in thread
From: Ihor Radchenko @ 2022-07-05 14:09 UTC (permalink / raw)
  To: Riccardo Varenna; +Cc: emacs-orgmode

Riccardo Varenna <riccardovarenna@gmail.com> writes:

> When trying to archive a subtree it regularly happens that instead of
> just the intended subtree, other subtrees get archived as well. As an
> example:

Thanks for reporting!
The backtrace like yours did happen in the earlier Org commits and has
been fixed.

Please try to update Org mode to the latest version and let us know if
the problem remains. Your current version is 3 months old.

Best,
Ihor


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

end of thread, other threads:[~2022-07-05 14:09 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-07-01 19:07 [BUG] archiving subtrees archives adjacent / on the same level below subtrees instead of just the subtree itself + any below [9.6 (9.6-??-971eb6885 @ /home/riccardo/.emacs.d/.local/straight/build-27.2/org/)] Riccardo Varenna
2022-07-05 14:09 ` Ihor Radchenko

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