ryuslash/avandu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Show button in article to browse original

Browse source 
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
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
avandu.el
View file

@ -769,6 +769,13 @@ meaningless, but it's easy."
(insert (insert
(propertize (concat "by: " (avu-prop item author)) (propertize (concat "by: " (avu-prop item author))
'face 'avandu-article-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) (newline)(newline)
(setq content-start (point)) (setq content-start (point))
(insert (avu-prop item content)) (insert (avu-prop item content))