fix(emacs/lean-util): add hlean support in lean-path-list

close #450
2015-02-27 15:27:18 -05:00 · 2015-02-27 15:27:18 -05:00 · c9ffc2fec8
commit c9ffc2fec8
parent 7d827a14c9
1 changed files with 5 additions and 0 deletions
--- a/src/emacs/lean-util.el
+++ b/src/emacs/lean-util.el
@ -51,10 +51,15 @@
  (interactive)
  (let* ((lean-path-env-list
          (parse-colon-path (getenv "LEAN_PATH")))
+         (lean-mode-option
+          (pcase (lean-choose-minor-mode-based-on-extension)
+            (`standard "--lean")
+            (`hott     "--hlean")))
         (lean--path-list
          (parse-colon-path
           (ignore-errors
             (car (process-lines (lean-get-executable lean-executable-name)
+                                 lean-mode-option
                                 "--path")))))
         (project-dir (f--traverse-upwards (f-exists? (f-expand ".project" it))
                                           (f-dirname (buffer-file-name))))