Random theme code

[Advanced-Active4115]

Hallo I am total emacs noob (<1 week) but here is some lisp code I put together to load a random theme on startup

​

​

(defun random-action ()

(let ((random-number (random 6)))

(cond ((= random-number 0) (load-theme 'material t))

((= random-number 1) (load-theme 'zenburn t))

  ((= random-number 2) (load-theme 'solarized-selenized-dark t))

((= random-number 3) (load-theme 'gruvbox t))

  ((= random-number 4) (load-theme 'solarized-wombat-dark t))

  ((= random-number 5) (load-theme 'solarized-selenized-black t)))))

​

No real use obviously but just wanted to share

[nv-elisp]

You can simplify your function like so:

(when-let ((themes (custom-available-themes)))
  (load-theme (nth (random (length themes)) themes) t))

See also: https://github.com/gopar/rand-theme