michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(emacs/lean-company): add company-lean--need-autocomplete

Browse source 
This one partially addresses #150.
This commit is contained in:
Soonho Kong 2014-09-07 17:29:51 -07:00
parent 3310eb3dfc
commit ba35ca5300
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/emacs/lean-company.el
View file

@ -19,13 +19,23 @@
(setq-local company-begin-commands '(self-insert-command)) ; start autocompletion only after typing
(company-mode t))
(defun company-lean--need-autocomplete ()
(not (looking-back
(rx (or "theorem" "definition" "lemma" "axiom" "parameter"
"abbreviation" "variable" "hypothesis" "conjecture"
"corollary")
(+ white)
(* (not white))))))
(defun company-lean--prefix ()
"Returns the symbol to complete. Also, if point is on a dot,
triggers a completion immediately."
(let ((prefix (company-grab-symbol)))
(when (or
(> (length prefix) 3)
(string-match "[_.]" prefix))
(when (and
(company-lean--need-autocomplete)
(or
(> (length prefix) 3)
(string-match "[_.]" prefix)))
prefix)))
(defun company-lean--make-candidate (arg)