208 lines
8.7 KiB
EmacsLisp
208 lines
8.7 KiB
EmacsLisp
|
|
(defvar +doom-dashboard-name " *doom*"
|
|
"TODO")
|
|
|
|
(defvar +doom-dashboard-modeline nil
|
|
"TODO")
|
|
|
|
(defvar +doom-dashboard-edited-p nil
|
|
"If non-nil, the scratch buffer has been edited.")
|
|
|
|
(defvar +doom-dashboard-inhibit-refresh nil
|
|
"If non-nil, the doom buffer won't be refreshed.")
|
|
|
|
(defvar +doom-dashboard-widgets '(banner shortmenu loaded)
|
|
"List of widgets to display in a blank scratch buffer.")
|
|
|
|
(defvar +doom-dashboard--old-fringe-indicator fringe-indicator-alist
|
|
"")
|
|
|
|
(defvar +doom-dashboard--width 0)
|
|
(defvar +doom-dashboard--height 0)
|
|
|
|
(define-derived-mode +doom-dashboard-mode fundamental-mode
|
|
(concat "v" doom-version)
|
|
"Major mode for the DOOM dashboard buffer.")
|
|
|
|
|
|
(@def-package all-the-icons :when (display-graphic-p))
|
|
|
|
(unless (display-graphic-p)
|
|
(defalias 'all-the-icons-octicon 'ignore)
|
|
(defalias 'all-the-icons-faicon 'ignore)
|
|
(defalias 'all-the-icons-fileicon 'ignore)
|
|
(defalias 'all-the-icons-wicon 'ignore)
|
|
(defalias 'all-the-icons-alltheicon 'ignore))
|
|
|
|
|
|
;;
|
|
(setq initial-major-mode '+doom-dashboard-mode
|
|
initial-scratch-message "\n Loading..."
|
|
doom-fallback-buffer +doom-dashboard-name)
|
|
|
|
(add-hook 'emacs-startup-hook '+doom-dashboard/open)
|
|
(@add-hook 'kill-buffer-query-functions
|
|
(if (not (+doom-dashboard-p))
|
|
t
|
|
(ignore-errors (+doom-dashboard-force-reload))
|
|
(bury-buffer)
|
|
nil))
|
|
(@add-hook 'window-setup-hook
|
|
(add-hook 'window-configuration-change-hook '+doom-dashboard-reload)
|
|
(+doom-dashboard-reload))
|
|
|
|
;; Compatibility with `midnight-mode' and `clean-buffer-list'
|
|
(@after midnight-mode
|
|
(push +doom-dashboard-name clean-buffer-list-kill-never-buffer-names)
|
|
(push "^\\s-*\\*doom.+" clean-buffer-list-kill-never-regexps))
|
|
|
|
|
|
;;
|
|
(defun +doom-dashboard/open ()
|
|
""
|
|
(interactive)
|
|
(+doom-dashboard-reload)
|
|
(switch-to-buffer (doom-fallback-buffer)))
|
|
|
|
(defun +doom-dashboard-p (&optional buffer)
|
|
(let ((buffer (or buffer (current-buffer))))
|
|
(and (buffer-live-p buffer)
|
|
(eq buffer (doom-fallback-buffer)))))
|
|
|
|
(defun +doom-dashboard-force-reload ()
|
|
(setq +doom-dashboard-edited-p nil)
|
|
(+doom-dashboard-reload))
|
|
|
|
(defun +doom-dashboard|clear-on-insert ()
|
|
"Erase the buffer and prepare it to be used like a normal buffer."
|
|
(unless +doom-dashboard-edited-p
|
|
(erase-buffer)
|
|
;; (set-window-margins (get-buffer-window (doom-fallback-buffer)) 0 0)
|
|
(setq +doom-dashboard-edited-p t
|
|
mode-line-format (doom-modeline))
|
|
(setq fringe-indicator-alist +doom-dashboard--old-fringe-indicator)
|
|
(remove-hook 'evil-insert-state-entry-hook 'doom|mode-erase-on-insert t)))
|
|
|
|
(defun +doom-dashboard-reload (&optional dir)
|
|
"Update the DOOM scratch buffer (or create it, if it doesn't exist)."
|
|
(when (and (not +doom-dashboard-inhibit-refresh)
|
|
(not (minibuffer-window-active-p (minibuffer-window)))
|
|
(get-buffer-window-list (doom-fallback-buffer) nil t)
|
|
(or (not +doom-dashboard-edited-p) dir))
|
|
(unless +doom-dashboard-modeline
|
|
(setq +doom-dashboard-modeline
|
|
(if (@featurep :ui doom-modeline)
|
|
(doom-modeline 'project)
|
|
mode-line-format)))
|
|
(let ((old-pwd (or dir default-directory)))
|
|
(with-current-buffer (doom-fallback-buffer)
|
|
(+doom-dashboard-mode)
|
|
(add-hook 'evil-insert-state-entry-hook '+doom-dashboard|clear-on-insert nil t)
|
|
(add-hook 'after-change-major-mode-hook '+doom-dashboard|clear-on-insert nil t)
|
|
(setq +doom-dashboard-edited-p nil
|
|
fringe-indicator-alist (mapcar (lambda (i) (cons (car i) nil))
|
|
fringe-indicator-alist))
|
|
|
|
(erase-buffer)
|
|
(let* ((+doom-dashboard--width (window-width (get-buffer-window (doom-fallback-buffer))))
|
|
(+doom-dashboard--height (window-height (get-buffer-window (doom-fallback-buffer)))))
|
|
(insert (make-string (max 0 (- (truncate (/ +doom-dashboard--height 2)) 11)) ?\n))
|
|
(mapc (lambda (widget-name)
|
|
(funcall (intern (format "doom-dashboard-widget--%s" widget-name)))
|
|
(insert "\n"))
|
|
+doom-dashboard-widgets))
|
|
(setq default-directory old-pwd)
|
|
(setq mode-line-format +doom-dashboard-modeline))))
|
|
t)
|
|
|
|
(defun doom-dashboard-widget--banner ()
|
|
(mapc (lambda (line)
|
|
(insert (propertize (s-center +doom-dashboard--width line)
|
|
'face 'font-lock-comment-face) " ")
|
|
(insert "\n"))
|
|
'("================= =============== =============== ======== ========"
|
|
"\\\\ . . . . . . .\\\\ //. . . . . . .\\\\ //. . . . . . .\\\\ \\\\. . .\\\\// . . //"
|
|
"||. . ._____. . .|| ||. . ._____. . .|| ||. . ._____. . .|| || . . .\\/ . . .||"
|
|
"|| . .|| ||. . || || . .|| ||. . || || . .|| ||. . || ||. . . . . . . ||"
|
|
"||. . || || . .|| ||. . || || . .|| ||. . || || . .|| || . | . . . . .||"
|
|
"|| . .|| ||. _-|| ||-_ .|| ||. . || || . .|| ||. _-|| ||-_.|\\ . . . . ||"
|
|
"||. . || ||-' || || `-|| || . .|| ||. . || ||-' || || `|\\_ . .|. .||"
|
|
"|| . _|| || || || || ||_ . || || . _|| || || || |\\ `-_/| . ||"
|
|
"||_-' || .|/ || || \\|. || `-_|| ||_-' || .|/ || || | \\ / |-_.||"
|
|
"|| ||_-' || || `-_|| || || ||_-' || || | \\ / | `||"
|
|
"|| `' || || `' || || `' || || | \\ / | ||"
|
|
"|| .===' `===. .==='.`===. .===' /==. | \\/ | ||"
|
|
"|| .==' \\_|-_ `===. .===' _|_ `===. .===' _-|/ `== \\/ | ||"
|
|
"|| .==' _-' `-_ `=' _-' `-_ `=' _-' `-_ /| \\/ | ||"
|
|
"|| .==' _-' '-__\\._-' '-_./__-' `' |. /| | ||"
|
|
"||.==' _-' `' | /==.||"
|
|
"==' _-' E M A C S \\/ `=="
|
|
"\\ _-' `-_ /"
|
|
" `'' ``'")))
|
|
|
|
(defun doom-dashboard-widget--loaded ()
|
|
(insert
|
|
(propertize
|
|
(s-center +doom-dashboard--width
|
|
(format "Loaded %d packages in %.03fs "
|
|
(- (length load-path) (length doom--base-load-path))
|
|
doom-init-time))
|
|
'face 'font-lock-comment-face)
|
|
"\n"))
|
|
|
|
(defun doom-dashboard-widget--shortmenu ()
|
|
(let ((all-the-icons-scale-factor 1.3)
|
|
(all-the-icons-default-adjust -0.05)
|
|
(start (point))
|
|
(sep " ")
|
|
(last-session-p (and (and (featurep 'persp-mode) persp-mode)
|
|
(file-exists-p (expand-file-name persp-auto-save-fname persp-save-dir)))))
|
|
(unless last-session-p
|
|
(setq sep " "))
|
|
(insert
|
|
(s-center +doom-dashboard--width
|
|
(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"))
|
|
'follow-link t)
|
|
|
|
(insert sep " ")
|
|
|
|
(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 (command-remapping 'recentf)))
|
|
'follow-link t)
|
|
|
|
(insert sep)
|
|
|
|
(insert-text-button
|
|
(concat (all-the-icons-octicon
|
|
"tools"
|
|
:face 'font-lock-keyword-face)
|
|
(propertize " Edit emacs.d" 'face 'font-lock-keyword-face))
|
|
'action '(lambda (_) (find-file (f-expand "init.el" doom-emacs-dir)))
|
|
'follow-link t)
|
|
|
|
(when last-session-p
|
|
(insert sep)
|
|
|
|
(insert-text-button
|
|
(concat (all-the-icons-octicon
|
|
"history"
|
|
:face 'font-lock-keyword-face)
|
|
(propertize " Reload last session" 'face 'font-lock-keyword-face))
|
|
'action '(lambda (_) (+workspace:load-session))
|
|
'follow-link t))
|
|
|
|
(insert (make-string (if window-system 5 0) ? ))
|
|
|
|
(buffer-string)))
|
|
"\n")))
|