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.
This commit is contained in:
Tom Willemse 2014-02-15 13:55:02 +01:00
parent 76a4cbd0cc
commit 66bc2bec98

View file

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