branch: elpa/helm
commit 8f501f6eac09a1bfc86b94e52e07533504321f03
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>

    New function helm-packages-get-homepage-url
    
    Use it in helm-packages-visit-homepage.
---
 helm-packages.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/helm-packages.el b/helm-packages.el
index 181c128fc6..6ef70e5502 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -80,17 +80,18 @@
   "Helm action for describing package CANDIDATE."
   (describe-package candidate))
 
+(defun helm-packages-get-homepage-url (candidate)
+  "Get package CANDIDATE home page url."
+  (let* ((id     (package-get-descriptor candidate))
+         (extras (package-desc-extras id)))
+    (and (listp extras) (cdr-safe (assoc :url extras)))))
+
 (defun helm-packages-visit-homepage (candidate)
   "Helm action for visiting package CANDIDATE home page."
-  (let* ((id (package-get-descriptor candidate))
-         (name (package-desc-name id))
-         (extras (package-desc-extras id))
-         (url (and (listp extras) (cdr-safe (assoc :url extras)))))
+  (let ((url (helm-packages-get-homepage-url candidate)))
     (if (stringp url)
         (browse-url url)
-      (message "Package %s has no homepage"
-               (propertize (symbol-name name)
-                           'face 'font-lock-keyword-face)))))
+      (message "Package `%s' has no homepage" candidate))))
 
 (defun helm-packages-package-reinstall (_candidate)
   "Helm action for reinstalling marked packages."

Reply via email to