From 9dcc880950e34bf2bed6ed4144a180631f63da9a Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 1 Aug 2024 22:13:16 +0200 Subject: [PATCH] ; * kubed.el (kubed-list-read-filter): Also complete operators. --- kubed.el | 39 ++++++++++++++++++++++----------------- 1 file changed, 22 insertions(+), 17 deletions(-) diff --git a/kubed.el b/kubed.el index 2073526..562d1f3 100644 --- a/kubed.el +++ b/kubed.el @@ -246,23 +246,28 @@ of the error, push a mark before moving point." (with-temp-buffer (set-syntax-table emacs-lisp-mode-syntax-table) (insert "(" cont) - (when-let ((f-a (elisp--fnsym-in-current-sexp)) - ((car f-a)) - (a (cadr f-a))) - (cond - ((= a 1) - ;; Complete column names. - (list (car bounds) (cdr bounds) cols)) - ((= a 2) - ;; Complete column values. - (when-let ((beg (nth 1 (syntax-ppss))) - (col (save-excursion - (goto-char beg) - (forward-char 1) - (forward-sexp 2) - (thing-at-point 'symbol)))) - (list (car bounds) (cdr bounds) - (alist-get col vals nil nil #'string=))))))))) + (when-let ((fn-argi (elisp--fnsym-in-current-sexp)) + (argi (cadr fn-argi))) + (if (= argi 0) + ;; Complete operators. + (list (car bounds) (cdr bounds) '("=" "~")) + (when (car fn-argi) + (cond + ((= argi 1) + ;; Complete column names. + (list (car bounds) (cdr bounds) cols)) + ((= argi 2) + ;; Complete column values. + (when-let ((beg (nth 1 (syntax-ppss))) + ;; Grab preceding symbol. + (col (save-excursion + (goto-char beg) + (forward-char 1) + (forward-sexp 2) + (thing-at-point 'symbol)))) + (list (car bounds) (cdr bounds) + (alist-get col vals + nil nil #'string=))))))))))) nil t)) (read-from-minibuffer (format-prompt prompt "disable") -- 2.39.5