From: Bill McKelvie <bill.mckelvie@gmail.com>
To: emacs-orgmode@gnu.org
Subject: [BUG] Recurrent error about timer running Pomodoro extension. [9.6 (9.6-??-bed47b4 @ /home/bill/.emacs.d/.local/straight/build-28.1/org/)]
Date: Wed, 15 Feb 2023 16:50:40 -0330 [thread overview]
Message-ID: <811a8868-10e5-faa7-ad4a-9f24061db2ca@gmail.com> (raw)
I was running a Pomodoro timer from my professional development log and
kept getting an error. Emacs would slow down so that there would be a
delay between pressing a key and the character appearing on screen.
Shutting down and restarting helps for a while but the error then
recurs. The error message suggested submitting a bug report if it
recurred. Hence this post. I run emacs 28.1 with Doom on MXLinux 21.3,
KDE edition.
I hope this is helpful to the development team.
Bill
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.
------------------------------------------------------------------------
Emacs : GNU Emacs 28.1 (build 4, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.16.0, Xaw3d scroll bars)
of 2022-09-03
Package: Org mode version 9.6 (9.6-??-bed47b4 @
/home/bill/.emacs.d/.local/straight/build-28.1/org/)
current state:
==============
(setq
org-link-elisp-confirm-function nil
org-directory "~/Documents/org/"
org-cite-insert-processor 'citar
org-after-refile-insert-hook '(save-buffer)
org-indirect-buffer-display 'current-window
org-crypt-key nil
org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3
"\n\n(fn ENTRY)"]
org-pomodoro-long-break-sound
"/home/bill/.emacs.d/.local/straight/build-28.1/org-pomodoro/resources/bell_multiple.wav"
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-startup-folded nil
org-babel-after-execute-hook
'(+org-redisplay-inline-images-in-babel-result-h)
org-link-abbrev-alist '(("doomdir" . "/home/bill/.doom.d/%s")
("emacsdir" . "/home/bill/.emacs.d/%s")
("doom-repo" . "https://github.com/doomemacs/doomemacs/%s")
("wolfram" . "https://wolframalpha.com/input/?i=%s")
("wikipedia" . "https://en.wikipedia.org/wiki/%s")
("duckduckgo" . "https://duckduckgo.com/?q=%s")
("gmap" . "https://maps.google.com/maps?q=%s")
("gimages" . "https://google.com/images?q=%s")
("google" . "https://google.com/search?q=")
("youtube" . "https://youtube.com/watch?v=%s")
("github" . "https://github.com/%s"))
org-agenda-files '("~/Documents/org/")
org-capture-templates '(("t" "Personal todo" entry (file+headline
+org-capture-todo-file "Inbox")
"* [ ] %?\n%i\n%a" :prepend t)
("n" "Personal notes" entry (file+headline +org-capture-notes-file "Inbox")
"* %u %?\n%i\n%a" :prepend t)
("j" "Journal" entry (file+olp+datetree +org-capture-journal-file)
"* %U %?\n%i\n%a" :prepend t)
("p" "Templates for projects")
("pt" "Project-local todo" entry
(file+headline +org-capture-project-todo-file "Inbox") "* TODO %?\n%i\n%a"
:prepend t)
("pn" "Project-local notes" entry
(file+headline +org-capture-project-notes-file "Inbox") "* %U %?\n%i\n%a"
:prepend t)
("pc" "Project-local changelog" entry
(file+headline +org-capture-project-changelog-file "Unreleased")
"* %U %?\n%i\n%a" :prepend t)
("o" "Centralized templates for projects")
("ot" "Project todo" entry #'+org-capture-central-project-todo-file
"* TODO %?\n %i\n %a" :heading "Tasks" :prepend nil)
("on" "Project notes" entry #'+org-capture-central-project-notes-file
"* %U %?\n %i\n %a" :heading "Notes" :prepend t)
("oc" "Project changelog" entry
#'+org-capture-central-project-changelog-file
"* %U %?\n %i\n %a" :heading "Changelog" :prepend t)
)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
org-export-before-parsing-hook '(org-attach-expand-links)
org-cycle-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand
+org-clear-babel-results-h +org-cycle-only-current-subtree-h)
org-default-notes-file "/home/bill/Documents/org/notes.org"
org-refile-use-outline-path 'file
org-pomodoro-short-break-sound
"/home/bill/.emacs.d/.local/straight/build-28.1/org-pomodoro/resources/bell.wav"
org-archive-hook '(org-attach-archive-delete-maybe)
org-cite-follow-processor 'citar
org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs)
("\\.mm\\'" . default)
("\\.x?html?\\'" . default) ("\\.pdf\\'" . default))
org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines
org-cycle-optimize-window-after-visibility-change)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
org-modules '(ol-bibtex)
org-image-actual-width nil
org-attach-use-inheritance t
org-mode-local-vars-hook '(+org-init-gifs-h)
org-mode-hook '(er/add-org-mode-expansions
#[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree] 2]
(closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
(add-hook 'before-save-hook 'org-encrypt-entries nil t))
+lookup--init-org-mode-handlers-h
(closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
(add-hook 'before-save-hook 'org-encrypt-entries nil t))
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-fold-show-all append local] 5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes
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
evil-org-mode
toc-org-enable flyspell-mode embrace-org-mode-hook org-eldoc-load)
org-src-window-setup 'other-window
org-id-locations-file "/home/bill/Documents/org/.orgids"
org-agenda-span 10
org-priority-faces '((65 . error) (66 . warning) (67 . success))
org-pomodoro-overtime-sound
"/home/bill/.emacs.d/.local/straight/build-28.1/org-pomodoro/resources/bell.wav"
org-confirm-shell-link-function 'yes-or-no-p
org-reveal-start-hook '(org-decrypt-entry)
org-agenda-skip-unavailable-files t
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-use-sub-superscripts '{}
org-startup-indented t
org-agenda-mode-hook '(+org-habit-resize-graph-h 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-tags-exclude-from-inheritance '("crypt")
org-clock-out-remove-zero-time-clocks t
org-cite-activate-processor 'citar
org-pomodoro-ticking-sound
"/home/bill/.emacs.d/.local/straight/build-28.1/org-pomodoro/resources/tick.wav"
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-support-shift-select t
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-preview-latex-image-directory
"/home/bill/.emacs.d/.local/cache/org/latex/"
org-fontify-whole-heading-line t
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-clock-persist-file "/home/bill/.emacs.d/.local/etc/org-clock-save.el"
org-eldoc-breadcrumb-separator " → "
org-persist-directory "/home/bill/.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-pomodoro-finished-sound
"/home/bill/.emacs.d/.local/straight/build-28.1/org-pomodoro/resources/bell.wav"
org-fold-core-isearch-open-function 'org-fold--isearch-reveal
org-clock-in-resume t
org-cite-export-processors '((latex biblatex) (t csl))
org-insert-heading-respect-content t
org-M-RET-may-split-line nil
org-clock-persist 'history
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h
org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand +org-clear-babel-results-h
+org-cycle-only-current-subtree-h)
org-link-shell-confirm-function 'yes-or-no-p
org-agenda-finalize-hook '(+org-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 "/home/bill/Documents/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-pomodoro-audio-player "/usr/bin/paplay"
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
("elfeed" :follow elfeed-link-open :store elfeed-link-store-link)
("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-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-pomodoro-start-sound
"/home/bill/.emacs.d/.local/straight/build-28.1/org-pomodoro/resources/bell.wav"
org-tags-column 0
org-src-lang-modes '(("md" . markdown) ("C" . c) ("C++" . c++)
("asymptote" . asy) ("bash" . sh)
("beamer" . latex) ("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist)
("desktop" . conf-desktop) ("dot" . fundamental) ("elisp" . emacs-lisp)
("ocaml" . tuareg) ("screen" . shell-script) ("shell" . sh) ("sqlite" .
sql)
("toml" . conf-toml))
org-clock-history-length 20
org-attach-store-link-p t
org-id-locations-file-relative t
org-archive-subtree-save-file-p t
org-list-allow-alphabetical t
)
next reply other threads:[~2023-02-16 15:04 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-02-15 20:20 Bill McKelvie [this message]
2023-02-17 11:20 ` [BUG] Recurrent error about timer running Pomodoro extension. [9.6 (9.6-??-bed47b4 @ /home/bill/.emacs.d/.local/straight/build-28.1/org/)] Ihor Radchenko
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=811a8868-10e5-faa7-ad4a-9f24061db2ca@gmail.com \
--to=bill.mckelvie@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).