Skip to content

Latest commit

 

History

History
81 lines (53 loc) · 1.9 KB

README.org

File metadata and controls

81 lines (53 loc) · 1.9 KB

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:

crazy-3.mp4

Light mode:

Peek_emacs_light.mp4

Configuration

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

Then load crazy theme:

(load-theme 'crazy)

Be Crazy! Load it again 🎲

(load-theme 'crazy)

Again! 🎲

(load-theme 'crazy)

Again!!!! 🎲🎲🎲🎲

(load-theme 'crazy)

There are two custom variables you can config:

 ;; (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
	)

Issue and Pull Request are welcome

Feel free to fire an issue, and make a pull request contribution appreciated.