Random theme in Doom Emacs
(defun random-choice (items)
"Random choice a list"
(let* ((size (length items))
(index (random size)))
(nth index items)))
(defun kr/load-theme-random ()
"Load random themes of doom-*"
(interactive)
(let* ((doom-themes (all-completions "doom" (custom-available-themes)))
(theme (random-choice doom-themes)))
(counsel-load-theme-action theme)
(message "Current random doom-* theme is: %s" theme)
(setq doom-theme theme)))
;; Get random themes on Emacs startup
(setq doom-theme (random-choice (custom-available-themes)))