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

diff --git a/lisp/net/kubed.el b/lisp/net/kubed.el
index 0bbc416ee15d82bec2728290b163e90d8e823988..2215716b863df61b6a2caa38f0211c98663cc2c5 100644 (file)
--- 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"