Set theme and font

This commit is contained in:
Wojciech Kozlowski 2017-08-17 22:41:32 +01:00
parent d867a3b19f
commit 2980f953aa
2 changed files with 776 additions and 1 deletions

760
havoc-theme.el Normal file
View File

@ -0,0 +1,760 @@
;;; havoc-theme.el --- Havoc - A custom theme for Emacs
;;
;; Copyright (c) 2017 Wojciech Kozlowski
;;
;; Author: Wojciech Kozlowski <wojciech.kozlowski@vivaldi.net>
;; URL: https://gitlab.wojciechkozlowski.eu/config/emacs.d
;;
;; Based on Spacemacs theme by Nasser Alshammari
;; URL: https://github.com/nashamri/spacemacs-theme
;;
;; Also inspired by the FSF misterioso theme
;;
;;; License: GPLv3
(defmacro dyn-let (varlist fn setfaces setvars)
(list 'let (append varlist (funcall fn)) setfaces setvars))
(defgroup havoc-theme nil
"havoc-theme options."
:group 'faces)
(defcustom havoc-theme-comment-bg t
"Use a background for comment lines."
:type 'boolean
:group 'havoc-theme)
(defcustom havoc-theme-org-agenda-height t
"Use varying text heights for org agenda."
:type 'boolean
:group 'havoc-theme)
(defcustom havoc-theme-org-height t
"Use varying text heights for org headings."
:type 'boolean
:group 'havoc-theme)
(defcustom havoc-theme-org-highlight nil
"Highlight org headings."
:type 'boolean
:group 'havoc-theme)
(defcustom havoc-theme-custom-colors nil
"Specify a list of custom colors"
:type 'alist
:group 'havoc-theme)
(defun true-color-p ()
(or
(display-graphic-p)
(= (tty-display-color-cells) 16777216)))
(defun custom-colors-override ()
(mapcar (lambda (x) (list (car x) (cdr x)))
havoc-theme-custom-colors))
(defun create-theme (theme-name)
(dyn-let ((class '((class color) (min-colors 89)))
(act1 (if (true-color-p) "#222226" "#121212"))
(act2 (if (true-color-p) "#5d4d7a" "#444444"))
(base (if (true-color-p) "#b2b2b2" "#b2b2b2"))
(base-dim (if (true-color-p) "#686868" "#585858"))
(bg1 (if (true-color-p) "#292b2e" "#262626"))
(bg2 (if (true-color-p) "#212026" "#1c1c1c"))
(bg3 (if (true-color-p) "#100a14" "#121212"))
(bg4 (if (true-color-p) "#0a0814" "#080808"))
(border (if (true-color-p) "#5d4d7a" "#111111"))
(cblk (if (true-color-p) "#cbc1d5" "#b2b2b2"))
(cblk-bg (if (true-color-p) "#2f2b33" "#262626"))
(cblk-ln (if (true-color-p) "#827591" "#af5faf"))
(cblk-ln-bg (if (true-color-p) "#373040" "#333333"))
(cursor (if (true-color-p) "#e3dedd" "#d0d0d0"))
(const (if (true-color-p) "#a45bad" "#d75fd7"))
(comment (if (true-color-p) "#2aa1ae" "#008787"))
(comment-bg (if (true-color-p) "#292e34" "#262626"))
(comp (if (true-color-p) "#c56ec3" "#d75fd7"))
(err (if (true-color-p) "#e0211d" "#e0211d"))
(func (if (true-color-p) "#bc6ec5" "#d75fd7"))
(head1 (if (true-color-p) "#4f97d7" "#268bd2"))
(head1-bg (if (true-color-p) "#293239" "#262626"))
(head2 (if (true-color-p) "#2d9574" "#2aa198"))
(head2-bg (if (true-color-p) "#293235" "#262626"))
(head3 (if (true-color-p) "#67b11d" "#67b11d"))
(head3-bg (if (true-color-p) "#293235" "#262626"))
(head4 (if (true-color-p) "#b1951d" "#875f00"))
(head4-bg (if (true-color-p) "#32322c" "#262626"))
(highlight (if (true-color-p) "#444155" "#444444"))
(highlight-dim (if (true-color-p) "#3b314d" "#444444"))
(keyword (if (true-color-p) "#4f97d7" "#268bd2"))
(lnum (if (true-color-p) "#44505c" "#444444"))
(mat (if (true-color-p) "#86dc2f" "#86dc2f"))
(meta (if (true-color-p) "#9f8766" "#af875f"))
(str (if (true-color-p) "#2d9574" "#2aa198"))
(suc (if (true-color-p) "#86dc2f" "#86dc2f"))
(ttip (if (true-color-p) "#9a9aba" "#888888"))
(ttip-sl (if (true-color-p) "#5e5079" "#333333"))
(ttip-bg (if (true-color-p) "#34323e" "#444444"))
(type (if (true-color-p) "#ce537a" "#df005f"))
(var (if (true-color-p) "#7590db" "#8787d7"))
(war (if (true-color-p) "#dc752f" "#dc752f"))
;; colors
(aqua (if (true-color-p) "#2d9574" "#2aa198"))
(aqua-bg (if (true-color-p) "#293235" "#262626"))
(green (if (true-color-p) "#67b11d" "#67b11d"))
(green-bg (if (true-color-p) "#293235" "#262626"))
(green-bg-s (if (true-color-p) "#29422d" "#262626"))
(cyan (if (true-color-p) "#28def0" "#00ffff"))
(red (if (true-color-p) "#f2241f" "#d70000"))
(red-bg (if (true-color-p) "#3c2a2c" "#262626"))
(red-bg-s (if (true-color-p) "#512e31" "#262626"))
(blue (if (true-color-p) "#4f97d7" "#268bd2"))
(blue-bg (if (true-color-p) "#293239" "#262626"))
(magenta (if (true-color-p) "#a31db1" "#af00df"))
(yellow (if (true-color-p) "#b1951d" "#875f00"))
(yellow-bg (if (true-color-p) "#32322c" "#262626"))
)
custom-colors-override
(custom-theme-set-faces
theme-name
;;;;; basics
`(cursor ((,class (:background ,cursor))))
`(custom-button ((,class :background ,bg2 :foreground ,base :box (:line-width 2 :style released-button))))
`(default ((,class (:background ,bg1 :foreground ,base))))
`(default-italic ((,class (:italic t))))
`(error ((,class (:foreground ,err))))
`(eval-sexp-fu-flash ((,class (:background ,suc :foreground ,bg1))))
`(eval-sexp-fu-flash-error ((,class (:background ,err :foreground ,bg1))))
`(font-lock-builtin-face ((,class (:foreground ,keyword))))
`(font-lock-comment-face ((,class (:foreground ,comment :background ,(when havoc-theme-comment-bg comment-bg)))))
`(font-lock-constant-face ((,class (:foreground ,const))))
`(font-lock-doc-face ((,class (:foreground ,comment))))
`(font-lock-function-name-face ((,class (:foreground ,func :inherit bold))))
`(font-lock-keyword-face ((,class (:inherit bold :foreground ,keyword))))
`(font-lock-negation-char-face ((,class (:foreground ,const))))
`(font-lock-preprocessor-face ((,class (:foreground ,func))))
`(font-lock-reference-face ((,class (:foreground ,const))))
`(font-lock-string-face ((,class (:foreground ,str))))
`(font-lock-type-face ((,class (:foreground ,type :inherit bold))))
`(font-lock-variable-name-face ((,class (:foreground ,var))))
`(font-lock-warning-face ((,class (:foreground ,war :background ,bg1))))
`(fringe ((,class (:background ,bg1 :foreground ,base))))
`(header-line ((,class :background ,bg4)))
`(highlight ((,class (:foreground ,base :background ,highlight))))
`(hl-line ((,class (:background ,bg2))))
`(isearch ((,class (:foreground ,bg1 :background ,mat))))
`(lazy-highlight ((,class (:background ,green-bg-s :weight normal))))
`(link ((,class (:foreground ,comment :underline t))))
`(link-visited ((,class (:foreground ,comp :underline t))))
`(match ((,class (:background ,highlight :foreground ,mat))))
`(minibuffer-prompt ((,class (:inherit bold :foreground ,keyword))))
`(page-break-lines ((,class (:foreground ,act2))))
`(region ((,class (:background ,highlight))))
`(secondary-selection ((,class (:background ,bg3))))
`(shadow ((,class (:foreground ,base-dim))))
`(success ((,class (:foreground ,suc))))
`(tooltip ((,class (:background ,ttip-sl :foreground ,base :bold nil :italic nil :underline nil))))
`(vertical-border ((,class (:foreground ,border))))
`(warning ((,class (:foreground ,war))))
;;;;; ahs
`(ahs-face ((,class (:background ,highlight))))
`(ahs-plugin-whole-buffer-face ((,class (:background ,mat :foreground ,bg1))))
;;;;; anzu-mode
`(anzu-mode-line ((,class (:foreground ,yellow :inherit bold))))
;;;;; auto-complete
`(ac-completion-face ((,class (:background ,ttip-bg :foreground ,ttip))))
;;;;; avy
`(avy-lead-face ((,class (:background ,blue-bg :foreground ,magenta))))
`(avy-lead-face-0 ((,class (:background ,blue-bg :foreground ,blue))))
`(avy-lead-face-1 ((,class (:background ,blue-bg :foreground ,magenta))))
`(avy-lead-face-2 ((,class (:background ,blue-bg :foreground ,blue))))
;;;;; cider
`(cider-enlightened ((,class (:background nil :box (:color ,yellow :line-width -1 :style nil) :foreground ,yellow))))
`(cider-enlightened-local ((,class (:foreground ,yellow))))
`(cider-instrumented-face ((,class (:background nil :box (:color ,red :line-width -1 :style nil) :foreground ,red))))
`(cider-result-overlay-face ((,class (:background nil :box (:color ,blue :line-width -1 :style nil) :foreground ,blue))))
`(cider-test-error-face ((,class (:background ,war :foreground ,bg1))))
`(cider-test-failure-face ((,class (:background ,err :foreground ,bg1))))
`(cider-test-success-face ((,class (:background ,suc :foreground ,bg1))))
`(cider-traced-face ((,class :box (:color ,cyan :line-width -1 :style nil))))
;;;;; company
`(company-echo-common ((,class (:background ,base :foreground ,bg1))))
`(company-preview ((,class (:background ,ttip-bg :foreground ,ttip))))
`(company-preview-common ((,class (:background ,ttip-bg :foreground ,base))))
`(company-preview-search ((,class (:inherit match))))
`(company-scrollbar-bg ((,class (:background ,bg2))))
`(company-scrollbar-fg ((,class (:background ,act2))))
`(company-template-field ((,class (:inherit region))))
`(company-tooltip ((,class (:background ,ttip-bg :foreground ,ttip))))
`(company-tooltip-annotation ((,class (:foreground ,keyword))))
`(company-tooltip-common ((,class (:background ,ttip-bg :foreground ,base))))
`(company-tooltip-common-selection ((,class (:foreground ,base))))
`(company-tooltip-mouse ((,class (:inherit highlight))))
`(company-tooltip-search ((,class (:inherit match))))
`(company-tooltip-selection ((,class (:background ,ttip-sl :foreground ,base))))
;;;;; diff
`(diff-added ((,class :background nil :foreground ,green)))
`(diff-changed ((,class :background nil :foreground ,keyword)))
`(diff-header ((,class :background ,cblk-ln-bg :foreground ,func)))
`(diff-file-header ((,class :background ,cblk-ln-bg :foreground ,cblk)))
`(diff-indicator-added ((,class :background nil :foreground ,green)))
`(diff-indicator-changed ((,class :background nil :foreground ,keyword)))
`(diff-indicator-removed ((,class :background nil :foreground ,red)))
`(diff-refine-added ((,class :background ,green :foreground ,bg4)))
`(diff-refine-changed ((,class :background ,keyword :foreground ,bg4)))
`(diff-refine-removed ((,class :background ,red :foreground ,bg4)))
`(diff-removed ((,class :background nil :foreground ,red)))
;;;;; diff-hl
`(diff-hl-change ((,class :background ,blue-bg :foreground ,blue)))
`(diff-hl-delete ((,class :background ,red-bg :foreground ,red)))
`(diff-hl-insert ((,class :background ,green-bg :foreground ,green)))
;;;;; dired
`(dired-directory ((,class (:foreground ,keyword :background ,bg1 :inherit bold))))
`(dired-flagged ((,class (:foreground ,red))))
`(dired-header ((,class (:foreground ,comp :inherit bold))))
`(dired-ignored ((,class (:inherit shadow))))
`(dired-mark ((,class (:foreground ,comp :inherit bold))))
`(dired-marked ((,class (:foreground ,magenta :inherit bold))))
`(dired-perm-write ((,class (:foreground ,base :underline t))))
`(dired-symlink ((,class (:foreground ,cyan :background ,bg1 :inherit bold))))
`(dired-warning ((,class (:foreground ,war))))
;;;;; ediff
`(ediff-current-diff-A ((,class(:background ,red-bg-s :foreground ,red))))
`(ediff-current-diff-Ancestor ((,class(:background ,aqua-bg :foreground ,aqua))))
`(ediff-current-diff-B ((,class(:background ,green-bg-s :foreground ,green))))
`(ediff-current-diff-C ((,class(:background ,blue-bg :foreground ,blue))))
`(ediff-even-diff-A ((,class(:background ,bg3))))
`(ediff-even-diff-Ancestor ((,class(:background ,bg3))))
`(ediff-even-diff-B ((,class(:background ,bg3))))
`(ediff-even-diff-C ((,class(:background ,bg3))))
`(ediff-fine-diff-A ((,class(:background nil :inherit bold))))
`(ediff-fine-diff-Ancestor ((,class(:background nil :inherit bold))))
`(ediff-fine-diff-B ((,class(:background nil :inherit bold))))
`(ediff-fine-diff-C ((,class(:background nil :inherit bold))))
`(ediff-odd-diff-A ((,class(:background ,bg4))))
`(ediff-odd-diff-Ancestor ((,class(:background ,bg4))))
`(ediff-odd-diff-B ((,class(:background ,bg4))))
`(ediff-odd-diff-C ((,class(:background ,bg4))))
;;;;; ein
`(ein:cell-input-area((,class (:background ,bg2))))
`(ein:cell-input-prompt ((,class (:foreground ,suc))))
`(ein:cell-output-prompt ((,class (:foreground ,err))))
`(ein:notification-tab-normal ((,class (:foreground ,keyword))))
`(ein:notification-tab-selected ((,class (:foreground ,suc :inherit bold))))
;;;;; eldoc
`(eldoc-highlight-function-argument ((,class (:foreground ,mat :inherit bold))))
;;;;; elfeed
`(elfeed-search-date-face ((,class (:foreground ,head2))))
`(elfeed-search-feed-face ((,class (:foreground ,blue))))
`(elfeed-search-tag-face ((,class (:foreground ,func))))
`(elfeed-search-title-face ((,class (:foreground ,base-dim))))
`(elfeed-search-unread-title-face ((,class (:foreground ,base))))
;;;;; enh-ruby
`(enh-ruby-op-face ((,class (:background ,bg1 :foreground ,base))))
`(enh-ruby-string-delimiter-face ((,class (:foreground ,str))))
;;;;; erc
`(erc-input-face ((,class (:foreground ,func))))
`(erc-my-nick-face ((,class (:foreground ,keyword))))
`(erc-nick-default-face ((,class (:foreground ,keyword))))
`(erc-nick-prefix-face ((,class (:foreground ,yellow))))
`(erc-notice-face ((,class (:foreground ,str))))
`(erc-prompt-face ((,class (:foreground ,mat :inherit bold))))
`(erc-timestamp-face ((,class (:foreground ,keyword))))
;;;;; eshell
`(eshell-ls-archive ((,class (:foreground ,red :inherit bold))))
`(eshell-ls-backup ((,class (:inherit font-lock-comment-face))))
`(eshell-ls-clutter ((,class (:inherit font-lock-comment-face))))
`(eshell-ls-directory ((,class (:foreground ,keyword :inherit bold))))
`(eshell-ls-executable ((,class (:foreground ,suc :inherit bold))))
`(eshell-ls-missing ((,class (:inherit font-lock-warning-face))))
`(eshell-ls-product ((,class (:inherit font-lock-doc-face))))
`(eshell-ls-special ((,class (:foreground ,yellow :inherit bold))))
`(eshell-ls-symlink ((,class (:foreground ,cyan :inherit bold))))
`(eshell-ls-unreadable ((,class (:foreground ,base))))
`(eshell-prompt ((,class (:foreground ,keyword :inherit bold))))
;;;;; evil
`(evil-ex-substitute-matches ((,class (:background ,red-bg :foreground ,red))))
`(evil-ex-substitute-replacement ((,class (:background ,green-bg :foreground ,green))))
;;;;; flycheck
`(flycheck-error
((,(append '((supports :underline (:style line))) class)
(:underline (:style line :color ,err)))
(,class (:foreground ,base :background ,err :inherit bold :underline t))))
`(flycheck-error-list-checker-name ((,class (:foreground ,keyword))))
`(flycheck-fringe-error ((,class (:foreground ,err :inherit bold))))
`(flycheck-fringe-info ((,class (:foreground ,keyword :inherit bold))))
`(flycheck-fringe-warning ((,class (:foreground ,war :inherit bold))))
`(flycheck-info
((,(append '((supports :underline (:style line))) class)
(:underline (:style line :color ,keyword)))
(,class (:foreground ,base :background ,keyword :inherit bold :underline t))))
`(flycheck-warning
((,(append '((supports :underline (:style line))) class)
(:underline (:style line :color ,war)))
(,class (:foreground ,base :background ,war :inherit bold :underline t))))
;;;;; jabber
`(jabber-activity-face ((,class (:inherit bold :foreground ,red))))
`(jabber-activity-personal-face ((,class (:inherit bold :foreground ,blue))))
`(jabber-chat-error ((,class (:inherit bold :foreground ,red))))
`(jabber-chat-prompt-foreign ((,class (:inherit bold :foreground ,red))))
`(jabber-chat-prompt-local ((,class (:inherit bold :foreground ,blue))))
`(jabber-chat-prompt-system ((,class (:inherit bold :foreground ,green))))
`(jabber-chat-text-foreign ((,class (:foreground ,base))))
`(jabber-chat-text-local ((,class (:foreground ,base))))
`(jabber-rare-time-face ((,class (:foreground ,green))))
`(jabber-roster-user-away ((,class (:foreground ,yellow))))
`(jabber-roster-user-chatty ((,class (:inherit bold :foreground ,green))))
`(jabber-roster-user-dnd ((,class (:foreground ,red))))
`(jabber-roster-user-error ((,class (:foreground ,err))))
`(jabber-roster-user-offline ((,class (:foreground ,base))))
`(jabber-roster-user-online ((,class (:inherit bold :foreground ,green))))
`(jabber-roster-user-xa ((,class (:foreground ,aqua))))
;;;;; git-gutter-fr
`(git-gutter-fr:added ((,class (:foreground ,green :inherit bold))))
`(git-gutter-fr:deleted ((,class (:foreground ,war :inherit bold))))
`(git-gutter-fr:modified ((,class (:foreground ,keyword :inherit bold))))
;;;;; git-timemachine
`(git-timemachine-minibuffer-detail-face ((,class (:foreground ,blue :inherit bold :background ,blue-bg))))
;;;;; gnus
`(gnus-emphasis-highlight-words ((,class (:background ,suc :foreground ,bg1))))
`(gnus-header-content ((,class (:foreground ,keyword))))
`(gnus-header-from ((,class (:foreground ,var))))
`(gnus-header-name ((,class (:foreground ,comp))))
`(gnus-header-subject ((,class (:foreground ,func :inherit bold))))
`(gnus-summary-cancelled ((,class (:background ,war :foreground ,bg1))))
;;;;; guide-key
`(guide-key/highlight-command-face ((,class (:foreground ,base))))
`(guide-key/key-face ((,class (:foreground ,keyword))))
`(guide-key/prefix-command-face ((,class (:foreground ,keyword :inherit bold))))
;;;;; helm
`(helm-bookmark-directory ((,class (:inherit helm-ff-directory))))
`(helm-bookmark-file ((,class (:foreground ,base))))
`(helm-bookmark-gnus ((,class (:foreground ,comp))))
`(helm-bookmark-info ((,class (:foreground ,comp))))
`(helm-bookmark-man ((,class (:foreground ,comp))))
`(helm-bookmark-w3m ((,class (:foreground ,comp))))
`(helm-buffer-directory ((,class (:foreground ,base :background ,bg1))))
`(helm-buffer-file ((,class (:foreground ,base :background ,bg1))))
`(helm-buffer-not-saved ((,class (:foreground ,comp :background ,bg1))))
`(helm-buffer-process ((,class (:foreground ,keyword :background ,bg1))))
`(helm-buffer-saved-out ((,class (:foreground ,base :background ,bg1))))
`(helm-buffer-size ((,class (:foreground ,base :background ,bg1))))
`(helm-candidate-number ((,class (:background ,bg1 :foreground ,keyword :inherit bold))))
`(helm-ff-directory ((,class (:foreground ,keyword :background ,bg1 :inherit bold))))
`(helm-ff-dotted-directory ((,class (:foreground ,keyword :background ,bg1 :inherit bold))))
`(helm-ff-dotted-symlink-directory ((,class (:foreground ,cyan :background ,bg1 :inherit bold))))
`(helm-ff-executable ((,class (:foreground ,suc :background ,bg1 :weight normal))))
`(helm-ff-file ((,class (:foreground ,base :background ,bg1 :weight normal))))
`(helm-ff-invalid-symlink ((,class (:foreground ,red :background ,bg1 :inherit bold))))
`(helm-ff-prefix ((,class (:foreground ,bg1 :background ,keyword :weight normal))))
`(helm-ff-symlink ((,class (:foreground ,cyan :background ,bg1 :inherit bold))))
`(helm-grep-cmd-line ((,class (:foreground ,base :background ,bg1))))
`(helm-grep-file ((,class (:foreground ,base :background ,bg1))))
`(helm-grep-finish ((,class (:foreground ,base :background ,bg1))))
`(helm-grep-lineno ((,class (:foreground ,type :background ,bg1 :inherit bold))))
`(helm-grep-match ((,class (:foreground nil :background nil :inherit helm-match))))
`(helm-header ((,class (:foreground ,base :background ,bg1 :underline nil :box nil))))
`(helm-header-line-left-margin ((,class (:foreground ,keyword :background ,nil))))
`(helm-match ((,class (:background ,head1-bg :foreground ,head1))))
`(helm-match-item ((,class (:background ,head1-bg :foreground ,head1))))
`(helm-moccur-buffer ((,class (:foreground ,var :background ,bg1))))
`(helm-selection ((,class (:background ,highlight))))
`(helm-selection-line ((,class (:background ,bg2))))
`(helm-separator ((,class (:foreground ,comp :background ,bg1))))
`(helm-source-header ((,class (:background ,comp :foreground ,bg1 :inherit bold))))
`(helm-time-zone-current ((,class (:foreground ,keyword :background ,bg1))))
`(helm-time-zone-home ((,class (:foreground ,comp :background ,bg1))))
`(helm-visible-mark ((,class (:foreground ,keyword :background ,bg3))))
;;;;; helm-swoop
`(helm-swoop-target-line-block-face ((,class (:foreground ,base :background ,highlight))))
`(helm-swoop-target-line-face ((,class (:background ,highlight))))
`(helm-swoop-target-word-face ((,class (:background ,highlight :foreground ,mat))))
;;;;; highlights
`(hi-green ((,class (:foreground ,green :background ,green-bg))))
`(hi-yellow ((,class (:foreground ,yellow :background ,yellow-bg))))
;;;;; highlight-indentation
`(highlight-indentation-face ((,class (:background ,comment-bg))))
;;;;; highlight-symbol
`(highlight-symbol-face ((,class (:background ,bg2))))
;;;;; hydra
`(hydra-face-blue ((,class (:foreground ,blue))))
`(hydra-face-red ((,class (:foreground ,red))))
;;;;; ido
`(ido-first-match ((,class (:foreground ,comp :inherit bold))))
`(ido-only-match ((,class (:foreground ,mat :inherit bold))))
`(ido-subdir ((,class (:foreground ,keyword))))
`(ido-vertical-match-face ((,class (:foreground ,comp :underline nil))))
;;;;; info
`(info-header-xref ((,class (:foreground ,func :underline t))))
`(info-menu ((,class (:foreground ,suc))))
`(info-node ((,class (:foreground ,func :inherit bold))))
`(info-quoted-name ((,class (:foreground ,keyword))))
`(info-reference-item ((,class (:background nil :underline t :inherit bold))))
`(info-string ((,class (:foreground ,str))))
`(info-title-1 ((,class (:height 1.4 :inherit bold))))
`(info-title-2 ((,class (:height 1.3 :inherit bold))))
`(info-title-3 ((,class (:height 1.3))))
`(info-title-4 ((,class (:height 1.2))))
;;;;; ivy
`(ivy-current-match ((,class (:background ,highlight :inherit bold))))
`(ivy-minibuffer-match-face-1 ((,class (:inherit bold))))
`(ivy-minibuffer-match-face-2 ((,class (:foreground ,head1 :underline t))))
`(ivy-minibuffer-match-face-3 ((,class (:foreground ,head4 :underline t))))
`(ivy-minibuffer-match-face-4 ((,class (:foreground ,head3 :underline t))))
`(ivy-remote ((,class (:foreground ,cyan))))
;;;;; latex
`(font-latex-bold-face ((,class (:foreground ,comp))))
`(font-latex-italic-face ((,class (:foreground ,keyword :italic t))))
`(font-latex-match-reference-keywords ((,class (:foreground ,const))))
`(font-latex-match-variable-keywords ((,class (:foreground ,var))))
`(font-latex-sectioning-0-face ((,class (:inherit bold :foreground ,head3 :height ,(if havoc-theme-org-height 1.3 1.0) :background ,(when havoc-theme-org-highlight head3-bg)))))
`(font-latex-sectioning-1-face ((,class (:inherit bold :foreground ,head4 :height ,(if havoc-theme-org-height 1.3 1.0) :background ,(when havoc-theme-org-highlight head4-bg)))))
`(font-latex-sectioning-2-face ((,class (:inherit bold :foreground ,head1 :height ,(if havoc-theme-org-height 1.3 1.0) :background ,(when havoc-theme-org-highlight head1-bg)))))
`(font-latex-sectioning-3-face ((,class (:inherit bold :foreground ,head2 :height ,(if havoc-theme-org-height 1.2 1.0) :background ,(when havoc-theme-org-highlight head2-bg)))))
`(font-latex-sectioning-4-face ((,class (:bold nil :foreground ,head3 :height ,(if havoc-theme-org-height 1.1 1.0) :background ,(when havoc-theme-org-highlight head3-bg)))))
`(font-latex-sectioning-5-face ((,class (:bold nil :foreground ,head4 :background ,(when havoc-theme-org-highlight head4-bg)))))
`(font-latex-string-face ((,class (:foreground ,str))))
`(font-latex-warning-face ((,class (:foreground ,war))))
;;;;; linum-mode
`(linum ((,class (:foreground ,lnum :background ,bg2))))
;;;;; linum-relative
`(linum-relative-current-face ((,class (:foreground ,comp))))
;;;;; magit
`(magit-blame-culprit ((,class :background ,yellow-bg :foreground ,yellow)))
`(magit-blame-date ((,class :background ,yellow-bg :foreground ,green)))
`(magit-blame-hash ((,class :background ,yellow-bg :foreground ,func)))
`(magit-blame-header ((,class :background ,yellow-bg :foreground ,green)))
`(magit-blame-heading ((,class :background ,yellow-bg :foreground ,green)))
`(magit-blame-name ((,class :background ,yellow-bg :foreground ,yellow)))
`(magit-blame-sha1 ((,class :background ,yellow-bg :foreground ,func)))
`(magit-blame-subject ((,class :background ,yellow-bg :foreground ,yellow)))
`(magit-blame-summary ((,class :background ,yellow-bg :foreground ,yellow)))
`(magit-blame-time ((,class :background ,yellow-bg :foreground ,green)))
`(magit-branch ((,class (:foreground ,const :inherit bold))))
`(magit-branch-current ((,class (:background ,blue-bg :foreground ,blue :inherit bold :box t))))
`(magit-branch-local ((,class (:background ,blue-bg :foreground ,blue :inherit bold))))
`(magit-branch-remote ((,class (:background ,aqua-bg :foreground ,aqua :inherit bold))))
`(magit-diff-context-highlight ((,class (:background ,bg2 :foreground ,base))))
`(magit-diff-file-header ((,class (:background ,comment-bg :foreground ,comment))))
`(magit-diff-file-heading ((,class (:background ,comment-bg :foreground ,comment))))
`(magit-diff-file-heading-highlight ((,class (:background ,comment-bg :foreground ,comment))))
`(magit-diff-hunk-header ((,class (:background ,ttip-bg :foreground ,ttip))))
`(magit-diff-hunk-heading ((,class (:background ,ttip-bg :foreground ,ttip))))
`(magit-diff-hunk-heading-highlight ((,class (:background ,ttip-bg :foreground ,ttip))))
`(magit-hash ((,class (:foreground ,var))))
`(magit-hunk-heading ((,class (:background ,bg3))))
`(magit-hunk-heading-highlight ((,class (:background ,bg3))))
`(magit-item-highlight ((,class :background ,bg2)))
`(magit-log-author ((,class (:foreground ,func))))
`(magit-log-head-label-head ((,class (:background ,yellow :foreground ,bg1 :inherit bold))))
`(magit-log-head-label-local ((,class (:background ,keyword :foreground ,bg1 :inherit bold))))
`(magit-log-head-label-remote ((,class (:background ,suc :foreground ,bg1 :inherit bold))))
`(magit-log-head-label-tags ((,class (:background ,magenta :foreground ,bg1 :inherit bold))))
`(magit-log-head-label-wip ((,class (:background ,cyan :foreground ,bg1 :inherit bold))))
`(magit-log-sha1 ((,class (:foreground ,str))))
`(magit-process-ng ((,class (:foreground ,war :inherit bold))))
`(magit-process-ok ((,class (:foreground ,func :inherit bold))))
`(magit-reflog-amend ((,class (:foreground ,magenta))))
`(magit-reflog-checkout ((,class (:foreground ,blue))))
`(magit-reflog-cherry-pick ((,class (:foreground ,green))))
`(magit-reflog-commit ((,class (:foreground ,green))))
`(magit-reflog-merge ((,class (:foreground ,green))))
`(magit-reflog-other ((,class (:foreground ,cyan))))
`(magit-reflog-rebase ((,class (:foreground ,magenta))))
`(magit-reflog-remote ((,class (:foreground ,cyan))))
`(magit-reflog-reset ((,class (:foreground ,red))))
`(magit-section-heading ((,class (:foreground ,keyword :inherit bold))))
`(magit-section-highlight ((,class (:background ,bg2))))
`(magit-section-title ((,class (:background ,bg1 :foreground ,keyword :inherit bold))))
;;;;; man
`(Man-overstrike ((,class (:foreground ,head1 :inherit bold))))
`(Man-reverse ((,class (:foreground ,highlight))))
`(Man-underline ((,class (:foreground ,comp :underline t))))
;;;;; markdown
`(markdown-header-face-1 ((,class (:inherit bold :foreground ,head1 :height ,(if havoc-theme-org-height 1.3 1.0) :background ,(when havoc-theme-org-highlight head1-bg)))))
`(markdown-header-face-2 ((,class (:inherit bold :foreground ,head2 :height ,(if havoc-theme-org-height 1.2 1.0) :background ,(when havoc-theme-org-highlight head2-bg)))))
`(markdown-header-face-3 ((,class (:bold nil :foreground ,head3 :height ,(if havoc-theme-org-height 1.1 1.0) :background ,(when havoc-theme-org-highlight head3-bg)))))
`(markdown-header-face-4 ((,class (:bold nil :foreground ,head4 :background ,(when havoc-theme-org-highlight head4-bg)))))
`(markdown-header-face-5 ((,class (:bold nil :foreground ,head1))))
`(markdown-header-face-6 ((,class (:bold nil :foreground ,head2))))
;;;;; mode-line
`(mode-line ((,class (:foreground ,base :background ,act1 :box (:color ,border :line-width 1)))))
`(mode-line-buffer-id ((,class (:inherit bold :foreground ,func))))
`(mode-line-inactive ((,class (:foreground ,base :background ,bg1 :box (:color ,border :line-width 1)))))
;;;;; mu4e
`(mu4e-cited-1-face ((,class (:foreground ,base))))
`(mu4e-cited-7-face ((,class (:foreground ,base))))
`(mu4e-header-key-face ((,class (:foreground ,head2 :inherit bold))))
`(mu4e-header-marks-face ((,class (:foreground ,comp))))
`(mu4e-unread-face ((,class (:foreground ,yellow :inherit bold))))
`(mu4e-view-url-number-face ((,class (:foreground ,comp))))
;;;;; notmuch
`(notmuch-search-date ((,class (:foreground ,func))))
`(notmuch-search-flagged-face ((,class (:weight extra-bold))))
`(notmuch-search-non-matching-authors ((,class (:foreground ,base-dim))))
`(notmuch-search-unread-face ((,class (:background ,highlight-dim :box ,border))))
`(notmuch-tag-face ((,class (:foreground ,keyword))))
`(notmuch-tag-flagged ((,class (:foreground ,war))))
;;;;; neotree
`(neo-dir-link-face ((,class (:foreground ,keyword :inherit bold))))
`(neo-expand-btn-face ((,class (:foreground ,base))))
`(neo-file-link-face ((,class (:foreground ,base))))
`(neo-root-dir-face ((,class (:foreground ,func :inherit bold))))
;;;;; org
`(org-agenda-clocking ((,class (:background ,highlight :foreground ,comp))))
`(org-agenda-date ((,class (:foreground ,var :height ,(if havoc-theme-org-agenda-height 1.1 1.0)))))
`(org-agenda-date-today ((,class (:foreground ,keyword :inherit bold :height ,(if havoc-theme-org-agenda-height 1.3 1.0)))))
`(org-agenda-date-weekend ((,class (:inherit bold :foreground ,var))))
`(org-agenda-done ((,class (:foreground ,suc :height ,(if havoc-theme-org-agenda-height 1.2 1.0)))))
`(org-agenda-structure ((,class (:inherit bold :foreground ,comp))))
`(org-block ((,class (:background ,cblk-bg :foreground ,cblk))))
`(org-block-begin-line ((,class (:background ,cblk-ln-bg :foreground ,cblk-ln))))
`(org-block-end-line ((,class (:background ,cblk-ln-bg :foreground ,cblk-ln))))
`(org-clock-overlay ((,class (:foreground ,comp))))
`(org-code ((,class (:foreground ,cyan))))
`(org-column ((,class (:background ,highlight))))
`(org-column-title ((,class (:background ,highlight))))
`(org-date ((,class (:underline t :foreground ,var))))
`(org-date-selected ((,class (:background ,func :foreground ,bg1))))
`(org-document-info-keyword ((,class (:foreground ,meta))))
`(org-document-title ((,class (:foreground ,func :inherit bold :height ,(if havoc-theme-org-height 1.4 1.0) :underline t))))
`(org-done ((,class (:foreground ,suc :inherit bold :background ,green-bg))))
`(org-ellipsis ((,class (:foreground ,keyword))))
`(org-footnote ((,class (:underline t :foreground ,base))))
`(org-hide ((,class (:foreground ,base))))
`(org-kbd ((,class (:inherit region :foreground ,base :box (:line-width 1 :style released-button)))))
`(org-level-1 ((,class (:inherit bold :foreground ,head1 :height ,(if havoc-theme-org-height 1.3 1.0) :background ,(when havoc-theme-org-highlight head1-bg)))))
`(org-level-2 ((,class (:inherit bold :foreground ,head2 :height ,(if havoc-theme-org-height 1.2 1.0) :background ,(when havoc-theme-org-highlight head2-bg)))))
`(org-level-3 ((,class (:bold nil :foreground ,head3 :height ,(if havoc-theme-org-height 1.1 1.0) :background ,(when havoc-theme-org-highlight head3-bg)))))
`(org-level-4 ((,class (:bold nil :foreground ,head4 :background ,(when havoc-theme-org-highlight head4-bg)))))
`(org-level-5 ((,class (:bold nil :foreground ,head1))))
`(org-level-6 ((,class (:bold nil :foreground ,head2))))
`(org-level-7 ((,class (:bold nil :foreground ,head3))))
`(org-level-8 ((,class (:bold nil :foreground ,head4))))
`(org-link ((,class (:underline t :foreground ,comment))))
`(org-meta-line ((,class (:foreground ,meta))))
`(org-mode-line-clock-overrun ((,class (:foreground ,err))))
`(org-priority ((,class (:foreground ,war :inherit bold))))
`(org-quote ((,class (:inherit org-block :slant italic))))
`(org-scheduled ((,class (:foreground ,comp))))
`(org-scheduled-today ((,class (:foreground ,func :height ,(if havoc-theme-org-agenda-height 1.2 1.0)))))
`(org-sexp-date ((,class (:foreground ,base))))
`(org-special-keyword ((,class (:foreground ,func))))
`(org-table ((,class (:foreground ,base :background ,head1-bg))))
`(org-time-grid ((,class (:foreground ,str))))
`(org-todo ((,class (:foreground ,war :inherit bold :background ,yellow-bg))))
`(org-verbatim ((,class (:foreground ,keyword))))
`(org-verse ((,class (:inherit org-block :slant italic))))
`(org-warning ((,class (:foreground ,err))))
;;;;; perspective
`(persp-selected-face ((,class (:inherit bold :foreground ,func))))
;;;;; popup
`(popup-enu-selection-face ((,class (:background ,ttip-sl :foreground ,base))))
`(popup-face ((,class (:background ,ttip-bg :foreground ,ttip))))
`(popup-isearch-match ((,class (:inherit match))))
`(popup-menu-face ((,class (:background ,ttip-bg :foreground ,base))))
`(popup-menu-mouse-face ((,class (:inherit highlight))))
`(popup-scroll-bar-background-face ((,class (:background ,bg2))))
`(popup-scroll-bar-foreground-face ((,class (:background ,act2))))
`(popup-tip-face ((,class (:background ,ttip-sl :foreground ,base :bold nil :italic nil :underline nil))))
;;;;; powerline
`(powerline-active1 ((,class (:background ,act2 :foreground ,base))))
`(powerline-active2 ((,class (:background ,act2 :foreground ,base))))
`(powerline-inactive1 ((,class (:background ,bg2 :foreground ,base))))
`(powerline-inactive2 ((,class (:background ,bg2 :foreground ,base))))
;;;;; rainbow-delimiters
`(rainbow-delimiters-depth-1-face ((,class :foreground ,keyword)))
`(rainbow-delimiters-depth-2-face ((,class :foreground ,func)))
`(rainbow-delimiters-depth-3-face ((,class :foreground ,str)))
`(rainbow-delimiters-depth-4-face ((,class :foreground ,green)))
`(rainbow-delimiters-depth-5-face ((,class :foreground ,yellow)))
`(rainbow-delimiters-depth-6-face ((,class :foreground ,keyword)))
`(rainbow-delimiters-depth-7-face ((,class :foreground ,func)))
`(rainbow-delimiters-depth-8-face ((,class :foreground ,str)))
`(rainbow-delimiters-mismatched-face ((,class :foreground ,err :overline t)))
`(rainbow-delimiters-unmatched-face ((,class :foreground ,err :overline t)))
;;;;; rcirc
`(rcirc-bright-nick ((,class (:background ,aqua-bg :foreground ,cyan))))
`(rcirc-dim-nick ((,class (:foreground ,base-dim))))
`(rcirc-keyword ((,class (:background ,green-bg-s :foreground ,green))))
`(rcirc-timestamp ((,class (:foreground ,keyword))))
`(rcirc-track-keyword ((,class (:background ,green :foreground ,bg1))))
`(rcirc-url ((,class (:inherit link))))
;;;;; shm
`(shm-current-face ((,class (:background ,green-bg-s))))
`(shm-quarantine-face ((,class (:background ,red-bg-s))))
;;;;; show-paren
`(show-paren-match ((,class (:background ,green-bg-s))))
`(show-paren-mismatch ((,class (:background ,red-bg-s))))
;;;;; smartparens
`(sp-pair-overlay-face ((,class (:background ,highlight :foreground nil))))
`(sp-show-pair-match-face ((,class (:foreground ,mat :inherit bold :underline t))))
;;;;; spaceline
`(spaceline-flycheck-error ((,class (:foreground ,err))))
`(spaceline-flycheck-info ((,class (:foreground ,keyword))))
`(spaceline-flycheck-warning((,class (:foreground ,war))))
`(spaceline-python-venv ((,class (:foreground ,comp))))
;;;;; spacemacs-specific
`(spacemacs-transient-state-title-face ((,class (:background nil :foreground ,comp :box nil :inherit bold))))
;;;;; swiper
`(swiper-line-face ((,class (:background ,highlight :inherit bold))))
`(swiper-match-face-1 ((,class (:inherit bold))))
`(swiper-match-face-2 ((,class (:foreground ,head1 :underline t))))
`(swiper-match-face-3 ((,class (:foreground ,head4 :underline t))))
`(swiper-match-face-4 ((,class (:foreground ,head3 :underline t))))
;;;;; tabbar
`(tabbar-button ((,class (:inherit tabbar-default ))))
`(tabbar-button-highlight ((,class (:inherit tabbar-default))))
`(tabbar-default ((,class (:background ,bg1 :foreground ,head1 :height 0.9))))
`(tabbar-highlight ((,class (:underline t))))
`(tabbar-selected ((,class (:inherit tabbar-default :foreground ,func :weight bold))))
`(tabbar-separator ((,class (:inherit tabbar-default))))
`(tabbar-unselected ((,class (:inherit tabbar-default :background ,bg1 :slant italic :weight light))))
;;;;; term
`(term ((,class (:foreground ,base :background ,bg1))))
`(term-color-black ((,class (:foreground ,bg4))))
`(term-color-blue ((,class (:foreground ,keyword))))
`(term-color-cyan ((,class (:foreground ,cyan))))
`(term-color-green ((,class (:foreground ,green))))
`(term-color-magenta ((,class (:foreground ,magenta))))
`(term-color-red ((,class (:foreground ,red))))
`(term-color-white ((,class (:foreground ,base))))
`(term-color-yellow ((,class (:foreground ,yellow))))
;;;;; web-mode
`(web-mode-builtin-face ((,class (:inherit ,font-lock-builtin-face))))
`(web-mode-comment-face ((,class (:inherit ,font-lock-comment-face))))
`(web-mode-constant-face ((,class (:inherit ,font-lock-constant-face))))
`(web-mode-doctype-face ((,class (:inherit ,font-lock-comment-face))))
`(web-mode-function-name-face ((,class (:inherit ,font-lock-function-name-face))))
`(web-mode-html-attr-name-face ((,class (:foreground ,func))))
`(web-mode-html-attr-value-face ((,class (:foreground ,keyword))))
`(web-mode-html-tag-face ((,class (:foreground ,keyword))))
`(web-mode-keyword-face ((,class (:foreground ,keyword))))
`(web-mode-string-face ((,class (:foreground ,str))))
`(web-mode-symbol-face ((,class (:foreground ,type))))
`(web-mode-type-face ((,class (:inherit ,font-lock-type-face))))
`(web-mode-warning-face ((,class (:inherit ,font-lock-warning-face))))
;;;;; which-key
`(which-key-command-description-face ((,class (:foreground ,base))))
`(which-key-group-description-face ((,class (:foreground ,keyword))))
`(which-key-key-face ((,class (:foreground ,func :inherit bold))))
`(which-key-separator-face ((,class (:background nil :foreground ,str))))
`(which-key-special-key-face ((,class (:background ,func :foreground ,bg1))))
;;;;; which-function-mode
`(which-func ((,class (:foreground ,func))))
;;;;; whitespace-mode
`(whitespace-empty ((,class (:background nil :foreground ,yellow))))
`(whitespace-indentation ((,class (:background nil :foreground ,war))))
`(whitespace-line ((,class (:background nil :foreground ,comp))))
`(whitespace-newline ((,class (:background nil :foreground ,comp))))
`(whitespace-space ((,class (:background nil :foreground ,act2))))
`(whitespace-space-after-tab ((,class (:background nil :foreground ,yellow))))
`(whitespace-space-before-tab ((,class (:background nil :foreground ,yellow))))
`(whitespace-tab ((,class (:background nil))))
`(whitespace-trailing ((,class (:background ,err :foreground ,war))))
;;;;; other, need more work
`(ac-completion-face ((,class (:underline t :foreground ,keyword))))
`(ffap ((,class (:foreground ,base))))
`(flx-highlight-face ((,class (:foreground ,comp :underline nil))))
`(icompletep-determined ((,class :foreground ,keyword)))
`(js2-external-variable ((,class (:foreground ,comp))))
`(js2-function-param ((,class (:foreground ,const))))
`(js2-jsdoc-html-tag-delimiter ((,class (:foreground ,str))))
`(js2-jsdoc-html-tag-name ((,class (:foreground ,keyword))))
`(js2-jsdoc-value ((,class (:foreground ,str))))
`(js2-private-function-call ((,class (:foreground ,const))))
`(js2-private-member ((,class (:foreground ,base))))
`(js3-error-face ((,class (:underline ,war))))
`(js3-external-variable-face ((,class (:foreground ,var))))
`(js3-function-param-face ((,class (:foreground ,keyword))))
`(js3-instance-member-face ((,class (:foreground ,const))))
`(js3-jsdoc-tag-face ((,class (:foreground ,keyword))))
`(js3-warning-face ((,class (:underline ,keyword))))
`(slime-repl-inputed-output-face ((,class (:foreground ,comp))))
`(trailing-whitespace ((,class :foreground nil :background ,err)))
`(undo-tree-visualizer-current-face ((,class :foreground ,keyword)))
`(undo-tree-visualizer-default-face ((,class :foreground ,base)))
`(undo-tree-visualizer-register-face ((,class :foreground ,comp)))
`(undo-tree-visualizer-unmodified-face ((,class :foreground ,var))))
(custom-theme-set-variables
theme-name
`(ansi-color-names-vector [,bg4 ,red ,green ,yellow ,blue ,magenta ,cyan ,base]))
))
(deftheme havoc "A dark theme inspired by the Spacemacs-Dark and Misterioso themes")
(create-theme 'havoc)
(provide-theme 'havoc)
;; Local Variables:
;; no-byte-compile: t
;; End:
;;; havoc-theme.el ends here

17
init.el
View File

@ -41,6 +41,13 @@
;; Visual configuration.
;; --------------------------------------------------------------------------
;; Font ---------------------------------------------------------------------
(setq default-frame-alist '((font . "Source Code Pro-10")))
;; Emacs does not set italic face automatically
(set-face-attribute 'italic nil
:family "Source Code Pro-Italic")
;; Fullscreen ---------------------------------------------------------------
(add-to-list 'default-frame-alist '(fullscreen . maximized))
@ -58,6 +65,14 @@
;; Line number --------------------------------------------------------------
(setq-default linum-format "%4d \u2502") ;; Line number format
(add-hook 'prog-mode-hook 'linum-mode) ;; only in programming modes
(add-hook 'prog-mode-hook 'linum-mode) ;; Only in programming modes
;; Theme --------------------------------------------------------------------
;; This is required until this init file gets moved to .emacs.d
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name)))
(load-theme 'havoc t) ;; Load personal theme
) ;; ((gc-cons-threshold most-positive-fixnum))