caranmegil/whompmacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update for ASCII logo and some cleanup

Browse Source
This commit is contained in:
William Moore 2025-01-04 17:33:56 -06:00
parent 41f5c9b254
commit 06b9abaf6f
4 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
init.el
View File

@ -1,3 +1,10 @@
;; ____ __ ____ __ __ ______ .___ ___. .______
;; \ \ / \ / / | | | | / __ \ | \/ | | _ \
;; \ \/ \/ / | |__| | | | | | | \ / | | |_) |
;; \ / | __ | | | | | | |\/| | | ___/
;; \ /\ / __ | | | | __| `--' | __| | | | __| | __
;; \__/ \__/ (__)|__| |__| (__)\______/ (__)__| |__| (__) _| (__)
(when (string= system-type "darwin") (when (string= system-type "darwin")
(setq dired-use-ls-dired nil)) (setq dired-use-ls-dired nil))

16
whomp/whomp-dashboard.el
View File

@ -4,9 +4,19 @@
:config :config
(dashboard-setup-startup-hook) (dashboard-setup-startup-hook)
(setq dashboard-banner-logo-title (whomp/dashboard-build-logo-title whomp-help-lines)) (setq dashboard-banner-logo-title (mapconcat 'identity '("____ __ ____ __ __ ______ .___ ___. .______ "
;; "Welcome to the W.H.O.M.P. Emacs Dashboard") "\\ \\ / \\ / / | | | | / __ \\ | \\/ | | _ \\"
(setq dashboard-startup-banner (whomp/random-string-from-list (whomp/list-files-with-extension "~/.emacs.d/logos" "png"))) " \\ \\/ \\/ / | |__| | | | | | | \\ / | | |_) |"
" \\ / | __ | | | | | | |\\/| | | ___/ "
" \\ /\\ / __ | | | | __| `--' | __| | | | __| | __ "
" \\__/ \\__/ (__)|__| |__| (__)\\______/ (__)__| |__| (__) _| (__)"
""
"It was created by Fuzzy and extended by William Moore"
""
"All W.H.O.M.P. commands will start with 'C-c w'"
"--------------")
"\n"))
(setq dashboard-startup-banner 'logo)
(setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name))) (setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name)))
(setq dashboard-center-content t) (setq dashboard-center-content t)
(setq dashboard-vertically-center-content t) (setq dashboard-vertically-center-content t)

18
whomp/whomp-defaults.el
View File

@ -13,24 +13,6 @@
(setq-default tab-width 2) (setq-default tab-width 2)
(setq tab-width 2) (setq tab-width 2)
(setq indent-tabs-mode 1) (setq indent-tabs-mode 1)
;; Set the default help lines
(setq whomp-help-lines '("--------------"
"All W.H.O.M.P. commands will start with 'C-c w'"
""
"It was created by Fuzzy and extended by William Moore"
""
"Welcome to the W.H.O.M.P. Emacs Dashboard"))
;;
;; Golden Ratio Mode helps with window sizing, and is a default feature
;;
;; golden-ratio
;; (straight-use-package 'golden-ratio)
;; (golden-ratio-mode 1)
;; (setq golden-ratio-auto-scale t)
;; (message "Golden Ratio Mode Enabled")
;; ;;
;; Set up the W.H.O.M.P. keybindings ;; Set up the W.H.O.M.P. keybindings

4
whomp/whomp-helpers.el
View File

@ -1,4 +1,4 @@
;; ;
;; Helper functions for the dashboard ;; Helper functions for the dashboard
;; ;;
@ -18,7 +18,7 @@ which will be displayed with line breaks between them."
(defun whomp/dashboard-build-logo-title (lst) (defun whomp/dashboard-build-logo-title (lst)
"Build a list of strings from LST to display as the banner. "Build a list of strings from LST to display as the banner.
LST is reversed and concatenated into a single string with line breaks." LST is reversed and concatenated into a single string with line breaks."
(mapconcat 'identity (reverse lst) "\n")) (mapconcat 'identity lst "\n"))
(defun whomp/random-string-from-list (strings) (defun whomp/random-string-from-list (strings)
"Return a random string from STRINGS." "Return a random string from STRINGS."