Skip to content

Keeping compilation buffer alive and implementing (mocha-run-last) #40

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
RockyRoad29 wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Keeping compilation buffer alive and implementing (mocha-run-last) #40

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
69de850
Keeping compilation buffer alive and implementing (mocha-run-last)
RockyRoad29 Nov 29, 2016
3f2b30f
renamed buffer variables to avoid conflicts
RockyRoad29 Nov 29, 2016
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
42 changes: 36 additions & 6 deletions mocha.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -147,17 +147,47 @@ IF TEST is specified run mocha with a grep for just that test."
If MOCHA-FILE is specified run just that file otherwise run
MOCHA-PROJECT-TEST-DIRECTORY.

IF TEST is specified run mocha with a grep for just that test."
IF TEST is specified run mocha with a grep for just that test.

Root directory (hence project), file and test are preserved
as local variables in *mocha tests* buffer, so don't kill it
if you want to use `mocha-run-last'.
"
(save-some-buffers (not compilation-ask-about-save)
(when (boundp 'compilation-save-buffers-predicate)
compilation-save-buffers-predicate))

(when (get-buffer "*mocha tests*")
(kill-buffer "*mocha tests*"))
(let ((test-command-to-run (mocha-generate-command nil mocha-file test)) (root-dir (mocha-find-project-root)))
(with-current-buffer (get-buffer-create "*mocha tests*")
(let (
(test-command-to-run (mocha-generate-command nil mocha-file test))
(root-dir (mocha-find-project-root))
;; reuse existing buffer to preserve layout and local variables
(buf (get-buffer-create "*mocha tests*"))
)
(with-current-buffer buf
;; unneeded: (toggle-read-only nil) (erase-buffer)
;; : compilation will clean buffer anyway
(setq default-directory root-dir)
(compilation-start test-command-to-run 'mocha-compilation-mode (lambda (m) (buffer-name))))))
(compilation-start test-command-to-run 'mocha-compilation-mode (lambda (m) (buffer-name)))

;; memorize last test, used in mocha-run-last
(set (make-local-variable 'mocha-last-file) mocha-file)
(set (make-local-variable 'mocha-last-test) test)
)))

(defun mocha-run-last ()
"Runs again mocha with same parameters as for last run.

Relies on the presence of *mocha tests* buffer to retrieve settings.
"
(interactive)
(let ((buf (get-buffer "*mocha tests*")))
(if buf
(with-current-buffer buf
(mocha-run mocha-last-file mocha-last-test)
)
(message "Mocha buffer not found. You first need to use other mocha test commands.")
)
))

(defun mocha-walk-up-to-it (node)
"Recursively walk up the ast from the js2-node NODE.
Expand Down