|
| From: | Serghei Iakovlev |
| Subject: | [BUG] org-refile-get-targets wrong-type-argument [9.6.15 (release_9.6.15 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)] |
| Date: | Sat, 14 Sep 2024 16:34:25 +0200 |
| User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/29.4 |
Hello,
I encountered an issue with `org-mode' in my Emacs configuration
related to periodic clearing of the refile cache during idle time. I
am using the following code snippet, which runs during idle time to
clear the cache of refile targets:
--8<---------------cut here---------------start------------->8---
(run-with-idle-timer 600 t (lambda ()
(require 'org-refile)
(org-refile-cache-clear)
(org-refile-get-targets)))
--8<---------------cut here---------------end--------------->8---
As far as I can tell, the code is syntactically and semantically
correct. However, it doesn't seem to work as expected and triggers
an error. After enabling `toggle-debug-on-error', I found the
following error message in the morning:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
looking-at(nil)
org-refile-get-targets()
(closure (t) nil (require 'org-refile) (org-refile-cache-clear)
(org-refile-get-targets))()
apply((closure (t) nil (require 'org-refile) (org-refile-cache-clear)
(org-refile-get-targets)) nil)
timer-event-handler([t 0 600 0 t (closure (t) nil (require 'org-refile)
(org-refile-cache-clear) (org-refile-get-targets)) nil idle 0 nil])
--8<---------------cut here---------------end--------------->8---
However, when I manually execute the `org-refile-get-targets' function,
it works without any issues. Unfortunately, I cannot provide a more
reproducible scenario beyond what I've described here.
For further investigation, I am attaching links to my complete Emacs
configuration in the hope that it might help. These are permalinks
to the specific commit reflecting the state of my configuration at
the time of the error:
init.el:
https://github.com/sergeyklay/.emacs.d/blob/01f971ea2e5e21dc20ac468799c55099ae9ae230/init.el
early-init.el
https://github.com/sergeyklay/.emacs.d/blob/01f971ea2e5e21dc20ac468799c55099ae9ae230/early-init.el
Serghei
------------------------------------------------------------------------
Emacs : GNU Emacs 29.4 (build 1, aarch64-apple-darwin21.6.0, NS appkit-2113.60
Version 12.6.6 (Build 21G646))
of 2024-08-02
Package: Org mode version 9.6.15 (release_9.6.15 @
/Applications/Emacs.app/Contents/Resources/lisp/org/)
current state:
==============
(setq
org-link-elisp-confirm-function 'yes-or-no-p
org-after-refile-insert-hook '(my|org-update-statistics-cookies-after-refile)
org-crypt-key '("1E0B5331219BEA88")
org-hide-emphasis-markers t
org-bibtex-headline-format-function #[257 "\300.\236A\207" [:title] 3 "\n\n(fn
ENTRY)"]
org-log-done 'time
org-agenda-custom-commands '(("g" "Agenda" agenda "")
("u" "Untagged Headings" tags "-{.*}"
((org-agenda-overriding-header "Untagged
Headings")))
("o" "Unfinished, but not scheduled tasks"
((tags-todo "-someday-project"
((org-agenda-skip-function
'my-org-agenda-skip-parent-if-has-scheduled-childs)
(org-agenda-overriding-header "Unscheduled
Tasks"))
)
)
)
("O" "Scheduled, but with :someday: tag"
((tags "+someday"
((org-agenda-skip-function
'(or (org-agenda-skip-entry-if 'notscheduled)
(org-agenda-skip-entry-if 'todo 'done))
)
(org-agenda-overriding-header "Scheduled
Someday Tasks"))
)
)
)
("p" "Pick a task from unscheduled list"
((tags "+someday"
((org-agenda-skip-function
'(or (org-agenda-skip-entry-if 'scheduled)
(org-agenda-skip-entry-if 'todo 'done))
)
(org-agenda-overriding-header "Backlog"))
)
)
)
("N" "Non-business: Open focus projects"
((tags
"+focus+project-CATEGORY={airslate\\|business}"
((org-agenda-skip-function
'(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header
"Personal Focus: Open Projects")
)
)
)
)
("B" "Business: Open focus projects"
((tags
"+focus+project+CATEGORY={airslate\\|business}"
((org-agenda-skip-function
'(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header
"Business Focus: Open Projects")
)
)
)
)
("P" "Stuck Projects"
((tags "+project-someday-DONE-CANCELED"
((org-agenda-skip-function
'my-org-agenda-skip-non-stuck-projects)
(org-agenda-overriding-header
"Stuck Projects with open but not scheduled
sub-tasks")
)
)
)
)
("w" "Tasks done this week"
((tags
(format "TODO=\"DONE\"&CLOSED>=\"<%s>\""
(my-get-week-start-date))
((org-agenda-overriding-header "Tasks done
this week")))
(tags
(format "TODO=\"TODO\"&LAST_REPEAT>=\"<%s>\""
(my-get-week-start-date))
((org-agenda-overriding-header
"Recurrent tasks acted upon this week")
)
)
)
((org-agenda-cmp-user-defined 'my-org-cmp-closed)
(org-agenda-sorting-strategy
'(user-defined-down)))
)
("W" "Tasks done this month"
((tags
(format "TODO=\"DONE\"&CLOSED>=\"<%s>\""
(my-get-month-start-date))
((org-agenda-overriding-header "Tasks done
this month")))
(tags
(format "TODO=\"TODO\"&LAST_REPEAT>=\"<%s>\""
(my-get-month-start-date))
((org-agenda-overriding-header
"Recurrent tasks acted upon this month")
)
)
)
((org-agenda-cmp-user-defined 'my-org-cmp-closed)
(org-agenda-sorting-strategy
'(user-defined-down)))
)
("-" "Standalone Tasks"
((tags-todo "-project-DONE-CANCELED"
((org-agenda-skip-function
'(my-org-agenda-skip-if-parent-has-tag
"project"))
(org-agenda-overriding-header
"Standalone Tasks: No Projects or DONE
Items")
)
)
)
)
("R" . "Reports")
("Rn" "No TODO events +180d"
((agenda "No TODO events +180d"
((org-agenda-span 180) (org-agenda-time-grid
nil)
(org-agenda-entry-types '(:timestamp :sexp))
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'todo 'any))
)
)
)
nil
("/Users/serghei/Documents/Notes/Reports/agenda_180d_filtered.html")
)
("Ra" "Detail agenda +31d"
((agenda "Detail agenda"
((org-agenda-span 31) (org-agenda-time-grid
nil)
(org-agenda-skip-function
'(org-agenda-skip-entry-if 'todo 'done))
)
)
)
nil
("/Users/serghei/Documents/Notes/Reports/agenda_details_raw.html")
)
("Rw" "Company work done this week"
((tags
(format
"TODO=\"DONE\"&CLOSED>=\"<%s>\"|TODO=\"STARTED\""
(my-get-week-start-date))
((org-agenda-overriding-header
(concat "Tasks I worked on this week ("
(string-join
(my-weekly-agenda-export-range) " - ")
")")
)
)
)
(tags
(format "TODO=\"TODO\"&LAST_REPEAT>=\"<%s>\""
(my-get-week-start-date))
((org-agenda-overriding-header
"Recurrent tasks acted upon this week")
)
)
)
((org-agenda-files '("airslate.org"))
(org-agenda-cmp-user-defined 'my-org-cmp-closed)
(org-agenda-sorting-strategy
'(user-defined-down))
(org-agenda-hide-tags-regexp ".")
(org-agenda-prefix-format " %?-12t% s")
(org-agenda-todo-keyword-format "%-10s"))
"/Users/serghei/Documents/Notes/Reports/serghei_work_review_2024.09.09-2024.09.15.txt")
)
org-log-into-drawer t
org-startup-folded t
org-link-abbrev-alist '(("contact" . "/Users/serghei/org/contacts.org::"))
org-agenda-files '("/Users/serghei/org/business.org"
"/Users/serghei/org/airslate.org"
"/Users/serghei/org/blog.org"
"/Users/serghei/org/contacts.org"
"/Users/serghei/org/flair.org"
"/Users/serghei/org/hardware.org"
"/Users/serghei/org/inbox.org" "/Users/serghei/org/misc.org"
"/Users/serghei/org/notes.org")
org-capture-templates '(("s" "Shorts" entry (file+headline "misc.org" "Shorts")
"* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines
1)
("e" "Event" entry (file+headline "misc.org" "Events")
"* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines 1)
("k" "Contact" entry (file "")
"* %^{Name} %^g\n:PROPERTIES:\n:TYPE:
%^{PROMPT|person|person|company|list|other}\n:EMAIL: %^{Email}\n:PHONE:
%^{Phone}\n:STREET:\n:POSTALCODE:\n:CITY:\n:COUNTRY:\n:BIRTHDAY:
%^{Birthday}t\n:URL:\n:NOTE: %^{NOTE}\n:CREATED: %U\n:END:\n\n" :empty-lines 1)
("t" "Trip Checklist" checkitem
(file+headline "misc.org" "Trip Checklist"))
("b" "Bookmark" entry (file+headline "notes.org"
"Bookmarks")
"* %x%?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines 1)
("i" "Blog Idea" entry
(file+headline "blog.org" "Captured Blog Ideas")
"* TODO %? :blog:%^g\n:PROPERTIES:\n:CREATED:
%U\n:ID: %^{PROMPT}\n:END:\n\n-----------------------\n- [ ] Link on
older/similar articles?\n- [ ] Link on tag pages?\n\n" :empty-lines 1)
("n" "Thought or Note" entry
(file+headline "notes.org" "Random Notes")
"* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines
1)
("I" "Inbox, refile later" entry (file "")
"* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines 0)
("r" "To-Read" entry (file+headline "misc.org"
"To-Read List")
"* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n%x\n\n"
:empty-lines 1)
("w" "To-Watch" entry (file+headline "misc.org"
"To-Watch List")
"* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n%x\n\n"
:empty-lines 1)
("B" "Business")
("Bs" "Shorts" entry (file+headline "business.org"
"Shorts")
"* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines
1)
("Bm" "Meeting Note" entry
(file+headline "airslate.org" "Meeting Notes")
"* TODO %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines
1)
("Be" "Event" entry (file+headline "business.org"
"Events")
"* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n\n"
:empty-lines 1)
)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-refile-targets '((nil :maxlevel . 4) (my-org-opened-buffer-files :maxlevel
. 4)
(org-agenda-files :maxlevel . 4))
org-export-before-parsing-hook '(org-attach-expand-links)
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-default-notes-file "/Users/serghei/org/inbox.org"
org-agenda-exporter-settings '((htmlize-output-type 'css))
org-refile-use-outline-path 'file
org-archive-hook '(org-attach-archive-delete-maybe)
org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
org-mobile-inbox-for-pull "/Users/serghei/org/inbox.org"
org-ascii-format-drawer-function #[771 ".\207" [] 4 "\n\n(fn NAME CONTENTS
WIDTH)"]
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-image-actual-width '(600)
org-crypt-disable-auto-save nil
org-mode-hook '(#[0
"\205.\301 \205.\302\303\301
!\304P!\305.!\205.\306.!\262.\207"
[org-ctags-enabled-p buffer-file-name expand-file-name
file-name-directory "/TAGS" file-exists-p visit-tags-table]
3]
#[0
"\305.\306 >\203.\307\n\310\311#\210\307 \312\313#\210\307
\314\315#\210\306 >\203,.\307\n\316\317#\210\307\n\320\321#\210\322
>\203>.\307 \323\324#\210\307 \325\324#\210\326
>\203P.\307\n\327\317#\210\307\n\330\321#\210\331
>\203_.\332\311\f\333BC\334#\210\335 >\203k.\332\311\336\334#\210\337
>\203w.\332\311\340\334#\210\341\342\343\344#\207"
[org-mouse-context-menu-function
org-mouse-features
org-mouse-map
org-mode-map
org-outline-regexp
org-mouse-context-menu
context-menu
org-defkey
[mouse-3]
nil
[mouse-3]
org-mouse-show-context-menu
[down-mouse-1]
org-mouse-down-mouse
[C-drag-mouse-1]
org-mouse-move-tree
[C-down-mouse-1]
org-mouse-move-tree-start
yank-link
[S-mouse-2]
org-mouse-yank-link
[drag-mouse-3]
move-tree
[drag-mouse-3]
[down-mouse-3]
activate-stars
font-lock-add-keywords
(0
`(face org-link mouse-face
highlight keymap ,org-mouse-map)
'prepend)
t
activate-bullets
(("^[ ]*\\([-+*]\\|[0-9]+[.)]\\) +"
(1
`(face org-link
keymap ,org-mouse-map mouse-face highlight)
'prepend)
)
)
activate-checkboxes
(("^[ ]*\\(?:[-+*]\\|[0-9]+[.)]\\)[
]+\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ ]*\\)?\\(\\[[- X]\\]\\)"
(1
`(face nil keymap
,org-mouse-map mouse-face highlight)
prepend)
)
)
advice-add org-open-at-point :around org--mouse-open-at-point]
4]
#[0 "\300\301\302\303\304$\207"
[add-hook before-save-hook org-encrypt-entries nil t] 5]
my|org-setup-environment
#[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-babel-load-languages '((C . t) (emacs-lisp . t) (haskell . t) (js . t)
(latex . t)
(lisp . t) (makefile . t) (org . t) (python . t)
(scheme . t)
(shell . t) (sql . t) (calc . t))
org-mobile-directory "/Users/serghei/Documents/Notes"
outline-minor-mode-hook '(outline-hide-body)
org-agenda-time-grid '((daily today require-timed) (800 1000 1200 1400 1600
1800 2000)
"......" "----------------")
org-agenda-span 1
org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
org-latex-format-headline-function 'org-latex-format-headline-default-function
org-confirm-shell-link-function 'yes-or-no-p
org-reveal-start-hook '(org-decrypt-entry)
org-agenda-compact-blocks t
org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-agenda-mode-hook '(#[0
"\302.\303 \304\305#\210\303
\306\307#\210\303 \310\311#\210\303 \312\313#\210\303
\314\315#\207"
[org-mouse-context-menu-function
org-agenda-mode-map
org-mouse-agenda-context-menu
org-defkey
[mouse-3]
org-mouse-show-context-menu
[down-mouse-3]
org-mouse-move-tree-start
[C-mouse-4]
org-agenda-earlier
[C-mouse-5]
org-agenda-later
[drag-mouse-3]
#[257
"\300.!\211\301\267\202.\302\303!\207\304\303!\207\305\207"
[org-mouse-get-gesture
#s(hash-table
size
2
test
eq
rehash-size
1.5
rehash-threshold
0.8125
purecopy
t
data
(:left 9 :right 13)
)
org-agenda-earlier 1 org-agenda-later nil]
4
"\n\n(fn EVENT)" "e"]
]
4]
my|org-agenda-refresh-on-idle (closure (t) nil
(hl-line-mode 1)))
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-babel-tangle-lang-exts '(("python" . "py") ("lisp" . "lisp") ("latex" .
"tex")
("haskell" . "hs") ("D" . "d") ("C++" . "cpp")
("emacs-lisp" . "el") ("elisp" . "el"))
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-elisp-link-function 'yes-or-no-p
org-tags-exclude-from-inheritance '("project" "crypt")
org-fold-show-context-detail '((agenda . lineage) (bookmark-jump . lineage)
(isearch . lineage) (default . ancestors))
org-todo-keywords '((sequence "TODO(t)" "STARTED(s)" "WAITING(w@/!)" "|"
"DONE(d!/!)"
"CANCELED(c@/!)")
)
org-mobile-force-id-on-agenda-items nil
org-agenda-inhibit-startup t
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-refile-use-cache t
org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-enforce-todo-dependencies t
org-fold-core-isearch-open-function 'org-fold--isearch-reveal
org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-link-shell-confirm-function 'yes-or-no-p
org-contacts-files '("/Users/serghei/org/contacts.org")
org-babel-pre-tangle-hook '(save-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-todo-keyword-faces '(("TODO" :foreground "firebrick1" :weight bold)
("STARTED" :foreground "red3" :weight bold)
("WAITING" :foreground "orange" :weight bold)
("DONE" :foreground "forest green" :weight bold)
("CANCELED" :foreground "lime green" :weight bold))
org-capture-mode-hook '((closure (t) nil (require 'org-contacts)))
org-fold-reveal-start-hook '(org-decrypt-entry)
org-occur-hook '(org-first-headline-recenter)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
("org-contact" :follow org-contacts-link-open :complete
org-contacts-link-complete :store
org-contacts-link-store :face
org-contacts-link-face)
("tel") ("id" :follow org-id-open)
("eww" :follow org-eww-open :store org-eww-store-link)
("rmail" :follow org-rmail-open :store
org-rmail-store-link)
("mhe" :follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link
:export
org-irc-export)
("info" :follow org-info-open :export org-info-export
:store
org-info-store-link :insert-description
org-info-description-as-command)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("docview" :follow org-docview-open :export
org-docview-export
:store org-docview-store-link)
("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export
:complete
org-bbdb-complete-link :store org-bbdb-store-link)
("w3m" :store org-w3m-store-link)
("doi" :follow org-link-doi-open :export
org-link-doi-export)
("file+sys") ("file+emacs") ("shell" :follow
org-link--open-shell)
("news" :follow
#[514 "\301\300\302.Q.\"\207" ["news" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("mailto" :follow
#[514 "\301\300\302.Q.\"\207" ["mailto" browse-url ":"]
6
"\n\n(fn URL ARG)"]
:complete org-contacts-mailto-link-completion)
("https" :follow
#[514 "\301\300\302.Q.\"\207" ["https" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("http" :follow
#[514 "\301\300\302.Q.\"\207" ["http" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("ftp" :follow
#[514 "\301\300\302.Q.\"\207" ["ftp" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("help" :follow org-link--open-help :store
org-link--store-help)
("file" :complete org-link-complete-file)
("elisp" :follow org-link--open-elisp))
org-html-format-headline-function 'org-html-format-headline-default-function
org-metaup-hook '(org-babel-load-in-session-maybe)
org-refile-allow-creating-parent-nodes 'confirm
org-agenda-restore-windows-after-quit t
org-outline-path-complete-in-steps nil
org-fast-tag-selection-single-key t
org-agenda-current-time-string "now - - - - - - - - - - - - - - - - - - - - -
- - - -"
org-agenda-block-separator 61
org-refile-target-verify-function 'my-org-refile-target-verify
)
--
Serghei Iakovlev
| [Prev in Thread] | Current Thread | [Next in Thread] |