05/07: emacs: list: Support displaying URL links.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 6dd460c8565882a9ef3f76cc259bbfe1a9342b6e
Author: Alex Kost <address@hidden>
Date:   Thu Jan 21 11:00:59 2016 +0300

    emacs: list: Support displaying URL links.
    
    * emacs/guix-list.el (guix-list-url): New face.
      (guix-list-get-url): New procedure.
---
 emacs/guix-list.el |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/emacs/guix-list.el b/emacs/guix-list.el
index 51eb106..c91c67c 100644
--- a/emacs/guix-list.el
+++ b/emacs/guix-list.el
@@ -38,6 +38,11 @@
   "Face used for file names."
   :group 'guix-list-faces)
 
+(defface guix-list-url
+  '((t :inherit guix-info-url))
+  "Face used for URLs."
+  :group 'guix-list-faces)
+
 (defface guix-list-time
   '((t :inherit guix-info-time))
   "Face used for time stamps."
@@ -222,6 +227,14 @@ VAL may be nil."
         'follow-link t
         'help-echo "Find file"))
 
+(defun guix-list-get-url (url &optional _)
+  "Return URL button specification for `tabulated-list-entries'."
+  (list url
+        'face 'guix-list-url
+        'action (lambda (btn) (browse-url (button-label btn)))
+        'follow-link t
+        'help-echo "Browse URL"))
+
 
 ;;; 'List' lines