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

fix(emacs): use cl-case, require cl-lib

Browse source
This commit is contained in:
Soonho Kong 2014-08-07 10:40:20 -07:00
parent 07e188acdb
commit 5ecc872278
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/emacs/lean-mode.el
View file

@ -4,6 +4,7 @@
;; Author: Leonardo de Moura ;; Author: Leonardo de Moura
;; Soonho Kong ;; Soonho Kong
;; ;;
(require 'cl-lib)
(require 'generic-x) (require 'generic-x)
(require 'compile) (require 'compile)
(require 'flymake) (require 'flymake)
@ -82,7 +83,7 @@
(abbrev-mode 1) (abbrev-mode 1)
(when (and lean-rule-column (when (and lean-rule-column
lean-show-rule-column-method) lean-show-rule-column-method)
(case lean-show-rule-column-method (cl-case lean-show-rule-column-method
('vline (setq fci-rule-column lean-rule-column) ('vline (setq fci-rule-column lean-rule-column)
(add-hook 'lean-mode-hook 'fci-mode)))) (add-hook 'lean-mode-hook 'fci-mode))))
(if lean-delete-trailing-whitespace (if lean-delete-trailing-whitespace

13
src/emacs/lean-settings.el
View file

@ -4,10 +4,12 @@
;; Author: Soonho Kong ;; Author: Soonho Kong
;; ;;
(require 'cl-lib)
(defgroup lean nil "Lean mode" :prefix 'lean :group 'languages) (defgroup lean nil "Lean mode" :prefix 'lean :group 'languages)
(defvar lean-default-executable-name (defvar lean-default-executable-name
(case system-type (cl-case system-type
('gnu "lean") ('gnu "lean")
('gnu/linux "lean") ('gnu/linux "lean")
('gnu/kfreebsd "lean") ('gnu/kfreebsd "lean")
@ -16,20 +18,17 @@
('windows-nt "lean.exe") ('windows-nt "lean.exe")
('cygwin "lean.exe") ;; TODO(soonhok): check this ('cygwin "lean.exe") ;; TODO(soonhok): check this
) )
"Default executable name of Lean" "Default executable name of Lean")
)
(defcustom lean-rootdir nil (defcustom lean-rootdir nil
"Full pathname of lean root directory. It should be defined by user." "Full pathname of lean root directory. It should be defined by user."
:group 'lean :group 'lean
:type 'string :type 'string)
)
(defcustom lean-executable-name lean-default-executable-name (defcustom lean-executable-name lean-default-executable-name
"Name of lean executable" "Name of lean executable"
:group 'lean :group 'lean
:type 'string :type 'string)
)
(defcustom lean-delete-trailing-whitespace nil (defcustom lean-delete-trailing-whitespace nil
"Set this variable to true to automatically delete trailing "Set this variable to true to automatically delete trailing