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