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
)