lean2/src/emacs/lean-settings.el

68 lines
1.8 KiB
EmacsLisp
Raw Normal View History

;; Copyright (c) 2014 Microsoft Corporation. All rights reserved.
;; Released under Apache 2.0 license as described in the file LICENSE.
;;
;; Author: Soonho Kong
;;
(require 'cl-lib)
(defgroup lean nil "Lean mode" :prefix 'lean :group 'languages)
(defvar lean-default-executable-name
(cl-case system-type
('gnu "lean")
('gnu/linux "lean")
('gnu/kfreebsd "lean")
('darwin "lean")
('ms-dos "lean")
('windows-nt "lean.exe")
('cygwin "lean.exe") ;; TODO(soonhok): check this
)
"Default executable name of Lean")
(defcustom lean-rootdir nil
"Full pathname of lean root directory. It should be defined by user."
:group 'lean
:type 'string)
(defcustom lean-executable-name lean-default-executable-name
"Name of lean executable"
:group 'lean
:type 'string)
(defcustom lean-use-flycheck t
"Use flycheck for lean."
:group 'lean
:type 'boolean)
(defcustom lean-delete-trailing-whitespace nil
"Set this variable to true to automatically delete trailing
whitespace when a buffer is loaded from a file or when it is
written."
:group 'lean
:type 'boolean)
(defcustom lean-rule-column 100
"Specify rule-column."
:group 'lean
:type '(choice (integer :tag "Columns")
(const :tag "Unlimited" nil))
:type 'int)
(defcustom lean-rule-color "#cccccc"
"Color used to draw the fill-column rule"
:group 'fill-column-indicator
:tag "Fill-column rule color"
:type 'color)
(defcustom lean-show-rule-column-method nil
"If enabled, it highlights column"
:group 'lean
:type '(choice (const :tag "Disabled" nil)
(const :tag "Vertical Line" vline)
;;(const :tag "Whole Lines" lines)
;;(const :tag "Only Beyond lean-rule-column" lines-tail)
))
(provide 'lean-settings)