split mastodon-tl--timeline back into two functions.

this is to prevent pinned toots appearing as such when this function is used elsewhere
than for a profile. e.g. the tag search.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index f14b469..6f83709 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -76,7 +76,7 @@ extra keybindings."
 (defun mastodon-profile--make-author-buffer (account)
   "Take a ACCOUNT and inserts a user account into a new buffer."
   (mastodon-profile--make-profile-buffer-for
-   account "statuses" #'mastodon-tl--timeline))
+   account "statuses" #'mastodon-tl--timeline-pinned))
 
 (defun mastodon-profile--open-following ()
   "Open a profile buffer for the current profile showing the accounts
@@ -254,7 +254,7 @@ If toot is a boost, opens the profile of the booster."
    (list
     (let ((user-handles (mastodon-profile--extract-users-handles
                          (mastodon-profile--toot-json))))
-      (completing-read "View profile of user: "
+      (completing-read "View profile of user [choose or enter any handle]: "
                        user-handles
                        nil ; predicate
                        'confirm))))
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 2c9c080..e186bd5 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -674,10 +674,15 @@ it is `mastodon-tl--byline-boosted'"
    'mastodon-tl--byline-boosted))
 
 (defun mastodon-tl--timeline (toots)
+  "Display each toot in TOOTS."
+  (mapc 'mastodon-tl--toot toots)
+  (goto-char (point-min)))
+
+(defun mastodon-tl--timeline-pinned (toots)
   "Display each toot in TOOTS.
 
 If any toots are pinned, display them first."
-  (let* ((pinned-list))
+  (let ((pinned-list))
     (mapc (lambda (toot)
               (when (equal (cdr (assoc 'pinned toot)) 't)
                 (push toot pinned-list)))