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

fix(emacs/lean-mode.el): check header and footer in lean-exec-at-pos-extract-body

Browse source 
close #747
This commit is contained in:
Soonho Kong 2015-07-28 11:13:31 -07:00
parent 08b23d8b4f
commit 72f0fc29fd
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -59,14 +59,20 @@
(defun lean-exec-at-pos-extract-body (str)
"Extract the body of LEAN_INFORMATION"
(let*
((begin-regex (rx line-start "LEAN_INFORMATION" (* not-newline) line-end))
(end-regex (rx line-start (group "END_LEAN_INFORMATION") line-end))
(pre-body-post
(lean-server-split-buffer str begin-regex end-regex))
(body (cadr pre-body-post))
(lines (s-lines body)))
(s-join "\n" (-butlast (-drop 1 lines)))))
(let ((header "LEAN_INFORMATION")
(footer "END_LEAN_INFORMATION"))
(cond
((and (s-contains? header str)
(s-contains? footer str))
(let*
((begin-regex (eval `(rx line-start ,header (* not-newline) line-end)))
(end-regex (eval `(rx line-start (group ,footer) line-end)))
(pre-body-post
(lean-server-split-buffer str begin-regex end-regex))
(body (cadr pre-body-post))
(lines (s-lines body)))
(s-join "\n" (-butlast (-drop 1 lines)))))
(t ""))))
(defun lean-exec-at-pos-sentinel (process event)
"Sentinel function used for lean-exec-at-pos. It does the two