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

Show message after some operations

Browse source 
After marking an article as read or opening an article, show a message
that it has been done.
This commit is contained in:
Tom Willemsen 2012-08-07 10:17:54 +02:00
parent 4cae7937c0
commit a382f10aac
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
avandu.el
View file

@ -448,9 +448,11 @@ When updating FIELD 3 DATA functions as the note's contents."
(defun avandu-browse-article () (defun avandu-browse-article ()
"Browse the current button's article url." "Browse the current button's article url."
(interactive) (interactive)
(let ((button (button-at (point)))) (let ((button (button-at (point)))
(message-truncate-lines t))
(browse-url (button-get button 'link)) (browse-url (button-get button 'link))
(avandu-mark-article-read button))) (avandu-mark-article-read button)
(message "Opened: %s" (button-label button))))
(defun avandu-feed-catchup () (defun avandu-feed-catchup ()
"Send a request to tt-rss to \"Catch up\" with a feed. This "Send a request to tt-rss to \"Catch up\" with a feed. This
@ -507,9 +509,11 @@ nil, it will be assumed that `point' is currently within the
bounds of a button." bounds of a button."
(interactive) (interactive)
(let* ((button (or button (button-at (point)))) (let* ((button (or button (button-at (point))))
(id (button-get button 'article-id))) (id (button-get button 'article-id))
(message-truncate-lines t))
(avandu-update-article id 0 2) (avandu-update-article id 0 2)
(button-put button 'face 'avandu-overview-read-article)) (button-put button 'face 'avandu-overview-read-article)
(message "Marked article as read: %s" (button-label button)))
(avandu-next-article)) (avandu-next-article))
(defun avandu-new-articles-count () (defun avandu-new-articles-count ()