From c2c8dc13c8d052cac552d3db69654e86794a733a Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 30 Sep 2023 17:22:56 +1000 Subject: [emacs] fixing scihub functions prefix --- emacs/.emacs.d/lisp/my/my-scihub.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'emacs/.emacs.d/lisp') 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 -- cgit v1.2.3