Thomas-Experiement-theme.el 4.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758
  1. (deftheme Thomas-Experiement
  2. "Created 2018-08-17.")
  3. (custom-theme-set-faces
  4. 'Thomas-Experiement
  5. '(cursor ((t (:background "red"))))
  6. '(fixed-pitch ((t (:family "Monospace"))))
  7. '(variable-pitch ((((type w32)) (:foundry "outline" :family "Arial")) (t (:family "Sans Serif"))))
  8. '(escape-glyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
  9. '(homoglyph ((((background dark)) (:foreground "cyan")) (((type pc)) (:foreground "magenta")) (t (:foreground "brown"))))
  10. '(minibuffer-prompt ((t (:foreground "blue"))))
  11. '(highlight ((t (:background "color-88"))))
  12. '(region ((t (:background "brightblue"))))
  13. '(shadow ((t (:foreground "brightblack"))))
  14. '(secondary-selection ((t (:background "brightblack"))))
  15. '(trailing-whitespace ((t (:foreground "yellow" :background "cyan"))))
  16. '(font-lock-builtin-face ((t (:foreground "cyan"))))
  17. '(font-lock-comment-delimiter-face ((t (:foreground "brightyellow"))))
  18. '(font-lock-comment-face ((t (:foreground "brightblack"))))
  19. '(font-lock-constant-face ((t (:foreground "color-28"))))
  20. '(font-lock-doc-face ((t (:foreground "brightblue"))))
  21. '(font-lock-function-name-face ((t (:foreground "color-112"))))
  22. '(font-lock-keyword-face ((t (:foreground "color-202"))))
  23. '(font-lock-negation-char-face ((t (:foreground "green"))))
  24. '(font-lock-preprocessor-face ((t (:foreground "color-163" :weight semi-bold))))
  25. '(font-lock-regexp-grouping-backslash ((t (:foreground "yellow"))))
  26. '(font-lock-regexp-grouping-construct ((t (:foreground "magenta"))))
  27. '(font-lock-string-face ((t (:foreground "color-184"))))
  28. '(font-lock-type-face ((t (:foreground "color-93"))))
  29. '(font-lock-variable-name-face ((t (:foreground "color-41"))))
  30. '(font-lock-warning-face ((t (:underline (:color "color-130" :style wave)))))
  31. '(button ((t (:inherit (link)))))
  32. '(link ((t (:underline (:color foreground-color :style line) :foreground "blue"))))
  33. '(link-visited ((t (:underline (:color foreground-color :style line) :foreground "magenta"))))
  34. '(fringe ((t (:background "brightgreen"))))
  35. '(header-line ((t (:foreground "magenta" :inherit (mode-line)))))
  36. '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch)))))
  37. '(mode-line ((t (:box nil :foreground "brightblue" :background "brightyellow"))))
  38. '(mode-line-buffer-id ((t (:foreground "green"))))
  39. '(mode-line-emphasis ((t (:slant italic :foreground "brightmagenta"))))
  40. '(mode-line-highlight ((t (:weight bold :box nil :foreground "magenta"))))
  41. '(mode-line-inactive ((t (:box nil :foreground "brightblack" :background "brightgreen"))))
  42. '(isearch ((t (:inverse-video t :foreground "yellow" :background "brightgreen"))))
  43. '(isearch-fail ((t (:inverse-video t :background "brightgreen" :inherit (font-lock-warning-face)))))
  44. '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:background "paleturquoise4")) (((class color) (min-colors 16)) (:background "turquoise3")) (((class color) (min-colors 8)) (:background "turquoise3")) (t (:underline (:color foreground-color :style line)))))
  45. '(match ((t (:inverse-video t :foreground "blue" :background "brightgreen"))))
  46. '(next-error ((t (:inherit (region)))))
  47. '(query-replace ((t (:inherit (isearch)))))
  48. '(ensime-errline-highlight ((t (:inherit nil :foreground "brightred" :underline (:color foreground-color :style wave) :slant italic :weight semi-bold))))
  49. '(ensime-warnline-highlight ((t (:inherit font-lock-warning-face))))
  50. '(scala-font-lock:var-face ((t (:inherit font-lock-variable-name-face))))
  51. '(show-paren-match ((t (:background "blue" :foreground "green"))))
  52. '(show-paren-match-expression ((t (:inherit (show-paren-match)))))
  53. '(show-paren-mismatch ((t (:background "red" :foreground "white" :underline (:color foreground-color :style wave)))))
  54. '(default ((t (:family "default" :foundry "default" :width normal :height 1 :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "white" :background "black" :stipple nil :inherit nil))))
  55. '(c-annotation-face ((t (:inherit font-lock-preprocessor-face)))))
  56. (provide-theme 'Thomas-Experiement)