dotfiles

My personal shell configs and stuff
git clone git://git.alex.balgavy.eu/dotfiles.git
Log | Files | Refs | Submodules | README | LICENSE

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