[elpa] externals/kubed d9d349455b 1/3: ; Don't accept empty string as default namespace

[ELPA Syncer]

branch: externals/kubed
commit d9d349455bf547d247343dc20bff86daf7de29c3
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    ; Don't accept empty string as default namespace
    
    * kubed.el (kubed-read-default-namespace-non-empty): New func.
    (kubed-default-context-and-namespace): Use it.
---
 kubed.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/kubed.el b/kubed.el
index cab9effa89..8e107b8eb4 100644
--- a/kubed.el
+++ b/kubed.el
@@ -2323,6 +2323,15 @@ DEFAULT-BACKEND is the service to use as a backend for 
unhandled URLs."
   "Return current Kubernetes context."
   (car (process-lines kubed-kubectl-program "config" "current-context")))
 
+(defun kubed-read-default-namespace-non-empty (context)
+  "Prompt for a default namespace for CONTEXT, refusing empty input."
+  (let ((ns (kubed-read-namespace
+             (format "Default namespace for context `%s'" context)
+             nil nil context)))
+    (when (string-empty-p ns)
+      (user-error "You didn't specify a default namespace"))
+    ns))
+
 (defun kubed-default-context-and-namespace ()
   "Return default context and namespace as a cons cell (CONTEXT . NAMESPACE)."
   (or kubed-default-context-and-namespace
@@ -2330,9 +2339,7 @@ DEFAULT-BACKEND is the service to use as a backend for 
unhandled URLs."
             (let ((context (kubed-current-context)))
               (cons context
                     (or (kubed-current-namespace context)
-                        (kubed-read-namespace
-                         (format "Default namespace for context `%s'" context)
-                         nil nil context)))))))
+                        (kubed-read-default-namespace-non-empty context)))))))
 
 (defun kubed-default-context ()
   "Return default `kubectl' context."