emacs: style dashboard faces

Also reformat the dashboard setq expression but don't tell the boss that.
This commit is contained in:
Jeremy Baxter 2024-07-21 20:10:28 +12:00
parent 4b7de41553
commit 075a1103ec

View file

@ -234,6 +234,29 @@ value `italic'."
" : " " : "
(:eval (breadcrumb-imenu-crumbs)))))) (:eval (breadcrumb-imenu-crumbs))))))
;; dashboard
(package-install 'dashboard)
(require 'dashboard)
(setq dashboard-banner-logo-title (concat "Welcome to GNU Emacs, one "
"component of the GNU/Linux "
"operating system.")
dashboard-startup-banner "~/pix/jemacs-book.png"
dashboard-center-content t
dashboard-vertically-center-content t
dashboard-items '((bookmarks . 4)
(recents . 4))
dashboard-footer-messages
(list
"At its core is an interpreter for Emacs Lisp."
"Merely an interface to your code."
"“We don't use the term corelibs, and I am not sure what that would mean.”"
"50 years and Dired is still the best file manager on the planet")
initial-buffer-choice (lambda ()
(get-buffer-create dashboard-buffer-name)))
(add-hook 'after-init-hook 'dashboard-insert-startupify-lists)
(add-hook 'after-init-hook 'dashboard-initialize)
(dashboard-setup-startup-hook)
;; faces ;; faces
(require 'cus-edit) ; custom faces (require 'cus-edit) ; custom faces
(let (let
@ -269,7 +292,8 @@ value `italic'."
:background "#181825" :background "#181825"
:foreground ,accent) :foreground ,accent)
(anzu-mode-line :foreground ,accent) (anzu-mode-line :foreground ,accent)
(breadcrumb-imenu-leaf-face :foreground ,accent)))) (breadcrumb-imenu-leaf-face :foreground ,accent)
(dashboard-heading :foreground ,accent :height 1.1 :weight bold))))
;; custom ;; custom
(setq custom-file "~/.emacs.d/custom.el") (setq custom-file "~/.emacs.d/custom.el")
@ -285,26 +309,6 @@ value `italic'."
(package-install 'nyan-mode) (package-install 'nyan-mode)
(nyan-mode) (nyan-mode)
;; dashboard
(package-install 'dashboard)
(setq dashboard-banner-logo-title "Welcome to GNU Emacs, one component of the GNU/Linux operating system."
dashboard-startup-banner "~/pix/jemacs-book.png"
dashboard-center-content t
dashboard-vertically-center-content t
dashboard-items '((bookmarks . 4)
(recents . 4))
dashboard-footer-messages (list
"At its core is an interpreter for Emacs Lisp."
"Merely an interface to your code."
"“We don't use the term corelibs, and I am not sure what that would mean.”"
"50 years and Dired is still the best file manager on the planet")
initial-buffer-choice (lambda ()
(get-buffer-create dashboard-buffer-name)))
(add-hook 'after-init-hook 'dashboard-insert-startupify-lists)
(add-hook 'after-init-hook 'dashboard-initialize)
(dashboard-setup-startup-hook)
;; mu4e ;; mu4e
(let ((mu4e-file "~/.emacs.d/mu4e.el")) (let ((mu4e-file "~/.emacs.d/mu4e.el"))
(when (file-exists-p mu4e-file) (when (file-exists-p mu4e-file)