[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Using digits and letters to select company-mode candidates.

From: Hongyi Zhao
Subject: Using digits and letters to select company-mode candidates.
Date: Wed, 29 Sep 2021 08:57:24 +0800

The following code snippet comes here: [1]

(defun ora-company-number ()
"Forward to `company-complete-number'.

Unless the number is potentially part of the candidate.
In that case, insert the number."
(let* ((k (this-command-keys))
(re (concat "^" company-prefix k)))
(if (or (cl-find-if (lambda (s) (string-match re s))
(> (string-to-number k)
(length company-candidates))
(looking-back "[0-9]+\\.[0-9]*" (line-beginning-position)))
(self-insert-command 1)
(if (equal k "0")
(string-to-number k))))))

(defun ora--company-good-prefix-p (orig-fn prefix)
(unless (and (stringp prefix) (string-match-p "\\`[0-9]+\\'" prefix))
(funcall orig-fn prefix)))
(ora-advice-add 'company--good-prefix-p :around #'ora--company-good-prefix-p)

(let ((map company-active-map))
(mapc (lambda (x) (define-key map (format "%d" x) 'ora-company-number))
(number-sequence 0 9))
(define-key map " " (lambda ()
(self-insert-command 1)))
(define-key map (kbd "<return>") nil))

The above code enables to select and insert company-mode candidates
using digits without modifier. But it can only support 10 candidates,
numbered 0-9. I want to extend this feature to support more candidates
bumbered with a single digit or letter, e.g., 0-9, q, w, e, r, t, y,
so that I can select and insert more candidates conveniently. How can
the above code be improved to achieve this goal? Any hints will be
greatly appreciated.


Regards, HZ

reply via email to

[Prev in Thread] Current Thread [Next in Thread]