diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-11-22 03:05:15 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-11-22 03:05:15 -0500 |
| commit | 9ede95803eae7fa7b31e784ffb7b9293a6a1f2ed (patch) | |
| tree | f7a7347ec0615e10c03d6522fc184f9611021589 /bog.el | |
| parent | f78eeb3da3a92c7c4a35dfc0f567ecb1f8d3c016 (diff) | |
| download | bog-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.
Diffstat (limited to 'bog.el')
| -rw-r--r-- | bog.el | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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) |