summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-01 01:20:13 -0400
committerKyle Meyer <kyle@kyleam.com>2014-11-01 01:22:59 -0400
commite7b8dd96e103cf4c9f818b8d46e946cf9af2ab4a (patch)
treec2fc2cdda9d54355c283147db51c76792aa15f3b
parent70e7d04b1b3767487b33df53489a3651f9f0cc2f (diff)
downloadbog-e7b8dd96e103cf4c9f818b8d46e946cf9af2ab4a.tar.gz
Remove some useless let bindings
-rw-r--r--bog.el16
1 files changed, 6 insertions, 10 deletions
diff --git a/bog.el b/bog.el
index 6a08350..1b87e84 100644
--- a/bog.el
+++ b/bog.el
@@ -386,8 +386,7 @@ 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")
- (let ((citekey (bog-citekey-from-notes-or-all no-context)))
- (bog-rename-staged-file citekey)))
+ (bog-rename-staged-file (bog-citekey-from-notes-or-all no-context)))
(defun bog-rename-staged-file (citekey)
(let* ((staged-files (bog-staged-files))
@@ -464,8 +463,8 @@ With prefix argument NO-CONTEXT, a prompt will open to select
from citekeys for all BibTeX files. This same prompt will be
opened if locating a citekey from context fails."
(interactive "P")
- (let ((citekey (bog-citekey-from-notes-or-bibs no-context)))
- (funcall bog-find-citekey-bib-func citekey)))
+ (funcall bog-find-citekey-bib-func
+ (bog-citekey-from-notes-or-bibs no-context)))
(defun bog-find-citekey-bib-file (citekey)
"Open BibTeX file of CITEKEY contained in `bog-bib-directory'."
@@ -585,17 +584,14 @@ 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")
- (let ((citekey (bog-citekey-from-notes-or-all no-context)))
- (bog-open-citekey-on-web citekey)))
+ (bog-open-citekey-on-web (bog-citekey-from-notes-or-all no-context)))
(defun bog-open-citekey-on-web (citekey)
- (let ((url (bog-citekey-as-search-url citekey)))
- (browse-url url)))
+ (browse-url (bog-citekey-as-search-url citekey)))
(defun bog-citekey-as-search-url (citekey)
"Return URL to use for search."
- (let ((query (bog-citekey-groups-with-delim citekey "+")))
- (format bog-web-search-url query)))
+ (format bog-web-search-url (bog-citekey-groups-with-delim citekey "+")))
;;; Notes-related