]> git.eshelyaron.com Git - emacs.git/commitdiff
kubed.el: Fix quoting in update command
authorEshel Yaron <me@eshelyaron.com>
Wed, 24 Jul 2024 05:14:10 +0000 (07:14 +0200)
committerEshel Yaron <me@eshelyaron.com>
Wed, 24 Jul 2024 05:14:10 +0000 (07:14 +0200)
lisp/net/kubed.el

index c8e82dcdbfc3b966b97ae1af56c658ce5a89dceb..0bbc416ee15d82bec2728290b163e90d8e823988 100644 (file)
@@ -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."