emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[BUG] there was a sudden message [9.6 (9.6-??-86c4635db @ /Users/mohamm


From: Mohammed Albatati
Subject: [BUG] there was a sudden message [9.6 (9.6-??-86c4635db @ /Users/mohammedalbatati/.emacs.d/.local/straight/build-28.2/org/)]
Date: Mon, 24 Oct 2022 10:31:04 +0300


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.
------------------------------------------------------------------------

While typing this message showed up to me asking to submit the bug
report


Warning (lsp-mode): Unable to calculate the languageId for buffer ‘custom.el’. 
Take a look at ‘lsp-language-id-configuration’. The ‘major-mode’ is 
emacs-lisp-mode Disable showing Disable logging
Warning (org-element-cache): org-element--cache: Org parser error in 
report_submit.org::5095. Resetting.
The error was: (wrong-type-argument integer-or-marker-p nil)
Backtrace:
"  backtrace-to-string(nil)
  org-element-at-point()
  org-back-to-heading(t)
  org-back-to-heading-or-point-min(t)
  org-get-property-block()
  org--property-local-values(\"LOG_INTO_DRAWER\" t)
  org-entry-get-with-inheritance(\"LOG_INTO_DRAWER\" t)
  org-entry-get(nil \"LOG_INTO_DRAWER\" inherit t)
  org-log-into-drawer()
  org-mode-flyspell-verify()
  flyspell-word()
  flyspell-check-region-doublons(576 5121)
  flyspell-large-region(576 5121)
  flyspell-region(576 5121)
  flyspell-lazy-check-visible()
  apply(flyspell-lazy-check-visible nil)
  timer-event-handler([t 0 3 0 t flyspell-lazy-check-visible nil idle 0 nil])
"

Emacs  : GNU Emacs 28.2 (build 1, x86_64-apple-darwin18.7.0, NS appkit-1671.60 
Version 10.14.6 (Build 18G95))
of 2022-09-12
Package: Org mode version 9.6 (9.6-??-86c4635db @ 
/Users/mohammedalbatati/.emacs.d/.local/straight/build-28.2/org/)

current state:
==============
(setq
org-journal-date-prefix "#+TITLE:"
org-link-elisp-confirm-function nil
org-directory "~/org/"
org-after-refile-insert-hook '(save-buffer)
org-indirect-buffer-display 'current-window
org-crypt-key nil
org-hide-emphasis-markers t
org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn 
ENTRY)"]
org-download-file-format-function 'org-download-file-format-default
org-log-done 'time
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-log-into-drawer t
org-startup-folded nil
org-babel-after-execute-hook '(+org-redisplay-inline-images-in-babel-result-h)
org-link-abbrev-alist '(("doomdir" . "/Users/mohammedalbatati/.doom.d/%s")
                         ("emacsdir" . "/Users/mohammedalbatati/.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-skip-scheduled-if-done t
org-agenda-files '("~/org/")
org-journal-dir "/Users/mohammedalbatati/org/journal/"
org-journal-date-format "%a, %Y-%m-%d"
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-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 "/Users/mohammedalbatati/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 '(+indent-guides-disable-maybe-h +org-init-gifs-h)
org-mode-hook '((closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 er/add-org-mode-expansions
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 +lookup--init-org-mode-handlers-h
                 (closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
                  (add-hook 'before-save-hook 'org-encrypt-entries nil t))
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-fold-show-all append 
local] 5]
                 #[0 "\300\301\302\303\304$\207"
                   [add-hook change-major-mode-hook org-babel-show-result-all 
append local]
                   5]
                 org-babel-result-hide-spec org-babel-hide-all-hashes
                 #[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-enable-auto-reformat-tables-h 
+org-enable-auto-update-cookies-h
                 +org-make-last-point-visible-h org-fancy-priorities-mode
                 org-superstar-mode evil-org-mode toc-org-enable writegood-mode
                 flyspell-mode embrace-org-mode-hook org-eldoc-load)
org-follow-link-hook '(+nav-flash-delayed-blink-cursor-h)
org-agenda-skip-deadline-if-done t
org-src-window-setup 'other-window
org-id-locations-file "/Users/mohammedalbatati/org/.orgids"
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-ellipsis " ↴↴↴"
org-download-abbreviate-filename-function 'file-relative-name
org-confirm-shell-link-function 'yes-or-no-p
org-reveal-start-hook '(org-decrypt-entry)
org-agenda-skip-unavailable-files t
org-download-annotate-function 'org-download-annotate-default
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-use-sub-superscripts '{}
org-agenda-skip-timestamp-if-done t
org-startup-indented t
org-journal-carryover-items 
"TODO=\"TODO\"|TODO=\"PROJ\"|TODO=\"STRT\"|TODO=\"WAIT\"|TODO=\"HOLD\""
org-journal-find-file 'find-file
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-link-translation-function 'toc-org-unhrefify
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-src-preserve-indentation t
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-superstar-headline-bullets-list '("⁖" "◉" "○" "✸" "✿")
org-tags-exclude-from-inheritance '("crypt")
org-clock-out-remove-zero-time-clocks t
org-journal-time-prefix "* "
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/mohammedalbatati/.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/mohammedalbatati/.emacs.d/.local/etc/org-clock-save.el"
org-eldoc-breadcrumb-separator " → "
org-journal-mode-hook nil
org-persist-directory 
"/Users/mohammedalbatati/.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--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-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-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/mohammedalbatati/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-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("bibtex" :follow org-bibtex-open :store 
org-bibtex-store-link)
                       ("treemacs" :store treemacs-store-org-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))
                         )
                        )
                       ("denote" :follow denote-link-ol-follow :face 
denote-faces-link
                        :complete denote-link-ol-complete :store 
denote-link-ol-store
                        :export denote-link-ol-export)
                       ("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)
                       ("yt" :follow org-yt-follow :image-data-fun 
org-yt-image-data-fun)
                       ("id" :follow org-id-open)
                       ("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 (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (link) (find-file (doom-path doom-docs-dir 
"changelog.org"))
                         (org-match-sparse-tree nil link))
                        )
                       ("doom-source" :follow
                        (closure
                         ((old)
                          (vnew closure
                           ((-eldoc-fn) (old)
                            (vnew closure ((-call-interactively) t) (fn)
                             #'(lambda (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-call-interactively) t)
                           (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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-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 (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (link)
                         (browse-url
                          (format "https://github.com/%s";
                           (string-remove-prefix "@" 
(+org-link-read-desc-at-point link)))
                          )
                         )
                        :face
                        (closure
                         ((old)
                          (vnew closure
                           ((-eldoc-fn) (old)
                            (vnew closure ((-call-interactively) t) (fn)
                             #'(lambda (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-call-interactively) t)
                           (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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (_) 'org-priority)
                        )
                       ("doom-ref" :follow
                        (closure
                         ((old)
                          (vnew closure
                           ((-eldoc-fn) (old)
                            (vnew closure ((-call-interactively) t) (fn)
                             #'(lambda (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-call-interactively) t)
                           (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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (link)
                         (let
                          ((link (+org-link-read-desc-at-point link))
                           (url "https://github.com";) (doom-repo 
"doomemacs/doomemacs"))
                          (let ((save-match-data-internal (match-data)))
                           (unwind-protect
                            (progn
                             (browse-url
                              (cond
                               ((string-match
                                 
"^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)"
                                 link)
                                (format "%s/%s/issues/%s" url
                                 (or (match-string 1 link) doom-repo)
                                 (match-string 2 link))
                                )
                               ((string-match
                                 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)
                                (format "%s/%s/commit/%s" url
                                 (or (match-string 1 link) doom-repo)
                                 (match-string 2 link))
                                )
                               ((user-error "Invalid doom-ref link: %S" link)))
                              )
                             )
                            (set-match-data save-match-data-internal 
'evaporate))
                           )
                          )
                         )
                        :face
                        (closure
                         ((old)
                          (vnew closure
                           ((-eldoc-fn) (old)
                            (vnew closure ((-call-interactively) t) (fn)
                             #'(lambda (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-call-interactively) t)
                           (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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (link)
                         (let ((link (+org-link-read-desc-at-point link)))
                          (if
                           (or
                            (string-match
                             
"^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" link)
                            (string-match
                             
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)
                            )
                           'org-link 'error)
                          )
                         )
                        )
                       ("doom-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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-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 (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (_) '(:inherit org-priority :slant italic))
                        :eldoc
                        (closure
                         ((face . org-priority) (label . "Doom package") 
(-eldoc-fn) (old)
                          (vnew closure ((-call-interactively) t) (fn)
                           #'(lambda (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-call-interactively) t)
                         (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)
                         (path _prefixarg)
                         (funcall fn
                          (or (intern-soft path)
                           (user-error "Can't find documentation for %S" path))
                          )
                         )
                        :face (font-lock-type-face underline))
                       ("fn" :follow
                        (closure ((fn . helpful-callable) (-call-interactively) 
t)
                         (path _prefixarg)
                         (funcall fn
                          (or (intern-soft path)
                           (user-error "Can't find documentation for %S" path))
                          )
                         )
                        :face (font-lock-function-name-face underline))
                       ("var" :follow
                        (closure ((fn . helpful-variable) (-call-interactively) 
t)
                         (path _prefixarg)
                         (funcall fn
                          (or (intern-soft path)
                           (user-error "Can't find documentation for %S" path))
                          )
                         )
                        :face (font-lock-variable-name-face underline))
                       ("kbd" :follow
                        (closure
                         ((old)
                          (vnew closure
                           ((-eldoc-fn) (old)
                            (vnew closure ((-call-interactively) t) (fn)
                             #'(lambda (path _prefixarg)
                                (funcall fn
                                 (or (intern-soft path)
                                  (user-error "Can't find documentation for %S" 
path))
                                 )
                                )
                             )
                            (-call-interactively) t)
                           (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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-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 (path _prefixarg)
                              (funcall fn
                               (or (intern-soft path)
                                (user-error "Can't find documentation for %S" 
path))
                               )
                              )
                           )
                          (-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\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 (file-remote-p path)
                           (if IS-WINDOWS (string-prefix-p "\\\\" path))
                           (file-exists-p path))
                          'org-link '(warning org-link))
                         )
                        )
                       ("elisp" :follow org-link--open-elisp))
org-fancy-priorities-list '("⚑" "⬆" "■")
org-metaup-hook '(org-babel-load-in-session-maybe)
org-superstar-leading-bullet 32
org-imenu-depth 6
org-download-link-format-function 'org-download-link-format-function-default
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-download-image-dir "~/org/download-org"
org-attach-store-link-p t
org-id-locations-file-relative t
org-journal-file-format "%Y-%m-%d.org"
org-archive-subtree-save-file-p t
org-list-allow-alphabetical t
)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]