From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 24 Jul 2024 05:15:06 +0000 (+0200)
Subject: (kubed-pods-shell): Bind to lowercase "s", use per-pod buffer
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=388ca32a68406c0525b6b80393bbbee0e0d55fc3;p=emacs.git

(kubed-pods-shell): Bind to lowercase "s", use per-pod buffer
---

diff --git a/lisp/net/kubed.el b/lisp/net/kubed.el
index 0bbc416ee15..2215716b863 100644
--- a/lisp/net/kubed.el
+++ b/lisp/net/kubed.el
@@ -801,10 +801,10 @@ Optional argument DEFAULT is the minibuffer default argument." resource)
          ;; Ideally, we'd like to hardcode the namespace into filename.
          (let ((tramp-kubernetes-namespace k8sns))
            (dired (concat "/kubernetes:" pod ":"))))
-  (shell "S" "Start shell in home directory of first container of"
+  (shell "s" "Start shell in home directory of first container of"
          (let ((tramp-kubernetes-namespace k8sns)
                (default-directory (concat "/kubernetes:" pod ":")))
-           (shell)))
+           (shell (format "*kubed-pod-%s-shell*" pod))))
   (logs "l" "Show logs for a container of"
         (kubed-logs pod (kubed-read-container pod "Container" t k8sns)))
   (forward-port "F" "Forward local network port to remote port of"