Prism rainbow old skool theme (for Doom)

#767
Raw
Author
Anonymous
Created
May 23, 2023, 3:56 a.m.
Expires
Never
Size
888 bytes
Hits
631
Syntax
EmacsLisp
Private
No
(setq doom-theme 'doom-homage-black)
(setq doom-font "IBM Plex Mono")

(add-hook! fennel-mode (rainbow-delimiters-mode 'nil) (prism-mode))

(add-hook! 'prism-mode-hook
  (prism-set-colors
   :num 32
   :desaturations (cl-loop for i from 0 below 32
                           collect (* i 2.5))
   :lightens (cl-loop for i from 0 below 32
                      collect 0)
   :colors (list "#fb00b3" ;; magenta
                 "#f41239" ;; r
                 "#e17756" ;; o
                 "#c8c256" ;; y
                 "#03ce56" ;; g
                 "#00a0ee" ;; c
                 "#4750ff" ;; b
                 "#a136ff") ;; purp
   :comments-fn
   (lambda (color)
     (prism-blend color
                  (face-attribute 'font-lock-comment-face :foreground) 0.25))
   :strings-fn
   (lambda (color)
     (prism-blend color "white" 0.5))))