72e1dfa296
The key idea is to pass a continuation function when we call lean-server-send-cmd function. The passed continuation function is called by lean-server-event-handler. Until the buffer is ready, the event handler will be called in interval (lean-server-retry-time, 0.1 sec by default). When we have 'NAY' for INFO command, it will re-send INFO commands to lean-server until we have one without 'NAY'. Close #123
92 lines
2.4 KiB
EmacsLisp
92 lines
2.4 KiB
EmacsLisp
;; 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-local 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-flycheck-use t
|
|
"Use flycheck for lean."
|
|
:group 'lean
|
|
:type 'boolean)
|
|
|
|
(defcustom lean-company-use t
|
|
"Use company mode for lean."
|
|
:group 'lean
|
|
:type 'boolean)
|
|
|
|
(defcustom lean-eldoc-use t
|
|
"Use eldoc mode for lean."
|
|
:group 'lean
|
|
:type 'boolean)
|
|
|
|
(defcustom lean-eldoc-nay-retry-time 0.3
|
|
"When eldoc-function had nay, try again after this amount of time.")
|
|
|
|
(defcustom lean-server-retry-time 0.1
|
|
"Retry interval for event-handler")
|
|
|
|
(defcustom lean-flycheck-checker-name "linja"
|
|
"lean-flychecker checker name"
|
|
:group 'lean
|
|
:type 'string)
|
|
|
|
(defcustom lean-flycheck-checker-options '("--flycheck")
|
|
"lean-flychecker checker option"
|
|
:group 'lean)
|
|
|
|
(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)
|