diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 28caad8..0f2f8ba 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -6028,6 +6028,38 @@ base toot." "gr" #'revert-buffer "RET" #'ement-room-list-RET)) +(with-eval-after-load 'ement-room-mode + (general-define-key + :states '(normal visual) + :keymaps '(ement-room-mode-map) + "q" #'quit-window + "?" #'ement-room-transient + "C-u" #'ement-room-scroll-down-command + "C-d" #'ement-room-scroll-up-mark-read + "M-" #'ement-room-compose-message + "" #'ement-room-send-message + "S-" #'ement-room-write-reply + "K" #'ement-room-goto-prev + "J" #'ement-room-goto-next + "gr" #'ement-room-sync + "rT" #'ement-tag-room + "rd" #'ement-describe-room + "rm" #'ement-list-members + "rn" #'ement-room-set-notification-state + "rt" #'ement-room-set-topic + "se" #'ement-room-send-emote + "sf" #'ement-room-send-file + "sr" #'ement-room-send-reaction + "sd" #'ement-room-view-event + "uI" #'ement-ignore-user + "U " #'ement-send-direct-message + "ui" #'ement-invite-user) + (general-define-key + :states '(motion) + :keymaps '(ement-room-mode-map) + "C-u" #'ement-room-scroll-down-command + "C-d" #'ement-room-scroll-up-mark-read)) + (use-package telega :straight t :if (not (or my/remote-server my/is-termux)) diff --git a/Emacs.org b/Emacs.org index a627cb6..b3e4e28 100644 --- a/Emacs.org +++ b/Emacs.org @@ -8422,6 +8422,41 @@ Some custom keymaps: "gr" #'revert-buffer "RET" #'ement-room-list-RET)) #+end_src + +Also a keymap for room mode: +#+begin_src emacs-lisp +(with-eval-after-load 'ement-room-mode + (general-define-key + :states '(normal visual) + :keymaps '(ement-room-mode-map) + "q" #'quit-window + "?" #'ement-room-transient + "C-u" #'ement-room-scroll-down-command + "C-d" #'ement-room-scroll-up-mark-read + "M-" #'ement-room-compose-message + "" #'ement-room-send-message + "S-" #'ement-room-write-reply + "K" #'ement-room-goto-prev + "J" #'ement-room-goto-next + "gr" #'ement-room-sync + "rT" #'ement-tag-room + "rd" #'ement-describe-room + "rm" #'ement-list-members + "rn" #'ement-room-set-notification-state + "rt" #'ement-room-set-topic + "se" #'ement-room-send-emote + "sf" #'ement-room-send-file + "sr" #'ement-room-send-reaction + "sd" #'ement-room-view-event + "uI" #'ement-ignore-user + "U " #'ement-send-direct-message + "ui" #'ement-invite-user) + (general-define-key + :states '(motion) + :keymaps '(ement-room-mode-map) + "C-u" #'ement-room-scroll-down-command + "C-d" #'ement-room-scroll-up-mark-read)) +#+end_src *** Telega [[https://github.com/zevlg/telega.el/][telega.el]] is a Telegam client for Emacs.