diff options
author | Kyle Meyer <kyle@kyleam.com> | 2014-12-13 01:05:28 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2014-12-13 01:05:28 -0500 |
commit | 447ac23d28fb7d5f2fc94a6924eb3f48a4243ab2 (patch) | |
tree | 56d24efde4f15c9368a995a2de4a7c699a570856 | |
parent | ce74785920d6234072eb2ebef63bd140a25534c2 (diff) | |
download | bog-447ac23d28fb7d5f2fc94a6924eb3f48a4243ab2.tar.gz |
Prefer 'citekeys' to 'refs' as variable name
-rw-r--r-- | bog.el | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -327,12 +327,12 @@ word constituents." (defun bog-citekeys-in-buffer () "Return all citekeys in current buffer." (save-excursion - (let (refs + (let (citekeys case-fold-search) (goto-char (point-min)) (while (re-search-forward bog-citekey-format nil t) - (push (match-string-no-properties 0) refs)) - (-distinct refs)))) + (push (match-string-no-properties 0) citekeys)) + (-distinct citekeys)))) (defun bog-heading-citekeys-in-file (file) "Return all citekeys in headings of FILE." @@ -353,7 +353,7 @@ word constituents." (defun bog-non-heading-citekeys-in-file (file) "Return all non-heading citekeys in FILE." - (let (refs + (let (citekeys case-fold-search) (with-temp-buffer (org-mode) @@ -361,8 +361,8 @@ word constituents." (while (re-search-forward bog-citekey-format nil t) (unless (or (org-at-heading-p) (org-at-property-p)) - (push (match-string-no-properties 0) refs)))) - (-distinct refs))) + (push (match-string-no-properties 0) citekeys)))) + (-distinct citekeys))) (defun bog-list-orphan-citekeys (&optional file) "List in citekeys that appear in notes but don't have heading. |