diff options
| -rw-r--r-- | README.org | 3 | ||||
| -rw-r--r-- | bog.el | 10 |
2 files changed, 6 insertions, 7 deletions
@@ -100,7 +100,6 @@ the first parent heading that is a study heading. Other useful functions include - =bog-citekey-tree-to-indirect-buffer= -- =bog-goto-citekey-heading-in-buffer= - =bog-goto-citekey-heading-in-notes= - =bog-insert-heading-citekey= - =bog-jump-to-topic-heading= @@ -132,7 +131,7 @@ The variables below are important for specifying how Bog behaves. A regular expression that defines the format used for citekeys. -- =bog-find-citekey-bib-function= +- =bog-find-citekey-bib-func= A function to find a citekey in a BibTeX file. This determines whether a directory of single-entry BibTeX files or a single BibTeX @@ -188,7 +188,7 @@ only built-in function is `bog-file-ask-on-conflict'." :type 'function) (defcustom bog-file-secondary-name ".supplement" - "Modification to make to file name on renaming confict. + "Modification to make to file name on renaming conflict. If <citekey>.<ext> already exists, `bog-file-ask-on-conflict' prompts for another name. @@ -717,7 +717,7 @@ controls the default string for the prompt." (make-directory dir)) (condition-case nil (rename-file staged-file citekey-file) - (file-error + (file-already-exists (let ((dir (file-name-directory citekey-file)) (new-file-name (file-name-nondirectory @@ -921,7 +921,7 @@ reverse the meaning of `bog-combined-bib-ignore-not-found'." (insert-file-contents (cdr citekey-bib)) (goto-char (point-max))) ((or arg - (y-or-n-p (format "No BibTeX entry found for %s. Skip it?" + (y-or-n-p (format "No BibTeX entry found for %s. Skip it? " (car citekey-bib))))) (t (kill-buffer bib-buffer-name) @@ -1019,7 +1019,7 @@ If the citekey prompt is slow to appear, consider enabling the (bog--citekey-groups-with-delim citekey "+"))) (defun bog--citekey-groups-with-delim (citekey delim) - "Return expression groups CITEKEY, seperated by DELIM. + "Return expression groups CITEKEY, separated by DELIM. Groups are specified by `bog-citekey-web-search-groups'." (with-syntax-table bog-citekey-syntax-table (let ((case-fold-search nil)) @@ -1314,7 +1314,7 @@ context fails." ;;;###autoload (defun bog-next-non-heading-citekey (&optional arg) - "Move foward to next non-heading citekey. + "Move forward to next non-heading citekey. With argument ARG, do it ARG times." (interactive "p") (setq arg (or arg 1)) |