[emacs] fixing scihub functions prefix

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