From a589a771e181e3ea9e047cb91f28f5dd11fc1819 Mon Sep 17 00:00:00 2001 From: Jeremy Baxter Date: Sun, 26 May 2024 16:08:33 +1200 Subject: [PATCH] emacs: refactor dashboard --- .emacs.d/init.el | 23 +++++++---------------- 1 file changed, 7 insertions(+), 16 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 829a7a9..1d0af79 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -250,26 +250,17 @@ One will be created if none exist." ;; dashboard (package-install 'dashboard) - -(defun make-quote () - (interactive) - (let ((quotes - '("At its core is an interpreter for Emacs Lisp." - "Only one segfault in the default install, in a heck of a long time!" - "Merely an interface to your code." - "M-x eglot" - "“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"))) - (nth (random (length quotes)) quotes))) - (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 . 8) - (recents . 4)) - dashboard-footer-messages `(,(make-quote)) + 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)