Open hongyi-zhao opened 2 years ago
I came up with the following solution:
(use-package company
:init
(defun hz-company-search-toggle ()
(interactive)
(if company-search-mode
(company-search-abort)
(company-search-candidates)))
:bind
(:map company-active-map
("<tab>" . hz-company-search-toggle)
("<f1>" . company-search-repeat-forward)
("<f2>" . company-search-repeat-backward)
("SPC" . company-complete-selection)
("<return>" . company-abort)
:map company-search-map
("<tab>" . hz-company-search-toggle)
("<f1>" . company-search-repeat-forward)
("<f2>" . company-search-repeat-backward)
("SPC" . company-complete-selection)
("<return>" . company-abort)
)
:config
(setq company-tooltip-limit 10)
(defun hz-company-complete-number ()
"Convert the company-quick-access-keys to the candidates' row NUMBER visible on the tooltip,
and then feed it to `company-complete-number' to quickly select and insert company candidates.
If the currently entered character is belongs to company-quick-access-keys and a part of the candidate simultaneously,
append it to the currently entered string to construct new company-prefix."
(interactive)
(let* ((k (this-command-keys))
(re (concat "^" company-prefix k)))
(if (cl-find-if (lambda (s) (string-match re s))
company-candidates)
(self-insert-command 1)
(company-complete-number
(cond
((equal k "1") 1)
((equal k "2") 2)
((equal k "3") 3)
((equal k "4") 4)
((equal k "5") 5)
((equal k "6") 6)
((equal k "7") 7)
((equal k "8") 8)
((equal k "9") 9)
((equal k "0") 10)
)
))))
(let ((c-a-map company-active-map)
(c-s-map company-search-map))
(mapc (lambda (x)
(define-key c-a-map (format "%s" x) #'hz-company-complete-number))
'(1 2 3 4 5 6 7 8 9 0))
(mapc (lambda (x)
(define-key c-s-map (format "%s" x) #'hz-company-complete-number))
'(1 2 3 4 5 6 7 8 9 0)))
)
See here for the relevant discussion.
The function
ora-company-number
enables to select and insert company 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 indexed/identified with a single digit or letter, e.g., 0-9, q, w, e, r, t, by setting:See the following screenshot for the effect. This way, 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