From 3c97b1307911c75812c1f82c3b70a563a112f7b8 Mon Sep 17 00:00:00 2001 From: Matt Sawyer Date: Wed, 15 May 2024 15:58:18 -0700 Subject: [PATCH] change ascii splash for emacs --- home/doom/emacs/init.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/home/doom/emacs/init.el b/home/doom/emacs/init.el index d5e90c3..b47ef7b 100644 --- a/home/doom/emacs/init.el +++ b/home/doom/emacs/init.el @@ -19,6 +19,28 @@ ;; (prefer-coding-system 'utf-8) (setq fancy-splash-image "~/.emacs.d/.local/black-hole.png") +(defun sawyer/set-ascii-splash () + (let* ((banner-raw + '(" __ ___ ___ __ ___ ____ " + " /'__`\\/' __` __`\\ /'__`\\ /'___\\ /',__\\ " + "/\\ __//\\ \\/\\ \\/\\ \\/\\ \\L\\.\\_/\\ \\__//\\__, `\\ " + "\\ \\____\\ \\_\\ \\_\\ \\_\\ \\__/.\\_\\ \\____\\/\\____/ " + " \\/____/\\/_/\\/_/\\/_/\\/__/\\/_/\\/____/\\/___/ ")) + ;; not working: + ;; (banner (mapcar #'prin1-to-string banner-raw)) + (banner banner-raw) + (longest-line (apply #'max (mapcar #'length banner)))) + (put-text-property + (point) + (dolist (line banner (point)) + (insert (+doom-dashboard--center + +doom-dashboard--width + (concat line (make-string (max 0 (- longest-line (length line))) 44))) + "\n")) + 'face 'doom-dashboard-banner))) + +(setq +doom-dashboard-ascii-banner-fn #'sawyer/set-ascii-splash) + (doom! :input ;;bidi ; (tfel ot) thgir etirw uoy gnipleh ;;chinese