New command 'kubed-restart-deployment'

* kubed.el (kubed-restart-deployment)
(kubed-deployments-restart): New commands.

diff --git a/kubed.el b/kubed.el
index 8df65327bc9d034980b4aeee1a7787e0ca2ab82b..448bc93ae1c402b3f98f174c90b1bd64bc3fd35c 100644 (file)
--- a/kubed.el
+++ b/kubed.el
@@ -1156,6 +1156,20 @@ defaulting to the current namespace."
    (message "Created Kubernetes job `%s'." name)
    (kubed-update-jobs t)))
 
+;;;###autoload
+(defun kubed-restart-deployment (dep &optional namespace)
+  "Restart Kubernetes deployment DEP in namespace NAMESPACE.
+If NAMESPACE is nil or omitted, it defaults to the current namespace."
+  (interactive
+   (list (kubed-read-deployment "Restart deployment")))
+  (unless (zerop
+           (apply #'call-process
+                  kubed-kubectl-program nil nil nil
+                  "rollout" "restart" "deployment" dep
+                  (when namespace (list "-n" namespace))))
+    (user-error "Failed to restart Kubernetes deployment `%s'" dep))
+  (message "Restarted Kubernetes deployment `%s'." dep))
+
 ;;;###autoload (autoload 'kubed-display-deployment "kubed" nil t)
 ;;;###autoload (autoload 'kubed-edit-deployment "kubed" nil t)
 ;;;###autoload (autoload 'kubed-delete-deployments "kubed" nil t)
@@ -1222,7 +1236,10 @@ optional command to run in the images."
                     (when command (cons "--" command)))))
      (user-error "Failed to create Kubernetes deployment `%s'" name))
    (message "Created Kubernetes deployment `%s'." name)
-   (kubed-update-deployments t)))
+   (kubed-update-deployments t))
+  (set "R" "Restart"
+       (kubed-restart-deployment deployment k8sns)
+       (kubed-update-deployments t)))
 
 ;;;###autoload (autoload 'kubed-display-replicaset "kubed" nil t)
 ;;;###autoload (autoload 'kubed-edit-replicaset "kubed" nil t)