branch: externals/denote
commit e58479f0960150704eff36de9ef43bb50ccb19e1
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Add denote-sequence-reparent command
---
denote-sequence.el | 36 ++++++++++++++++++++++++++++++++++++
1 file changed, 36 insertions(+)
diff --git a/denote-sequence.el b/denote-sequence.el
index 1235b61bda..4faecafa02 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -424,5 +424,41 @@ is that many levels deep. For example, 1=1=2 is three
levels deep."
(denote-sequence-dired)))))
(user-error "There are no files whose Denote signature conforms with
`denote-sequence-p'")))
+;;;###autoload
+(defun denote-sequence-reparent (current-file file-with-sequence)
+ "Re-parent the CURRENT-FILE to be a child of FILE-WITH-SEQUENCE.
+If CURRENT-FILE has a sequence (the Denote file name signature), change
+it. Else create a new one.
+
+When called interactively, CURRENT-FILE is either the current file, or a
+special Org buffer (like those of `org-capture'), or the file at point in
+Dired.
+
+When called interactively, prompt for FILE-WITH-SEQUENCE showing only
+the files in the variable `denote-directory' which have a sequence. If
+no such files exist, throw an error.
+
+When called from Lisp, CURRENT-FILE is a string pointing to a file.
+
+When called from Lisp, FILE-WITH-SEQUENCE is either a file with a
+sequence (per `denote-sequence-file-p') or the sequence string as
+such (per `denote-sequence-p'). In both cases, what matters is to know
+the target sequence."
+ (interactive
+ (list
+ (if (denote--file-type-org-extra-p)
+ denote-last-path-after-rename
+ (denote--rename-dired-file-or-current-file-or-prompt))
+ (denote-sequence-file-prompt
+ (format "Reparent `%s' to be a child of"
+ (propertize
+ (denote--rename-dired-file-or-current-file-or-prompt)
+ 'face 'denote-faces-prompt-current-name)))))
+ (let* ((target-sequence (or (denote-sequence-file-p file-with-sequence)
+ (denote-sequence-p file-with-sequence)
+ (user-error "No sequence of `denote-sequence-p'
found in `%s'" file-with-sequence)))
+ (new-sequence (denote-sequence--get-new-child target-sequence)))
+ (denote-rename-file current-file 'keep-current 'keep-current new-sequence
'keep-current)))
+
(provide 'denote-sequence)
;;; denote-sequence.el ends here
