From b772e972bd75ba47b78bc50a2cd8323b6a4b396c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 22 May 2016 01:13:09 -0400 Subject: [PATCH] No mode-line in *doom* only on startup --- core/core-scratch.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/core/core-scratch.el b/core/core-scratch.el index 34e727d60..addfd5bc0 100644 --- a/core/core-scratch.el +++ b/core/core-scratch.el @@ -12,13 +12,19 @@ "The name of the doom scratch buffer.") (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 (add-hook! 'kill-buffer-query-functions (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) (unless (buffer-live-p doom-buffer) (setq doom-buffer nil)) (let ((old-scratch (get-buffer "*scratch*")))