* [BUG] Warning (org-element-cache): org-element--cache: Unregistered buffer modifications detected. Resetting. [9.6 (9.6-??-86c4635db @ /Users/timothyw/.emacs.doom/.local/straight/build-28.1/org/)]
@ 2022-09-24 17:54 Timothy Washington
2022-09-26 4:37 ` Ihor Radchenko
0 siblings, 1 reply; 2+ messages in thread
From: Timothy Washington @ 2022-09-24 17:54 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 42450 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.
------------------------------------------------------------------------
This seems to happen when I'm using Org Roam in my Doom Emacs config. I'm
intermittently getting these errors popping.
This is actually an accumulation of a single first one.
Warning (org-element-cache): org-element--cache: Unregistered buffer
modifications detected. Resetting.
If this warning appears regularly, please report the warning text to Org
mode mailing list (M-x org-submit-bug-report).
The buffer is: *temp*
Current command: vertico-exit
Backtrace:
nil Disable showing Disable logging
Warning (org-element-cache): org-element--cache: Unregistered buffer
modifications detected. Resetting.
If this warning appears regularly, please report the warning text to Org
mode mailing list (M-x org-submit-bug-report).
The buffer is: *temp*
Current command: nil
Backtrace:
nil Disable showing Disable logging
Warning (org-element-cache): org-element--cache: Unregistered buffer
modifications detected. Resetting.
If this warning appears regularly, please report the warning text to Org
mode mailing list (M-x org-submit-bug-report).
The buffer is: *temp*
Current command: nil
Backtrace:
nil Disable showing Disable logging
Emacs : GNU Emacs 28.1 (build 1, aarch64-apple-darwin21.1.0, NS
appkit-2113.00 Version 12.0.1 (Build 21A559))
of 2022-05-11
Package: Org mode version 9.6 (9.6-??-86c4635db @
/Users/timothyw/.emacs.doom/.local/straight/build-28.1/org/)
current state:
==============
(setq
org-roam-db-location "/Users/timothyw/.emacs.d/.local/etc/org-roam.db"
org-link-elisp-confirm-function nil
org-directory "~/org/"
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 #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
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-maybe-h)
org-roam-buffer-window-parameters '((no-delete-other-windows . t))
org-startup-folded nil
org-babel-after-execute-hook
'(+org-redisplay-inline-images-in-babel-result-h)
org-link-abbrev-alist '(("doomdir" . "/Users/timothyw/.doom.d/%s")
("emacsdir" . "/Users/timothyw/.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-persist-after-read-hook '(org-element--cache-persist-after-read)
org-roam-backlinks-mode-hook '(turn-on-visual-line-mode)
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 "/Users/timothyw/org/notes.org"
org-refile-use-outline-path 'file
org-archive-hook '(org-attach-archive-delete-maybe)
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-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 '(+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
#[0 "\301\211 \207" [imenu-create-index-function
org-imenu-get-tree] 2] corfu-mode doom-disable-show-paren-mode-h
doom-disable-show-trailing-whitespace-h
+org-enable-auto-reformat-tables-h +org-enable-auto-update-cookies-h
+org-make-last-point-visible-h org-fancy-priorities-mode
org-superstar-mode toc-org-enable org-eldoc-load)
org-src-window-setup 'other-window
org-id-locations-file "/Users/timothyw/org/.orgids"
org-roam-directory "/Users/timothyw/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-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-roam-buffer-preview-function 'org-roam-buffer--preview
org-roam-buffer-prepare-hook '(hide-mode-line-mode
org-roam-buffer--insert-title org-roam-buffer--insert-backlinks
org-roam-buffer--insert-ref-links)
org-startup-indented t
org-roam-mode t
org-highlight-latex-and-related '(native script entities)
org-agenda-mode-hook '(+org-habit-resize-graph-h org-fancy-priorities-mode)
org-link-translation-function 'toc-org-unhrefify
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-roam-title-change-hook '(org-roam--update-file-name-on-title-change
org-roam--update-links-on-title-change)
org-roam-dailies-calendar-hook '(org-roam-dailies-calendar-mark-entries)
org-capture-prepare-finalize-hook '(org-roam-capture--install-finalize)
org-src-preserve-indentation t
org-roam-link-use-custom-faces 'everywhere
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-agenda-window-setup 'current-window
org-roam-title-to-slug-function 'org-roam--title-to-slug
org-tags-exclude-from-inheritance '("crypt")
org-clock-out-remove-zero-time-clocks t
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-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-preview-latex-image-directory
"/Users/timothyw/.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
"/Users/timothyw/.emacs.d/.local/etc/org-clock-save.el"
org-eldoc-breadcrumb-separator " → "
org-persist-directory "/Users/timothyw/.emacs.d/.local/cache/org/persist/"
org-export-backends '(md ascii html icalendar latex odt)
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-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-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 "/Users/timothyw/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-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-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("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-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)
("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link) ("roam" :follow org-roam-link-follow-link)
("yt" :follow org-yt-follow :image-data-fun
org-yt-image-data-fun)
("id" :follow org-id-open :face
org-roam--id-link-face) ("img" :image-data-fun +org-inline-image-data-fn)
("doom-changelog" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(link) (find-file (doom-path doom-docs-dir "
changelog.org")) (org-match-sparse-tree nil link))
)
("doom-source" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(link) (user-error "-- %S %S %S" source url link)
(let*
((url
(let ((save-match-data-internal (match-data)))
(unwind-protect
(progn (and (string-match
"^\\([^:]+\\):\\(.+\\)$" link) (cons (match-string 1) (match-string 2))))
(set-match-data save-match-data-internal
'evaporate))
)
)
(source
(if url (car-safe (prog1 url (setq url (cdr
url))))
(signal 'wrong-number-of-arguments (list
'(source . url) (length url))))
)
)
(cond ((equal source '"doom") (let nil
(org-link-open (expand-file-name url doom-modules-dir))))
((equal source '"contrib")
(let nil
(browse-url
(format "https://docs.doomemacs.org/modules/"
(replace-regexp-in-string "::\\(.+\\)$" "#\\1" url)))
)
)
(t (let nil (user-error "%s is not a valid
module source" source))))
)
)
)
("doom-user" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-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
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(_) 'org-priority)
)
("doom-ref" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-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
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-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-module" :follow
+org-link-follow-doom-module-fn :face +org-link--doom-module-link-face-fn
:eldoc
(closure
((face . org-priority) (label . "Doom module")
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(context)
(format "%s %s" (propertize (format "%s:" label)
'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
("doom-package" :follow
+org-link-follow-doom-package-fn :face
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(_) '(:inherit org-priority :slant italic))
:eldoc
(closure
((face . org-priority) (label . "Doom package")
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(context)
(format "%s %s" (propertize (format "%s:" label)
'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
("face" :follow
(closure ((fn . describe-face)
(-call-interactively) t) (link)
(let ((desc (+org-link-read-desc-at-point link)))
(funcall fn (or (intern-soft desc) (user-error
"Can't find documentation for %S" desc))))
)
:face (font-lock-type-face underline))
("fn" :follow
(closure ((fn . helpful-callable)
(-call-interactively) t) (link)
(let ((desc (+org-link-read-desc-at-point link)))
(funcall fn (or (intern-soft desc) (user-error
"Can't find documentation for %S" desc))))
)
:face (font-lock-function-name-face underline))
("var" :follow
(closure ((fn . helpful-variable)
(-call-interactively) t) (link)
(let ((desc (+org-link-read-desc-at-point link)))
(funcall fn (or (intern-soft desc) (user-error
"Can't find documentation for %S" desc))))
)
:face (font-lock-variable-name-face underline))
("kbd" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:"
label) 'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(_) (minibuffer-message "%s"
(+org-display-link-in-eldoc-a)))
:help-echo +org-link-read-kbd-at-point :face
help-key-binding :eldoc
(closure
((face . help-key-binding) (label . "Key
sequence") (-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (link)
(let ((desc (+org-link-read-desc-at-point
link)))
(funcall fn (or (intern-soft desc)
(user-error "Can't find documentation for %S" desc))))
)
)
(-call-interactively) t)
(context)
(format "%s %s" (propertize (format "%s:" label)
'face 'bold)
(propertize (+org-link-read-desc-at-point
(org-element-property :path context) context) 'face face))
)
)
("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 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
org-roam--file-link-face)
("elisp" :follow org-link--open-elisp))
org-roam-capture-function 'org-capture
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 '(("md" . markdown) ("C" . c) ("C++" . c++)
("asymptote" . asy) ("bash" . sh) ("beamer" . latex)
("calc" . fundamental) ("cpp" . c++) ("ditaa" .
artist) ("desktop" . conf-desktop) ("dot" . fundamental)
("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" .
shell-script) ("shell" . sh) ("sqlite" . sql)
("toml" . conf-toml))
org-clock-history-length 20
org-attach-store-link-p t
org-id-locations-file-relative t
org-archive-subtree-save-file-p t
org-list-allow-alphabetical t
)
Tim Washington
Interruptsoftware.com <http://interruptsoftware.com>
(647) 283-2856
[-- Attachment #2: Type: text/html, Size: 55431 bytes --]
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2022-09-26 4:37 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-09-24 17:54 [BUG] Warning (org-element-cache): org-element--cache: Unregistered buffer modifications detected. Resetting. [9.6 (9.6-??-86c4635db @ /Users/timothyw/.emacs.doom/.local/straight/build-28.1/org/)] Timothy Washington
2022-09-26 4:37 ` 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).