message when loading timelines and profiles

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 254f042..bd325c1 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -187,12 +187,15 @@ following the current profile."
   (let ((account (mastodon-profile--lookup-account-in-status
                   user-handle (mastodon-profile--toot-json))))
     (if account
-        (mastodon-profile--make-author-buffer account)
+        (progn
+          (message "Loading profile of user %s..." user-handle)
+          (mastodon-profile--make-author-buffer account))
       (message "Cannot find a user with handle %S" user-handle))))
 
 (defun mastodon-profile--my-profile ()
   "Show the profile of the currently signed in user."
   (interactive)
+  (message "Loading your profile...")
   (mastodon-profile--show-user (mastodon-auth--get-account-name)))
 
 (defun mastodon-profile--account-field (account field)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 9090339..16e1935 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -179,18 +179,21 @@ This also skips tab items in invisible text, i.e. hidden spoiler text."
 (defun mastodon-tl--get-federated-timeline ()
   "Opens federated timeline."
   (interactive)
+  (message "Loading federated timeline...")
   (mastodon-tl--init
    "federated" "timelines/public" 'mastodon-tl--timeline))
 
 (defun mastodon-tl--get-home-timeline ()
   "Opens home timeline."
   (interactive)
+  (message "Loading home timeline...")
   (mastodon-tl--init
    "home" "timelines/home" 'mastodon-tl--timeline))
 
 (defun mastodon-tl--get-local-timeline ()
   "Opens local timeline."
   (interactive)
+  (message "Loading local timeline...")
   (mastodon-tl--init
    "local" "timelines/public?local=true" 'mastodon-tl--timeline))
 
@@ -198,8 +201,9 @@ This also skips tab items in invisible text, i.e. hidden spoiler text."
   "Prompts for tag and opens its timeline."
   (interactive)
   (let* ((word (or (word-at-point) ""))
-         (input (read-string (format "Tag(%s): " word)))
+         (input (read-string (format "Load timeline for tag(%s): " word)))
          (tag (if (equal input "") word input)))
+    (message "Loading timeline for #%s..." tag)
     (mastodon-tl--show-tag-timeline tag)))
 
 (defun mastodon-tl--show-tag-timeline (tag)