diff options
| -rw-r--r-- | lisp/mastodon-tl.el | 23 | ||||
| -rw-r--r-- | lisp/mastodon.el | 23 |
2 files changed, 31 insertions, 15 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 10a7ed7..e7100e8 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -119,16 +119,31 @@ 'toot-url url)))) (defun mastodon-tl--render-timeline (buffer json) - (with-output-to-temp-buffer buffer - (switch-to-buffer buffer) - (mapcar 'mastodon-tl--render-toot json)) + (switch-to-buffer buffer) + (mapcar 'mastodon-tl--render-toot json) (html2text)) +(defun mastodon-tl--timeline-name () + (replace-regexp-in-string "\*" "" + (replace-regexp-in-string "mastodon-" "" (buffer-name)))) + +(defun mastodon-tl--update () + (interactive) + (let* ((tl (mastodon-tl--timeline-name)) + (id (get-text-property (point-min) 'toot-id)) + (url (mastodon--api-for (concat "timelines/" tl "?since_id=" id)))) + (with-current-buffer (current-buffer) + (let ((inhibit-read-only t) + (json (mastodon-http--get-json url))) + (goto-char (point-min)) + (mastodon-tl--render-timeline (current-buffer) json))))) + (defun mastodon-tl--get (timeline) (let* ((url (mastodon--api-for (concat "timelines/" timeline))) (tl-buff (concat "*mastodon-" timeline "*")) (tl-json (mastodon-http--get-json url))) - (mastodon-tl--render-timeline tl-buff tl-json) + (with-output-to-temp-buffer tl-buff + (mastodon-tl--render-timeline tl-buff tl-json)) (mastodon-mode))) (provide 'mastodon-tl) diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 3bddf55..336ffd4 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -102,7 +102,8 @@ (define-key map (kbd "n") #'mastodon-toot) (define-key map (kbd "q") #'kill-this-buffer) (define-key map (kbd "Q") #'kill-buffer-and-window) - (define-key map (kbd "T") #'mastodon-tl--get-tag-timeline))) + (define-key map (kbd "T") #'mastodon-tl--get-tag-timeline) + (define-key map (kbd "u") #'mastodon-tl--update))) (with-eval-after-load 'mastodon (when (require 'discover nil :noerror) @@ -113,16 +114,16 @@ :context-menu '(mastodon (description "Mastodon feed viewer") (actions - ("Navigation" - ("j" "Go to next toot" mastodon-tl--goto-next-toot) - ("k" "Go to previous toot" mastodon-tl--goto-prev-toot)) - ("Feed switch" - ("F" "Open federated timeline" mastodon-tl--get-federated-timeline) - ("H" "Open home timeline" mastodon-tl--get-home-timeline) - ("L" "Open local timeline" mastodon-tl--get-local-timeline) - ("T" "Prompt for tag and open its timeline" mastodon-tl--get-tag-timeline)) - ("Toot" - ("n" "Switch to 'mastodon-toot' buffer" mastodon-toot)) + ("Toots" + ("j" "Next" mastodon-tl--goto-next-toot) + ("k" "Prev" mastodon-tl--goto-prev-toot) + ("n" "Send" mastodon-toot) + ("u" "Update" mastodon-tl--update)) + ("Timelines" + ("F" "Federated" mastodon-tl--get-federated-timeline) + ("H" "Home" mastodon-tl--get-home-timeline) + ("L" "Local" mastodon-tl--get-local-timeline) + ("T" "Tag" mastodon-tl--get-tag-timeline)) ("Quit" ("q" "Quit mastodon buffer. Leave window open." kill-this-buffer) ("Q" "Quit mastodon buffer and kill window." kill-buffer-and-window))))))) |