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

4 files changed, 12 insertions, 2 deletions

diff --git a/lisp/.dir-locals.el b/lisp/.dir-locals.el
index 44e84e5..bcb8ba5 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 715954f..c34d85f 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 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)
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index bac4d67..9dac1d1 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'.")