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

feat(emacs/lean-type): add SET/EVAL commands

Browse source
This commit is contained in:
Soonho Kong 2014-08-25 13:32:23 -07:00
parent 679a034277
commit 292750c4c9
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/emacs/lean-type.el
View file

@ -43,6 +43,29 @@
(when info-string
(message "%s" info-string))))))
;; =======================================================
;; SET/EVAL
;; =======================================================
(defun lean-set-option (option-name option-value)
"Get info list from lean server using file-name and line-number"
(lean-server-send-cmd (lean-cmd-visit file-name))
(lean-server-send-cmd (lean-cmd-set line-number))
(while (not lean-global-server-message-to-process)
(accept-process-output (lean-server-get-process) 0 50 t))
(pcase lean-global-server-message-to-process
(`(INFO ,pre ,body)
(lean-server-log "The following pre-message will be thrown away:")
(lean-server-log "%s" pre)
(setq lean-global-server-message-to-process nil)
(lean-info-record-parse body file-name column-number))
(`(,type ,pre , body)
(lean-server-log "The following pre-message will be thrown away:")
(lean-server-log "%s" pre)
(lean-server-log "Something other than INFO detected: %S" type)
;; (lean-server-log "Body: %S" body)
(setq lean-global-server-message-to-process nil)))
)
;; =======================================================
;; Change Handling