• Crazy Theme 🎲 for Emacs

[[https://img.shields.io/github/stars/eval-exec/crazy-theme.el.svg]] [[https://img.shields.io/github/watchers/eval-exec/crazy-theme.el.svg]] [[https://img.shields.io/github/last-commit/eval-exec/crazy-theme.el.svg]]

Use this Emacs theme if you are crazy.

It will generate random colors when you load this crazy theme everytime.

*** Dark mode:

[[https://user-images.githubusercontent.com/46400566/218300073-7e3e76b2-38b8-4384-bfd1-e2cea0a836ed.mp4][preview]]

*** Light mode:

[[https://user-images.githubusercontent.com/46400566/260277392-6500fed4-28d8-4b9c-9657-8cf105d57e29.mp4][preview]]

• Configuration

+begin_src emacs-lisp

(use-package crazy :straight (:host github :repo "eval-exec/crazy-theme.el") :ensure t)

+end_src

Then load crazy theme:

+begin_src emacs-lisp

(load-theme 'crazy)

+end_src

Be Crazy! Load it again 🎲

+begin_src emacs-lisp

(load-theme 'crazy)

+end_src

Again! 🎲

+begin_src emacs-lisp

(load-theme 'crazy)

+end_src

Again!!!! 🎲🎲🎲🎲

+begin_src emacs-lisp

(load-theme 'crazy)

+end_src

There are two custom variables you can config:

+begin_src emacs-lisp

;; (defun crazy-foreground-func-default() ;; "Generate random foreground color." ;; (apply 'format "#%02X%02X%02X" (crazy-rgb-code 128 128 )))

;; (defun crazy-background-func-default-dark() ;; "Generate random dark background color." ;; ;; give (random 128) to a variable bg ;; (let ((bg (random 32))) ;; (apply 'format "#%02X%02X%02X" (list bg bg bg))))

(defcustom crazy-foreground-func 'crazy-foreground-func-default "Custom function to generate foreground color." :type 'function )

(defcustom crazy-background-func 'crazy-background-func-default-dark "Custom function to generate background color." :type 'function )

+end_src

• Issue and Pull Request are welcome Feel free to fire an issue, and make a pull request contribution appreciated.