Hi all.

I got the following warning message in org-mode and a
suggestion that I post it to this list. I often receive
this message, but have been ignoring it until today.

-Jeff


Warning (org-element): org-element--cache: Unregistered buffer modifications 
detected (289 != 293). 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: remodelação_da_cozinha.org
 Current command: nil
 Backtrace:
nil Disable showing Disable logging

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

Emacs  : GNU Emacs 28.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.20, 
cairo version 1.16.0)
 of 2022-05-31
Package: Org mode version 9.7.11 (9.7.11-??-6a5d0ed34 @ 
/home/jbauer/.config/emacs/.local/straight/build-28.1/org/)

current state:
==============
(setq
 org-link-elisp-confirm-function nil
 org-directory "~/Documents/org/"
 org-after-refile-insert-hook '(save-buffer)
 org-indirect-buffer-display 'current-window
 org-roam-db-gc-threshold 2305843009213693951
 org-bibtex-headline-format-function 'org-bibtex-headline-format-default
 org-capture-bookmark nil
 org-fontify-done-headline nil
 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/jbauer/.doom.d/%s")
                         ("emacsdir" . "/home/jbauer/.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";)
                         ("kagi" . "https://kagi.com/search?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 "~/Documents/org/agenda.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-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 "/home/jbauer/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-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-yank-image-file-name-function 'org-yank-image-autogen-filename
 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
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (progn
                   (let ((--dolist-tail-- '(after-change-major-mode-hook)))
                    (while --dolist-tail--
                     (let ((hook (car --dolist-tail--)))
                      (let
                       ((--dolist-tail--
                         (list
                          #'(lambda (&rest _)
                             (if (derived-mode-p 'org-mode)
                              (progn (setq tab-width 8)))
                             )
                          )
                         )
                        )
                       (while --dolist-tail--
                        (let ((func (car --dolist-tail--)))
                         (add-hook hook func nil t)
                         (setq --dolist-tail-- (cdr --dolist-tail--)))
                        )
                       )
                      (setq --dolist-tail-- (cdr --dolist-tail--)))
                     )
                    )
                   )
                  (add-hook 'save-place-after-find-file-hook
                   #'+org-make-last-point-visible-h nil t)
                  )
                 +lookup--init-org-mode-handlers-h
                 #[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]
                 org-next-visible-heading org-previous-visible-heading
                 (closure (t) nil (set-input-method "portuguese-prefix"))
                 doom-disable-show-paren-mode-h
                 doom-disable-show-trailing-whitespace-h evil-org-mode
                 org-eldoc-load toc-org-enable embrace-org-mode-hook)
 org-src-window-setup 'other-window
 org-id-locations-file "/home/jbauer/org/.orgids"
 org-roam-ref-annotation-function 'org-roam-ref-read--annotation
 org-roam-directory "/home/jbauer/Documents/org/roam/"
 org-agenda-time-grid '((daily today require-timed)
                        (800 1000 1200 1400 1600 1800 2000) "......"
                        "----------------")
 org-agenda-span 10
 org-priority-faces '((65 . error) (66 . warning) (67 . success))
 org-ellipsis " [...] "
 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-sort-function 'string-collate-lessp
 org-agenda-mode-hook '(+org-habit-resize-graph-h evil-org-agenda-mode)
 org-roam-capture-preface-hook '(org-roam-capture--try-capture-to-ref-h)
 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-safe-remote-resources 
'("\\`https://fniessen\\.github\\.io/org-html-themes/org/theme-readtheorg\\.setup\\'")
 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--warnings '("org-element--cache: Unregistered buffer modifications 
detected (289 != 293). Resetting.\nIf this warning appears regularly, please 
report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: remodelação_da_cozinha.org\n Current 
command: nil\n Backtrace:\nnil" "org-element--cache: Unregistered buffer 
modifications detected (1167 != 1168). Resetting.\nIf this warning appears 
regularly, please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: Brazil2026.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (782 != 785). Resetting.\nIf this warning appears regularly, please 
report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: Porto2025.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (31463 != 31465). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: final_review.org\n Current command: 
nil\n Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (31181 != 31184). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: final_review.org\n Current command: 
nil\n Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (2664 != 2669). Resetting.\nIf this warning appears regularly, please 
report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: final_review.org\n Current command: 
nil\n Backtrace:\nnil" "org-element--cache: Org parser error in 
final_review.org::505. Resetting.\n The error was: (error \"Invalid search 
bound (wrong side of point)\")\n Backtrace:\nnil\n Please report this to Org 
mode mailing list (M-x org-submit-bug-report)." "org-element--cache: 
Unregistered buffer modifications detected (218316 != 218318). Resetting.\nIf 
this warning appears regularly, please report the warning text to Org mode 
mailing list (M-x org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n 
Current command: nil\n Backtrace:\nnil" "org-element--cache: Unregistered 
buffer modifications detected (217198 != 217200). Resetting.\nIf this warning 
appears regularly, please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (195560 != 195561). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (195505 != 195507). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (187188 != 187191). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (181371 != 181372). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (166799 != 166801). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (165343 != 165346). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (1089 != 1090). Resetting.\nIf this warning appears regularly, please 
report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: metagramática.org\n Current command: 
nil\n Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (131311 != 131313). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: 
org-return\n Backtrace:\nnil" "org-element--cache: Unregistered buffer 
modifications detected (123266 != 123267). Resetting.\nIf this warning appears 
regularly, please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (122843 != 122844). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil" "org-element--cache: Unregistered buffer modifications 
detected (122822 != 122823). Resetting.\nIf this warning appears regularly, 
please report the warning text to Org mode mailing list (M-x 
org-submit-bug-report).\nThe buffer is: NotesB1B2.org\n Current command: nil\n 
Backtrace:\nnil")
 org-roam-capture-new-node-hook '(org-roam-capture--insert-captured-ref-h)
 org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
 org-preview-latex-image-directory 
"/home/jbauer/.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/jbauer/.config/emacs/.local/etc/org-clock-save.el"
 org-persist-directory "/home/jbauer/.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--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-exclude-agenda-buffers-from-workspace-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/jbauer/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-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 '(("bibtex" :follow org-bibtex-open :store
                        org-bibtex-store-link)
                       ("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)
                       ("roam" :follow org-roam-link-follow-link)
                       ("id" :follow org-roam-id-open :store
                        org-id-store-link-maybe)
                       ("img" :image-data-fun +org-inline-image-data-fn)
                       ("doom-changelog" :follow
                        (closure
                         ((old)
                          (vnew closure ((-call-interactively) t) (fn)
                           #'(lambda (path _prefixarg)
                              (funcall (or (command-remapping fn) 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 (or (command-remapping fn) 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 (or (command-remapping fn) 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 (or (command-remapping fn) 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 (or (command-remapping fn) 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--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) (-call-interactively) 
t)
                         (path _prefixarg)
                         (funcall (or (command-remapping fn) 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) (-call-interactively) t)
                         (path _prefixarg)
                         (funcall (or (command-remapping fn) 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 . describe-function) 
(-call-interactively) t)
                         (path _prefixarg)
                         (funcall (or (command-remapping fn) 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 . describe-variable) 
(-call-interactively) t)
                         (path _prefixarg)
                         (funcall (or (command-remapping fn) 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
                         ((old)
                          (vnew closure ((-call-interactively) t) (fn)
                           #'(lambda (path _prefixarg)
                              (funcall (or (command-remapping fn) 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-image-file-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\302Q\"\207" ["news" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        )
                       ("mailto" :follow
                        #[514 "\301\300\302Q\"\207" ["mailto" browse-url ":"] 
6
                          "\n\n(fn URL ARG)"]
                        )
                       ("https" :follow
                        #[514 "\301\300\302Q\"\207" ["https" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        :image-data-fun +org-http-image-data-fn)
                       ("http" :follow
                        #[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6
                          "\n\n(fn URL ARG)"]
                        :image-data-fun +org-http-image-data-fn)
                       ("ftp" :follow
                        #[514 "\301\300\302Q\"\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
                           (if (featurep :system 'windows)
                            (string-prefix-p "//" path))
                           (file-remote-p path)
                           (if (featurep :system '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-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)
                      ("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-agenda-current-time-string "now - - - - - - - - - - - - - - - - - - - - - 
- - - -"
 org-agenda-block-separator 61
 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
 )

Reply via email to