summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-12-13 01:05:28 -0500
committerKyle Meyer <kyle@kyleam.com>2014-12-13 01:05:28 -0500
commit447ac23d28fb7d5f2fc94a6924eb3f48a4243ab2 (patch)
tree56d24efde4f15c9368a995a2de4a7c699a570856 /bog.el
parentce74785920d6234072eb2ebef63bd140a25534c2 (diff)
downloadbog-447ac23d28fb7d5f2fc94a6924eb3f48a4243ab2.tar.gz
Prefer 'citekeys' to 'refs' as variable name
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/bog.el b/bog.el
index 20d1f32..89bba91 100644
--- a/bog.el
+++ b/bog.el
@@ -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.