diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-scihub.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-scihub.el b/emacs/.emacs.d/lisp/my/my-scihub.el index 8d9f66b..689616c 100644 --- a/emacs/.emacs.d/lisp/my/my-scihub.el +++ b/emacs/.emacs.d/lisp/my/my-scihub.el @@ -30,7 +30,7 @@ (require 'link-gopher) (defvar my-scihub-host nil "Scihub host") -(defun my-get-scihub-pdf-link (doi) +(defun my-scihub-get-pdf-link (doi) (let ((link (car (link-gopher-get-all-links (concat my-scihub-host doi) "\\.pdf$")))) (when (not link) @@ -39,15 +39,15 @@ (browse-url-firefox (concat my-scihub-host doi))) link)) -(defun my-download-scihub-doi (doi) +(defun my-scihub-download-doi (doi) (interactive "sDOI: ") - (when-let ((link (my-get-scihub-pdf-link doi))) (wget link))) + (when-let ((link (my-scihub-get-pdf-link doi))) (wget link))) (defun my-org-attach-scihub () (interactive) (require 'org-attach) (when-let ((doi (org-entry-get (point) "DOI"))) - (org-attach-url (my-get-scihub-pdf-link doi)))) + (org-attach-url (my-scihub-get-pdf-link doi)))) (provide 'my-scihub) ;;; my-scihub.el ends here |