howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mastodon scroll and get more toots

Browse source
This commit is contained in:
Howard Abrams 2024-06-01 17:52:54 -07:00
parent 1c0fa7072e
commit f46a9772d7
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ha-aux-apps.org
View file

@ -43,6 +43,14 @@ I would like a dedicate perspective to Mastodon, and I would like a leader key s
:config :config
(ha-leader "a m" `("mastodon" . ,(ha-app-perspective "mastodon" #'mastodon))) (ha-leader "a m" `("mastodon" . ,(ha-app-perspective "mastodon" #'mastodon)))
(defun ha-mastodon-scroll-or-more ()
"Scroll a window, and at the end, get more entries in timeline."
(interactive)
(condition-case nil
(scroll-up-command)
(end-of-buffer
(mastodon-tl--more))))
(use-package major-mode-hydra (use-package major-mode-hydra
:config :config
(major-mode-hydra-define mastodon-mode nil (major-mode-hydra-define mastodon-mode nil
@ -73,7 +81,8 @@ I would like a dedicate perspective to Mastodon, and I would like a leader key s
("Y" mastodon-toot--copy-toot-text "Copy text")) ("Y" mastodon-toot--copy-toot-text "Copy text"))
"Navigation" "Navigation"
(("n" mastodon-tl--next-tab-item "next" :color pink) (("n" mastodon-tl--next-tab-item "next" :color pink)
("p" mastodon-tl--previous-tab-item "previous" :color pink)))))) ("p" mastodon-tl--previous-tab-item "previous" :color pink)
("," ha-mastodon-scroll-or-more "...more" :color pink))))))
#+end_src #+end_src
Let’s turn on non-fixed-width fonts to make everything easier to read: Let’s turn on non-fixed-width fonts to make everything easier to read: