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

feat(emacs/lean-server): add debug print

Browse source
This commit is contained in:
Soonho Kong 2014-09-04 15:42:10 -07:00
parent 2fa8c1c709
commit 677f4af801
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -16,6 +16,7 @@
(defvar-local lean-server-process-name "lean-server")
(defvar-local lean-server-buffer-name "*lean-server*")
(defvar-local lean-server-trace-buffer-name "*lean-server-trace*")
(defvar-local lean-server-debug-buffer-name "*lean-server-debug*")
(defvar-local lean-server-option "--server")
;; Log Function
@ -39,6 +40,14 @@
(setq lean-global-server-last-time-sent (float-time))
(insert (apply 'format format-string args))))
(defun lean-server-debug (format-string &rest args)
"Display a message at the bottom of the *lean-server-debug* buffer."
(with-current-buffer
(get-buffer-create lean-server-debug-buffer-name)
(goto-char (point-max))
(insert (format-time-string "%H:%M:%S:%3N -- " (current-time)))
(insert (apply 'format (concat format-string "\n") args))))
;; How to read data from an async process
;; ======================================
(defconst lean-server-syntax-pattern