added theme

user-global/themes/plastic-theme.el

@@ -0,0 +1,65 @@
+;; 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)