emacs: refactor dashboard
This commit is contained in:
parent
51ed16665d
commit
a589a771e1
1 changed files with 7 additions and 16 deletions
|
@ -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)
|
||||
dashboard-items '((bookmarks . 4)
|
||||
(recents . 4))
|
||||
dashboard-footer-messages `(,(make-quote))
|
||||
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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue