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

feat(emacs): allow user to provide extra commands to lean-server

Browse source
This commit is contained in:
Leonardo de Moura 2015-01-15 16:48:24 -08:00
parent 84715c12eb
commit 30817aa2b1
2 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/emacs/lean-server.el
View file

@ -134,10 +134,12 @@
"Create lean-server process." "Create lean-server process."
(let ((process-connection-type nil) (let ((process-connection-type nil)
(lean-server-process (lean-server-process
(start-process lean-server-process-name (apply 'start-process
lean-server-buffer-name (append (list lean-server-process-name
(lean-get-executable lean-executable-name) lean-server-buffer-name
lean-server-option))) (lean-get-executable lean-executable-name)
lean-server-option)
lean-server-options))))
(set-process-coding-system lean-server-process 'utf-8 'utf-8) (set-process-coding-system lean-server-process 'utf-8 'utf-8)
(set-process-filter lean-server-process 'lean-server-output-filter) (set-process-filter lean-server-process 'lean-server-output-filter)
(set-process-sentinel lean-server-process 'lean-server-handle-signal) (set-process-sentinel lean-server-process 'lean-server-handle-signal)

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

@ -54,6 +54,12 @@ show both of expressions and types.")
(defcustom lean-server-retry-time 0.1 (defcustom lean-server-retry-time 0.1
"Retry interval for event-handler") "Retry interval for event-handler")
(defcustom lean-server-options nil
"Additional command line options for the Lean background
process used to perform tasks such as type information and
perform auto-completion"
:group 'lean)
(defcustom lean-flycheck-use t (defcustom lean-flycheck-use t
"Use flycheck for lean." "Use flycheck for lean."
:group 'lean :group 'lean