jokull-theme.el (16569B)
1 ;;; jokull-theme.el --- Theme 2 3 ;; Copyright (C) 2021 , 4 5 ;; Author: 6 ;; Version: 0.1 7 ;; Package-Requires: ((emacs "24")) 8 ;; Created with ThemeCreator, https://github.com/mswift42/themecreator. 9 10 11 ;; This program is free software: you can redistribute it and/or modify 12 ;; it under the terms of the GNU General Public License as published by 13 ;; the Free Software Foundation, either version 3 of the License, or 14 ;; (at your option) any later version. 15 16 ;; This program is distributed in the hope that it will be useful, 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19 ;; GNU General Public License for more details. 20 21 ;; You should have received a copy of the GNU General Public License 22 ;; along with this program. If not, see <http://www.gnu.org/licenses/>. 23 24 ;; This file is not part of Emacs. 25 26 ;;; Commentary: 27 28 ;;; Code: 29 30 (deftheme jokull) 31 (let ((class '((class color) (min-colors 89))) 32 (fg1 "#2c2625") 33 (fg2 "#3d3736") 34 (fg3 "#4e4948") 35 (fg4 "#5f5a59") 36 (bg1 "#e4e4e4") 37 (bg2 "#d2d2d2") 38 (bg3 "#c0c0c0") 39 (bg4 "#adadad") 40 (builtin "#0087af") 41 (keyword "#0096ff") 42 (const "#cc6d05") 43 (comment "#5f5f5f") 44 (func "#005f87") 45 (str "#009051") 46 (type "#005f87") 47 (var "#112d4e") 48 (warning "#6e032e") 49 (warning2 "#ff8800") 50 (olive "#9b9b4c")) 51 (custom-theme-set-faces 52 'jokull 53 `(default ((,class (:background ,bg1 :foreground ,fg1)))) 54 `(font-lock-builtin-face ((,class (:foreground ,builtin)))) 55 `(font-lock-comment-face ((,class (:foreground ,comment)))) 56 `(font-lock-negation-char-face ((,class (:foreground ,const)))) 57 `(font-lock-reference-face ((,class (:foreground ,const)))) 58 `(font-lock-constant-face ((,class (:foreground ,const)))) 59 `(font-lock-doc-face ((,class (:foreground ,comment)))) 60 `(font-lock-function-name-face ((,class (:foreground ,func )))) 61 `(font-lock-keyword-face ((,class (:bold ,class :foreground ,keyword)))) 62 `(font-lock-string-face ((,class (:foreground ,str)))) 63 `(font-lock-type-face ((,class (:foreground ,type )))) 64 `(font-lock-variable-name-face ((,class (:foreground ,var)))) 65 `(font-lock-warning-face ((,class (:foreground ,warning :background ,bg2)))) 66 `(term-color-black ((,class (:foreground ,fg2 :background nil)))) 67 `(region ((,class (:background "#a8caff")))) 68 `(highlight ((,class (:foreground ,fg3 :background ,bg3)))) 69 `(hl-line ((,class (:background "#d5d5d5")))) 70 `(fringe ((,class (:background ,bg1 :foreground ,fg4)))) 71 `(cursor ((,class (:background ,fg2 :foreground ,bg2)))) 72 `(show-paren-match-face ((,class (:background ,warning)))) 73 `(isearch ((,class (:bold t :foreground ,warning :background ,bg3)))) 74 `(mode-line ((,class (:foreground "#e5e5e5" :background "#005f77" :bold nil)))) 75 `(tooltip ((,class (:foreground "#e5e5e5" :background "#0087af")))) 76 `(mode-line-buffer-id ((,class (:foreground "#e5e5e5" :background "#0087af" :bold nil)))) 77 `(mode-line-inactive ((,class (:foreground "#e5e5e5" :background "#0087af")))) 78 `(mode-line-emphasis ((,class (:inherit mode-line :bold t)))) 79 `(mode-line-highlight ((,class (:inherit mode-line)))) 80 `(which-func ((,class (:foreground "#e5e5e5" :inherit mode-line :slant italic)))) 81 `(vertical-border ((,class (:foreground ,fg3)))) 82 `(minibuffer-prompt ((,class (:bold t :foreground ,keyword)))) 83 `(default-italic ((,class (:italic t)))) 84 `(link ((,class (:foreground ,const :underline t)))) 85 `(calendar-today ((,class (:inherit font-lock-keyword-face)))) 86 `(org-code ((,class (:foreground "#005f87")))) 87 `(org-hide ((,class (:foreground ,bg1)))) 88 `(org-level-1 ((,class (:bold t :foreground ,fg2 :height 1.1)))) 89 `(org-level-2 ((,class (:bold nil :foreground ,fg3)))) 90 `(org-level-3 ((,class (:bold t :foreground ,fg4)))) 91 `(org-level-4 ((,class (:bold nil :foreground ,fg4)))) 92 `(org-date ((,class (:underline t :foreground ,var) ))) 93 `(org-drawer ((,class (:foreground "#7d7d7d" :slant italic)))) 94 `(org-footnote ((,class (:underline t :foreground ,fg4)))) 95 `(org-link ((,class (:underline t :foreground ,type )))) 96 `(org-special-keyword ((,class (:foreground ,func)))) 97 `(org-block ((,class (:background "#ececec")))) 98 `(org-block-begin-line ((,class (:background ,bg1 :slant italic)))) 99 `(org-quote ((,class (:inherit org-block :slant italic)))) 100 `(org-verse ((,class (:inherit org-block :slant italic)))) 101 `(org-todo ((,class (:box (:line-width 1 :color ,fg3) :foreground ,keyword :bold t)))) 102 `(org-done ((,class (:box (:line-width 1 :color ,bg3) :bold t :foreground ,bg4)))) 103 `(org-warning ((,class (:underline t :foreground ,warning)))) 104 `(org-agenda-structure ((,class (:weight bold :foreground ,fg3 :box (:color ,fg4) :background ,bg3)))) 105 `(org-agenda-date ((,class (:foreground ,var :height 1.2)))) 106 `(org-agenda-calendar-event ((,class (:foreground ,func)))) 107 `(org-agenda-date-weekend ((,class (:weight normal :foreground ,fg4)))) 108 `(org-agenda-date-today ((,class (:weight bold :foreground ,keyword :height 1.4)))) 109 `(org-agenda-done ((,class (:foreground ,bg4)))) 110 `(org-scheduled ((,class (:foreground ,type)))) 111 `(org-scheduled-today ((,class (:foreground ,func :weight bold :height 1.2)))) 112 `(org-ellipsis ((,class (:foreground ,builtin)))) 113 `(org-verbatim ((,class (:foreground ,fg4)))) 114 `(org-document-info-keyword ((,class (:foreground ,func)))) 115 `(font-latex-bold-face ((,class (:foreground ,type)))) 116 `(font-latex-italic-face ((,class (:foreground ,var :italic t)))) 117 `(font-latex-string-face ((,class (:foreground ,str)))) 118 `(font-latex-match-reference-keywords ((,class (:foreground ,const)))) 119 `(font-latex-match-variable-keywords ((,class (:foreground ,var)))) 120 `(ido-only-match ((,class (:foreground ,warning)))) 121 `(org-sexp-date ((,class (:foreground ,fg4)))) 122 `(ido-first-match ((,class (:foreground ,keyword :bold t)))) 123 `(ivy-current-match ((,class (:foreground ,fg3 :inherit highlight :underline t)))) 124 `(gnus-header-content ((,class (:foreground ,keyword)))) 125 `(gnus-header-from ((,class (:foreground ,var)))) 126 `(gnus-header-name ((,class (:foreground ,type)))) 127 `(gnus-header-subject ((,class (:foreground ,func :bold t)))) 128 `(mu4e-view-url-number-face ((,class (:foreground ,type)))) 129 `(mu4e-cited-1-face ((,class (:foreground ,fg2)))) 130 `(mu4e-cited-7-face ((,class (:foreground ,fg3)))) 131 `(mu4e-header-marks-face ((,class (:foreground ,type)))) 132 `(ffap ((,class (:foreground ,fg4)))) 133 `(js2-private-function-call ((,class (:foreground ,const)))) 134 `(js2-jsdoc-html-tag-delimiter ((,class (:foreground ,str)))) 135 `(js2-jsdoc-html-tag-name ((,class (:foreground ,var)))) 136 `(js2-external-variable ((,class (:foreground ,type )))) 137 `(js2-function-param ((,class (:foreground ,const)))) 138 `(js2-jsdoc-value ((,class (:foreground ,str)))) 139 `(js2-private-member ((,class (:foreground ,fg3)))) 140 `(js3-warning-face ((,class (:underline ,keyword)))) 141 `(js3-error-face ((,class (:underline ,warning)))) 142 `(js3-external-variable-face ((,class (:foreground ,var)))) 143 `(js3-function-param-face ((,class (:foreground ,fg2)))) 144 `(js3-jsdoc-tag-face ((,class (:foreground ,keyword)))) 145 `(js3-instance-member-face ((,class (:foreground ,const)))) 146 `(warning ((,class (:foreground ,warning)))) 147 `(ac-completion-face ((,class (:underline t :foreground ,keyword)))) 148 `(info-quoted-name ((,class (:foreground ,builtin)))) 149 `(info-string ((,class (:foreground ,str)))) 150 `(icompletep-determined ((,class :foreground ,builtin))) 151 `(undo-tree-visualizer-current-face ((,class :foreground ,builtin))) 152 `(undo-tree-visualizer-default-face ((,class :foreground ,fg2))) 153 `(undo-tree-visualizer-unmodified-face ((,class :foreground ,var))) 154 `(undo-tree-visualizer-register-face ((,class :foreground ,type))) 155 `(slime-repl-inputed-output-face ((,class (:foreground ,type)))) 156 `(trailing-whitespace ((,class :foreground nil :background ,warning))) 157 `(rainbow-delimiters-depth-1-face ((,class :foreground ,fg1))) 158 `(rainbow-delimiters-depth-2-face ((,class :foreground ,type))) 159 `(rainbow-delimiters-depth-3-face ((,class :foreground ,var))) 160 `(rainbow-delimiters-depth-4-face ((,class :foreground ,const))) 161 `(rainbow-delimiters-depth-5-face ((,class :foreground ,keyword))) 162 `(rainbow-delimiters-depth-6-face ((,class :foreground ,fg1))) 163 `(rainbow-delimiters-depth-7-face ((,class :foreground ,type))) 164 `(rainbow-delimiters-depth-8-face ((,class :foreground ,var))) 165 `(magit-item-highlight ((,class :background ,bg3))) 166 `(magit-section-heading ((,class (:foreground ,keyword :weight bold)))) 167 `(magit-hunk-heading ((,class (:background ,bg3)))) 168 `(magit-section-highlight ((,class (:background ,bg2)))) 169 `(magit-hunk-heading-highlight ((,class (:background ,bg3)))) 170 `(magit-diff-context-highlight ((,class (:background ,bg3 :foreground ,fg3)))) 171 `(magit-diffstat-added ((,class (:foreground ,type)))) 172 `(magit-diffstat-removed ((,class (:foreground ,var)))) 173 `(magit-process-ok ((,class (:foreground ,func :weight bold)))) 174 `(magit-process-ng ((,class (:foreground ,warning :weight bold)))) 175 `(magit-branch ((,class (:foreground ,const :weight bold)))) 176 `(magit-log-author ((,class (:foreground ,fg3)))) 177 `(magit-hash ((,class (:foreground ,fg2)))) 178 `(magit-diff-file-header ((,class (:foreground ,fg2 :background ,bg3)))) 179 `(lazy-highlight ((,class (:foreground ,fg2 :background ,bg3)))) 180 `(term ((,class (:foreground ,fg1 :background ,bg1)))) 181 `(term-color-black ((,class (:foreground ,bg3 :background ,bg3)))) 182 `(term-color-blue ((,class (:foreground ,func :background ,func)))) 183 `(term-color-red ((,class (:foreground ,keyword :background ,bg3)))) 184 `(term-color-green ((,class (:foreground ,type :background ,bg3)))) 185 `(term-color-yellow ((,class (:foreground ,var :background ,var)))) 186 `(term-color-magenta ((,class (:foreground ,builtin :background ,builtin)))) 187 `(term-color-cyan ((,class (:foreground ,str :background ,str)))) 188 `(term-color-white ((,class (:foreground ,fg2 :background ,fg2)))) 189 `(rainbow-delimiters-unmatched-face ((,class :foreground ,warning))) 190 `(helm-header ((,class (:foreground ,fg2 :background ,bg1 :underline nil :box nil)))) 191 `(helm-source-header ((,class (:foreground ,keyword :background ,bg1 :underline nil :weight bold)))) 192 `(helm-selection ((,class (:background ,bg2 :underline nil)))) 193 `(helm-selection-line ((,class (:background ,bg2)))) 194 `(helm-visible-mark ((,class (:foreground ,bg1 :background ,bg3)))) 195 `(helm-candidate-number ((,class (:foreground ,bg1 :background ,fg1)))) 196 `(helm-separator ((,class (:foreground ,type :background ,bg1)))) 197 `(helm-time-zone-current ((,class (:foreground ,builtin :background ,bg1)))) 198 `(helm-time-zone-home ((,class (:foreground ,type :background ,bg1)))) 199 `(helm-buffer-not-saved ((,class (:foreground ,type :background ,bg1)))) 200 `(helm-buffer-process ((,class (:foreground ,builtin :background ,bg1)))) 201 `(helm-buffer-saved-out ((,class (:foreground ,fg1 :background ,bg1)))) 202 `(helm-buffer-size ((,class (:foreground ,fg1 :background ,bg1)))) 203 `(helm-ff-directory ((,class (:foreground ,func :background ,bg1 :weight bold)))) 204 `(helm-ff-file ((,class (:foreground ,fg1 :background ,bg1 :weight normal)))) 205 `(helm-ff-executable ((,class (:foreground ,var :background ,bg1 :weight normal)))) 206 `(helm-ff-invalid-symlink ((,class (:foreground ,warning2 :background ,bg1 :weight bold)))) 207 `(helm-ff-symlink ((,class (:foreground ,keyword :background ,bg1 :weight bold)))) 208 `(helm-ff-prefix ((,class (:foreground ,bg1 :background ,keyword :weight normal)))) 209 `(helm-grep-cmd-line ((,class (:foreground ,fg1 :background ,bg1)))) 210 `(helm-grep-file ((,class (:foreground ,fg1 :background ,bg1)))) 211 `(helm-grep-finish ((,class (:foreground ,fg2 :background ,bg1)))) 212 `(helm-grep-lineno ((,class (:foreground ,fg1 :background ,bg1)))) 213 `(helm-grep-match ((,class (:foreground nil :background nil :inherit helm-match)))) 214 `(helm-grep-running ((,class (:foreground ,func :background ,bg1)))) 215 `(helm-moccur-buffer ((,class (:foreground ,func :background ,bg1)))) 216 `(helm-source-go-package-godoc-description ((,class (:foreground ,str)))) 217 `(helm-bookmark-w3m ((,class (:foreground ,type)))) 218 `(company-echo-common ((,class (:foreground ,bg1 :background ,fg1)))) 219 `(company-preview ((,class (:background ,bg1 :foreground ,var)))) 220 `(company-preview-common ((,class (:foreground ,bg2 :foreground ,fg3)))) 221 `(company-preview-search ((,class (:foreground ,type :background ,bg1)))) 222 `(company-scrollbar-bg ((,class (:background ,bg3)))) 223 `(company-scrollbar-fg ((,class (:foreground ,keyword)))) 224 `(company-tooltip ((,class (:foreground ,fg2 :background ,bg1 :bold t)))) 225 `(company-tooltop-annotation ((,class (:foreground ,const)))) 226 `(company-tooltip-common ((,class ( :foreground ,fg3)))) 227 `(company-tooltip-common-selection ((,class (:foreground ,str)))) 228 `(company-tooltip-mouse ((,class (:inherit highlight)))) 229 `(company-tooltip-selection ((,class (:background ,bg3 :foreground ,fg3)))) 230 `(company-template-field ((,class (:inherit region)))) 231 `(web-mode-builtin-face ((,class (:inherit ,font-lock-builtin-face)))) 232 `(web-mode-comment-face ((,class (:inherit ,font-lock-comment-face)))) 233 `(web-mode-constant-face ((,class (:inherit ,font-lock-constant-face)))) 234 `(web-mode-keyword-face ((,class (:foreground ,keyword)))) 235 `(web-mode-doctype-face ((,class (:inherit ,font-lock-comment-face)))) 236 `(web-mode-function-name-face ((,class (:inherit ,font-lock-function-name-face)))) 237 `(web-mode-string-face ((,class (:foreground ,str)))) 238 `(web-mode-type-face ((,class (:inherit ,font-lock-type-face)))) 239 `(web-mode-html-attr-name-face ((,class (:foreground ,func)))) 240 `(web-mode-html-attr-value-face ((,class (:foreground ,keyword)))) 241 `(web-mode-warning-face ((,class (:inherit ,font-lock-warning-face)))) 242 `(web-mode-html-tag-face ((,class (:foreground ,builtin)))) 243 `(table-cell ((,class (:inherit ivy-action)))) 244 `(jde-java-font-lock-package-face ((t (:foreground ,var)))) 245 `(jde-java-font-lock-public-face ((t (:foreground ,keyword)))) 246 `(jde-java-font-lock-private-face ((t (:foreground ,keyword)))) 247 `(jde-java-font-lock-constant-face ((t (:foreground ,const)))) 248 `(jde-java-font-lock-modifier-face ((t (:foreground ,fg2)))) 249 `(jde-jave-font-lock-protected-face ((t (:foreground ,keyword)))) 250 `(jde-java-font-lock-number-face ((t (:foreground ,var))))) 251 ;; emacs >= 26.1 252 (when (>= emacs-major-version 26) 253 (custom-theme-set-faces 254 'jokull 255 `(line-number ((t (:inherit fringe :foreground ,olive)))) 256 `(line-number-current-line ((t (:inherit fringe :foreground ,const :weight bold)))))) 257 ;; emacs >= 27.1 258 (when (>= emacs-major-version 27) 259 (custom-theme-set-faces 260 'jokull 261 `(line-number ((t (:background ,bg1 :foreground ,olive)))) 262 `(line-number-current-line ((t (:background ,bg2 :foreground ,const)))) 263 `(tab-line ((,class (:inherit fringe :box (:line-width 4 :color ,bg2))))) 264 `(tab-line-tab ((,class (:inherit tab-line)))) 265 `(tab-line-tab-inactive ((,class (:inherit tab-line :foreground ,comment)))) 266 `(tab-line-tab-current ((,class (:background ,bg4 :foreground ,fg1 :box (:line-width 4 :color ,bg4))))) 267 `(tab-line-highlight ((,class (:background ,bg1 :foreground ,fg2 :box (:line-width 4 :color ,bg1))))))) 268 269 ) 270 271 ;;;###autoload 272 (when load-file-name 273 (add-to-list 'custom-theme-load-path 274 (file-name-as-directory (file-name-directory load-file-name)))) 275 276 (provide-theme 'jokull) 277 278 ;; Local Variables: 279 ;; no-byte-compile: t 280 ;; End: 281 282 ;;; jokull-theme.el ends here