gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

doom-buffer: restore modeline + center DOOM

Browse Source
This commit is contained in:
Henrik Lissner 2016-06-06 19:33:39 -04:00
parent b5c15f31db
commit 960001a84a
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/core-scratch.el
View File

@ -16,7 +16,7 @@
(def-popup! "*doom*" :align below :size 35 :select t)
(def-popup! "^\\*doom.+\\*$" :regexp t :align below :size 12 :noselect t)
(define-derived-mode doom-mode text-mode "DOOM"
(define-derived-mode doom-mode fundamental-mode "DOOM"
"Major mode for special DOOM buffers.")
;; Don't kill the scratch buffer
@ -26,12 +26,7 @@
(after! uniquify
(push (regexp-quote doom-buffer-name) uniquify-ignore-buffers-re))
(add-hook! emacs-startup 'doom-mode-startup)
(defun doom-mode-startup ()
(doom-mode-init)
(with-current-buffer doom-buffer
(setq mode-line-format nil)))
(add-hook! emacs-startup 'doom-mode-init)
(defun doom-mode-erase-on-insert ()
(erase-buffer)
@ -65,7 +60,7 @@
(concat
(propertize
(concat
(make-string (min 5 (truncate (/ height 5))) ?\n)
(make-string (max 5 (- (truncate (/ height 2)) 12)) ?\n)
lead "================= =============== =============== ======== ========\n"
lead "\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //\n"
lead "||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||\n"