emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] org-element-cache Org parser error [9.7 (9.7-??-d6f3aed @ /home/guillaume.muller/.emacs.d/.local/straight/build-28.1/org/)]
@ 2023-08-17 18:52 Guillaume MULLER
  2023-08-17 19:03 ` Ihor Radchenko
  0 siblings, 1 reply; 2+ messages in thread
From: Guillaume MULLER @ 2023-08-17 18:52 UTC (permalink / raw)
  To: emacs-orgmode


[-- Attachment #1.1.1: Type: text/plain, Size: 38465 bytes --]




Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

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

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

When I start DoomEmacs, I get this message:

---
Warning (org-element-cache): org-element--cache: Org parser error in packages.el::4667. Resetting.
  The error was: (error "rx ‘**’ range error")
  Backtrace:
nil
  Please report this to Org mode mailing list (M-x org-submit-bug-report). Disable showing Disable logging
Warning (org-element-cache): org-element--cache: Org parser error in packages.el::4667. Resetting.
---


Emacs  : GNU Emacs 28.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.33, cairo version 1.16.0)
  of 2022-05-31
Package: Org mode version 9.7 (9.7-??-d6f3aed @ /home/guillaume.muller/.emacs.d/.local/straight/build-28.1/org/)

current state:
==============
(setq
  org-link-elisp-confirm-function nil
  org-directory "~/.doom.d/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-bibtex-headline-format-function #[257 "\300%1\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
  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" . "/home/guillaume.muller/.doom.d/%s")
                          ("emacsdir" . "/home/guillaume.muller/.emacs.d/%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 org-tag))
  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-default-notes-file "~/.doom.d/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 '(+indent-guides-disable-maybe-h +org-init-gifs-h)
  org-mode-hook '(org-ai-mode hl-todo-mode org-bullets-mode
                  #[0 "\301\211%10\207" [imenu-create-index-function org-imenu-get-tree] 2]
                  (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                   (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                  +lookup--init-org-mode-handlers-h
                  (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                   (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                  #[0 "\300\301\302\303\304$\207"
                    [add-hook change-major-mode-hook org-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 flymake-languagetool-load
                  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 toc-org-enable org-cdlatex-mode flyspell-mode writegood-mode
                  org-eldoc-load +literate-enable-recompile-h)
  org-follow-link-hook '(+nav-flash-delayed-blink-cursor-h)
  org-src-window-setup 'other-window
  org-id-locations-file "/home/guillaume.muller/org/.orgids"
  org-roam-ref-annotation-function 'org-roam-ref-read--annotation
  org-roam-directory "~/.doom.d/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-ai-openai-api-token "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"
  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-agenda-skip-unavailable-files t
  outline-isearch-open-invisible-function 'outline-isearch-open-invisible
  org-use-sub-superscripts '{}
  org-startup-indented t
  org-ai-on-project-mode-hook '(#[0 "\301\300!\210\302\211%10\207"
                                  [show-trailing-whitespace make-local-variable nil] 2]
                                )
  org-highlight-latex-and-related '(native script entities)
  org-agenda-mode-hook '(+org-habit-resize-graph-h org-fancy-priorities-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-latex-default-packages-alist '(("" "listings" nil nil) ("AUTO" "inputenc" t ("pdflatex"))
                                     ("T1" "fontenc" t ("pdflatex")) ("" "graphicx" t)
                                     ("" "longtable" nil) ("" "wrapfig" nil) ("" "rotating" nil)
                                     ("normalem" "ulem" t) ("" "amsmath" t) ("" "amssymb" t)
                                     ("" "capt-of" nil) ("" "hyperref" nil))
  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/guillaume.muller/.emacs.d/.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/guillaume.muller/.emacs.d/.local/etc/org-clock-save.el"
  org-eldoc-breadcrumb-separator " → "
  org-persist-directory "/home/guillaume.muller/.emacs.d/.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-M-RET-may-split-line '((headline . t) (item . t) (default . t))
  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-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/guillaume.muller/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)
  org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning) (0.5 . org-upcoming-deadline)
                              (0.0 . org-upcoming-distant-deadline))
  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 '(("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)
                        ("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)
                           (plist :image-data-fun +org-image-file-data-fn :requires nil)
                           (dir-var closure (t) nil (or org-download-image-dir org-attach-id-dir "."))
                           (key . "download") t)
                          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 "."))
                           (requires . org-download)
                           (plist :image-data-fun +org-image-file-data-fn :requires nil)
                           (dir-var closure (t) nil (or org-download-image-dir org-attach-id-dir "."))
                           (key . "download") t)
                          (link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                         :face
                         (closure
                          ((dir-fn closure (t) nil (or org-download-image-dir org-attach-id-dir "."))
                           (requires . org-download)
                           (plist :image-data-fun +org-image-file-data-fn :requires nil)
                           (dir-var closure (t) nil (or org-download-image-dir org-attach-id-dir "."))
                           (key . "download") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p "::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         :image-data-fun +org-image-file-data-fn :requires nil)
                        ("pdf" :follow
                         (closure ((args) (fn . org-pdftools-open) t) (&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) t) (&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) t) (&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) t) (&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-topic" :store orgit-topic-store :follow orgit-topic-open :export
                         orgit-topic-export :complete orgit-topic-complete-link)
                        ("roam" :follow org-roam-link-follow-link)
                        ("yt" :follow org-yt-follow :image-data-fun org-yt-image-data-fun)
                        ("id" :follow org-roam-id-open) ("img" :image-data-fun +org-inline-image-data-fn)
                        ("doom-changelog" :follow
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) t)
                          (link) (find-file (doom-path doom-docs-dir "changelog.org"))
                          (org-match-sparse-tree nil link))
                         )
                        ("doom-user" :follow
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) t)
                          (link)
                          (browse-url
                           (format "https://github.com/%s"
                            (string-remove-prefix "@" (+org-link-read-desc-at-point link)))
                           )
                          )
                         :face
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) t)
                          (_) 'org-priority)
                         )
                        ("doom-ref" :follow
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) t)
                          (link)
                          (let
                           ((link (+org-link-read-desc-at-point link)) (url "https://github.com")
                            (doom-repo "doomemacs/doomemacs"))
                           (let ((save-match-data-internal (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 save-match-data-internal 'evaporate))
                            )
                           )
                          )
                         :face
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) 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-follow-doom-module-fn :activate-func
                         +org-link--doom-module-link-activate-fn :face
                         +org-link--doom-module-link-face-fn :help-echo
                         +org-link-doom--help-echo-from-textprop)
                        ("doom-package" :follow +org-link-follow-doom-package-fn :activate-func
                         +org-link--doom-package-link-activate-fn :face
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) t)
                          (_) '(:inherit org-priority :slant italic))
                         :help-echo +org-link-doom--help-echo-from-textprop)
                        ("cmd" :follow
                         (closure ((fn . describe-command) (-call-interactively) t) (path _prefixarg)
                          (funcall fn
                           (or (intern-soft path) (user-error "Can't find documentation for %S" path)))
                          )
                         :activate-func +org-link--command-link-activate-command :face help-key-binding
                         :help-echo +org-link-doom--help-echo-from-textprop)
                        ("face" :follow
                         (closure ((fn . describe-face) (-call-interactively) t) (path _prefixarg)
                          (funcall fn
                           (or (intern-soft path) (user-error "Can't find documentation for %S" path)))
                          )
                         :activate-func +org-link--face-link-activate-face :face
                         (font-lock-type-face underline))
                        ("fn" :follow
                         (closure ((fn . helpful-callable) (-call-interactively) t) (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 org-code)
                        ("var" :follow
                         (closure ((fn . helpful-variable) (-call-interactively) t) (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 org-code)
                        ("kbd" :follow
                         (closure
                          ((old)
                           (vnew closure ((-call-interactively) t) (fn)
                            #'(lambda (path _prefixarg)
                               (funcall fn
                                (or (intern-soft path)
                                 (user-error "Can't find documentation for %S" path))
                                )
                               )
                            )
                           (-call-interactively) 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
                            ((plist) (dir-var . doom-modules-dir) (key . "doom-modules") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-modules-dir) (key . "doom-modules") t)
                          nil (if requires (mapc #'require (ensure-list requires)))
                          (+org--relative-path (+org--read-link-path key (funcall dir-fn))
                           (funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-modules-dir) (key . "doom-modules") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-modules-dir) (key . "doom-modules") t)
                          (link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                         :face
                         (closure
                          ((dir-fn closure
                            ((plist) (dir-var . doom-modules-dir) (key . "doom-modules") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-modules-dir) (key . "doom-modules") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p "::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         :requires nil)
                        ("doom-docs" :complete
                         (closure
                          ((dir-fn closure ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
                          nil (if requires (mapc #'require (ensure-list requires)))
                          (+org--relative-path (+org--read-link-path key (funcall dir-fn))
                           (funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
                          (link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                         :face
                         (closure
                          ((dir-fn closure ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p "::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         :requires nil)
                        ("doom" :complete
                         (closure
                          ((dir-fn closure ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-emacs-dir) (key . "doom") t)
                          nil (if requires (mapc #'require (ensure-list requires)))
                          (+org--relative-path (+org--read-link-path key (funcall dir-fn))
                           (funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-emacs-dir) (key . "doom") t)
                          (link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                         :face
                         (closure
                          ((dir-fn closure ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . doom-emacs-dir) (key . "doom") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p "::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         :requires nil)
                        ("org" :complete
                         (closure
                          ((dir-fn closure ((plist) (dir-var . org-directory) (key . "org") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . org-directory) (key . "org") t)
                          nil (if requires (mapc #'require (ensure-list requires)))
                          (+org--relative-path (+org--read-link-path key (funcall dir-fn))
                           (funcall dir-fn))
                          )
                         :follow
                         (closure
                          ((dir-fn closure ((plist) (dir-var . org-directory) (key . "org") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . org-directory) (key . "org") t)
                          (link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) nil))
                         :face
                         (closure
                          ((dir-fn closure ((plist) (dir-var . org-directory) (key . "org") t) nil
                            (symbol-value dir-var))
                           (requires) (plist) (dir-var . org-directory) (key . "org") t)
                          (link)
                          (let*
                           ((path (expand-file-name link (funcall dir-fn)))
                            (option-index (string-match-p "::\\(.*\\)\\'" path))
                            (file-name (substring path 0 option-index)))
                           (if (file-exists-p file-name) 'org-link 'error))
                          )
                         :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%4Q%2\"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                        ("mailto" :follow
                         #[514 "\301\300\302%4Q%2\"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
                        ("https" :follow
                         #[514 "\301\300\302%4Q%2\"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"]
                         :image-data-fun +org-http-image-data-fn)
                        ("http" :follow
                         #[514 "\301\300\302%4Q%2\"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"]
                         :image-data-fun +org-http-image-data-fn)
                        ("ftp" :follow
                         #[514 "\301\300\302%4Q%2\"\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-fancy-priorities-list '("⚑" "⬆" "■")
  org-metaup-hook '(org-babel-load-in-session-maybe)
  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 '(("plantuml" . plantuml) ("php" . php) ("rust" . rustic) ("jupyter-R" . R)
                       ("jupyter-julia" . julia) ("jupyter-python" . python) ("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 #1.1.2: OpenPGP public key --]
[-- Type: application/pgp-keys, Size: 673 bytes --]

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 236 bytes --]

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

end of thread, other threads:[~2023-08-17 19:03 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2023-08-17 18:52 [BUG] org-element-cache Org parser error [9.7 (9.7-??-d6f3aed @ /home/guillaume.muller/.emacs.d/.local/straight/build-28.1/org/)] Guillaume MULLER
2023-08-17 19:03 ` 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).