From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 23 Jul 2024 19:17:52 +0000 (+0200)
Subject: kubed.el: Fix "D" command in resource list buffers
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da99d31fbde986f99e108dbb597d245f580a6e4b;p=emacs.git

kubed.el: Fix "D" command in resource list buffers
---

diff --git a/lisp/net/kubed.el b/lisp/net/kubed.el
index f36ebae9b23..c8e82dcdbfc 100644
--- a/lisp/net/kubed.el
+++ b/lisp/net/kubed.el
@@ -197,7 +197,7 @@ namespaceless resource type, put `:namespaced nil' before COMMANDS:
       (cond
        ((eq keyword :namespaced) (setq namespaced (pop commands)))
        ((eq keyword :create)     (setq crt-spec   (pop commands)))
-       ;; FIXME: Add error for unknown keywords
+       ;; FIXME: Add error for unknown keywords.
        (t (pop commands))))
 
     ;; Extend `commands' with standard commands.
@@ -484,10 +484,10 @@ Optional argument DEFAULT is the minibuffer default argument." resource)
                                        (symbol-name resource)
                                        " `%s' in namespace `%s'...")
                               name space)
-                     (if (zerop (apply #'call-process
-                                       kubed-kubectl-executable nil nil nil
-                                       "delete" "--namespace" space
-                                       ,(symbol-name plrl-var) name))
+                     (if (zerop (call-process
+                                 kubed-kubectl-executable nil nil nil
+                                 "delete" "--namespace" space
+                                 ,(symbol-name plrl-var) name))
                          (message ,(concat "Deleting Kubernetes "
                                            (symbol-name resource)
                                            " `%s' in namespace `%s'... Done.")
@@ -495,22 +495,22 @@ Optional argument DEFAULT is the minibuffer default argument." resource)
                        (error ,(concat "Failed to delete Kubernetes"
                                        (symbol-name resource)
                                        " `%s' in namespace `%s'")
-                              name space))))
-               (message ,(concat "Deleting Kubernetes "
-                                 (symbol-name plrl-var)
-                                 " `%s'...")
-                        (string-join ,plrl-var "', `"))
-               (if (zerop (apply #'call-process
-                                 kubed-kubectl-executable nil nil nil
-                                 "delete" ,(symbol-name plrl-var) ,plrl-var))
-                   (message ,(concat "Deleting Kubernetes "
-                                     (symbol-name plrl-var)
-                                     " `%s'... Done.")
-                            (string-join ,plrl-var "', `"))
-                 (error ,(concat "Failed to delete Kubernetes"
-                                 (symbol-name plrl-var)
-                                 " `%s'")
-                        (string-join ,plrl-var "', `"))))
+                              name space)))
+                 (message ,(concat "Deleting Kubernetes "
+                                   (symbol-name plrl-var)
+                                   " `%s'...")
+                          (string-join ,plrl-var "', `"))
+                 (if (zerop (apply #'call-process
+                                   kubed-kubectl-executable nil nil nil
+                                   "delete" ,(symbol-name plrl-var) ,plrl-var))
+                     (message ,(concat "Deleting Kubernetes "
+                                       (symbol-name plrl-var)
+                                       " `%s'... Done.")
+                              (string-join ,plrl-var "', `"))
+                   (error ,(concat "Failed to delete Kubernetes"
+                                   (symbol-name plrl-var)
+                                   " `%s'")
+                          (string-join ,plrl-var "', `")))))
           `(defun ,dlt-name (,plrl-var)
              ,(format "Delete Kubernetes %S %s." plrl-var
                       (upcase (symbol-name plrl-var)))