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

Fancy new splash screen! (What am I doing with my life?)

Browse source
This commit is contained in:
Henrik Lissner 2016-10-06 14:15:37 +02:00
parent eac5bd7302
commit 917fa4c861
1 changed files with 88 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

126
core/core-scratch.el
View file

@ -14,7 +14,7 @@
"If non-nil, the scratch buffer has been edited.") "If non-nil, the scratch buffer has been edited.")
(define-derived-mode doom-mode fundamental-mode (define-derived-mode doom-mode fundamental-mode
(concat "DOOM v" doom-version) (concat "v" doom-version)
"Major mode for special DOOM buffers.") "Major mode for special DOOM buffers.")
;; Don't kill the scratch buffer ;; Don't kill the scratch buffer
@ -37,8 +37,10 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
(defun doom|mode-erase-on-insert () (defun doom|mode-erase-on-insert ()
"Erase the buffer and prepare it to be used like a normal buffer." "Erase the buffer and prepare it to be used like a normal buffer."
(erase-buffer) (erase-buffer)
(setq doom-buffer-edited t)
(set-window-margins (get-buffer-window doom-buffer) 0 0) (set-window-margins (get-buffer-window doom-buffer) 0 0)
(setq doom-buffer-edited t
mode-line-format (doom-modeline)
doom--scratch-width nil)
(remove-hook 'evil-insert-state-entry-hook 'doom|mode-erase-on-insert t)) (remove-hook 'evil-insert-state-entry-hook 'doom|mode-erase-on-insert t))
(defun doom-reload-scratch-buffer (&optional dir) (defun doom-reload-scratch-buffer (&optional dir)
@ -48,6 +50,8 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
(not (minibuffer-window-active-p (minibuffer-window)))) (not (minibuffer-window-active-p (minibuffer-window))))
(doom--reload-scratch-buffer dir))) (doom--reload-scratch-buffer dir)))
(defvar doom--scratch-width nil)
(defvar doom--scratch-height nil)
(defun doom--reload-scratch-buffer (&optional dir) (defun doom--reload-scratch-buffer (&optional dir)
;; Rename the old scratch buffer, if it exists. ;; Rename the old scratch buffer, if it exists.
(let ((old-scratch (get-buffer "*scratch*"))) (let ((old-scratch (get-buffer "*scratch*")))
@ -66,52 +70,98 @@ buffer. Without this, it would refuse to split, saying 'too small to split'."
(add-hook 'evil-insert-state-entry-hook 'doom|mode-erase-on-insert nil t) (add-hook 'evil-insert-state-entry-hook 'doom|mode-erase-on-insert nil t)
(add-hook 'after-change-major-mode-hook 'doom|mode-erase-on-insert nil t) (add-hook 'after-change-major-mode-hook 'doom|mode-erase-on-insert nil t)
(setq doom-buffer-edited nil) (setq doom-buffer-edited nil)
(let ((width 78) height) (let ((width 78)
updates-p height)
(mapc (lambda (window) (mapc (lambda (window)
(set-window-margins window 0 0) (set-window-margins window 0 0)
(let ((pad (max 0 (- (truncate (/ (window-width window) 2)) (truncate (/ width 2)))))) (let ((pad (max 0 (- (truncate (/ (window-width window) 2)) (truncate (/ width 2))))))
(set-window-margins window pad pad) (set-window-margins window pad pad)
(setq height (max 0 (setq height (max 0
(min (or height 9999) (min (or height 9999)
(- (truncate (/ (window-height window) 2)) 13)))))) (- (truncate (/ (window-height window) 2)) 14))))))
(get-buffer-window-list doom-buffer nil t)) (get-buffer-window-list doom-buffer nil t))
(erase-buffer) (when (or (not doom--scratch-width)
(insert (propertize (not doom--scratch-height)
(concat (/= doom--scratch-width width)
(make-string (if height (max 0 height) 0) ?\n) (/= doom--scratch-height height)
"================= =============== =============== ======== ========\n" t)
"\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //\n" (erase-buffer)
"||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||\n" (insert (propertize
"|| . .|| ||. . || || . .|| ||. . || || . .|| ||. . || ||. . . . . . . ||\n" (concat
"||. . || || . .|| ||. . || || . .|| ||. . || || . .|| || . | . . . . .||\n" (make-string (if height (max 0 height) 0) ?\n)
"|| . .|| ||. _-|| ||-_ .|| ||. . || || . .|| ||. _-|| ||-_.|\\ . . . . ||\n" "================= =============== =============== ======== ========\n"
"||. . || ||-' || || `-|| || . .|| ||. . || ||-' || || `|\\_ . .|. .||\n" "\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //\n"
"|| . _|| || || || || ||_ . || || . _|| || || || |\\ `-_/| . ||\n" "||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||\n"
"||_-' || .|/ || || \\|. || `-_|| ||_-' || .|/ || || | \\ / |-_.||\n" "|| . .|| ||. . || || . .|| ||. . || || . .|| ||. . || ||. . . . . . . ||\n"
"|| ||_-' || || `-_|| || || ||_-' || || | \\ / | `||\n" "||. . || || . .|| ||. . || || . .|| ||. . || || . .|| || . | . . . . .||\n"
"|| `' || || `' || || `' || || | \\ / | ||\n" "|| . .|| ||. _-|| ||-_ .|| ||. . || || . .|| ||. _-|| ||-_.|\\ . . . . ||\n"
"|| .===' `===. .==='.`===. .===' /==. | \\/ | ||\n" "||. . || ||-' || || `-|| || . .|| ||. . || ||-' || || `|\\_ . .|. .||\n"
"|| .==' \\_|-_ `===. .===' _|_ `===. .===' _-|/ `== \\/ | ||\n" "|| . _|| || || || || ||_ . || || . _|| || || || |\\ `-_/| . ||\n"
"|| .==' _-' `-_ `=' _-' `-_ `=' _-' `-_ /| \\/ | ||\n" "||_-' || .|/ || || \\|. || `-_|| ||_-' || .|/ || || | \\ / |-_.||\n"
"|| .==' _-' '-__\\._-' '-_./__-' `' |. /| | ||\n" "|| ||_-' || || `-_|| || || ||_-' || || | \\ / | `||\n"
"||.==' _-' `' | /==.||\n" "|| `' || || `' || || `' || || | \\ / | ||\n"
"==' _-' E M A C S \\/ `==\n" "|| .===' `===. .==='.`===. .===' /==. | \\/ | ||\n"
"\\ _-' `-_ /\n" "|| .==' \\_|-_ `===. .===' _|_ `===. .===' _-|/ `== \\/ | ||\n"
" `'' ``'") "|| .==' _-' `-_ `=' _-' `-_ `=' _-' `-_ /| \\/ | ||\n"
'face 'font-lock-comment-face) "|| .==' _-' '-__\\._-' '-_./__-' `' |. /| | ||\n"
"\n\n" "||.==' _-' `' | /==.||\n"
(propertize "==' _-' E M A C S \\/ `==\n"
(s-center 78 "Press `,m` to open recent files, or `,E` to access emacs.d") "\\ _-' `-_ /\n"
'face 'font-lock-keyword-face) " `'' ``'")
"\n\n" 'face 'font-lock-comment-face)
(s-center 78 (format "Loaded in %s" (emacs-init-time)))) "\n\n"
(back-to-indentation)) (s-center 73 (doom--scratch-menu))
;; "\n\n\n"
(propertize (concat (s-center 78 "~ ~")
"\n"
(s-center 78 (format "Loaded in %s" (emacs-init-time))))
'face 'font-lock-comment-face))
(setq doom--scratch-width width
doom--scratch-height height)))
(goto-char 1521)
(when dir (setq default-directory dir)) (when dir (setq default-directory dir))
;;
(setq mode-line-format (doom-modeline 'scratch)) (setq mode-line-format (doom-modeline 'scratch))
;; Readjust the scratch buffer if it is visible, when the window config changes. ;; Readjust the scratch buffer if it is visible, when the frame changes.
(add-hook 'window-configuration-change-hook 'doom-reload-scratch-buffer))) (add-hook 'window-configuration-change-hook 'doom-reload-scratch-buffer)))
(defun doom--scratch-menu ()
(let ((all-the-icons-scale-factor 1.5)
(all-the-icons-default-adjust -0.05)
(start (point)) end)
(with-temp-buffer
(insert-text-button
(concat (all-the-icons-octicon
"mark-github"
:face 'font-lock-keyword-face)
(propertize " Homepage" 'face 'font-lock-keyword-face))
'action '(lambda (_) (browse-url "https://github.com/hlissner/.emacs.d")))
(insert " ")
(insert-text-button
(concat (all-the-icons-octicon
"file-text"
:face 'font-lock-keyword-face)
(propertize " Recent files" 'face 'font-lock-keyword-face))
'action '(lambda (_) (call-interactively 'counsel-recentf)))
(insert " ")
(insert-text-button
(concat (all-the-icons-octicon
"list-ordered"
:face 'font-lock-keyword-face)
(propertize " Changelog" 'face 'font-lock-keyword-face))
'action '(lambda (_) (find-file (f-expand "CHANGELOG.org" doom-emacs-dir))))
(insert " ")
(insert (all-the-icons-octicon "clock")
" Uptime: "
(emacs-uptime "%yy %dd %hh %mm %z%ss"))
(setq end (point))
(buffer-string))))
(provide 'core-scratch) (provide 'core-scratch)
;;; core-scratch.el ends here ;;; core-scratch.el ends here