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

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