emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] org :extend property bugfix does not work [9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
@ 2024-02-18 20:32 StrawberryTea
  2024-02-19 11:40 ` Ihor Radchenko
  0 siblings, 1 reply; 4+ messages in thread
From: StrawberryTea @ 2024-02-18 20:32 UTC (permalink / raw)
  To: emacs-orgmode


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
 )


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

* Re: [BUG] org :extend property bugfix does not work [9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
  2024-02-18 20:32 [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
@ 2024-02-19 11:40 ` Ihor Radchenko
  2024-02-22 18:25   ` StrawberryTea
  0 siblings, 1 reply; 4+ messages in thread
From: Ihor Radchenko @ 2024-02-19 11:40 UTC (permalink / raw)
  To: StrawberryTea; +Cc: emacs-orgmode

StrawberryTea <look@strawberrytea.xyz> writes:

> 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...
>
> Copy-pasted Org mode file:
>...

It would help if you provided a reproducer that demonstrates the problem
starting from emacs -Q. Otherwise, it is very hard to debug the problem
- by default, Org mode does not use :extend faces in the provided
example file.

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

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>


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

* Re: [BUG] org :extend property bugfix does not work [9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
  2024-02-19 11:40 ` Ihor Radchenko
@ 2024-02-22 18:25   ` StrawberryTea
  2024-02-25  8:45     ` Ihor Radchenko
  0 siblings, 1 reply; 4+ messages in thread
From: StrawberryTea @ 2024-02-22 18:25 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

[-- Attachment #1: Type: text/plain, Size: 2705 bytes --]

Sure. Just evaluate the following code after starting Emacs with `emacs -Q`:

┌────
│ (require 'org)
│ (load-theme 'leuven t)
│ 
│ (dolist (face '(org-level-1 org-level-2 org-level-3 org-level-4 org-level-5
│                 org-level-6 org-level-7 org-level-8))
│   (set-face-attribute face nil :extend t))
│ 
│ (setq org-fontify-whole-heading-line t)
│ (scratch-buffer)
│ (org-mode)
│ (insert "#+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:
│ 
│ ")
│ 
└────
Ihor Radchenko <yantar92@posteo.net> writes:

> StrawberryTea <look@strawberrytea.xyz> writes:
>
>> 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…
>>
>> Copy-pasted Org mode file:
>>…
>
> It would help if you provided a reproducer that demonstrates the problem
> starting from emacs -Q. Otherwise, it is very hard to debug the problem
> - by default, Org mode does not use :extend faces in the provided
> example file.
>
> See <https://orgmode.org/manual/Feedback.html#Feedback>

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

* Re: [BUG] org :extend property bugfix does not work [9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
  2024-02-22 18:25   ` StrawberryTea
@ 2024-02-25  8:45     ` Ihor Radchenko
  0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2024-02-25  8:45 UTC (permalink / raw)
  To: StrawberryTea; +Cc: emacs-orgmode

StrawberryTea <look@strawberrytea.xyz> writes:

> Sure. Just evaluate the following code after starting Emacs with `emacs -Q`:

Thanks!
Fixed, on main.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=5d186b499

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>


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

end of thread, other threads:[~2024-02-25  8:42 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-02-18 20:32 [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
2024-02-19 11:40 ` Ihor Radchenko
2024-02-22 18:25   ` StrawberryTea
2024-02-25  8:45     ` 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).