max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore(emacs/lean-debug): toggle via lean-debug-mode and automatically open debug buffer

Browse source
This commit is contained in:
Sebastian Ullrich 2016-11-10 19:50:24 +01:00 • committed by Leonardo de Moura
parent 922d48524b
commit e5fb11a219
1 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/emacs/lean-debug.el
View file

@ -13,6 +13,8 @@
(when (or (called-interactively-p 'any) print-msg)
(message "lean: turn on debug mode"))
(get-buffer-create lean-debug-buffer-name)
(display-buffer lean-debug-buffer-name 'display-buffer-reuse-window
'((reusable-frames . t)))
(setq-local lean-debug-mode t)))
(defun lean-turn-off-debug-mode (&optional print-msg)
@ -22,12 +24,6 @@
(message "lean: turn off debug mode"))
(setq-local lean-debug-mode nil)))
(defun lean-toggle-debug-mode ()
(interactive)
(if lean-debug-mode
(lean-turn-off-debug-mode (called-interactively-p 'any))
(lean-turn-on-debug-mode (called-interactively-p 'any))))
(defun lean-output-to-buffer (buffer-name format-string args)
(with-current-buffer
(get-buffer-create buffer-name)
@ -56,6 +52,9 @@
:init-value nil
:lighter lean-debug-mode-line
:group 'lean
:require 'lean)
:require 'lean
(if lean-debug-mode
(lean-turn-on-debug-mode (called-interactively-p 'any))
(lean-turn-off-debug-mode (called-interactively-p 'any))))
(provide 'lean-debug)