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 <tazjin@tvl.su>
Autosubmit: tazjin <tazjin@tvl.su>

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