summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-22 03:05:15 -0500
committerKyle Meyer <kyle@kyleam.com>2014-11-22 03:05:15 -0500
commit9ede95803eae7fa7b31e784ffb7b9293a6a1f2ed (patch)
treef7a7347ec0615e10c03d6522fc184f9611021589
parentf78eeb3da3a92c7c4a35dfc0f567ecb1f8d3c016 (diff)
downloadbog-9ede95803eae7fa7b31e784ffb7b9293a6a1f2ed.tar.gz
Give clearer names to helper functions
Previously, the names were minor variants of the corresponding interactive function names. Rename to make it clear which functions are internal helper functions.
-rw-r--r--bog.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/bog.el b/bog.el
index ab66a30..110d946 100644
--- a/bog.el
+++ b/bog.el
@@ -343,9 +343,9 @@ With prefix argument NO-CONTEXT, a prompt will open to select
from citekeys for all associated files. This same prompt will be
opened if locating a citekey from context fails."
(interactive "P")
- (bog-open-citekey-file (bog-citekey-from-notes-or-files no-context)))
+ (bog--find-citekey-file (bog-citekey-from-notes-or-files no-context)))
-(defun bog-open-citekey-file (citekey)
+(defun bog--find-citekey-file (citekey)
(let* (citekey-file
(citekey-files (bog-citekey-files citekey))
(citekey-file-names (-map 'file-name-nondirectory citekey-files))
@@ -384,9 +384,9 @@ opened if locating a citekey from context fails.
If the citekey file prompt is slow to appear, consider enabling
`bog-use-citekey-cache'."
(interactive "P")
- (bog-rename-staged-file (bog-citekey-from-notes-or-all no-context)))
+ (bog--rename-staged-file-to-citekey (bog-citekey-from-notes-or-all no-context)))
-(defun bog-rename-staged-file (citekey)
+(defun bog--rename-staged-file-to-citekey (citekey)
(let* ((staged-files (bog-staged-files))
(staged-file-names (-map 'file-name-nondirectory staged-files))
(num-choices (length staged-file-names))
@@ -587,9 +587,9 @@ opened if locating a citekey from context fails.
If the citekey file prompt is slow to appear, consider enabling
`bog-use-citekey-cache'."
(interactive "P")
- (bog-open-citekey-on-web (bog-citekey-from-notes-or-all no-context)))
+ (bog--search-citekey-on-web (bog-citekey-from-notes-or-all no-context)))
-(defun bog-open-citekey-on-web (citekey)
+(defun bog--search-citekey-on-web (citekey)
(browse-url (bog-citekey-as-search-url citekey)))
(defun bog-citekey-as-search-url (citekey)