From 170864113ea5ce459e86446464087ad8e0b7fa12 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 7 Mar 2023 14:24:38 +0100 Subject: bind list-followed tags to ':' --- lisp/mastodon.el | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp/mastodon.el') diff --git a/lisp/mastodon.el b/lisp/mastodon.el index a49d0cc..271e772 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -211,6 +211,7 @@ Use. e.g. \"%c\" for your locale's date and time format." (define-key map (kbd "s") #'mastodon-tl--view-scheduled-toots) (define-key map (kbd "M-C-q") #'mastodon-kill-all-buffers) (define-key map (kbd ";") #'mastodon-tl--view-instance-description) + (define-key map (kbd ":") #'mastodon-tl--list-followed-tags) (define-key map (kbd ",") #'mastodon-toot--list-toot-favouriters) (define-key map (kbd ".") #'mastodon-toot--list-toot-boosters) map) -- cgit v1.2.3 From 8b3a5dd807b363700b995b42aa43c93a4089c19e Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 10 Mar 2023 15:12:21 +0100 Subject: notifs-get: force set kmap in buffer --- lisp/mastodon.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/mastodon.el') diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 271e772..04773c7 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -294,7 +294,8 @@ BUFFER-NAME is added to \"*mastodon-\" to create the buffer name." "notifications" 'mastodon-notifications--timeline type) - (use-local-map mastodon-notifications--map)))) + (with-current-buffer buffer + (use-local-map mastodon-notifications--map))))) ;; URL lookup: should be available even if `mastodon.el' not loaded: -- cgit v1.2.3 From bf4eef8b2d85b7b4cde69a87b0f265b9d40f1cad Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 10 Mar 2023 15:12:43 +0100 Subject: notifs-get: fix buffer name setting --- lisp/mastodon.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/mastodon.el') diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 04773c7..e70beb5 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -283,8 +283,9 @@ If REPLY-JSON is the json of the toot being replied to." Optionally only print notifications of type TYPE, a string. BUFFER-NAME is added to \"*mastodon-\" to create the buffer name." (interactive) - (let ((buffer (or (concat "*mastodon-" buffer-name "*") - "*mastodon-notifications*"))) + (let ((buffer (if buffer-name + (concat "*mastodon-" buffer-name "*") + "*mastodon-notifications*"))) (if (get-buffer buffer) (progn (switch-to-buffer buffer) (mastodon-tl--update)) -- cgit v1.2.3