;; Theme based on plastic color

;; to figure out face properties of point:
;; M-x describe-text-properties
;; or
;; C-u C-x =

(deftheme plastic "A dark color theme for Emacs")

(let ((*background*  "#21252b")
      (*normal*      "#a9b2c3")
      (*comments*    "#615953")
      (*constants*   "#9ec400")
      (*current-line* "#151515")
      (*cursor-underscore* "#e6c546")
      (*keywords*          "#61afef")
      (*line-number*       "#615953")
      (*method-declaration* "#e7c547")
      (*mode-line-bg*       "#ff0000")
      (*warnings*           "#ff0000")
      (*operators*          "#e06c75")
      (*visual-selection*   "#b48ead"))

  (custom-theme-set-faces
   'plastic

   `(bold (( t (:bold t))))
   `(button ((t (:foreground, *keywords* :underline t))))
   `(default ((t (:background, *background* :foreground, *normal*))))
   `(header-line ((t (:background, *mode-line-bg* :foreground, *normal*))))
   `(hl-line ((t (:background, *current-line*))))
   `(region ((t (:background, *visual-selection*))))
   `(underline ((nil (:underline t))))

   ;; font-lock
   `(font-lock-builtin-face ((t (:foreground, *operators*))))
   `(font-lock-comment-face ((t (:foreground, *comments*))))
   `(font-lock-constant-face ((t (:foreground, *constants*))))
   `(font-lock-keyword-face ((t (:foreground, *constants*))))
   `(font-lock-warning-face  ((t (:foreground, *warnings*))))
   

   ;; GUI
   `(fringe ((t (:background, *background*))))
   `(linum ((t (:background, *line-number*))))
   `(cursor ((t (:background, *cursor-underscore*))))
   `(text-cursor ((t (:background, *cursor-underscore*))))
   `(vertical-border ((t (:foreground, *background*))))
   `(line-number ((t (:foreground, *comments*))))
   `(company-tooltip ((t (:background, *background* :foreground, *normal*))))
   `(company-tooltip-selection ((t (:background, *current-line* :foreground, *constants*))))

   ;; show-paren
   `(show-paren-mismatch ((t (:background, *warnings*, :foreground, *normal* :weight bold))))
   `(show-paren-match ((t (:background, *keywords* :foreground, *normal* :weight bold))))

   `(flycheck-error ((t (:foreground, *warnings*))))
   ))

;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
  (add-to-list 'custom-theme-load-path
               (file-name-as-directory (file-name-directory load-file-name))))

(provide-theme 'plastic)