From 06b9abaf6fcf5f620c2fdd82145ba98f13dd4bf8 Mon Sep 17 00:00:00 2001 From: William Moore Date: Sat, 4 Jan 2025 17:33:56 -0600 Subject: [PATCH] Update for ASCII logo and some cleanup --- init.el | 7 +++++++ whomp/whomp-dashboard.el | 16 +++++++++++++--- whomp/whomp-defaults.el | 18 ------------------ whomp/whomp-helpers.el | 4 ++-- 4 files changed, 22 insertions(+), 23 deletions(-) diff --git a/init.el b/init.el index be1727c..6b51445 100644 --- a/init.el +++ b/init.el @@ -1,3 +1,10 @@ +;; ____ __ ____ __ __ ______ .___ ___. .______ +;; \ \ / \ / / | | | | / __ \ | \/ | | _ \ +;; \ \/ \/ / | |__| | | | | | | \ / | | |_) | +;; \ / | __ | | | | | | |\/| | | ___/ +;; \ /\ / __ | | | | __| `--' | __| | | | __| | __ +;; \__/ \__/ (__)|__| |__| (__)\______/ (__)__| |__| (__) _| (__) + (when (string= system-type "darwin") (setq dired-use-ls-dired nil)) diff --git a/whomp/whomp-dashboard.el b/whomp/whomp-dashboard.el index d323dcf..ab83bbd 100644 --- a/whomp/whomp-dashboard.el +++ b/whomp/whomp-dashboard.el @@ -4,9 +4,19 @@ :config (dashboard-setup-startup-hook) - (setq dashboard-banner-logo-title (whomp/dashboard-build-logo-title whomp-help-lines)) - ;; "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"))) + (setq dashboard-banner-logo-title (mapconcat 'identity '("____ __ ____ __ __ ______ .___ ___. .______ " + "\\ \\ / \\ / / | | | | / __ \\ | \\/ | | _ \\" + " \\ \\/ \\/ / | |__| | | | | | | \\ / | | |_) |" + " \\ / | __ | | | | | | |\\/| | | ___/ " + " \\ /\\ / __ | | | | __| `--' | __| | | | __| | __ " + " \\__/ \\__/ (__)|__| |__| (__)\\______/ (__)__| |__| (__) _| (__)" + "" + "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 dashboard-center-content t) (setq dashboard-vertically-center-content t) diff --git a/whomp/whomp-defaults.el b/whomp/whomp-defaults.el index 65df1cc..993e802 100644 --- a/whomp/whomp-defaults.el +++ b/whomp/whomp-defaults.el @@ -13,24 +13,6 @@ (setq-default tab-width 2) (setq tab-width 2) (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 diff --git a/whomp/whomp-helpers.el b/whomp/whomp-helpers.el index 01e5823..ed98c81 100644 --- a/whomp/whomp-helpers.el +++ b/whomp/whomp-helpers.el @@ -1,4 +1,4 @@ -;; +; ;; 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) "Build a list of strings from LST to display as the banner. 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) "Return a random string from STRINGS."