diff options
author | Tom Willemsen | 2012-08-07 10:17:54 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-08-07 10:56:47 +0200 |
commit | a382f10aac954e3921a4689b492c815a827838a1 (patch) | |
tree | 5d7bb3f08b3188a9f2384208d43ab6550ba4c704 | |
parent | 4cae7937c0512a4f37b0295dd3f5f6dd19928ac5 (diff) | |
download | avandu-a382f10aac954e3921a4689b492c815a827838a1.tar.gz avandu-a382f10aac954e3921a4689b492c815a827838a1.zip |
Show message after some operations
After marking an article as read or opening an article, show a message
that it has been done.
-rw-r--r-- | avandu.el | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -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 () |