-
Notifications
You must be signed in to change notification settings - Fork 0
/
fourma-theme.el
94 lines (83 loc) · 3.6 KB
/
fourma-theme.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
(deftheme fourma
"Created 2020-10-25.")
(custom-theme-set-faces
'fourma
'(cursor ((t (:background "#009b7c"))))
'(highlight ((t (:background "#add9ff"))))
'(hl-line ((t nil)))
'(region ((t (:background "#add9ff"))))
'(warning ((t (:background "#FF6666"))))
'(secondary-selection ((t (:background "light yellow"))))
'(trailing-whitespace ((t (:background "red"))))
'(font-lock-builtin-face ((t (:slant italic))))
'(font-lock-comment-delimiter-face ((t (:inherit (font-lock-comment-face)))))
'(font-lock-comment-face ((t (:background "#c1eec1"))))
'(font-lock-constant-face ((t nil)))
'(font-lock-doc-face ((t (:inherit (font-lock-comment-face)))))
'(font-lock-function-name-face ((t nil)))
'(font-lock-keyword-face ((t (:slant italic))))
'(font-lock-negation-char-face ((t nil)))
'(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
'(font-lock-regexp-grouping-backslash ((t nil)))
'(font-lock-regexp-grouping-construct ((t nil)))
'(font-lock-string-face ((t (:foreground "#A244C9"))))
'(font-lock-type-face ((t nil)))
'(font-lock-variable-name-face ((t nil)))
'(font-lock-warning-face ((t (:inherit (warning)))))
'(fringe ((t (:background "white"))))
'(minibuffer-prompt ((t (:weight bold))))
'(link ((t (:underline t :foreground "#0070CE"))))
;; outline
'(outline-1 ((t nil)))
'(outline-2 ((t nil)))
'(outline-3 ((t nil)))
'(outline-4 ((t nil)))
'(outline-5 ((t nil)))
'(outline-6 ((t nil)))
'(outline-7 ((t nil)))
'(outline-8 ((t nil)))
;; org
'(org-drawer ((t (:foreground "#BBBBBB"))))
'(org-todo ((t (:inherit fixed-pitch :background "#ff7073"))))
'(org-date ((t (:inherit fixed-pitch :underline t :foreground "#6F7408"))))
'(org-block ((t (:inherit fixed-pitch))))
'(org-indent ((t (:inherit (org-hide fixed-pitch)))))
'(org-table ((t (:inherit fixed-pitch))))
'(org-tag ((t (:inherit fixed-pitch))))
'(org-verbatim ((t (:inherit fixed-pitch :foreground "#008223"))))
;; LaTeX
'(font-latex-sedate-face ((t (:inherit (font-lock-keyword-face)))))
'(font-latex-string-face ((t (:inherit (font-lock-string-face)))))
'(font-latex-math-face ((t nil)))
'(font-latex-script-char-face ((t nil)))
;; Dired
'(dired-directory ((t (:weight bold :foreground "#268bd2"))))
;; Company
'(company-tooltip ((t (:background "#f0f0f0"))))
'(company-tooltip-selection ((t (:inherit region))))
'(company-tooltip-common ((t (:foreground "#707070"))))
'(company-tooltip-annotation ((t (:foreground "#999999"))))
'(company-tooltip-scrollbar-thumb ((t (:background "#666666"))))
'(company-tooltip-scrollbar-track ((t (:background "#f6f6f6"))))
;; Haskell
'(haskell-constructor-face ((t nil)))
'(haskell-keyword-face ((t (:family "Monoflow"))))
'(haskell-pragma-face ((t (:family "Monoflow"))))
;; Agda
'(agda2-highlight-module-face ((t nil)))
'(agda2-highlight-keyword-face ((t (:family "Monoflow"))))
'(agda2-highlight-symbol-face ((t (:foreground "#555555" :weight light))))
'(agda2-highlight-primitive-face ((t nil)))
'(agda2-highlight-primitive-type-face ((t nil)))
'(agda2-highlight-number-face ((t nil)))
'(agda2-highlight-bound-variable-face ((t (:background "#FFF4F4"))))
'(agda2-highlight-datatype-face ((t (:background "#F4F4FF"))))
'(agda2-highlight-catchall-clause-face ((t nil)))
'(agda2-highlight-function-face ((t (:inherit (agda2-highlight-datatype-face)))))
'(agda2-highlight-operator-face ((t (:inherit (agda2-highlight-datatype-face)))))
'(agda2-highlight-inductive-constructor-face ((t (:inherit (agda2-highlight-datatype-face)))))
;; eglot
'(eglot-highlight-symbol-face ((t (:inherit (region)))))
;; which-key
'(which-key-separator-face ((t nil))))
(provide-theme 'fourma)