[BUG] org :extend property bugfix does not work [9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]

[StrawberryTea <look@strawberrytea.xyz>]

In the following Org file which I have copypasted verbatim, the current
workaround for bug#65896 made in
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=793cdbea68ae9f6eb4270315df6ff3419c3d8c20
does not work. After putting some print statements in the code, it seems
that the issue is in the unfolding part of the code. The
(org-fold-core-get-regions :from from :to to :specs spec) does not give
the correct regions when there are nested headings. We would need to
replace this with code that gets all the visible folded regions in the
region we are unfolding.

Copy-pasted Org mode file:

#+title: (Infty, 2) Reading Group
#+ROAM_TAGS: "Quasicategories"

* [2020-09-11 Fri] Links passed around in today's meeting
:PROPERTIES:
:CREATED_TIME: [2020-09-12 Sat 11:10]
:END:

** [[https://arxiv.org/abs/2006.07997][Internal enriched categories]]
:PROPERTIES:
:CREATED_TIME: [2020-09-12 Sat 11:11]
:END:

** [[https://www.i2m.univ-amu.fr/perso/dimitri.ara/files/qcatsup.pdf][Higher quasi-categories vs higher Rezk spaces]]
:PROPERTIES:
:CREATED_TIME: [2020-09-12 Sat 11:12]
:END:

** [[https://arxiv.org/pdf/1712.06469.pdf][∞-operads as analytic monads]]
:PROPERTIES:
:CREATED_TIME: [2020-09-12 Sat 11:13]
:END:

** [[https://arxiv.org/pdf/2002.01037.pdf][On lax transformations, adjunctions, and monads in (∞,2)-categories]]
:PROPERTIES:
:CREATED_TIME: [2020-09-12 Sat 11:14]
:END:

** [[https://acmbl.github.io/straight_slides.pdf][A modular proof of the straightening theorem]]
:PROPERTIES:
:CREATED_TIME: [2020-09-20 Sun 13:20]
:END:

* [2020-09-18 Fri 14:29] Links passed around
:PROPERTIES:
:CREATED_TIME: [2020-09-18 Fri 14:29]
:END:

** [[https://arxiv.org/abs/1502.06526][Twisted TQFTs]]
:PROPERTIES:
:CREATED_TIME: [2020-09-18 Fri 14:29]
:END:

** [[https://arxiv.org/pdf/2003.11757.pdf][Lax Gray tensor product for 2-categories]]
:PROPERTIES:
:CREATED_TIME: [2020-09-18 Fri 14:30]
:END:

Emacs  : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.18.0)
 of 2024-02-17
Package: Org mode version 9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)

current state:
==============
(setq
 org-todo-keyword-faces '(("[-]" . +org-todo-active) ("STRT" . +org-todo-active) ("[?]" . +org-todo-onhold) ("WAIT" . +org-todo-onhold)
                          ("HOLD" . +org-todo-onhold) ("PROJ" . +org-todo-project) ("NO" . +org-todo-cancel) ("KILL" . +org-todo-cancel))
 org-src-window-setup 'other-window
 org-persist-directory "/home/st/.config/emacs/.local/cache/org/persist/"
 org-directory "~/org/"
 org-startup-folded nil
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-id-locations-file "/home/st/org/.orgids"
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-archive-subtree-save-file-p t
 org-archive-location "~/org/.archive/%s::"
 org-modules '(ol-bibtex)
 org-num-skip-tags '("noexport" "nonum")
 org-clock-history-length 20
 org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭") ("sharp" "\\sharp" nil "" "" "266F" "♯"))
 org-msg-options "html-postamble:nil H:5 num:nil ^:{} toc:nil author:nil email:nil tex:dvipng"
 org-msg-default-alternatives '((new utf-8 html) (reply-to-text utf-8) (reply-to-html utf-8 html))
 org-roam-capture-new-node-hook '(org-roam-capture--insert-captured-ref-h)
 org-roam-directory "/home/st/org/roam/"
 org-archive-hook '(cae-multi-org-archive-push-changes-h org-attach-archive-delete-maybe)
 org-ascii-format-drawer-function #[771 ".\207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"]
 org-link-translation-function 'toc-org-unhrefify
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-link-elisp-confirm-function nil
 org-babel-after-execute-hook '(+org-redisplay-inline-images-in-babel-result-h)
 org-confirm-shell-link-function 'yes-or-no-p
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-roam-ref-annotation-function 'org-roam-ref-read--annotation
 org-agenda-skip-unavailable-files t
 org-agenda-span 10
 org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
 org-ai-openai-api-token "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"
 org-latex-classes '(("beamer" "\\documentclass[presentation]{beamer}" ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}")
                      ("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
                      ("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
                     ("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     ("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
                      ("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
                      ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
                     )
 org-yank-image-file-name-function 'org-yank-image-autogen-filename
 org-msg-greeting-name-limit 3
 org-M-RET-may-split-line nil
 org-startup-indented t
 org-refile-use-outline-path 'file
 org-reveal-start-hook '(org-decrypt-entry)
 org-fold-reveal-start-hook '(org-decrypt-entry)
 org-roam-db-node-include-function '(closure (t) nil t)
 org-roam-mode-hook '(+org-roam-detach-magit-section-mode-map-h turn-on-visual-line-mode)
 org-indirect-buffer-display 'current-window
 org-ai-talk-say-words-per-minute 210
 org-roam-completion-everywhere t
 org-cycle-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-html-format-headline-function 'org-html-format-headline-default-function
 org-fold-core-isearch-open-function 'org-fold--isearch-reveal
 org-clock-persist-file "/home/st/.config/emacs/.local/etc/org-clock-save.el"
 org-roam-db-autosync-mode t
 org-ai-oobabooga-create-prompt-function 'org-ai-oobabooga-create-prompt-default
 org-agenda-inhibit-startup t
 org-default-notes-file "/home/st/org/notes.org"
 org-hide-leading-stars t
 org-ai-global-mode t
 org-log-done 'time
 org-attach-use-inheritance t
 org-msg-enforce-css '((del nil
                        ((color . "grey") (border-left . "none") (text-decoration . "line-through") (margin-bottom . "0px")
                         (margin-top . "10px") (line-height . "11pt"))
                        )
                       (a nil ((color . "#c01c28"))) (a reply-header ((color . "black") (text-decoration . "none")))
                       (div reply-header ((padding . "3.0pt 0in 0in 0in") (border-top . "solid #e1e1e1 1.0pt") (margin-bottom . "20px")))
                       (span underline ((text-decoration . "underline")))
                       (li nil ((line-height . "1.2") (margin-bottom . "0px") (margin-top . "2px") (max-width . "47em")))
                       (nil org-ul ((list-style-type . "disc")))
                       (nil org-ol
                        ((font-family .
                          "-apple-system, BlinkMacSystemFont, \"Segoe UI\", Roboto, Oxygen, Ubuntu, Cantarell,        \"Fira Sans\", \"Droid Sans\", \"Helvetica Neue\", Arial, sans-serif, \"Apple Color Emoji\", \"Segoe UI Emoji\", \"Segoe UI Symbol\";")
                         (font-size . "11pt") (line-height . "1.2") (margin-bottom . "0px") (margin-top . "0px") (margin-left . "30px")
                         (padding-top . "0px") (padding-left . "5px"))
                        )
                       (nil signature
                        ((font-family .
                          "-apple-system, BlinkMacSystemFont, \"Segoe UI\", Roboto, Oxygen, Ubuntu, Cantarell,        \"Fira Sans\", \"Droid Sans\", \"Helvetica Neue\", Arial, sans-serif, \"Apple Color Emoji\", \"Segoe UI Emoji\", \"Segoe UI Symbol\";")
                         (font-size . "11pt") (margin-bottom . "20px"))
                        )
                       (blockquote nil
                        ((padding . "2px 12px") (margin-left . "10px") (margin-top . "10px") (margin-bottom . "0")
                         (border-left . "3px solid #ccc") (font-style . "italic") (background . "#f9f9f9"))
                        )
                       (p blockquote ((margin . "0") (padding . "4px 0")))
                       (div quote1
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#6A8FBF") (border-left . "3px solid #93aed0"))
                        )
                       (div quote2
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#bf8f6a") (border-left . "3px solid #d0ae93"))
                        )
                       (div quote3
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#6abf8a") (border-left . "3px solid #93d0aa"))
                        )
                       (div quote4
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#906abf") (border-left . "3px solid #ae93d0"))
                        )
                       (div quote5
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#6aaebf") (border-left . "3px solid #93c4d0"))
                        )
                       (div quote6
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#bf736a") (border-left . "3px solid #d09a93"))
                        )
                       (div quote7
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#bfb66a") (border-left . "3px solid #d0ca93"))
                        )
                       (div quote8
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#bf6a94") (border-left . "3px solid #d093b1"))
                        )
                       (div quote9
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#6abf9b") (border-left . "3px solid #93d0b6"))
                        )
                       (div quote10
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#bf6a7d") (border-left . "3px solid #d093a1"))
                        )
                       (div quote11
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#acbf6a") (border-left . "3px solid #c3d093"))
                        )
                       (div quote12
                        ((padding-left . "5px") (margin-left . "10px") (margin-top . "20px") (margin-bottom . "0") (font-style . "italic")
                         (background . "#f9f9f9") (color . "#6a74bf") (border-left . "3px solid #939ad0"))
                        )
                       (code nil
                        ((font-size . "11pt")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (background . "#f9f9f9"))
                        )
                       (code src\ src-asl
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-c
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-c++
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-conf
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-cpp
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-csv
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-diff
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-ditaa
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-emacs-lisp
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-fundamental
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-ini
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-json
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-makefile
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-man
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-org
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-plantuml
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-python
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-sh
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (code src\ src-xml
                        ((background-color . "rgba(27,31,35,.05)") (border-radius . "3px") (padding . ".2em .4em") (font-size . "90%")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;")
                         (margin . 0))
                        )
                       (nil linenr ((padding-right . "1em") (color . "black") (background-color . "#aaaaaa")))
                       (pre nil
                        ((line-height . "1.2") (color . "#ffffff") (background-color . "#0d0e1c") (margin . "4px 0px 8px 0px")
                         (padding . "8px 12px") (width . "max-content") (min-width . "50em") (border-radius . "5px") (font-size . "0.9em")
                         (font-weight . "500")
                         (font-family . "SFMono-Regular, Menlo, Monaco, Consolas, \"Liberation Mono\", \"Courier New\", monospace;"))
                        )
                       (div org-src-container ((margin-top . "10px")))
                       (nil figure-number ((color . "#c01c28") (font-weight . "bold") (text-align . "left"))) (nil table-number)
                       (caption nil ((text-align . "left") (background . "#c01c28") (color . "white") (font-weight . "bold")))
                       (nil t-above ((caption-side . "top"))) (nil t-bottom ((caption-side . "bottom")))
                       (nil listing-number ((color . "#c01c28") (font-weight . "bold") (text-align . "left")))
                       (nil figure ((color . "#c01c28") (font-weight . "bold") (text-align . "left")))
                       (nil org-src-name ((color . "#c01c28") (font-weight . "bold") (text-align . "left")))
                       (img nil ((vertical-align . "middle") (max-width . "100%"))) (img latex-fragment-inline ((margin . "0 0.1em")))
                       (table nil
                        ((margin-top . "6px") (margin-bottom . "6px") (border-left . "none") (border-right . "none")
                         (border-top . "2px solid #222222") (border-bottom . "2px solid #222222") (line-height . "1.2")
                         (border-collapse . "collapse"))
                        )
                       (th nil
                        ((border . "none") (border-bottom . "1px solid #222222") (background-color . "#EDEDED") (font-weight . "500")
                         (padding . "3px 10px"))
                        )
                       (td nil
                        ((margin-top . "6px") (margin-bottom . "6px") (border-left . "none") (border-right . "none")
                         (border-top . "2px solid #222222") (border-bottom . "2px solid #222222") (padding . "1px 10px")
                         (background-color . "#f9f9f9") (border . "none"))
                        )
                       (td org-left ((text-align . "left"))) (td org-right ((text-align . "right")))
                       (td org-center ((text-align . "center")))
                       (kbd nil
                        ((border . "1px solid #d1d5da") (border-radius . "3px") (box-shadow . "inset 0 -1px 0 #d1d5da")
                         (background-color . "#fafbfc") (color . "#444d56") (font-size . "0.85em") (padding . "1px 4px")
                         (display . "inline-block"))
                        )
                       (div outline-text-4 ((margin-left . "15px"))) (div outline-4 ((margin-left . "10px")))
                       (h4 nil ((margin-bottom . "0px") (font-size . "11pt")))
                       (h3 nil ((margin-bottom . "0px") (color . "#c01c28") (font-size . "14pt")))
                       (h2 nil ((margin-top . "20px") (margin-bottom . "20px") (color . "#c01c28") (font-size . "18pt")))
                       (h1 nil ((margin-top . "20px") (margin-bottom . "0px") (color . "#c01c28") (font-size . "24pt")))
                       (p nil
                        ((text-decoration . "none") (line-height . "1.4") (margin-top . "10px") (margin-bottom . "0px")
                         (font-size . "11pt") (max-width . "50em"))
                        )
                       (b nil ((font-weight . "500") (color . "#c01c28")))
                       (div nil
                        ((font-family .
                          "-apple-system, BlinkMacSystemFont, \"Segoe UI\", Roboto, Oxygen, Ubuntu, Cantarell,        \"Fira Sans\", \"Droid Sans\", \"Helvetica Neue\", Arial, sans-serif, \"Apple Color Emoji\", \"Segoe UI Emoji\", \"Segoe UI Symbol\";")
                         (font-size . "11pt") (line-height . "12pt"))
                        )
                       )
 org-fontify-quote-and-verse-blocks t
 org-agenda-loop-over-headlines-in-active-region nil
 org-ai-on-project-mode-hook '((closure
                                (cl-struct-org-ai-on-project--request-in-progress-tags cl-struct-org-ai-on-project--file-tags
                                 cl-struct-org-ai-on-project--state-tags t)
                                nil (set (make-local-variable 'show-trailing-whitespace) nil))
                               )
 org-priority-faces '((65 quote nerd-icons-red) (66 quote nerd-icons-orange) (67 quote nerd-icons-yellow) (68 quote nerd-icons-green)
                      (69 quote nerd-icons-blue))
 org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 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-smartparens-h +org-init-roam-h)
 org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
 org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "LOOP(r)" "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)")
                     (sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)") (sequence "|" "OKAY(o)" "YES(y)" "NO(n)"))
 org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning) (0.5 . org-upcoming-deadline) (0.0 . org-upcoming-distant-deadline))
 org-clock-in-resume t
 org-babel-pre-tangle-hook '(save-buffer)
 org-eldoc-breadcrumb-separator " → "
 org-roam-node-display-template #("${doom-hierarchy:*} ${doom-type:12} ${doom-tags:42}" 20 35 (face font-lock-keyword-face) 36 51 (face (:inherit org-tag :box nil)))
 org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
 org-roam-list-files-commands '(fd fdfind rg find)
 org-roam-indirect-buffer-hook '(org-roam--register-completion-functions-h)
 org-agenda-window-setup 'current-window
 org-capture-prepare-finalize-hook '(org-roam-capture--install-finalize-h)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-latex-format-headline-function 'org-latex-format-headline-default-function
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-capture-templates '(("t" "Personal todo" entry (file+headline +org-capture-todo-file "Inbox") "* [ ] %?\n%i\n%a" :prepend t)
                         ("n" "Personal notes" entry (file+headline +org-capture-notes-file "Inbox") "* %u %?\n%i\n%a" :prepend t)
                         ("j" "Journal" entry (file+olp+datetree +org-capture-journal-file) "* %U %?\n%i\n%a" :prepend t)
                         ("p" "Templates for projects")
                         ("pt" "Project-local todo" entry (file+headline +org-capture-project-todo-file "Inbox") "* TODO %?\n%i\n%a"
                          :prepend t)
                         ("pn" "Project-local notes" entry (file+headline +org-capture-project-notes-file "Inbox") "* %U %?\n%i\n%a"
                          :prepend t)
                         ("pc" "Project-local changelog" entry (file+headline +org-capture-project-changelog-file "Unreleased")
                          "* %U %?\n%i\n%a" :prepend t)
                         ("o" "Centralized templates for projects")
                         ("ot" "Project todo" entry #'+org-capture-central-project-todo-file "* TODO %?\n %i\n %a" :heading "Tasks"
                          :prepend nil)
                         ("on" "Project notes" entry #'+org-capture-central-project-notes-file "* %U %?\n %i\n %a" :heading "Notes"
                          :prepend t)
                         ("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file "* %U %?\n %i\n %a" :heading
                          "Changelog" :prepend t)
                         )
 org-mode-local-vars-hook '(+org-init-gifs-h)
 outline-mode-hook '(beginend-outline-mode)
 org-roam-capture-preface-hook '(org-roam-capture--try-capture-to-ref-h)
 org-html-validation-link nil
 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-outline-path-complete-in-steps nil
 org-ai-on-project-modify-with-diffs t
 org-link-shell-confirm-function 'yes-or-no-p
 org-extend-today-until 3
 org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
 org-crypt-disable-auto-save 'encrypt
 org-ellipsis " ..."
 org-display-remote-inline-images 'cache
 org-num-face '(:inherit org-special-keyword :underline nil :weight bold)
 org-clock-out-remove-zero-time-clocks t
 org-insert-heading-respect-content t
 org-list-allow-alphabetical t
 org-roam-node-annotation-function 'org-roam-node-read--annotation
 org-appear-autosubmarkers t
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-fontify-whole-heading-line t
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-msg-convert-citation t
 org-msg-attached-file-reference "see[ 	\n]\\(?:the[ 	\n]\\)?\\(?:\\w+[ 	\n]\\)\\{0,3\\}\\(?:attached\\|enclosed\\)\\|(\\(?:attached\\|enclosed\\))\\|\\(?:attached\\|enclosed\\)[ 	\n]\\(?:for\\|is\\)[ 	\n]"
 org-after-refile-insert-hook '(save-buffer)
 org-ai-use-auth-source nil
 org-roam-db-gc-threshold 2305843009213693951
 org-enforce-todo-dependencies t
 org-list-demote-modify-bullet '(("+" . "-") ("-" . "+") ("*" . "+") ("1." . "a."))
 org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs) ("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
                 ("\\.pdf\\'" . default))
 org-tags-exclude-from-inheritance '("crypt")
 org-clock-persist 'history
 org-roam-find-file-hook '(doom--setq-org-id-link-to-org-use-id-for-org-roam-find-file-h org-roam-buffer--setup-redisplay-h
                           org-roam--register-completion-functions-h org-roam--replace-roam-links-on-save-h
                           org-roam-db-autosync--setup-update-on-save-h +org-roam-enable-auto-backlinks-buffer-h)
 org-attach-id-dir "/home/st/org/.attach/"
 org-use-sub-superscripts '{}
 org-read-date-force-compatible-dates nil
 org-msg-startup "hidestars indent inlineimages"
 org-confirm-babel-evaluate nil
 org-imenu-depth 6
 org-preview-latex-image-directory "/home/st/.config/emacs/.local/cache/org/latex/"
 org-agenda-start-on-weekday nil
 org-src-block-faces '(("latex" (:inherit default :extend t)))
 org-special-ctrl-k t
 org-after-todo-state-change-hook '(parrot--todo-party)
 org-latex-prefer-user-labels t
 org-num-format-function 'org-num-default-format
 org-priority-lowest 69
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-mode-hook '(beginend-org-mode turn-on-org-cdlatex er/add-org-mode-expansions +lookup--init-org-mode-handlers-h
                 (closure (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-fold-show-all append local] 5]
                 #[0 "\301\211.\207" [imenu-create-index-function org-imenu-get-tree] 2]
                 #[0 "\303\302!\210\304\305\n\300\"\301\"\211.\207"
                   [nil ((eri/mark-inside-org-table-cell eri/mark-outside-org-table-cell)) eri/try-expand-list make-local-variable append
                    seq-difference]
                   4]
                 #[0 "\303\302!\210\304\305\n\300\"\301\"\211.\207"
                   [nil
                    (org-mark-subtree '(er/mark-org-element er/mark-org-element-parent) er/mark-org-code-block er/mark-sentence
                     er/mark-paragraph)
                    eri/try-expand-list make-local-variable append seq-difference]
                   4]
                 iscroll-mode org-ai-mode locally-defer-font-lock org-appear-mode cae-unpackaged-org-fix-blank-lines-before-save
                 org-cdlatex-mode doom-disable-show-paren-mode-h doom-disable-show-trailing-whitespace-h +org-make-last-point-visible-h
                 evil-org-mode org-eldoc-load toc-org-enable
                 #[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 embrace-org-mode-hook +corfu-add-cape-elisp-block-h)
 org-occur-hook '(org-first-headline-recenter)
 org-agenda-mode-hook '(beginend-org-agenda-mode +org-habit-resize-graph-h evil-org-agenda-mode)
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
 org-id-locations-file-relative t
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 outline-minor-mode-hook '(outline-minor-faces-mode)
 org-hide-emphasis-markers t
 org-export-allow-bind-keywords t
 org-startup-with-inline-images t
 org-log-buffer-setup-hook '(org-roam-log--setup)
 org-export-with-smart-quotes t
 org-roam-preview-function 'org-roam-preview-default-function
 org-capture-mode-hook '(+org-show-target-in-capture-header-h org-capture--insert-timestamp evil-insert-state)
 org-ai-default-chat-model "gpt-4-1106-preview"
 org-publish-timestamp-directory "/home/st/.config/emacs/.local/cache/org/timestamps/"
 org-crypt-key nil
 org-tags-column 0
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-link-parameters '(("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("treemacs" :store treemacs-store-org-link)
                       ("helpful" :store helpful--org-link-store) ("mu4e" :follow mu4e-org-open :store mu4e-org-store-link)
                       ("download" :complete
                        (closure
                         ((dir-fn closure (t) nil (or org-download-image-dir org-attach-id-dir ".")) (requires . org-download)
                          (key . "download"))
                         nil (if requires (mapc #'require (ensure-list 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 "."))) (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 "."))) (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 :requires nil)
                       ("pdf" :follow
                        (closure ((fn . org-pdftools-open)) (&rest args)
                         (and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
                          (file-executable-p pdf-info-epdfinfo-program) (apply fn args))
                         )
                        :complete
                        (closure ((fn . org-pdftools-complete-link)) (&rest args)
                         (and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
                          (file-executable-p pdf-info-epdfinfo-program) (apply fn args))
                         )
                        :store
                        (closure ((fn . org-pdftools-store-link)) (&rest args)
                         (and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
                          (file-executable-p pdf-info-epdfinfo-program) (apply fn args))
                         )
                        :export
                        (closure ((fn . org-pdftools-export)) (&rest args)
                         (and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
                          (file-executable-p pdf-info-epdfinfo-program) (apply fn args))
                         )
                        )
                       ("elfeed" :follow elfeed-link-open :store elfeed-link-store-link) ("roam" :follow org-roam-link-follow-link)
                       ("yt" :follow org-yt-follow :image-data-fun org-yt-image-data-fun :export org-yt-export)
                       ("id" :follow org-roam-id-open) ("img" :image-data-fun +org-inline-image-data-fn)
                       ("doom-changelog" :follow
                        (closure (t) (link) (find-file (doom-path doom-docs-dir "changelog.org")) (org-match-sparse-tree nil link)))
                       ("doom-user" :follow
                        (closure (t) (link)
                         (browse-url (format "https://github.com/%s" (string-remove-prefix "@" (+org-link-read-desc-at-point link)))))
                        :face (closure (t) (_) 'org-priority))
                       ("doom-ref" :follow
                        (closure (t) (link)
                         (let ((link (+org-link-read-desc-at-point link)) (url "https://github.com") (doom-repo "doomemacs/doomemacs"))
                          (let ((saved-match-data (match-data)))
                           (unwind-protect
                            (progn
                             (browse-url
                              (cond
                               ((string-match "^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" link)
                                (format "%s/%s/issues/%s" url (or (match-string 1 link) doom-repo) (match-string 2 link)))
                               ((string-match "^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)
                                (format "%s/%s/commit/%s" url (or (match-string 1 link) doom-repo) (match-string 2 link)))
                               ((user-error "Invalid doom-ref link: %S" link)))
                              )
                             )
                            (set-match-data saved-match-data t))
                           )
                          )
                         )
                        :face
                        (closure (t) (link)
                         (let ((link (+org-link-read-desc-at-point link)))
                          (if
                           (or (string-match "^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" link)
                            (string-match "^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link))
                           'org-link 'error)
                          )
                         )
                        )
                       ("doom-executable" :activate-func +org-link--doom-executable-link-activate-fn :help-echo
                        +org-link-doom--help-echo-from-textprop :face org-verbatim)
                       ("doom-module" :follow +org-link--doom-module-link-follow-fn :activate-func +org-link--doom-module-link-activate-fn
                        :help-echo +org-link-doom--help-echo-from-textprop)
                       ("doom-package" :follow +org-link--doom-package-link-follow-fn :activate-func
                        +org-link--doom-package-link-activate-fn :help-echo +org-link-doom--help-echo-from-textprop)
                       ("cmd" :follow
                        (closure ((fn . describe-command)) (path _prefixarg)
                         (funcall fn (or (intern-soft path) (user-error "Can't find documentation for %S" path))))
                        :activate-func +org-link--command-link-activate-fn :face help-key-binding :help-echo
                        +org-link-doom--help-echo-from-textprop)
                       ("face" :follow
                        (closure ((fn . describe-face)) (path _prefixarg)
                         (funcall fn (or (intern-soft path) (user-error "Can't find documentation for %S" path))))
                        :activate-func +org-link--face-link-activate-fn :face (font-lock-type-face underline))
                       ("fn" :follow
                        (closure ((fn . helpful-callable)) (path _prefixarg)
                         (funcall fn (or (intern-soft path) (user-error "Can't find documentation for %S" path))))
                        :activate-func +org-link--fn-link-activate-fn :face (font-lock-function-name-face underline))
                       ("var" :follow
                        (closure ((fn . helpful-variable)) (path _prefixarg)
                         (funcall fn (or (intern-soft path) (user-error "Can't find documentation for %S" path))))
                        :activate-func +org-link--var-link-activate-fn :face (font-lock-variable-name-face underline))
                       ("kbd" :follow
                        (closure (t) (ev) (interactive "e")
                         (minibuffer-message "%s"
                          (+org-link-doom--help-echo-from-textprop nil (current-buffer) (posn-point (event-start ev))))
                         )
                        :help-echo +org-link-doom--help-echo-from-textprop :face help-key-binding)
                       ("doom-modules" :complete
                        (closure
                         ((dir-fn closure ((dir-var . doom-modules-dir)) nil (symbol-value dir-var)) (requires) (key . "doom-modules"))
                         nil (if requires (mapc #'require (ensure-list requires)))
                         (+org--relative-path (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn)))
                        :follow
                        (closure ((dir-fn closure ((dir-var . doom-modules-dir)) nil (symbol-value dir-var))) (link)
                         (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                        :face
                        (closure ((dir-fn closure ((dir-var . doom-modules-dir)) nil (symbol-value dir-var))) (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))
                         )
                        :requires nil)
                       ("doom-docs" :complete
                        (closure ((dir-fn closure ((dir-var . doom-docs-dir)) nil (symbol-value dir-var)) (requires) (key . "doom-docs"))
                         nil (if requires (mapc #'require (ensure-list requires)))
                         (+org--relative-path (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn)))
                        :follow
                        (closure ((dir-fn closure ((dir-var . doom-docs-dir)) nil (symbol-value dir-var))) (link)
                         (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                        :face
                        (closure ((dir-fn closure ((dir-var . doom-docs-dir)) nil (symbol-value dir-var))) (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))
                         )
                        :requires nil)
                       ("doom" :complete
                        (closure ((dir-fn closure ((dir-var . doom-emacs-dir)) nil (symbol-value dir-var)) (requires) (key . "doom")) nil
                         (if requires (mapc #'require (ensure-list requires)))
                         (+org--relative-path (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn)))
                        :follow
                        (closure ((dir-fn closure ((dir-var . doom-emacs-dir)) nil (symbol-value dir-var))) (link)
                         (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                        :face
                        (closure ((dir-fn closure ((dir-var . doom-emacs-dir)) nil (symbol-value dir-var))) (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))
                         )
                        :requires nil)
                       ("org" :complete
                        (closure ((dir-fn closure ((dir-var . org-directory)) nil (symbol-value dir-var)) (requires) (key . "org")) nil
                         (if requires (mapc #'require (ensure-list requires)))
                         (+org--relative-path (+org--read-link-path key (funcall dir-fn)) (funcall dir-fn)))
                        :follow
                        (closure ((dir-fn closure ((dir-var . org-directory)) nil (symbol-value dir-var))) (link)
                         (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                        :face
                        (closure ((dir-fn closure ((dir-var . org-directory)) nil (symbol-value dir-var))) (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))
                         )
                        :requires nil)
                       ("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.Q.\"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("mailto" :follow #[514 "\301\300\302.Q.\"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("https" :follow #[514 "\301\300\302.Q.\"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"] :image-data-fun
                        +org-http-image-data-fn)
                       ("http" :follow #[514 "\301\300\302.Q.\"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"] :image-data-fun
                        +org-http-image-data-fn)
                       ("ftp" :follow #[514 "\301\300\302.Q.\"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                       ("help" :follow helpful--org-link-follow :store org-link--store-help)
                       ("file" :complete org-link-complete-file :face
                        (closure (t) (path)
                         (if (or (file-remote-p path) (if (featurep :system 'windows) (string-prefix-p "\\\\" path)) (file-exists-p path))
                          'org-link '(warning org-link))
                         )
                        )
                       ("elisp" :follow org-link--open-elisp))
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines org-cycle-optimize-window-after-visibility-change
                  org-cycle-display-inline-images)
 org-agenda-files '("~/org/")
 org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
 org-link-abbrev-alist '(("doomdir" . "/home/st/.config/doom/%s") ("emacsdir" . "/home/st/.config/emacs/%s")
                         ("doom-repo" . "https://github.com/doomemacs/doomemacs/%s") ("wolfram" . "https://wolframalpha.com/input/?i=%s")
                         ("wikipedia" . "https://en.wikipedia.org/wiki/%s") ("duckduckgo" . "https://duckduckgo.com/?q=%s")
                         ("kagi" . "https://kagi.com/search?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-roam-node-template-prefixes '(("doom-type" . "@") ("doom-tags" . "#") ("tags" . "#") ("todo" . "t:"))
 org-agenda-finalize-hook '(+org-exclude-agenda-buffers-from-workspace-h +org-defer-mode-in-agenda-buffers-h)
 org-src-preserve-indentation t
 org-special-ctrl-a/e t
 org-ai-talk-say-voice "Karen"
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-bibtex-headline-format-function 'org-bibtex-headline-format-default
 )