From da99d31fbde986f99e108dbb597d245f580a6e4b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 23 Jul 2024 21:17:52 +0200 Subject: [PATCH] kubed.el: Fix "D" command in resource list buffers --- lisp/net/kubed.el | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) 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))) -- 2.39.2