From: Eshel Yaron <me@eshelyaron.com>
Date: Thu, 1 Aug 2024 20:13:16 +0000 (+0200)
Subject: ; * kubed.el (kubed-list-read-filter): Also complete operators.
X-Git-Tag: v0.2.0~9
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dcc880950e34bf2bed6ed4144a180631f63da9a;p=kubed.git

; * kubed.el (kubed-list-read-filter): Also complete operators.
---

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")