From 66bc2bec98a5ee55a26b3330a67377b920c2dc26 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sat, 15 Feb 2014 13:55:02 +0100 Subject: [PATCH] Show button in article to browse original Not all articles are fully available through the RSS feed, and not all of them provide a link to the full article. --- avandu.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/avandu.el b/avandu.el index 0749ca6..506fa47 100644 --- a/avandu.el +++ b/avandu.el @@ -769,6 +769,13 @@ meaningless, but it's easy." (insert (propertize (concat "by: " (avu-prop item author)) 'face 'avandu-article-author)) + (insert " (") + (insert-button + "Browse original" + 'url (avu-prop item link) + 'action #'(lambda (button) + (browse-url (button-get button 'url)))) + (insert ")") (newline)(newline) (setq content-start (point)) (insert (avu-prop item content))