Ian Eure <i...@retrospec.tv> writes: > If you have a subtree of entries with :ID: properties and call M-x > `org-clone-subtree-with-time-shift' on it, an error occurs: > > Wrong type argument: stringp, nil > > This is due to the interaction of > `org-clone-subtree-with-time-shift' and `org-id-add-location'. > [...]
Thanks for the nice analysis. > I’ve confirmed that this is still a problem in the 9.3.6, which is > the latest release, as well as Git master. Yeah, I suspect this worked at one time, given there is dedicated handling of IDs in org-clone-subtree-with-time-shift. [... bisecting ...] The failure started with 9865e6bd8 (org-id: Speedup, minor functional change and fix, 2019-08-01), which was part of the 9.3 release. Interestingly that seems to be functionally equivalent to what you mentioned next: > A simplistic fix would be to swap the let and when lines in > `org-id-add-location': > > diff --git a/lisp/org-id.el b/lisp/org-id.el > index 1ff433bd8..945a9a1f6 100644 > --- a/lisp/org-id.el > +++ b/lisp/org-id.el > @@ -572,8 +572,8 @@ When FILES is given, scan also these files." > (defun org-id-add-location (id file) > "Add the ID with location FILE to the database of ID > locations." > ;; Only if global tracking is on, and when the buffer has a > file > - (let ((afile (abbreviate-file-name file))) > - (when (and org-id-track-globally id file) > + (when (and org-id-track-globally id file) > + (let ((afile (abbreviate-file-name file))) > (unless org-id-locations (org-id-locations-load)) > (puthash id afile org-id-locations) > (unless (member afile org-id-files) > > However, this causes a more subtle bug, which is that the IDs of > cloned subtrees won’t be tracked correctly. That sounds right, so it seems it was just broken in a quieter way before. > Perhaps a solution to that is to use an indirect buffer of the source > when cloning, instead of a temp buffer. Hmm, that should indeed work, but I'd be leery of it introducing other bugs and complications. How about something like this? -- >8 -- Subject: [PATCH] org-id: Allow file name to be overridden on ID creation * lisp/org-id.el (org-id-overriding-file-name): New variable. (org-id-get): Prefer org-id-overriding-file-name over the buffer's file name if set. (org-id-locations-load): Give a more informative error when file is nil. * lisp/org.el (org-clone-subtree-with-time-shift): Let-bind org-id-overriding-file-name, enabling an ID to be created for a cloned subtree rather than crashing with a type error. Note that, before 9865e6bd8 (org-id: Speedup, minor functional change and fix, 2019-08-01), this wouldn't fail with a type error. However, the ID would not be added correctly because org-id-add-location simply wouldn't process the id at all if the passed file was nil. Reported-by: Ian Eure <i...@retrospec.tv> <87a73caayj.fsf@phaktory> --- lisp/org-id.el | 13 +++++++++++-- lisp/org.el | 2 ++ 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/org-id.el b/lisp/org-id.el index 14a461500..90d13275f 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -259,6 +259,11 @@ (defun org-id-copy () (interactive) (org-kill-new (org-id-get nil 'create))) +(defvar org-id-overriding-file-name nil + "Tell `org-id-get' to use this as the file name when creating an ID. +This is useful when working with contents in a temporary buffer +that will be copied back to the original.") + ;;;###autoload (defun org-id-get (&optional pom create prefix) "Get the ID property of the entry at point-or-marker POM. @@ -275,7 +280,9 @@ (defun org-id-get (&optional pom create prefix) (create (setq id (org-id-new prefix)) (org-entry-put pom "ID" id) - (org-id-add-location id (buffer-file-name (buffer-base-buffer))) + (org-id-add-location id + (or org-id-overriding-file-name + (buffer-file-name (buffer-base-buffer)))) id))))) ;;;###autoload @@ -572,8 +579,10 @@ (defun org-id-locations-load () (defun org-id-add-location (id file) "Add the ID with location FILE to the database of ID locations." ;; Only if global tracking is on, and when the buffer has a file + (unless file + (error "bug: org-id-get expects a file-visiting buffer")) (let ((afile (abbreviate-file-name file))) - (when (and org-id-track-globally id file) + (when (and org-id-track-globally id) (unless org-id-locations (org-id-locations-load)) (puthash id afile org-id-locations) (unless (member afile org-id-files) diff --git a/lisp/org.el b/lisp/org.el index 275120662..879d3a03a 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -192,6 +192,7 @@ (defvar org-indent-indentation-per-level) (defvar org-radio-target-regexp) (defvar org-target-link-regexp) (defvar org-target-regexp) +(defvar org-id-overriding-file-name) ;; load languages based on value of `org-babel-load-languages' (defvar org-babel-load-languages) @@ -7863,6 +7864,7 @@ (defun org-clone-subtree-with-time-shift (n &optional shift) (nmin 1) (nmax n) (n-no-remove -1) + (org-id-overriding-file-name (buffer-file-name (buffer-base-buffer))) (idprop (org-entry-get beg "ID"))) (when (and doshift (string-match-p "<[^<>\n]+ [.+]?\\+[0-9]+[hdwmy][^<>\n]*>" base-commit: 4f9e07cbb4bd9e9353e941b0a00bbd401f8696c4 -- 2.26.0