(use-package dashboard :straight t :ensure t :config (dashboard-setup-startup-hook) (setq whomp-banner-logo-title '("____ __ ____ __ __ ______ .___ ___. .______ " "\\ \\ / \\ / / | | | | / __ \\ | \\/ | | _ \\" " \\ \\/ \\/ / | |__| | | | | | | \\ / | | |_) |" " \\ / | __ | | | | | | |\\/| | | ___/ " " \\ /\\ / __ | | | | __| `--' | __| | | | __| | __ " " \\__/ \\__/ (__)|__| |__| (__)\\______/ (__)__| |__| (__) _| (__)" "" "It was created by Fuzzy and extended by William Moore" "" "All W.H.O.M.P. commands will start with 'C-c w'" "--------------")) (setq whomp-banner-logo-title (append whomp-banner-logo-title whomp-help-lines)) (setq dashboard-banner-logo-title (mapconcat 'identity whomp-banner-logo-title "\n")) (setq dashboard-startup-banner 'logo) (setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))) (setq dashboard-center-content t) (setq dashboard-vertically-center-content t) (setq dashboard-show-shortcuts t) (setq dashboard-items '((recents . 5) (agenda . 5) (bookmarks . 5))) (setq dashboard-startupify-list '(dashboard-insert-banner dashboard-insert-newline dashboard-insert-banner-title dashboard-insert-newline dashboard-insert-navigator dashboard-insert-newline dashboard-insert-init-info dashboard-insert-items dashboard-insert-newline dashboard-insert-footer)) (message "W.H.O.M.P. Dashboard loaded")) (provide 'whomp-dashboard) ;;; whomp-dashboard.el ends here