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