ForrestBerry-theme.el

(deftheme ForestBerry
  "A dark purple theme converted from a Neovim Lush theme.")

(let* ((class '((class color) (min-colors 89)))
       (fg1 "#c7c7c7")  ; theme_foreground
       (bg1 "#0a0411")  ; theme_background
       (black "#060210")
       (black-light "#160f2d")
       (red "#e85872")
       (red-light "#c75161")
       (green "#72e858")
       (green-light "#72c761")
       (yellow "#e8d758")
       (yellow-light "#c7ba61")
       (blue "#729fe8")
       (blue-light "#7290c7")
       (magenta "#d758e8")
       (magenta-light "#ba61c7")
       (cyan "#58e8d7")
       (grey "#595959")
       (white "#c7c7c7"))

  (custom-theme-set-faces
   'ForestBerry
   
   `(default ((,class (:foreground ,fg1 :background ,bg1))))
   `(font-lock-builtin-face ((,class (:foreground ,magenta))))
   `(font-lock-comment-face ((,class (:foreground ,grey))))
   `(font-lock-constant-face ((,class (:foreground ,green))))
   `(font-lock-doc-face ((,class (:foreground ,grey))))
   `(font-lock-function-name-face ((,class (:foreground ,blue))))
   `(font-lock-keyword-face ((,class (:foreground ,magenta))))
   `(font-lock-string-face ((,class (:foreground ,green))))
   `(font-lock-type-face ((,class (:foreground ,yellow))))
   `(font-lock-variable-name-face ((,class (:foreground ,fg1))))
   `(font-lock-warning-face ((,class (:foreground ,red :background ,black))))
   
   `(region ((,class (:background ,black-light))))
   `(highlight ((,class (:foreground ,fg1 :background ,black-light))))
   `(hl-line ((,class (:background ,black-light))))
   `(fringe ((,class (:background ,black :foreground ,fg1))))
   `(cursor ((,class (:background ,fg1))))
   `(show-paren-match-face ((,class (:background ,cyan))))
   `(isearch ((,class (:foreground ,black :background ,yellow))))
   
   `(mode-line ((,class (:foreground ,fg1 :background ,black))))
   `(mode-line-inactive ((,class (:foreground ,fg1 :background ,black-light))))
   `(vertical-border ((,class (:foreground ,black-light))))
   
   `(line-number ((,class (:foreground ,black-light :background ,black))))
   `(line-number-current-line ((,class (:foreground ,fg1 :background ,black))))
   
   `(company-tooltip ((,class (:background ,black-light))))
   `(company-tooltip-common ((,class (:foreground ,green))))
   `(company-tooltip-selection ((,class (:background ,black))))
   `(company-scrollbar-bg ((,class (:background ,grey))))
   `(company-scrollbar-fg ((,class (:background ,green))))
   
   ))

(provide-theme 'ForestBerry)