From mboxrd@z Thu Jan 1 00:00:00 1970 From: Alex Kost Subject: [PATCH 6/7] emacs: list: Support displaying URL links. Date: Fri, 22 Jan 2016 11:19:34 +0300 Message-ID: <1453450775-594-7-git-send-email-alezost@gmail.com> References: <1453450775-594-1-git-send-email-alezost@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:52811) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMWwt-0005Q6-Hs for guix-devel@gnu.org; Fri, 22 Jan 2016 03:20:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aMWws-00073v-S1 for guix-devel@gnu.org; Fri, 22 Jan 2016 03:20:03 -0500 Received: from mail-lb0-x242.google.com ([2a00:1450:4010:c04::242]:36074) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aMWws-00073n-KH for guix-devel@gnu.org; Fri, 22 Jan 2016 03:20:02 -0500 Received: by mail-lb0-x242.google.com with SMTP id ad5so2680489lbc.3 for ; Fri, 22 Jan 2016 00:20:02 -0800 (PST) Received: from localhost.localdomain ([217.107.192.146]) by smtp.gmail.com with ESMTPSA id j71sm725356lfi.20.2016.01.22.00.20.01 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Fri, 22 Jan 2016 00:20:01 -0800 (PST) In-Reply-To: <1453450775-594-1-git-send-email-alezost@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * emacs/guix-list.el (guix-list-url): New face. (guix-list-get-url): New procedure. --- emacs/guix-list.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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 -- 2.7.0