From 9ede95803eae7fa7b31e784ffb7b9293a6a1f2ed Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 22 Nov 2014 03:05:15 -0500 Subject: 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. --- bog.el | 12 ++++++------ 1 file 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) -- cgit v1.2.3