From a382f10aac954e3921a4689b492c815a827838a1 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 7 Aug 2012 10:17:54 +0200 Subject: [PATCH] Show message after some operations After marking an article as read or opening an article, show a message that it has been done. --- avandu.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/avandu.el b/avandu.el index 32e805a..3edd1c8 100644 --- a/avandu.el +++ b/avandu.el @@ -448,9 +448,11 @@ When updating FIELD 3 DATA functions as the note's contents." (defun avandu-browse-article () "Browse the current button's article url." (interactive) - (let ((button (button-at (point)))) + (let ((button (button-at (point))) + (message-truncate-lines t)) (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 () "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." (interactive) (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) - (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)) (defun avandu-new-articles-count ()