Teach 'kubed-diff' about buffer-local contexts

* kubed.el (kubed-diff): Use buffer-local context and
handle prefix arg.
* kubed-transient.el (kubed-transient-diff): Add
"--context=" infix argument.

diff --git a/kubed-transient.el b/kubed-transient.el
index c63819a54ad2945315c9afe57780bfc89ce64341..829eedb6640f2e2757ace12f37913c82699286ea 100644 (file)
--- a/kubed-transient.el
+++ b/kubed-transient.el
@@ -111,7 +111,9 @@
     ("-M" "Include managed fields" "--show-managed-fields")]
    ["Options"
     ("-f" "Definition file" "--filename="
-     :reader kubed-transient-read-resource-definition-file-name)]]
+     :reader kubed-transient-read-resource-definition-file-name)
+    ("-C" "Context" "--context="
+     :prompt "Context" :reader kubed-transient-read-context)]]
   (interactive)
   (transient-setup 'kubed-transient-diff nil nil
                    :scope '("diff")))

diff --git a/kubed.el b/kubed.el
index 02aa2e2fb7ce54722eb7de08b77b319d64cbfc97..d1a40b6f8a440b03267e28060885933487470df6 100644 (file)
--- a/kubed.el
+++ b/kubed.el
@@ -2805,15 +2805,19 @@ the current context; non-nil INCLUDE-MANAGED (interactively, the prefix
 argument) says to include managed fields in the comparison."
   (interactive
    (let ((definition nil) (context nil) (include-managed nil))
-     (dolist (arg (when (and (fboundp 'transient-args)
-                             (fboundp 'kubed-transient-diff))
-                    (transient-args 'kubed-transient-diff)))
+     (dolist (arg (kubed-transient-args 'kubed-transient-diff))
        (cond
         ((string-match "--filename=\\(.+\\)" arg)
          (setq definition (match-string 1 arg)))
         ((string-match "--context=\\(.+\\)" arg)
          (setq context (match-string 1 arg)))
         ((equal "--show-managed-fields" arg) (setq include-managed t))))
+     (unless context
+       (setq context
+             (let ((cxt (kubed-local-context)))
+               (if (equal current-prefix-arg '(16))
+                   (kubed-read-context "Context" cxt)
+                 cxt))))
      (list (or definition (kubed-read-resource-definition-file-name))
            (or include-managed current-prefix-arg)
            context)))