feat: add dashboard and enhance completion
- Add startup dashboard with recent files and bookmarks - Enhance corfu with icons and minibuffer transfer - Add avy-zap, markdown-mode, consult-dir - Optimize GC settings and editor config
This commit is contained in:
34
lisp/init-dashboard.el
Normal file
34
lisp/init-dashboard.el
Normal file
@@ -0,0 +1,34 @@
|
||||
;;; init-dashboard.el --- dashboard -*- lexical-binding: t -*-
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(use-package dashboard
|
||||
:demand t
|
||||
:config
|
||||
(dashboard-setup-startup-hook)
|
||||
(setq dashboard-banner-logo-title (format "%s" emacs-version))
|
||||
(setq dashboard-banner-ascii " ##### # # # # ####### # # # ##### ##### \n# # ## # # # # ## ## # # # # # # \n# # # # # # # # # # # # # # # \n# #### # # # # # ##### # # # # # # ##### \n# # # # # # # # # # ####### # # \n# # # ## # # # # # # # # # # # \n ##### # # ##### ####### # # # # ##### ##### ")
|
||||
(setq dashboard-startup-banner 'ascii)
|
||||
(setq dashboard-center-content t)
|
||||
(setq dashboard-navigation-cycle t)
|
||||
(setq dashboard-items '((recents . 10)
|
||||
(bookmarks . 5)
|
||||
(projects . 5)))
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda()
|
||||
(setq my-emacs-startup-time (format-time-string "%Y-%m-%d %H:%M:%S"))))
|
||||
(defun my/dashboard-insert-copyright ()
|
||||
"Insert copyright in the footer."
|
||||
(dashboard-insert-center
|
||||
(propertize (format "\n\nEmacs started at %s" my-emacs-startup-time)
|
||||
'face 'font-lock-comment-face)))
|
||||
(advice-add #'dashboard-insert-footer :after #'my/dashboard-insert-copyright)
|
||||
(setq dashboard-footer-messages '(
|
||||
"Hello."
|
||||
"Hi."
|
||||
)))
|
||||
|
||||
(provide 'init-dashboard)
|
||||
;;; init-dashboard.el ends here
|
||||
Reference in New Issue
Block a user