From: Eshel Yaron <me@eshelyaron.com>
Date: Fri, 2 Aug 2024 17:21:56 +0000 (+0200)
Subject: New commands that run kubectl with resource at point as arg
X-Git-Tag: v0.3.0~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=238f38c8472f4c57c5519e363e2a9f4d1330c6b3;p=kubed.git

New commands that run kubectl with resource at point as arg

* kubed.el (kubed-define-resource): Also generate
'kubed-RESOURCEs-kubectl-command' command and bind it to "!"
in resource list buffers.
(kubed-read-kubectl-command): New function, extracted from..
(kubed-kubectl-command): ...here.
---

diff --git a/kubed.el b/kubed.el
index 7919c7b..c2d4586 100644
--- a/kubed.el
+++ b/kubed.el
@@ -566,6 +566,17 @@ Other keyword arguments that go between PROPERTIES and COMMANDS are:
                   "o" "Pop to buffer showing description of"
                   (switch-to-buffer-other-window
                    (,desc-fun ,resource . ,(when namespaced '(k8sns)))))
+                 (kubectl-command
+                  "!" "Execute kubectl command with"
+                  (kubed-kubectl-command
+                   (kubed-read-kubectl-command
+                    "Execute command: "
+                    (cons (concat
+                           " "
+                           ,@(when namespaced
+                               `((when k8sns (concat "-n " k8sns " "))))
+                           ,(symbol-name resource) " " ,resource)
+                          0))))         ; Put point after "kubectl ".
                  (delete "D" "Delete"
                          ,(if namespaced
                               `(if k8sns
@@ -2478,6 +2489,17 @@ Optional argument DEFAULT is the minibuffer default argument."
 (declare-function cobra-read-command-line "cobra"
                   (prompt initial &optional hist))
 
+(defun kubed-read-kubectl-command (prompt &optional initial)
+  "Prompt with PROMPT for a `kubectl' command line.
+
+Optional argument INITIAL added to the initial minibuffer input
+following the value of `kubed-kubectl-program' and a space character."
+  (let ((init (if (consp initial)
+                  (cons    (concat kubed-kubectl-program " " (car initial))
+                        (+ (length kubed-kubectl-program) 1  (cdr initial)))
+                (concat kubed-kubectl-program " " initial))))
+    (cobra-read-command-line prompt init 'kubed-kubectl-command-history)))
+
 ;;;###autoload
 (defun kubed-kubectl-command (command)
   "Execute `kubectl' COMMAND.
@@ -2486,18 +2508,15 @@ This function calls `shell-command' (which see) to do the work.
 
 Interactively, prompt for COMMAND with completion for `kubectl' arguments."
   (interactive
-   (list (cobra-read-command-line
+   (list (kubed-read-kubectl-command
           "Command: "
-          (concat
-           kubed-kubectl-program " "
-           (let* ((args (kubed-transient-args))
-                  (prefix (and (fboundp 'transient-prefix-object)
-                               (transient-prefix-object)))
-                  (scope (and prefix (fboundp 'eieio-oref)
-                              (eieio-oref prefix 'scope))))
-             (when (or args scope)
-               (concat (string-join (append scope args) " ") " "))))
-          'kubed-kubectl-command-history)))
+          (let* ((args (kubed-transient-args))
+                 (prefix (and (fboundp 'transient-prefix-object)
+                              (transient-prefix-object)))
+                 (scope (and prefix (fboundp 'eieio-oref)
+                             (eieio-oref prefix 'scope))))
+            (when (or args scope)
+              (concat (string-join (append scope args) " ") " "))))))
   (shell-command command))
 
 ;;;###autoload (autoload 'kubed-prefix-map "kubed" nil t 'keymap)