diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-21 10:04:36 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-21 10:04:36 +0100 |
| commit | a093d196cf1ca5a533f9662c62718c92ac04e0d0 (patch) | |
| tree | 96407072dfe381b2b43454ae96333e0270ad28f3 /lisp/mastodon.el | |
| parent | be196fb53b564acfbb8afd7f3b5b70e1b17039e0 (diff) | |
| parent | f751e7792e223a078bf63fde8c8028ee34185171 (diff) | |
Merge branch 'edit-posts' into develop
Diffstat (limited to 'lisp/mastodon.el')
| -rw-r--r-- | lisp/mastodon.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 57d5bd4..5be168c 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -92,6 +92,10 @@ (autoload 'mastodon-toot--translate-toot-text "mastodon-toot")) (autoload 'mastodon-search--trending-tags "mastodon-search") (autoload 'mastodon-profile--fetch-server-account-settings "mastodon-profile") +(autoload 'mastodon-notifications--get-mentions "mastodon-notifications") +(autoload 'mastodon-tl--view-lists "mastodon-tl") +(autoload 'mastodon-toot--edit-toot-at-point "mastodon-toot") +(autoload 'mastodon-toot--view-toot-history "mastodon-tl") (defgroup mastodon nil "Interface with Mastodon." @@ -195,6 +199,8 @@ Use. e.g. \"%c\" for your locale's date and time format." (define-key map (kbd "G") #'mastodon-tl--get-follow-suggestions) (define-key map (kbd "X") #'mastodon-tl--view-lists) (define-key map (kbd "@") #'mastodon-notifications--get-mentions) + (define-key map (kbd "e") #'mastodon-toot--edit-toot-at-point) + (define-key map (kbd "E") #'mastodon-toot--view-toot-edits) (when (require 'lingva nil :no-error) (define-key map (kbd "s") #'mastodon-toot--translate-toot-text)) map) @@ -248,7 +254,9 @@ Use. e.g. \"%c\" for your locale's date and time format." (if buffer (switch-to-buffer buffer) (mastodon-tl--get-home-timeline) - (message "Loading Mastodon account %s on %s..." (mastodon-auth--user-acct) mastodon-instance-url)))) + (message "Loading Mastodon account %s on %s..." + (mastodon-auth--user-acct) + mastodon-instance-url)))) ;;;###autoload (defun mastodon-toot (&optional user reply-to-id reply-json) |