emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] Bug in parser [9.7 (9.7-??-57b94f344 @ /home/jose/.config/emacs/.local/straight/build-29.1/org/)]
@ 2024-01-07 21:18 Jose Salazar
  2024-01-12 14:21 ` Ihor Radchenko
  0 siblings, 1 reply; 2+ messages in thread
From: Jose Salazar @ 2024-01-07 21:18 UTC (permalink / raw)
  To: emacs-orgmode

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

This bug often happens when I load things (such as loading a literate agda
program -- "*.lagda.org", or rendering inline latex, e.g. $x = x^2$).

I'm using Doom and NixOS.
It doesn't actively disrupt my workflow (only that a window is opened)

The message is the following:
⛔ Warning (org-element): org-element--cache: Org parser error in
 concepts.lagda.org::#<marker at 78 in  concepts.lagda.org>. Resetting.
 The error was: (error "org-element--cache: Emergency exit")
 Backtrace:
"  backtrace-to-string(nil)
  org-element-at-point(#<marker at 78 in  concepts.lagda.org>)
  org-element-cache-map(#f(compiled-function (el) #<bytecode
0x1605c7e9a3ac51a6>) :next-re \"^\\\\*+ \" :fail-re \"^\\\\*+ \" :narrow t)
  org-scan-tags(org-encrypt-entry (lambda (todo tags-list level) (progn
(setq org-cached-props nil) (or (and (member \"crypt\" tags-list))))) nil)
  org-encrypt-entries()
  run-hooks(before-save-hook)
  #<subr basic-save-buffer>(nil)
  polymode-with-current-base-buffer(#<subr basic-save-buffer> nil)
  apply(polymode-with-current-base-buffer #<subr basic-save-buffer> nil)
  basic-save-buffer(nil)
  #<subr save-buffer>()
  funcall(#<subr save-buffer>)
  (let ((apheleia-mode (and apheleia-mode (memq arg '(nil 1))))) (funcall
orig-fn))
  +format--inhibit-reformat-on-prefix-arg-a(#<subr save-buffer> 1)
  apply(+format--inhibit-reformat-on-prefix-arg-a #<subr save-buffer> 1)
  save-buffer(1)
  funcall-interactively(save-buffer 1)
  command-execute(save-buffer)
"

The buffer is the following:
```
#+title: A

#+begin_src agda2
data S : Set where
  null : S

a : S
#+end_src
```

The bug often happens after loading (and this specific instance happened
when loading with agda)

This is the doom info:
```
generated  Jan 07, 2024 15:15:52
system     NixOS 23.11pre550792.3f21a22b5aaf (Tapir) Linux
  6.1.62 x86_64
emacs      29.1 ~/.config/emacs/
doom       3.0.0-pre PROFILE=_@0 HEAD -> master 03d692f1
  2023-12-08 15:11:45 -0500 ~/.config/doom/
shell      /run/current-system/sw/bin/bash
features   CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM
  GSETTINGS HARFBUZZ JPEG JSON LIBOTF LIBSELINUX
  LIBSYSTEMD LIBXML2 M17N_FLT MODULES NATIVE_COMP
  NOTIFY INOTIFY PDUMPER PNG RSVG SECCOMP SOUND
  SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS
  TREE_SITTER WEBP X11 XAW3D XDBE XIM XINPUT2 XPM
  LUCID ZLIB
traits     batch server-running envvar-file custom-file
modules    :config use-package :completion company vertico
  :ui doom doom-dashboard doom-quit (emoji +unicode)
  hl-todo ligatures minimap modeline ophints (popup
  +defaults) tabs treemacs unicode (vc-gutter
  +pretty) vi-tilde-fringe workspaces zen :editor
  (evil +everywhere) file-templates fold (format
  +onsave) lispy snippets :emacs dired electric undo
  vc :term eshell vterm :checkers syntax (spell
  +flyspell) grammar :tools biblio collab
  editorconfig ein (eval +overlay) gist lookup (lsp
  +peek) magit make pdf tmux tree-sitter :lang agda
  (cc +lsp) common-lisp coq data emacs-lisp (go
  +lsp) (haskell +lsp) idris (json +lsp) (javascript
  +lsp) (julia +lsp) latex lean markdown nix (org
  +dragndrop +pretty +roam2) (python +lsp) (racket
  +lsp +xp) (rust +lsp) scheme (sh +fish +lsp) :app
  calendar :config (default +bindings +smartparens)
packages   (polymode) (org-agda-mode :recipe (:host github
  :repo alhassy/org-agda-mode))
```

------------------------------------------------------------------------



Emacs  : GNU Emacs 29.1 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.18.0, Xaw3d scroll bars)
Package: Org mode version 9.7 (9.7-??-57b94f344 @
/home/jose/.config/emacs/.local/straight/build-29.1/org/)

current state:
==============
(setq
 org-link-elisp-confirm-function nil
 org-directory "~/org/"
 org-cite-insert-processor 'citar
 org-after-refile-insert-hook '(save-buffer)
 org-indirect-buffer-display 'current-window
 org-roam-db-gc-threshold 2305843009213693951
 org-crypt-key nil
 org-bibtex-headline-format-function 'org-bibtex-headline-format-default
 org-roam-mode-hook '(+org-roam-detach-magit-section-mode-map-h
                      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" . "/home/jose/.config/doom/%s")
                         ("emacsdir" . "/home/jose/.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 %?\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-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-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-format-latex-options '(:foreground default :background default :scale
1.5
                            :html-foreground "Black" :html-background
"Transparent"
                            :html-scale 1.0 :matchers
                            ("begin" "$1" "$" "$$" "\\(" "\\["))
 org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
 org-export-before-parsing-hook '(org-attach-expand-links)
 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-default-notes-file "/home/jose/org/notes.org"
 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-refile-use-outline-path 'file
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-cite-follow-processor 'citar
 org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs)
                 ("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
                 ("\\.pdf\\'" . default))
 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-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
 org-modules '(ol-bibtex)
 org-image-actual-width nil
 org-attach-use-inheritance t
 org-mode-local-vars-hook '(+org-init-gifs-h)
 org-mode-hook '(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]
                 doom-disable-show-paren-mode-h
                 doom-disable-show-trailing-whitespace-h
                 +org-make-last-point-visible-h org-appear-mode
                 org-fancy-priorities-mode org-superstar-mode evil-org-mode
                 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
writegood-mode
                 flyspell-mode embrace-org-mode-hook)
 org-src-window-setup 'other-window
 org-id-locations-file "/home/jose/org/.orgids"
 org-roam-ref-annotation-function 'org-roam-ref-read--annotation
 org-roam-directory "/home/jose/org/roam/"
 org-superstar-todo-bullet-alist '(("TODO" . 9744) ("[ ]" . 9744) ("DONE" .
9745)
                                   ("[X]" . 9745))
 org-agenda-span 10
 org-priority-faces '((65 . error) (66 . warning) (67 . success))
 org-roam-db-node-include-function #[0 "\300\207" [t] 1]
 org-roam-node-template-prefixes '(("doom-type" . "@") ("doom-tags" . "#")
                                   ("tags" . "#") ("todo" . "t:"))
 org-confirm-shell-link-function 'yes-or-no-p
 org-reveal-start-hook '(org-decrypt-entry)
 org-agenda-skip-unavailable-files t
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-use-sub-superscripts '{}
 org-startup-indented t
 org-highlight-latex-and-related '(native script entities)
 org-agenda-mode-hook '(+org-habit-resize-graph-h org-fancy-priorities-mode
                        evil-org-agenda-mode)
 org-roam-capture-preface-hook '(org-roam-capture--try-capture-to-ref-h)
 org-link-translation-function 'toc-org-unhrefify
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-capture-prepare-finalize-hook '(org-roam-capture--install-finalize-h)
 org-src-preserve-indentation t
 org-roam-preview-function 'org-roam-preview-default-function
 org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭")
                     ("sharp" "\\sharp" nil "" "" "266F" "♯"))
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
                     org-src-mode-configure-edit-buffer)
 org-roam-db-autosync-mode t
 org-agenda-window-setup 'current-window
 org-tags-exclude-from-inheritance '("crypt")
 org-clock-out-remove-zero-time-clocks t
 org-log-buffer-setup-hook '(org-roam-log--setup)
 org-cite-activate-processor 'citar
 org-hide-leading-stars t
 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-inhibit-startup t
 org-roam-capture-new-node-hook '(org-roam-capture--insert-captured-ref-h)
 org-support-shift-select t
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-preview-latex-image-directory
"/home/jose/.config/emacs/.local/cache/org/latex/"
 org-fontify-whole-heading-line t
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
 org-clock-persist-file
"/home/jose/.config/emacs/.local/etc/org-clock-save.el"
 org-persist-directory "/home/jose/.config/emacs/.local/cache/org/persist/"
 org-export-backends '(md ascii html icalendar latex odt)
 org-roam-list-files-commands '(fd fdfind rg find)
 org-enforce-todo-dependencies t
 org-confirm-babel-evaluate nil
 org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
 org-clock-in-resume t
 org-cite-export-processors '((latex biblatex) (t csl))
 org-insert-heading-respect-content t
 org-M-RET-may-split-line nil
 org-clock-persist 'history
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 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-link-shell-confirm-function 'yes-or-no-p
 org-agenda-finalize-hook '(org-fancy-priorities-create-overlays
                            +org-exclude-agenda-buffers-from-workspace-h
                            +org-defer-mode-in-agenda-buffers-h)
 org-babel-pre-tangle-hook '(save-buffer)
 org-roam-completion-everywhere t
 org-agenda-loop-over-headlines-in-active-region nil
 org-fontify-quote-and-verse-blocks t
 org-agenda-start-on-weekday nil
 org-attach-id-dir "/home/jose/org/.attach/"
 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-capture-mode-hook '(+org-show-target-in-capture-header-h
evil-insert-state)
 org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning)
                             (0.5 . org-upcoming-deadline)
                             (0.0 . org-upcoming-distant-deadline))
 org-fold-reveal-start-hook '(org-decrypt-entry)
 org-occur-hook '(org-first-headline-recenter)
 org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
 org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-roam-node-annotation-function 'org-roam-node-read--annotation
 org-link-parameters '(("treemacs" :store treemacs-store-org-link)
                       ("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
                       ("download" :complete
                        (closure
                         ((dir-fn closure (t) nil
                           (or org-download-image-dir org-attach-id-dir
"."))
                          (requires . org-download) (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 ((args) (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 ((args) (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 ((args) (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 ((args) (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))
                         )
                        )
                       ("orgit-rev" :store orgit-rev-store :follow
orgit-rev-open
                        :export orgit-rev-export :complete
orgit-rev-complete-link)
                       ("orgit-log" :store orgit-log-store :follow
orgit-log-open
                        :export orgit-log-export :complete
orgit-log-complete-link)
                       ("orgit" :store orgit-status-store :follow
orgit-status-open
                        :export orgit-status-export :complete
                        orgit-status-complete-link)
                       ("roam" :follow org-roam-link-follow-link)
                       ("yt" :follow org-yt-follow :image-data-fun
                        org-yt-image-data-fun :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 org-link--open-help :store
                        org-link--store-help)
                       ("file" :complete org-link-complete-file :face
                        (closure (t) (path)
                         (if
                          (or (file-remote-p path)
                           (if IS-WINDOWS (string-prefix-p "\\\\" path))
                           (file-exists-p path))
                          'org-link '(warning org-link))
                         )
                        )
                       ("elisp" :follow org-link--open-elisp))
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-fancy-priorities-list '("⚑" "⬆" "■")
 org-superstar-leading-bullet 32
 org-imenu-depth 6
 org-display-remote-inline-images 'download
 org-outline-path-complete-in-steps nil
 org-special-ctrl-a/e t
 org-tags-column 0
 org-src-lang-modes '(("rust" . rustic) ("md" . markdown) ("C" . c) ("C++"
. c++)
                      ("asymptote" . asy) ("beamer" . latex) ("calc" .
fundamental)
                      ("cpp" . c++) ("ditaa" . artist) ("desktop" .
conf-desktop)
                      ("dot" . fundamental) ("elisp" . emacs-lisp) ("ocaml"
. tuareg)
                      ("screen" . shell-script) ("sqlite" . sql) ("toml" .
conf-toml)
                      ("shell" . sh) ("ash" . sh) ("sh" . sh) ("bash" . sh)
                      ("jsh" . sh) ("bash2" . sh) ("dash" . sh) ("dtksh" .
sh)
                      ("ksh" . sh) ("es" . sh) ("rc" . sh) ("itcsh" . sh)
                      ("tcsh" . sh) ("jcsh" . sh) ("csh" . sh) ("ksh88" .
sh)
                      ("oash" . sh) ("pdksh" . sh) ("mksh" . sh) ("posix" .
sh)
                      ("wksh" . sh) ("wsh" . sh) ("zsh" . sh) ("rpm" . sh))
 org-clock-history-length 20
 org-attach-store-link-p 'attached
 org-roam-indirect-buffer-hook '(org-roam--register-completion-functions-h)
 org-id-locations-file-relative t
 org-archive-subtree-save-file-p t
 org-list-allow-alphabetical t
 )

[-- Attachment #2: Type: text/html, Size: 47815 bytes --]

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

* Re: [BUG] Bug in parser [9.7 (9.7-??-57b94f344 @ /home/jose/.config/emacs/.local/straight/build-29.1/org/)]
  2024-01-07 21:18 [BUG] Bug in parser [9.7 (9.7-??-57b94f344 @ /home/jose/.config/emacs/.local/straight/build-29.1/org/)] Jose Salazar
@ 2024-01-12 14:21 ` Ihor Radchenko
  0 siblings, 0 replies; 2+ messages in thread
From: Ihor Radchenko @ 2024-01-12 14:21 UTC (permalink / raw)
  To: Jose Salazar; +Cc: emacs-orgmode

Jose Salazar <jose.salazarg03@gmail.com> writes:

> This bug often happens when I load things (such as loading a literate agda
> program -- "*.lagda.org", or rendering inline latex, e.g. $x = x^2$).
>
> I'm using Doom and NixOS.
> It doesn't actively disrupt my workflow (only that a window is opened)

Your Org mode version is not the newest and we had a couple of fixes for
edge cases in the parser after 57b94f344. If you are lucky, the warning
should disappear after updating Org mode to the latest main.

Let us know if you still see the warning after upgrade.

-- 
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] 2+ messages in thread

end of thread, other threads:[~2024-01-12 14:19 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2024-01-07 21:18 [BUG] Bug in parser [9.7 (9.7-??-57b94f344 @ /home/jose/.config/emacs/.local/straight/build-29.1/org/)] Jose Salazar
2024-01-12 14:21 ` 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).