-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathseralk-theme.el
73 lines (69 loc) · 3.42 KB
/
seralk-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
;;; Seralk-theme --- Summary
;;; Commentary:
;;; Code:
(deftheme seralk)
;; custom face for comments
;; apparently there is no way to do this directly on the existing face
;; https://emacs.stackexchange.com/a/9604
(defface my-font-lock-comment-face
'((((background dark)) (:foreground "#dfaf7a" :weight regular :slant italic))
(((background light)) (:foreground "#7b5000" :weight regular :slant italic)))
"Face for comments in light and dark background.")
;; almost black (#222222) and almost white (#f2f2f2)
;; https://anthonyhobday.com/sideprojects/saferules/
(defface my-default-face
'((((background dark)) (:foreground "#f2f2f2" :background "#222222" ))
(((background light)) (:foreground "#222222" :backgrond "#f2f2f2")))
"Face for default text in light and dark background.")
(custom-theme-set-faces
`seralk
`(default ((t (:inherit my-default-face))))
;; latex
`(font-latex-sectioning-1-face ((t (:slant oblique :box t :inherit outline-8))))
`(font-latex-sectioning-2-face ((t (underline t :inherit outline-1))))
`(font-latex-sectioning-3-face ((t (:slant italic :inherit outline-2))))
`(font-latex-sectioning-4-face ((t (:slant oblique :underline t :inherit outline-5))))
`(font-latex-sectioning-5-face ((t (:slant normal :inherit outline-7))))
`(font-latex-string-face ((t (:foreground "saddle brown"))))
;; general
`(mode-line-inacztive ((t (:box (:line-width (-1 . -1) :style released-button)))))
`(lazy-highlight ((t (inherit match :box (:line-width (-1 . -1) :style nil)))))
`(isearch ((t (:inherit match))))
;; evil
`(evil-snipe-matches-face ((t (:inherit lazy-highlight))))
`(evil-snipe-first-match-face ((t (:inherit evil-snipe-matches-face))))
;; org
`(org-meta-line ((t (:inherit font-lock-builtin-face :weight light :slant italic))))
`(org-block ((t (:inherit org-agenda-restriction-lock))))
`(org-inline-src-block ((t (:inherit org-agenda-restriction-lock))))
`(org-ellipsis ((t (:ellipsis nil))))
`(org-drawer ((t (:inherit org-meta-line))))
`(org-macro ((t (:inherit org-meta-line))))
`(org-verbatim ((t (:box (:line-width (-1 . -1) :color "gray80")))))
;; smartparens
`(sp-show-pair-match-content-face ((t (:style nil))))
`(sp-show-pair-match-face ((t (:box (:line-width (-1 . -1) :color "gray60" :style nil)))))
`(show-paren-match ((t (:syle nil)))) ; smart parens is enough
;; region without style, work with 'evil-multiedit'
;; https://emacs.stackexchange.com/questions/47002/adding-box-around-text-without-changing-the-text-width
;; `(region ((t (:box (:line-width (-1 . -1) :style nil)))))
`(iedit-occurrence ((t (:box (:line-width (-1 . -1))))))
;; `(ts-fold-replacement-face ((t (:box (:line-width (-1 . -1) :style nil)))))
`(ts-fold-replacement-face ((t (:inherit font-lock-comment-face))))
`(default ((t (:inherit default))))
`(variable-pitch-text ((t (:inherit variable-pitch))))
;; shr for eww
`(shr-code ((t (:box (:line-width (-1 . -1) :color "gray80")))))
`(shr-h3 ((t (:inherit default :weight bold))))
`(shr-h4 ((t (:slant italic))))
`(shr-link ((t (:inherit link :underline nil))))
;; eglot
`(eglot-highlight-symbol-face ((t (:underline t :weight bold))))
`(font-lock-comment-face ((t (:inherit my-font-lock-comment-face))))
;; rainbow delimite
`(rainbow-delimiters-depth-1-face ((t (:inherit outline-1))))
`(rainbow-delimiters-depth-2-face ((t (:inherit outline-2))))
`(rainbow-delimiters-depth-3-face ((t (:inherit outline-3))))
)
(provide-theme 'seralk)
;;; seralk-theme.el ends here.