emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

No mode-line in *doom* only on startup

Browse source
This commit is contained in:
Henrik Lissner 2016-05-22 01:13:09 -04:00
parent 42e6b0913d
commit b772e972bd
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/core-scratch.el
View file

@ -12,13 +12,19 @@
"The name of the doom scratch buffer.") "The name of the doom scratch buffer.")
(define-derived-mode doom-mode text-mode "DOOM" (define-derived-mode doom-mode text-mode "DOOM"
"Major mode for special DOOM buffers.") "Major mode for special DOOM buffers."
:group 'doom)
;; Don't kill the scratch buffer ;; Don't kill the scratch buffer
(add-hook! 'kill-buffer-query-functions (add-hook! 'kill-buffer-query-functions
(not (string= doom-buffer-name (buffer-name)))) (not (string= doom-buffer-name (buffer-name))))
(add-hook! emacs-startup 'doom-mode-init) (add-hook! emacs-startup 'doom-mode-startup)
(defun doom-mode-startup ()
(doom-mode-init)
(setq mode-line-format nil))
(defun doom-mode-init (&optional auto-detect-frame) (defun doom-mode-init (&optional auto-detect-frame)
(unless (buffer-live-p doom-buffer) (setq doom-buffer nil)) (unless (buffer-live-p doom-buffer) (setq doom-buffer nil))
(let ((old-scratch (get-buffer "*scratch*"))) (let ((old-scratch (get-buffer "*scratch*")))