diff options
author | martianh <martianh@noreply.codeberg.org> | 2024-01-26 15:40:58 +0000 |
---|---|---|
committer | martianh <martianh@noreply.codeberg.org> | 2024-01-26 15:40:58 +0000 |
commit | fda3e5963d803754fc2e4d0bdbc005ab5e47a93d (patch) | |
tree | bc1634665af09e819fbf5a10f749eb345227b9b2 /lisp/mastodon-toot.el | |
parent | 07b90525015b86920011585599a9810b47b48f4e (diff) | |
parent | b8dd95b4c948a7510f26f0c98747b4187da28048 (diff) |
Merge pull request 'Add a couple of key bindings that I have found useful' (#525) from dme/mastodon.el:devel/suspend into develop
Reviewed-on: https://codeberg.org/martianh/mastodon.el/pulls/525
Diffstat (limited to 'lisp/mastodon-toot.el')
-rw-r--r-- | lisp/mastodon-toot.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 6febec7..bffa20e 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -517,6 +517,11 @@ base toot." (kill-new url) (message "Toot URL copied to the clipboard."))) +(defun mastodon-toot--open-toot-url () + "Open URL of toot at point." + (interactive) + (browse-url (mastodon-toot--toot-url))) + (defun mastodon-toot--toot-url () "Return the URL of the base toot at point." (let* ((toot (or (mastodon-tl--property 'base-toot) |