[nongnu] elpa/mastodon fda3e5963d 44/45: Merge pull request 'Add a couple of key bindings that I have found useful' (#525) from dme/mastodon.el:devel/suspend into develop

[ELPA Syncer]

branch: elpa/mastodon
commit fda3e5963d803754fc2e4d0bdbc005ab5e47a93d
Merge: 07b9052501 b8dd95b4c9
Author: martianh <martianh@noreply.codeberg.org>
Commit: martianh <martianh@noreply.codeberg.org>

    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
---
 lisp/.dir-locals.el       | 6 ++++--
 lisp/mastodon-discover.el | 1 +
 lisp/mastodon-toot.el     | 5 +++++
 lisp/mastodon.el          | 2 ++
 4 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/lisp/.dir-locals.el b/lisp/.dir-locals.el
index 44e84e5923..bcb8ba5d00 100644
--- a/lisp/.dir-locals.el
+++ b/lisp/.dir-locals.el
@@ -1,5 +1,7 @@
 ;;; Directory Local Variables
 ;;; For more information see (info "(emacs) Directory Variables")
 
-;; setting this makes package-lint look in the main file for deps:
-((emacs-lisp-mode . ((package-lint-main-file . "mastodon.el"))))
+;; Preferred indentation style:
+((nil . ((indent-tabs-mode . nil)))
+ ;; setting this makes package-lint look in the main file for deps:
+ (emacs-lisp-mode . ((package-lint-main-file . "mastodon.el"))))
diff --git a/lisp/mastodon-discover.el b/lisp/mastodon-discover.el
index 715954f3f7..c34d85ff14 100644
--- a/lisp/mastodon-discover.el
+++ b/lisp/mastodon-discover.el
@@ -65,6 +65,7 @@
          ("t" "New toot" mastodon-toot)
          ("r" "Reply" mastodon-toot--reply)
          ("C" "Copy toot URL" mastodon-toot--copy-toot-url)
+         ("o" "Open toot URL" mastodon-toot--open-toot-url)
          ("d" "Delete (your) toot" mastodon-toot--delete-toot)
          ("D" "Delete and redraft (your) toot" mastodon-toot--delete-toot)
          ("e" "Edit (your) toot" mastodon-toot--edit-toot-at-point)
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index 6febec7544..bffa20e1e5 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)
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index bac4d6759d..9dac1d1f49 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -184,6 +184,7 @@ Use. e.g. \"%c\" for your locale's date and time format."
     (define-key map (kbd "k") #'mastodon-toot--toggle-bookmark)
     (define-key map (kbd "r") #'mastodon-toot--reply)
     (define-key map (kbd "C") #'mastodon-toot--copy-toot-url)
+    (define-key map (kbd "o") #'mastodon-toot--open-toot-url)
     (define-key map (kbd "v") #'mastodon-tl--poll-vote)
     (define-key map (kbd "E") #'mastodon-toot--view-toot-edits)
     (define-key map (kbd "T") #'mastodon-tl--thread)
@@ -225,6 +226,7 @@ Use. e.g. \"%c\" for your locale's date and time format."
     (define-key map (kbd "G") #'mastodon-views--view-follow-suggestions)
     (define-key map (kbd "X") #'mastodon-views--view-lists)
     (define-key map (kbd "SPC") #'mastodon-tl--scroll-up-command)
+    (define-key map (kbd "z") #'bury-buffer)
     map)
   "Keymap for `mastodon-mode'.")