KUBEL with Lens config

kubel-lens.el

(defvar helm-source-lens-kubeconfigs nil "Lens kubeconfigs source")

(defun my/kubel-with-lens-configs (&optional kubeconfigs-dir)
  "Launch kubel with Lens configs.

Require `yq' (a wrapper of `jq' for `yaml') in your path."
  (interactive)
  (unless kubeconfigs-dir
    (setq kubeconfigs-dir "~/Library/Application Support/Lens/kubeconfigs"))
  
  (unless helm-source-lens-kubeconfigs
    (setq helm-source-lens-kubeconfigs
	  (let* ((dir (expand-file-name kubeconfigs-dir))
		 (command (format "pushd \"%s\"
for i in *
  do echo \"$(cat \"$i\" | yq -r '.clusters[0].name')|$i\"
done" dir)))
	    (thread-last
		command
	      (shell-command-to-string)
	      (string-trim)
	      ((lambda (str) (split-string str "\n")))
	      (seq-map (lambda (c) (split-string c "|")))))))

  (helm :sources (helm-build-sync-source "Lens kubeconfigs"
		   :candidates helm-source-lens-kubeconfigs
		   :action #'(lambda (cand)
			       (kubel-set-kubectl-config-file
				(format "%s/%s"
					(expand-file-name kubeconfigs-dir)
					(car cand)))
			       (kubel-set-context)
			       (kubel-set-namespace)))))