some mastodon.el utility functions

mastodon-util.el

(defun my-mastodon-kill-buffers ()
  "Kill all mastodon buffers."
  (interactive)
  (dolist (buffer (buffer-list))
    (let ((mode (buffer-local-value 'major-mode buffer)))
      (when (string-equal mode "mastodon-mode")
        (kill-buffer buffer)))))

(defun my-mastodon-tl-scroll-up ()
  "Scroll mastodon timeline up, refreshing if needed."
  (interactive)
  (condition-case nil
      (scroll-up)
    (end-of-buffer
     (mastodon-tl--more))))

(defun my-mastodon-tl-scroll-down ()
  "Scroll mastodon timeline down, refreshing if needed."
  (interactive)
  (condition-case nil
      (scroll-down)
    (beginning-of-buffer
     (mastodon-tl--update))))