From 37da56976b08b6d26ec35eee411b20bc2253f38f Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 22 Nov 2014 03:06:59 -0500 Subject: Mark bog-prepare-bib-file as an internal function --- bog-tests.el | 10 +++++----- bog.el | 8 ++++---- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/bog-tests.el b/bog-tests.el index 022275e..d5e3882 100644 --- a/bog-tests.el +++ b/bog-tests.el @@ -226,9 +226,9 @@ ;;; BibTeX functions -;; `bog-prepare-bib-file' +;; `bog--prepare-bib-file' -(ert-deftest bog-prepare-bib-file () +(ert-deftest bog--prepare-bib-file () (bog-tests--with-temp-dir (let ((temp-file (make-temp-file (expand-file-name "bog-testing-" default-directory) @@ -243,14 +243,14 @@ "\n}") (save-buffer)) (kill-buffer (get-file-buffer temp-file)) - (bog-prepare-bib-file temp-file) + (bog--prepare-bib-file temp-file) (should-not (file-exists-p temp-file)) (let* ((new-file (concat citekey ".bib")) (new-buffer (get-file-buffer new-file))) (should-not new-buffer) (delete-file new-file))))) -(ert-deftest bog-prepare-bib-file-was-open () +(ert-deftest bog--prepare-bib-file-was-open () (bog-tests--with-temp-dir (let ((temp-file (make-temp-file (expand-file-name "bog-testing-" default-directory) @@ -264,7 +264,7 @@ "year = 2009,\n" "\n}") (save-buffer)) - (bog-prepare-bib-file temp-file) + (bog--prepare-bib-file temp-file) (should-not (file-exists-p temp-file)) (let* ((new-file (concat citekey ".bib")) (new-buffer (get-file-buffer new-file))) diff --git a/bog.el b/bog.el index 110d946..becee39 100644 --- a/bog.el +++ b/bog.el @@ -485,8 +485,8 @@ opened if locating a citekey from context fails." "Clean and rename BibTeX files in `bog-stage-directory'. New BibTeX files are searched for in `bog-stage-directory', and -`bog-prepare-bib-file' will be run one each file before it is -moved to `bog-bib-directory'/.bib. +`bibtex-clean-entry' will be run one each file before it is moved +to `bog-bib-directory'/.bib. This function is only useful if you use the non-standard setup of one entry per BibTeX file." @@ -495,9 +495,9 @@ one entry per BibTeX file." (file-expand-wildcards (concat (file-name-as-directory bog-stage-directory) "*.bib")))) (--each staged - (bog-prepare-bib-file it t bog-bib-directory)))) + (bog--prepare-bib-file it t bog-bib-directory)))) -(defun bog-prepare-bib-file (file &optional new-key new-directory) +(defun bog--prepare-bib-file (file &optional new-key new-directory) (let (bib-file) (with-temp-buffer (bibtex-mode) -- cgit v1.2.3