config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add Helm colours

Browse Source
This commit is contained in:
Wojciech Kozlowski 2017-08-27 21:57:35 +01:00
parent c78422a259
commit 091aee7557
1 changed files with 56 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
themes/havoc-common.el
View File

@ -31,22 +31,27 @@
(defun create-havoc-theme (variant theme-name) ;; ** DARK ** ** LIGHT **
(let ((*active-line* (if (eq variant 'dark) "#003355" "#90AECE"))
(*base* (if (eq variant 'dark) "#BBD3D5" "#655370"))
(*bg-1* (if (eq variant 'dark) "#102235" "#FFFFFF"))
(*bg-2* (if (eq variant 'dark) "#233445" "#ECF6FF"))
(*bg-3* (if (eq variant 'dark) "#364555" "#d9e2eb"))
(*bg-4* (if (eq variant 'dark) "#495765" "#c6cfd6"))
(*bg-3* (if (eq variant 'dark) "#364555" "#D9E2EB"))
(*bg-4* (if (eq variant 'dark) "#495765" "#C6CFD6"))
(*comments* (if (eq variant 'dark) "#4E6F91" "#B22222"))
(*comments-bg* (if (eq variant 'dark) "#102235" "#FFFFFF"))
(*comp* (if (eq variant 'dark) "#C56EC3" "#6C4173"))
(*constant* (if (eq variant 'dark) "#A45BAD" "#5F9EA0"))
(*current-line* (if (eq variant 'dark) "#18374F" "#B4EEB4"))
(*cursor-block* (if (eq variant 'dark) "#6785C5" "#000000"))
(*cursor-underscore* (if (eq variant 'dark) "#FFFAAA" "#B22222"))
(*fg-standout* (if (eq variant 'dark) "#FFEC99" "#551A8B"))
(*fringe* (if (eq variant 'dark) "#0A1721" "#F2F2F2"))
(*head1* (if (eq variant 'dark) "#4F97D7" "#3A81C3"))
(*header-bg* (if (eq variant 'dark) "#495765" "#E2DAEF"))
(*keywords* (if (eq variant 'dark) "#8AC6F2" "#A020F0"))
(*light-purple* (if (eq variant 'dark) "#FFCCFF" "#FFCCFF"))
(*line-number* (if (eq variant 'dark) "#2F577C" "#B3B3B3"))
(*line-number-bg* (if (eq variant 'dark) "#0A1721" "#FAFDFF"))
(*mat* (if (eq variant 'dark) "#86DC2F" "#BA2F59"))
(*mb-prompt* (if (eq variant 'dark) "#8AC6F2" "#0000FF"))
(*method-declaration* (if (eq variant 'dark) "#AF81F4" "#0000FF"))
(*mode-line-bg* (if (eq variant 'dark) "#0A1721" "#C9D5E3"))
@ -60,7 +65,7 @@
(*search-fg* (if (eq variant 'dark) "#E2DAEF" "#333333"))
(*search-bg* (if (eq variant 'dark) "#AF81F4" "#AF81F4"))
(*string* (if (eq variant 'dark) "#89E14B" "#BC8F8F"))
(*success* (if (eq variant 'dark) "#86DC2F" "#40E0D0"))
(*success* (if (eq variant 'dark) "#86DC2F" "#42AE2C"))
(*ttip* (if (eq variant 'dark) "#E1E1E0" "#000000"))
(*ttip-sl* (if (eq variant 'dark) "#005577" "#AF81F4"))
(*ttip-bg* (if (eq variant 'dark) "#495765" "#E2DAEF"))
@ -98,7 +103,6 @@
(*diffstat-added* (if (eq variant 'dark) "#89E14B" "#22AA22"))
(*diffstat-rmvd* (if (eq variant 'dark) "#C62626" "#AA2222"))
(*hash* (if (eq variant 'dark) "#8AC6F2" "#A020F0"))
(*diff-hdr-bg* (if (eq variant 'dark) "#495765" "#E2DAEF"))
(*diff-file-hdr-fg* (if (eq variant 'dark) "#DFEFF6" "#551A8B"))
(*diff-hunk-hdr-bg* (if (eq variant 'dark) "#364555" "#E2DAEF"))
(*diff-hunk-hdr-fg* (if (eq variant 'dark) "#E1E1E0" "#000000"))
@ -210,7 +214,7 @@
`(rainbow-delimiters-depth-9-face ((t (:foreground ,*rdd-9*))))
;;;;; diff
`(diff-header ((t (:background ,*diff-hdr-bg*))))
`(diff-header ((t (:background ,*header-bg*))))
`(diff-file-header ((t (:foreground ,*diff-file-hdr-fg*))))
`(diff-hunk-header ((t (:background ,*diff-hunk-hdr-bg* :foreground ,*diff-hunk-hdr-fg*))))
`(diff-added ((t (:background ,*diff-added-bg* :foreground ,*diff-added-fg*))))
@ -270,9 +274,54 @@
`(magit-reflog-reset ((t (:foreground ,*red*))))
`(magit-section-heading ((t (:foreground ,*keywords* :inherit bold))))
`(magit-section-highlight ((t (:background ,*bg-2*))))
`(magit-section-title ((t (:background ,*bg-1* :foreground ,*keywords* :inherit bold)))))
`(magit-section-title ((t (:background ,*bg-1* :foreground ,*keywords* :inherit bold))))
))
;;;;; helm
`(helm-bookmark-directory ((t (:inherit helm-ff-directory))))
`(helm-bookmark-file ((t (:foreground ,*base*))))
`(helm-bookmark-gnus ((t (:foreground ,*comp*))))
`(helm-bookmark-info ((t (:foreground ,*comp*))))
`(helm-bookmark-man ((t (:foreground ,*comp*))))
`(helm-bookmark-w3m ((t (:foreground ,*comp*))))
`(helm-buffer-directory ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-buffer-file ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-buffer-not-saved ((t (:foreground ,*comp* :background ,*bg-1*))))
`(helm-buffer-process ((t (:foreground ,*keywords* :background ,*bg-1*))))
`(helm-buffer-saved-out ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-buffer-size ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-candidate-number ((t (:background ,*active-line* :foreground ,*keywords* :inherit bold))))
`(helm-ff-directory ((t (:foreground ,*keywords* :background ,*bg-1* :inherit bold))))
`(helm-ff-dotted-directory ((t (:foreground ,*keywords* :background ,*bg-1* :inherit bold))))
`(helm-ff-dotted-symlink-directory ((t (:foreground ,*cyan* :background ,*bg-1* :inherit bold))))
`(helm-ff-executable ((t (:foreground ,*success* :background ,*bg-1* :weight normal))))
`(helm-ff-file ((t (:foreground ,*base* :background ,*bg-1* :weight normal))))
`(helm-ff-invalid-symlink ((t (:foreground ,*red* :background ,*bg-1* :inherit bold))))
`(helm-ff-prefix ((t (:foreground ,*bg-1* :background ,*keywords* :weight normal))))
`(helm-ff-symlink ((t (:foreground ,*cyan* :background ,*bg-1* :inherit bold))))
`(helm-grep-cmd-line ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-grep-file ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-grep-finish ((t (:foreground ,*base* :background ,*bg-1*))))
`(helm-grep-lineno ((t (:foreground ,*type* :background ,*bg-1* :inherit bold))))
`(helm-grep-match ((t (:foreground nil :background nil :inherit helm-match))))
`(helm-header ((t (:foreground ,*base* :background ,*bg-1* :underline nil :box nil))))
`(helm-header-line-left-margin ((t (:foreground ,*keywords* :background ,nil))))
`(helm-match ((t (:background ,*bg-1* :foreground ,*head1*))))
`(helm-match-item ((t (:background ,*bg-1* :foreground ,*head1*))))
`(helm-moccur-buffer ((t (:foreground ,*variable* :background ,*bg-1*))))
`(helm-selection ((t (:background ,*current-line*))))
`(helm-selection-line ((t (:background ,*bg-2*))))
`(helm-separator ((t (:foreground ,*comp* :background ,*bg-1*))))
`(helm-source-header ((t (:background ,*header-bg* :foreground ,*normal* :inherit bold))))
`(helm-time-zone-current ((t (:foreground ,*keywords* :background ,*bg-1*))))
`(helm-time-zone-home ((t (:foreground ,*comp* :background ,*bg-1*))))
`(helm-visible-mark ((t (:foreground ,*keywords* :background ,*bg-3*))))
;;;;; helm-swoop
`(helm-swoop-target-line-block-face ((t (:foreground ,*base* :background ,*current-line*))))
`(helm-swoop-target-line-face ((t (:background ,*current-line*))))
`(helm-swoop-target-word-face ((t (:background ,*current-line* :foreground ,*mat*))))
)))
;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)