From e36ae58ae0f5ba1cd8946f8098f9c959a9eca8bc Mon Sep 17 00:00:00 2001 From: Howard Abrams Date: Thu, 16 Jan 2025 11:59:50 -0800 Subject: [PATCH] Random image for my startup dashboard Not that I restart Emacs that often, but ... --- .gitignore | 1 + ha-dashboard.org | 6 +++++- support/{ => dashboard}/levitating-gnu.png | Bin 3 files changed, 6 insertions(+), 1 deletion(-) rename support/{ => dashboard}/levitating-gnu.png (100%) diff --git a/.gitignore b/.gitignore index a61faf3..6e71559 100644 --- a/.gitignore +++ b/.gitignore @@ -9,3 +9,4 @@ /elisp/gourmet.el /elisp/wd-imaas.el /ha-theme-results.org +/support/dashboard \ No newline at end of file diff --git a/ha-dashboard.org b/ha-dashboard.org index 63ee48a..033af1b 100644 --- a/ha-dashboard.org +++ b/ha-dashboard.org @@ -139,7 +139,11 @@ The [[https://github.com/emacs-dashboard/emacs-dashboard][emacs-dashboard]] proj (native-comp-available-p)) "with Native Compilation" "") (ha-dashboard-version)) - dashboard-startup-banner "~/src/hamacs/support/levitating-gnu.png" + + ;; Choose a random image from my collection of startup images: + dashboard-startup-banner (thread-first "~/src/hamacs/support/dashboard" + (directory-files t (rx ".png")) + (seq-random-elt)) dashboard-center-content t dashboard-set-init-info t dashboard-projects-switch-function 'project-switch-project diff --git a/support/levitating-gnu.png b/support/dashboard/levitating-gnu.png similarity index 100% rename from support/levitating-gnu.png rename to support/dashboard/levitating-gnu.png