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.

1 files changed, 7 insertions, 0 deletions

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))