From de958ccf0172dfe43c3adcec624c03b1de70f8b3 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Wed, 27 Sep 2023 13:53:25 +0300 Subject: feat(tazjin/emacs): add a key binding for telega-chat-with Puts this under the prefix command for #'telega itself. Change-Id: I7dc394840ded3f31bf54848e581a0add36da7f3b Reviewed-on: https://cl.tvl.fyi/c/depot/+/9479 Tested-by: BuildkiteCI Reviewed-by: tazjin Autosubmit: tazjin --- users/tazjin/emacs/config/init.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'users/tazjin') diff --git a/users/tazjin/emacs/config/init.el b/users/tazjin/emacs/config/init.el index e98ae6dcd3b1..f3a6c555815d 100644 --- a/users/tazjin/emacs/config/init.el +++ b/users/tazjin/emacs/config/init.el @@ -178,7 +178,9 @@ (setq common-lisp-hyperspec-root "file:///home/tazjin/docs/lisp/")) (use-package telega - :bind (:map global-map ("s-t" . telega) + :bind (:map global-map ("s-t" . (lambda (p) (interactive "P") + (if p (call-interactively #'telega-chat-with) + (telega)))) :map telega-chat-button-map ("a" . ignore)) :config (telega-mode-line-mode 1) :custom -- cgit 1.4.1