From: Serghei Iakovlev <lists@serghei.pl>
To: emacs-orgmode@gnu.org
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 [thread overview]
Message-ID: <m1zfoa2tji.fsf@serghei.pl> (raw)
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
"\b\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\v\312\313#\210\307\v\314\315#\210\306 >\203,.\307\n\316\317#\210\307\n\320\321#\210\322 >\203>.\307\v\323\324#\210\307\v\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
next reply other threads:[~2024-09-15 6:47 UTC|newest] Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top 2024-09-14 14:34 Serghei Iakovlev [this message] 2024-09-16 19:13 ` [BUG] org-refile-get-targets wrong-type-argument [9.6.15 (release_9.6.15 @ /Applications/Emacs.app/Contents/Resources/lisp/org/)] Ihor Radchenko 2024-09-18 11:30 ` Serghei Iakovlev 2024-09-22 9:27 ` 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=m1zfoa2tji.fsf@serghei.pl \
--to=lists@serghei.pl \
--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).