chore(emacs): remove Lua support
This commit is contained in:
parent
66ec690061
commit
9fa30e3f7d
6 changed files with 3 additions and 50 deletions
|
@ -11,6 +11,4 @@
|
||||||
(depends-on "flycheck")
|
(depends-on "flycheck")
|
||||||
(depends-on "flymake")
|
(depends-on "flymake")
|
||||||
(depends-on "fill-column-indicator")
|
(depends-on "fill-column-indicator")
|
||||||
(depends-on "lua-mode")
|
|
||||||
(depends-on "mmm-mode")
|
|
||||||
(depends-on "s"))
|
(depends-on "s"))
|
||||||
|
|
|
@ -25,8 +25,6 @@ to use full features of ``lean-mode``.
|
||||||
- [company][company]
|
- [company][company]
|
||||||
- [flycheck][flycheck]
|
- [flycheck][flycheck]
|
||||||
- [fill-column-indicator][fci]
|
- [fill-column-indicator][fci]
|
||||||
- [lua-mode][lua-mode]
|
|
||||||
- [mmm-mode][mmm-mode]
|
|
||||||
|
|
||||||
Both the optional and required packages will be installed for you
|
Both the optional and required packages will be installed for you
|
||||||
automatically the first time you use ``lean-mode``, if you follow the
|
automatically the first time you use ``lean-mode``, if you follow the
|
||||||
|
@ -35,8 +33,6 @@ installation instructions below.
|
||||||
[company]: http://company-mode.github.io/
|
[company]: http://company-mode.github.io/
|
||||||
[flycheck]: http://www.flycheck.org/manual/latest/index.html
|
[flycheck]: http://www.flycheck.org/manual/latest/index.html
|
||||||
[fci]: https://github.com/alpaker/Fill-Column-Indicator
|
[fci]: https://github.com/alpaker/Fill-Column-Indicator
|
||||||
[lua-mode]: http://immerrr.github.io/lua-mode/
|
|
||||||
[mmm-mode]: https://github.com/purcell/mmm-mode
|
|
||||||
|
|
||||||
|
|
||||||
Installation
|
Installation
|
||||||
|
@ -75,7 +71,7 @@ Put the following code in your Emacs init file:
|
||||||
;; Install required/optional packages for lean-mode
|
;; Install required/optional packages for lean-mode
|
||||||
(defvar lean-mode-required-packages
|
(defvar lean-mode-required-packages
|
||||||
'(company dash dash-functional flycheck f
|
'(company dash dash-functional flycheck f
|
||||||
fill-column-indicator s lua-mode mmm-mode))
|
fill-column-indicator s))
|
||||||
(let ((need-to-refresh t))
|
(let ((need-to-refresh t))
|
||||||
(dolist (p lean-mode-required-packages)
|
(dolist (p lean-mode-required-packages)
|
||||||
(when (not (package-installed-p p))
|
(when (not (package-installed-p p))
|
||||||
|
@ -216,16 +212,6 @@ You may also need to install [emacs-unicode-fonts](https://github.com/rolandwalk
|
||||||
(unicode-fonts-setup)
|
(unicode-fonts-setup)
|
||||||
```
|
```
|
||||||
|
|
||||||
"Variable binding depth exceeds max-specpdl-size" Error
|
|
||||||
---------------------------------------------------------
|
|
||||||
|
|
||||||
See [Issue 906](https://github.com/leanprover/lean/issues/906) for details.
|
|
||||||
[Moritz Kiefer](https://github.com/cocreature) reported that `proofgeneral`
|
|
||||||
comes with an old version of `mmm-mode` (0.4.8, released in 2004) on ArchLinux
|
|
||||||
and it caused this problem. Either removing `proofgeneral` or upgrading
|
|
||||||
`mmm-mode` to the latest version (0.5.1 as of 2015 Dec) resolves this issue.
|
|
||||||
|
|
||||||
|
|
||||||
Contributions
|
Contributions
|
||||||
=============
|
=============
|
||||||
|
|
||||||
|
|
|
@ -1,27 +0,0 @@
|
||||||
;; Copyright (c) 2013, 2014 Microsoft Corporation. All rights reserved.
|
|
||||||
;; Released under Apache 2.0 license as described in the file LICENSE.
|
|
||||||
;;
|
|
||||||
;; Author: Soonho Kong
|
|
||||||
;;
|
|
||||||
|
|
||||||
(require 'mmm-mode)
|
|
||||||
(require 'mmm-auto)
|
|
||||||
(require 'lua-mode)
|
|
||||||
(setq mmm-global-mode 'maybe)
|
|
||||||
(setq mmm-submode-decoration-level 0)
|
|
||||||
(eval-after-load 'mmm-vars
|
|
||||||
'(progn
|
|
||||||
(mmm-add-group
|
|
||||||
'lean-lua
|
|
||||||
'((lua-inline
|
|
||||||
:submode lua-mode
|
|
||||||
:face mmm-code-submode-face
|
|
||||||
:insert ((?l lean-tag nil @ "(*\n" @ " " _ "" @ "\n*)" @))
|
|
||||||
:front "[(][*]"
|
|
||||||
:back "[*][)]")))
|
|
||||||
(mmm-add-mode-ext-class 'lean-mode "\\.lean" 'lean-lua)))
|
|
||||||
(defun lean-mmm-lua-hook ()
|
|
||||||
(setq-local mmm-parse-when-idle t)
|
|
||||||
(setq-local mmm-idle-timer-delay 0.5))
|
|
||||||
|
|
||||||
(provide 'lean-mmm-lua)
|
|
|
@ -25,7 +25,6 @@
|
||||||
(require 'lean-tags)
|
(require 'lean-tags)
|
||||||
(require 'lean-option)
|
(require 'lean-option)
|
||||||
(require 'lean-syntax)
|
(require 'lean-syntax)
|
||||||
(require 'lean-mmm-lua)
|
|
||||||
(require 'lean-company)
|
(require 'lean-company)
|
||||||
(require 'lean-changes)
|
(require 'lean-changes)
|
||||||
(require 'lean-server)
|
(require 'lean-server)
|
||||||
|
@ -313,7 +312,6 @@ enabled and disabled respectively.")
|
||||||
;; Flycheck
|
;; Flycheck
|
||||||
(when lean-flycheck-use
|
(when lean-flycheck-use
|
||||||
(lean-flycheck-turn-on)
|
(lean-flycheck-turn-on)
|
||||||
(setq-local flycheck-disabled-checkers '(lua))
|
|
||||||
(add-hook 'flycheck-after-syntax-check-hook 'lean-flycheck-delete-temporaries nil t))
|
(add-hook 'flycheck-after-syntax-check-hook 'lean-flycheck-delete-temporaries nil t))
|
||||||
;; Draw a vertical line for rule-column
|
;; Draw a vertical line for rule-column
|
||||||
(when (and lean-rule-column
|
(when (and lean-rule-column
|
||||||
|
@ -331,8 +329,6 @@ enabled and disabled respectively.")
|
||||||
;; company-mode
|
;; company-mode
|
||||||
(when lean-company-use
|
(when lean-company-use
|
||||||
(company-lean-hook))
|
(company-lean-hook))
|
||||||
;; mmm-lua-mode
|
|
||||||
(lean-mmm-lua-hook)
|
|
||||||
;; choose minor mode -- Standard / HoTT
|
;; choose minor mode -- Standard / HoTT
|
||||||
(let ((minor-mode (lean-choose-minor-mode-based-on-extension)))
|
(let ((minor-mode (lean-choose-minor-mode-based-on-extension)))
|
||||||
(cond
|
(cond
|
||||||
|
|
|
@ -24,7 +24,7 @@
|
||||||
(lean-mode-check-package 'package)
|
(lean-mode-check-package 'package)
|
||||||
(lean-mode-check-package 'dash)
|
(lean-mode-check-package 'dash)
|
||||||
(let ((required-packages '(cl-lib compile dash dash-functional f flymake s))
|
(let ((required-packages '(cl-lib compile dash dash-functional f flymake s))
|
||||||
(optional-packages '(flycheck fill-column-indicator lua-mode mmm-mode)))
|
(optional-packages '(flycheck fill-column-indicator)))
|
||||||
(-each required-packages 'lean-mode-require-package)
|
(-each required-packages 'lean-mode-require-package)
|
||||||
(-each optional-packages 'lean-mode-check-package)))
|
(-each optional-packages 'lean-mode-check-package)))
|
||||||
|
|
||||||
|
|
|
@ -14,7 +14,7 @@
|
||||||
(condition-case nil
|
(condition-case nil
|
||||||
(create-image (format "%s/lean.pgm" lean-emacs-path))
|
(create-image (format "%s/lean.pgm" lean-emacs-path))
|
||||||
(error nil)))
|
(error nil)))
|
||||||
(setq lean-required-packages '(company dash dash-functional f fill-column-indicator flycheck let-alist lua-mode mmm-mode s seq))
|
(setq lean-required-packages '(company dash dash-functional f fill-column-indicator flycheck let-alist s seq))
|
||||||
|
|
||||||
(setq load-path
|
(setq load-path
|
||||||
(append
|
(append
|
||||||
|
|
Loading…
Reference in a new issue