github/dotfiles
1
0
Fork 0
mirror of https://github.com/correl/dotfiles.git synced 2024-11-22 03:00:05 +00:00
Code Issues Projects Releases Packages Wiki Activity

[emacs] Dashboard configuration

Browse source
This commit is contained in:
Correl Roush 2019-09-17 13:37:54 -04:00
parent b7eb65d799
commit 7a4710cc8f
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
.doom.d/config.org
View file

@ -2,6 +2,30 @@
#+STARTUP: indent
#+PROPERTY: header-args :tangle yes
* Dashboard
#+begin_src emacs-lisp
(defun my/choice (&rest things)
(let ((index (random (length things))))
(nth index things)))
(defun my/dashboard-randomize ()
(interactive)
(let ((logo (my/choice "~/Pictures/Patreon/Jon Bliss/phoenix-and-catgirl-500.png"
"~/Pictures/Patreon/Jon Bliss/Bassist-final-transparent-500.png"
"~/Pictures/Patreon/Jon Bliss/catgirl-final-transparent-500.png"
"~/Pictures/Patreon/Jon Bliss/lapiz-final-transparent-500.png"
"~/Pictures/Patreon/Jon Bliss/Poledancer-final-transparent-500.png"
"~/Pictures/Patreon/Jon Bliss/Hacker-final-transparent-500.png")))
(setq fancy-splash-image logo)
(if (called-interactively-p)
(+doom-dashboard-reload))))
(my/dashboard-randomize)
(map!
:map doom-dashboard-map
:n "g" #'my/dashboard-randomize)
#+end_src
* Org
:PROPERTIES:
:header-args: :tangle no :noweb-ref org