diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-12-30 18:03:55 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-12-30 18:03:55 -0500 |
commit | df93878aa8c590579774593b747a5000cbb35c42 (patch) | |
tree | a0eb54777c67b573933fca7e693e135b6033777a /bog.el | |
parent | ea99bc6b8108bd3b2ff767541fa264db4dbf04a5 (diff) | |
download | bog-df93878aa8c590579774593b747a5000cbb35c42.tar.gz |
Add command to rename existing citekey file
Diffstat (limited to 'bog.el')
-rw-r--r-- | bog.el | 29 |
1 files changed, 27 insertions, 2 deletions
@@ -625,8 +625,33 @@ If the citekey prompt is slow to appear, consider enabling the (org-icompleting-read "Select file to rename: " staged-file-names) bog-stage-directory)))) - (message "Renamed %s to %s" staged-file - (funcall bog-file-renaming-func staged-file citekey)))) + (bog--rename-file-to-citekey staged-file citekey))) + +;;;###autoload +(defun bog-rename-citekey-file (&optional no-context) + "Associate a citekey file with a new citekey. + +This allows you to update a file's name if you change the +citekey. + +The new citekey is taken from the text under point if it matches +`bog-citekey-format' or from the current tree. + +With prefix argument NO-CONTEXT, prompt with citekeys present in +any note file. Do the same if locating a citekey from context +fails." + (interactive "P") + (let ((file-paths (mapcar (lambda (path) + (cons (file-name-nondirectory path) path)) + (bog-all-citekey-files)))) + (bog--rename-file-to-citekey + (cdr (assoc-string (org-icompleting-read "Rename file: " file-paths) + file-paths)) + (bog-citekey-from-surroundings-or-all no-context)))) + +(defun bog--rename-file-to-citekey (file citekey) + (message "Renamed %s to %s" file + (funcall bog-file-renaming-func file citekey))) (defun bog-file-ask-on-conflict (staged-file citekey) "Rename citekey file, prompting for a new name if it already exists. |