From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 24 Jul 2024 05:14:10 +0000 (+0200)
Subject: kubed.el: Fix quoting in update command
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=523df23c957cd7030524c30623a51f1a04b84eee;p=emacs.git

kubed.el: Fix quoting in update command
---

diff --git a/lisp/net/kubed.el b/lisp/net/kubed.el
index c8e82dcdbfc..0bbc416ee15 100644
--- a/lisp/net/kubed.el
+++ b/lisp/net/kubed.el
@@ -289,11 +289,11 @@ namespaceless resource type, put `:namespaced nil' before COMMANDS:
                                                                     ":"
                                                                     (cadr p)))
                                                           properties))
-                                            (mapcar (lambda (p)
-                                                      (concat (upcase (symbol-name (car p)))
-                                                              ":"
-                                                              (cadr p)))
-                                                    properties)))
+                                            `',(mapcar (lambda (p)
+                                                         (concat (upcase (symbol-name (car p)))
+                                                                 ":"
+                                                                 (cadr p)))
+                                                       properties)))
                                    ",")))
                 :sentinel (lambda (_proc status)
                             (cond
@@ -820,7 +820,9 @@ Optional argument DEFAULT is the minibuffer default argument." resource)
 ;;;###autoload (autoload 'kubed-delete-namespaces "kubed" nil t)
 ;;;###autoload (autoload 'kubed-list-namespaces "kubed" nil t)
 ;;;###autoload (autoload 'kubed-create-namespace "kubed" nil t)
-(kubed-define-resource namespace ()
+(kubed-define-resource namespace
+    ((phase ".status.phase" 10)
+     (creationtimestamp ".metadata.creationTimestamp" 20))
   :namespaced nil
   :create
   ((name) "Create Kubernetes namespace with name NAME."