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

fix(emacs/lean-company): import auto-completion for .hlean files

Browse source 
fix #434
This commit is contained in:
Soonho Kong 2015-02-13 12:19:25 -05:00
parent a791953705
commit 382bf860fd
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -10,6 +10,7 @@
(require 'dash-functional) (require 'dash-functional)
(require 'f) (require 'f)
(require 's) (require 's)
(require 'lean-util)
(require 'lean-tags) (require 'lean-tags)
(require 'lean-server) (require 'lean-server)
@ -53,8 +54,11 @@
(defun company-lean--import-candidates-main (root-dir) (defun company-lean--import-candidates-main (root-dir)
(when root-dir (when root-dir
(let* ((lean-files (f-files root-dir (let* ((target-ext (pcase (lean-choose-minor-mode-based-on-extension)
(lambda (file) (equal (f-ext file) "lean")) (`hott "hlean")
(`standard "lean")))
(lean-files (f-files root-dir
(lambda (file) (equal (f-ext file) target-ext))
t)) t))
;; Relative to project root-dir ;; Relative to project root-dir
(lean-files-r (--map (f-relative it root-dir) lean-files)) (lean-files-r (--map (f-relative it root-dir) lean-files))