Re: [BUG] Some recent change broke :extend on headlines with background property [9.7-pre (release_9.6.26-1373-g5b0b7f @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
Ihor Radchenko writes: > StrawberryTea writes: > >> Hello. When I run the following code in `emacs -Q`, the background color >> of the headline is not extended to the end of the line as expected. This >> is a regression from the previous behavior and is caused by a recent >> change in Org mode. I do not know which commit caused this issue. >> >> (straight-use-package 'org) >> >> (require 'org) >> (load-theme 'leuven t) >> ... > > Fixed, on main. > https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=1ad03e77b Perfect, thank you for the quick fix!
[BUG] Some recent change broke :extend on headlines with background property [9.7-pre (release_9.6.26-1373-g5b0b7f @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
https://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org mailing list.
Hello. When I run the following code in `emacs -Q`, the background color
of the headline is not extended to the end of the line as expected. This
is a regression from the previous behavior and is caused by a recent
change in Org mode. I do not know which commit caused this issue.
(straight-use-package 'org)
(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:
")
Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.18.0)
of 2024-04-22
Package: Org mode version 9.7-pre (release_9.6.26-1373-g5b0b7f @
/home/st/.config/emacs/.local/straight/build-30.0.50/org/)
current state:
==
(setq
org-special-ctrl-a/e t
org-startup-align-all-tables t
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-clock-persist 'history
org-indirect-buffer-display 'current-window
org-preview-latex-image-directory
"/home/st/.config/emacs/.local/cache/org/latex/"
org-after-todo-state-change-hook '(parrot--todo-party)
org-default-notes-file "/home/st/org/notes.org"
org-directory "~/org/"
org-list-demote-modify-bullet '(("+" . "-") ("-" . "+") ("*" . "+") ("1." .
"a."))
org-M-RET-may-split-line nil
org-clock-in-resume t
org-clock-out-remove-zero-time-clocks t
org-roam-list-files-commands '(fd fdfind rg find)
org-display-remote-inline-images 'download
org-roam-db-node-include-function #[0 "\300\207" [t] 1]
outline-minor-mode-use-buttons t
org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-archive-subtree-save-file-p t
org-id-locations-file "/home/st/org/.orgids"
org-ai-talk-say-words-per-minute 210
org-agenda-finalize-hook '(+org-exclude-agenda-buffers-from-workspace-h
+org-defer-mode-in-agenda-buffers-h)
org-roam-preview-function 'org-roam-preview-default-function
org-log-done 'time
org-agenda-window-setup 'current-window
org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs)
("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
("\\.pdf\\'" . default))
org-mode-hook '(doom--setq-yas-triggers-in-field-for-org-mode-h
turn-on-org-cdlatex er/add-org-mode-expansions
(closure ((hook . org-mode-hook)) (&rest _)
(progn
(let ((tail '(after-change-major-mode-hook)))
(while tail
(let ((hook (car tail)))
(let ((tail (list #'(lambda (&rest _) (if (derived-mode-p
'org-mode) (progn (setq tab-width 8)))
(while tail (let ((func (car tail))) (add-hook hook func
nil t) (setq tail (cdr tail)
(setq tail (cdr tail)))
)
)
)
(add-hook 'save-place-after-find-file-hook
#'+org-make-last-point-visible-h nil t))
+lookup--init-org-mode-handlers-h (closure (t) (&rest _)
(add-hook 'b
Re: [DISCUSSION] Face priority in Org fontification
StrawberryTea writes:
> Ihor Radchenko writes:
>
>> Protesilaos Stavrou writes:
>>
>>> Now the tricky part is to figure out which combinations can work this
>>> way. Headings and source blocks are two obvious ones. Maybe there are
>>> more, but I cannot think of one right now.
>>
>> This is relevant to any greater element that can contain markup inside
>> and where we apply the fontification to both markup and contents:
>>
>> - headlines
>> - tables
>> - descriptive lists
>> - commented headlines
>>
>> For headlines and tables, it /feels/ reasonable to apply the container
>> face first and then prepend the markup faces.
>> However, for descriptive lists and commented headlines, it is not so
>> clear. For commented headlines that should fade out compared to ordinary
>> headlines, prepending markup faces may lead to commented headlines
>> standing out.
> I do not know what you mean by commented headlines. Do you mean
> headlines with the COMMENT keyword? I think it's better that the COMMENT
> keyword blend in with the headline so that the headline does not look
> broken. In the descriptive list case, it also makes sense for all the
> themes I've tried because the result of `append` is that the date font
> is bolded, which makes it look more aesthetically pleasing.
>
> Also, here is an updated version of the patch that covers all the
> inline markup you said earlier except for inline source blocks:
>
> diff --git a/lisp/ol.el b/lisp/ol.el
> index fa16b5920..b4253685f 100644
> --- a/lisp/ol.el
> +++ b/lisp/ol.el
> @@ -2223,8 +2223,8 @@ Also refresh fontification if needed."
> ;; Some languages, e.g., Chinese, do not use spaces to
> ;; separate words. Also allow to surround radio targets with
> ;; line-breakable characters.
> - (before-re "\\(?:^\\|[^[:alnum:]]\\|\\c|\\)\\(")
> - (after-re "\\)\\(?:$\\|[^[:alnum:]]\\|\\c|\\)")
> + (before-re "\\(?:^\\|[^[:alnum:]<]\\|\\c|\\)\\(")
> + (after-re "\\)\\(?:$\\|[^[:alnum:]>]\\|\\c|\\)")
> (targets
> (org-with-wide-buffer
> (goto-char (point-min))
> diff --git a/lisp/org.el b/lisp/org.el
> index 33d90506b..ac2cd2bc4 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -5631,9 +5631,10 @@ by a #."
> (match-string 1))
> (let ((end (match-end 1))
> (closing-start (match-beginning 1)))
> - (add-text-properties
> -begin end
> -'(font-lock-multiline t font-lock-fontified t face org-macro))
> + (add-text-properties
> + begin end
> + '(font-lock-multiline t font-lock-fontified t))
> + (add-face-text-property begin end 'org-macro)
> (org-remove-flyspell-overlays-in begin end)
> (when org-hide-macro-markers
> (add-text-properties begin opening-end '(invisible t))
> @@ -5678,14 +5679,14 @@ by a #."
> (search-forward (or label "fn:"))
> (org-remove-flyspell-overlays-in beg (match-end 0
> (add-text-properties beg end
> - (list 'mouse-face 'highlight
> -'keymap org-mouse-map
> -'help-echo
> -(if referencep "Footnote reference"
> - "Footnote definition")
> -'font-lock-fontified t
> -'font-lock-multiline t
> -'face 'org-footnote))
> + (list 'mouse-face 'highlight
> +'keymap org-mouse-map
> +'help-echo
> +(if referencep "Footnote reference"
> + "Footnote definition")
> +'font-lock-fontified t
> +'font-lock-multiline t))
> +(add-face-text-property beg end 'org-footnote)
>
> (defun org-activate-dates (limit)
>"Add text properties for dates."
> @@ -5923,12 +5924,12 @@ needs to be inserted at a specific position in the
> font-lock sequence.")
> ;; Link related fontification.
> '(org-activate-links)
> (when (memq 'tag org-highlight-links) '(org-activate-tags (1 'org-tag
> prepend)))
> - (when (memq 'radio org-highlight-links) '(org-activate-target-links
> (1 'org-link t)))
> - (when (memq
[BUG] org-fold :extend face backgrounds break with trailing newlines [9.7-pre (release_9.6.20-1267-gb0c3c9 @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
Hello Org mode developer,
I've noticed that when using the :extend face property with org-fold,
the background color of the headline face will sometimes be left behind
after unfolding a heading. I have finally determined that this is
happening when the heading has a trailing newline and the heading is
after the last non-whitespace character in the heading's body.
Here is a minimal example to reproduce this issue from emacs -Q:
(let ((default-directory (file-name-directory load-file-name)))
(when (file-exists-p (expand-file-name "default.el" default-directory))
(load-file (expand-file-name "default.el" default-directory
(straight-use-package 'org)
(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)
(setq org-startup-folded t)
(defvar org-extend-faces-bug-4-file "/tmp/org-extend-faces-bug-4.org"
"The file to be used for the bug demo.")
(with-temp-buffer
(insert
(string-join
'("* First heading"
"Body text of the first heading"
""
"* Second heading"
"Body text of the second heading"
"* Last heading"
"Body text of the last heading")
"\n"))
(write-file org-extend-faces-bug-4-file))
(find-file org-extend-faces-bug-4-file)
Sincerely,
StrawberryTea
Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.18.0)
of 2024-03-09
Package: Org mode version 9.7-pre (release_9.6.20-1267-gb0c3c9 @
/home/st/.config/emacs/.local/straight/build-30.0.50/org/)
current state:
==
(setq
org-special-ctrl-a/e t
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-clock-persist 'history
org-indirect-buffer-display 'current-window
org-preview-latex-image-directory
"/home/st/.config/emacs/.local/cache/org/latex/"
org-after-todo-state-change-hook '(parrot--todo-party)
org-default-notes-file "/home/st/org/notes.org"
org-directory "~/org/"
org-list-demote-modify-bullet '(("+" . "-") ("-" . "+") ("*" . "+") ("1." .
"a."))
org-M-RET-may-split-line nil
org-clock-in-resume t
org-clock-out-remove-zero-time-clocks t
org-roam-list-files-commands '(fd fdfind rg find)
org-display-remote-inline-images 'download
org-roam-db-node-include-function #[0 "\300\207" [t] 1]
org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-archive-subtree-save-file-p t
org-id-locations-file "/home/st/org/.orgids"
org-ai-talk-say-words-per-minute 210
org-agenda-finalize-hook '(+org-exclude-agenda-buffers-from-workspace-h
+org-defer-mode-in-agenda-buffers-h)
org-roam-preview-function 'org-roam-preview-default-function
org-log-done 'time
org-agenda-window-setup 'current-window
org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs)
("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
("\\.pdf\\'" . default))
org-mode-hook '(doom--setq-yas-triggers-in-field-for-org-mode-h
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 "\300\301\302\303\304$\207" [add-hook
change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes
#[0 "\301\211\207" [imenu-create-index-function
org-imenu-get-tree] 2] beginend-org-mode
#[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 app
[BUG] unfolding headlines with :extend face keyword & background broke after 2da622cad [9.7 (9.7-??-8ac99c33f @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
Hi, using the following test case with Emacs -Q: (let ((default-directory (file-name-directory load-file-name))) (when (file-exists-p (expand-file-name "default.el" default-directory)) (load-file (expand-file-name "default.el" default-directory (straight-use-package 'org) (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) (setq org-startup-folded t) (defvar org-extend-faces-bug-4-file "/tmp/org-extend-faces-bug-4.org" "The file to be used for the bug demo.") (with-temp-buffer (insert "* foo\n** bar\ntest\n** baz\ntest") (write-file org-extend-faces-bug-4-file)) (find-file org-extend-faces-bug-4-file) The most recent fix for the bug in 2da622cad seems to have made things worse. Now sometimes the background of the headline is not extended and other times we still have the trailing background color where it's not supposed to. It's definitely a lot worse when the file is started up folded because the issue seems to be specifically related with unfolding a heading with subheadings. StrawberryTea < Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.18.0) of 2024-03-04 Package: Org mode version 9.7 (9.7-??-8ac99c33f @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)
[BUG] org dates, radio links, and special keywords override heading backgrounds [9.7 (9.7-??-902dacb @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
ing) '(0 'org-special-keyword t))
;; Emphasis
(when org-fontify-emphasized-text '(org-do-emphasis-faces))
;; Checkboxes
`(,org-list-full-item-re 3 'org-checkbox prepend lax)
(when (cdr (assq 'checkbox org-list-automatic-rules))
'("\\[\\([0-9]*%\\)\\]\\|\\[\\([0-9]*\\)/\\([0-9]*\\)\\]"
(0 (org-get-checkbox-statistics-face) prepend)))
;; Description list items
'("\\(?:^[ \t]*[-+]\\|^[ \t]+[*]\\)[ \t]+\\(.*?[ \t]+::\\)\\([
\t]+\\|$\\)"
1 'org-list-dt prepend)
;; Inline export snippets
'("\\(@@\\)\\([a-z-]+:\\).*?\\(@@\\)"
(1 'font-lock-comment-face t)
(2 'org-tag t)
(3 'font-lock-comment-face t))
;; ARCHIVEd headings
(list (concat
org-outline-regexp-bol
"\\(.*:" org-archive-tag ":.*\\)")
'(1 'org-archived prepend))
;; Specials
'(org-do-latex-and-related)
'(org-fontify-entities)
'(org-raise-scripts)
;; Code
'(org-activate-code (1 'org-code t))
;; COMMENT
(list (format
"^\\*+\\(?: +%s\\)?\\(?: +\\[#[A-Z0-9]\\]\\)? +\\(?9:%s\\)\\(?:
\\|$\\)"
org-todo-regexp
org-comment-string)
'(9 'org-special-keyword prepend))
;; Blocks and meta lines
'(org-fontify-meta-lines-and-blocks)
'(org-fontify-inline-src-blocks)
;; Citations. When an activate processor is specified, if
;; specified, try loading it beforehand.
(progn
(unless (null org-cite-activate-processor)
(org-cite-try-load-processor org-cite-activate-processor))
'(org-cite-activate))
'(org-activate-folds
(setq org-font-lock-extra-keywords (delq nil org-font-lock-extra-keywords))
(run-hooks 'org-font-lock-set-keywords-hook)
;; Now set the full font-lock-keywords
(setq-local org-font-lock-keywords org-font-lock-extra-keywords)
(setq-local font-lock-defaults
'(org-font-lock-keywords t nil nil backward-paragraph))
(setq-local font-lock-extend-after-change-region-function
#'org-fontify-extend-region)
(kill-local-variable 'font-lock-keywords)
nil))
The patch is as follows:
diff --git a/lisp/org.el b/lisp/org.el
index 33d9050..e9b4eac 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5923,8 +5923,8 @@ needs to be inserted at a specific position in the
font-lock sequence.")
;; Link related fontification.
'(org-activate-links)
(when (memq 'tag org-highlight-links) '(org-activate-tags (1 'org-tag
prepend)))
- (when (memq 'radio org-highlight-links) '(org-activate-target-links
(1 'org-link t)))
- (when (memq 'date org-highlight-links) '(org-activate-dates (0
'org-date t)))
+ (when (memq 'radio org-highlight-links) '(org-activate-target-links
(1 'org-link prepend)))
+ (when (memq 'date org-highlight-links) '(org-activate-dates (0
'org-date prepend)))
(when (memq 'footnote org-highlight-links)
'(org-activate-footnote-links))
;; Targets.
(list org-radio-target-regexp '(0 'org-target t))
@@ -5999,7 +5999,7 @@ needs to be inserted at a specific position in the
font-lock sequence.")
"^\\*+\\(?: +%s\\)?\\(?: +\\[#[A-Z0-9]\\]\\)?
+\\(?9:%s\\)\\(?: \\|$\\)"
org-todo-regexp
org-comment-string)
- '(9 'org-special-keyword t))
+ '(9 'org-special-keyword prepend))
;; Blocks and meta lines
'(org-fontify-meta-lines-and-blocks)
'(org-fontify-inline-src-blocks)
Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.18.0)
of 2024-03-03
Package: Org mode version 9.7 (9.7-??-902dacb @
/home/st/.config/emacs/.local/straight/build-30.0.50/org/)
Sincerely,
StrawberryTea
[BUG] Extra trailing backgrounds leftover after unfolding org headlines [9.7 (9.7-??-902dacb @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
Hello Org mode developers, I've noticed that when I unfold an org headline, a trailing background is sometimes left behind at the end of the body text. Here is a minimal example to reproduce the issue from emacs -Q: ;; Bootstrap straight (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"; 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (straight-use-package 'org) (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 "* Headline 1\n Hello * Headline 1\nHello\n") Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See https://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org mailing list. Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo version 1.18.0) of 2024-03-02 Package: Org mode version 9.7 (9.7-??-902dacb @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)
[BUG] we should obsolete org-fontify-whole-heading-line [9.7 (9.7-??-b127d72 @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
Hello Org-Mode developers,
We should make org-fontify-whole-heading-line default to t and obsolete
it. That variable was added before the introduction of the :extend
keyword for text properties. Now that we have :extend, we can make the
whole heading line face extend to the end of the window without needing
a special variable for it.
Best,
StrawberryTea
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
https://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org mailing list.
Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.18.0)
of 2024-03-01
Package: Org mode version 9.7 (9.7-??-b127d72 @
/home/st/.config/emacs/.local/straight/build-30.0.50/org/)
current state:
==
(setq
org-special-ctrl-a/e t
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-clock-persist 'history
org-indirect-buffer-display 'current-window
org-preview-latex-image-directory
"/home/st/.config/emacs/.local/cache/org/latex/"
org-after-todo-state-change-hook '(parrot--todo-party)
org-default-notes-file "/home/st/org/notes.org"
org-directory "~/org/"
org-list-demote-modify-bullet '(("+" . "-") ("-" . "+") ("*" . "+") ("1." .
"a."))
org-M-RET-may-split-line nil
org-clock-in-resume t
org-clock-out-remove-zero-time-clocks t
org-roam-list-files-commands '(fd fdfind rg find)
org-display-remote-inline-images 'download
org-roam-db-node-include-function '(closure (t) nil t)
org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-archive-subtree-save-file-p t
org-id-locations-file "/home/st/org/.orgids"
org-agenda-finalize-hook '(org-modern-agenda
+org-exclude-agenda-buffers-from-workspace-h
+org-defer-mode-in-agenda-buffers-h)
org-roam-preview-function 'org-roam-preview-default-function
org-log-done 'time
org-agenda-window-setup 'current-window
org-modern-priority '((65 . "⚑") (66 . "⬆") (67 . "■") (68 . "⬇") (69 . "⛾"))
org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs)
("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
("\\.pdf\\'" . default))
org-modern-mode-hook '(org-modern-mode-set-explicitly)
org-mode-hook '(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))
(closure
(org--rds reftex-docstruct-symbol org-attach-method
org--single-lines-list-is-paragraph org-element-greater-elements
org-agenda-restrict-end org-agenda-restrict-begin
org-agenda-restrict visual-fill-column-width org-clock-history
org-agenda-current-date org-with-time org-defdecode org-def
org-read-date-inactive org-ans2 org-ans1
org-columns-current-fmt-compiled org-clock-current-task
org-clock-effort org-agenda-skip-function
org-agenda-skip-comment-trees org-agenda-archives-mode
org-end-time-was-given org-time-was-given org-log-note-extra
org-log-note-purpose org-log-post-message
org-last-inserted-timestamp org-last-changed-timestamp
org-entry-property-inherited-from org-state
org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name
org-agenda-start-on-weekday org-agenda-buffer-tmp-name
org-priority-regexp org-mode-abbrev-table
org-element-cache-persistent org-element-cache-version
buffer-face-mode-face org-tbl-menu org-org-menu org-struct-menu
org-entities org-last-state org-id-track-globally
org-clock-start-time texmathp-why remember-data-file
org-agenda-tags-todo-honor-ignore-options
calc-embedded-open-mode calc-embedded-open-formula
calc-embedded-close-formula align-mode-rules-list
org-emphasis-alist org-emphasis-regexp-components
org-export-registered-backends org-babel-load-languages
org-id-overriding-file-name org-indent-indentation-per-level
org-element--timestamp-regexp
org-element-cache-map-continue-from org-element-paragraph-separate
org-agenda-buffer-name
org-inlinetask-min-level t)
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/)]
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 writes: > StrawberryTea 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>
[BUG] org :extend property bugfix does not work [9.7 (9.7-??-388ba5b @ /home/st/.config/emacs/.local/straight/build-30.0.50/org/)]
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}"))
[BUG] lispy-right causes org error in org-narrow-to-subtree [9.7 (9.7-??-d3f587f @ /root/.config/emacs/.local/straight/build-30.0.50/org/)]
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
https://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org mailing list.
While using `lispy-right' at the beginning of the the first line of
https://github.com/doomemacs/doom-emacs/blob/master/modules/completion/helm/config.el#L1,
I get the following error:
Debugger entered--Lisp error: (error "rx ‘**’ range error")
error("rx `%s' range error" **)
rx--translate-bounded-repetition(** (1 0 "*"))
rx--translate-**((1 0 "*"))
rx--translate-form((** 1 0 "*"))
rx--translate((** 1 0 "*"))
rx--translate-seq((line-start (** 1 0 "*") " "))
rx--translate-form((seq line-start (** 1 0 "*") " "))
rx--translate((seq line-start (** 1 0 "*") " "))
rx-to-string((seq line-start (** 1 0 "*") " "))
org-element-headline-parser(nil fast)
org-element--parse-to(1)
org-element-at-point()
org-narrow-to-subtree()
lispy-outline-right()
lispy-right(1)
funcall-interactively(lispy-right 1)
call-interactively(lispy-right)
(cond ((lispy--edebug-commandp) (call-interactively lispy--edebug-command))
((region-active-p) (call-interactively 'lispy-right))
((lispy--in-string-or-comment-p) (setq this-command 'self-insert-command)
(call-interactively 'self-insert-command)) ((or (lispy-left-p) (lispy-right-p)
(and (lispy-bolp) (or (looking-at lispy-outline-header) (looking-at
lispy-outline (call-interactively 'lispy-right)) (t (setq this-command
'self-insert-command) (call-interactively 'self-insert-command)))
special-lispy-right()
funcall-interactively(special-lispy-right)
command-execute(special-lispy-right)
Emacs : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.38,
cairo version 1.17.8)
of 2023-08-01
Package: Org mode version 9.7 (9.7-??-d3f587f @
/root/.config/emacs/.local/straight/build-30.0.50/org/)
current state:
==
(setq
org-archive-location "~/org/.archive/%s::"
org-link-elisp-confirm-function nil
org-directory "~/org/"
org-after-todo-state-change-hook '(parrot--todo-party)
org-after-refile-insert-hook '(save-buffer)
org-indirect-buffer-display 'current-window
org-roam-db-gc-threshold 2305843009213693951
org-hide-emphasis-markers t
org-bibtex-headline-format-function 'org-bibtex-headline-format-default
org-log-done 'time
org-roam-mode-hook '(turn-on-visual-line-mode)
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-startup-folded nil
org-babel-after-execute-hook '(+org-redisplay-inline-images-in-babel-result-h)
org-link-abbrev-alist '(("doomdir" . "/root/.config/doom/%s") ("emacsdir" .
"/root/.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";)
("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-agenda-files '("~/org/")
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 %?\
