balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Emacs: close types buffer when editing buffer closes

Browse Source
This commit is contained in:
Milo Davis 2017-10-25 11:27:49 +02:00 committed by Benjamin Canou
parent 6c992b58df
commit 5ce950e168
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
emacs/michelson-mode.el
View File

@ -420,7 +420,7 @@ Overrides `michelson-print-errors' and `michelson-highlight-errors'"
(get-buffer-window buffer) (get-buffer-window buffer)
(display-buffer-below-selected buffer nil)))) (display-buffer-below-selected buffer nil))))
(window-body-width message-window))) (window-body-width message-window)))
(defun michelson-write-output-buffer (data &optional do-not-overwrite) (defun michelson-write-output-buffer (data &optional do-not-overwrite)
"Write the given `DATA' to the output buffer. "Write the given `DATA' to the output buffer.
@ -827,6 +827,14 @@ Enables or disables stack and error display."
(michelson-type-at-point)))) (michelson-type-at-point))))
(current-buffer)))) (current-buffer))))
(defun michelson-close-output-buffer ()
"Close the interactive editing buffer."
(interactive)
(let ((buffer (get-buffer michelson-output-buffer-name)))
(when buffer
(let ((window (get-buffer-window buffer)))
(if window (quit-window t window) (kill-buffer buffer))))))
(define-derived-mode michelson-mode prog-mode "Michelson" (define-derived-mode michelson-mode prog-mode "Michelson"
"Major mode for editing Michelson smart contracts." "Major mode for editing Michelson smart contracts."
(interactive) (interactive)
@ -855,6 +863,7 @@ Enables or disables stack and error display."
(make-local-variable 'focus-in-hook) (make-local-variable 'focus-in-hook)
'michelson-update-minibuffer-info) 'michelson-update-minibuffer-info)
(add-hook 'post-self-insert-hook 'michelson-clean-cache) (add-hook 'post-self-insert-hook 'michelson-clean-cache)
(add-hook 'kill-buffer-hook 'michelson-close-output-buffer t t)
(setq major-mode 'michelson-mode) (setq major-mode 'michelson-mode)
(setq mode-name "Michelson") (setq mode-name "Michelson")
(setq indent-tabs-mode nil) (setq indent-tabs-mode nil)