TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: tweak dotfile test results buffer modes 

Make it read-only in view mode with indent mode one.
Disable flyspell if necessary.
This commit is contained in:
syl20bnr 2015-08-31 22:13:56 -04:00
parent 40c01e67b7
commit 04b2a3a459
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
core/core-dotspacemacs.el
View File

@ -413,15 +413,20 @@ If MSG is not nil then display a message in `*Messages'."
(with-current-buffer (get-buffer-create dotspacemacs-test-results-buffer)
(unless hide-buffer
(switch-to-buffer-other-window dotspacemacs-test-results-buffer))
(erase-buffer)
(org-mode)
(insert (format "* Running tests on [[file:%s][%s]] (v%s)\n"
dotspacemacs-filepath dotspacemacs-filepath "0.0"))
;; dotspacemacs-version not implemented yet
;; (insert (format "* Running tests on %s (v%s)\n" dotspacemacs-filepath dotspacemacs-version))
(prog1
(and (dotspacemacs//test-dotspacemacs/layers)
(dotspacemacs//test-dotspacemacs/init))
(goto-char (point-min)))))))
(org-indent-mode)
(view-mode)
(when (bound-and-true-p flyspell-mode)
(flyspell-mode -1))
(let (buffer-read-only)
(erase-buffer)
(insert (format "* Running tests on [[file:%s][%s]] (v%s)\n"
dotspacemacs-filepath dotspacemacs-filepath "0.0"))
;; dotspacemacs-version not implemented yet
;; (insert (format "* Running tests on %s (v%s)\n" dotspacemacs-filepath dotspacemacs-version))
(prog1
(and (dotspacemacs//test-dotspacemacs/layers)
(dotspacemacs//test-dotspacemacs/init))
(goto-char (point-min))))))))
(provide 'core-dotspacemacs)