Change theme colours

This commit is contained in:
Wojciech Kozlowski 2018-07-07 17:29:05 +01:00
parent 7ea567dcaf
commit 452f69dc28

View File

@ -30,17 +30,17 @@
;;; Code:
(defun create-havoc-theme (variant theme-name) ;; ** DARK ** ** LIGHT **
(let ((*active-line* (if (eq variant 'dark) "#003355" "#90AECE"))
(let ((*active-line* (if (eq variant 'dark) "#3f444a" "#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-1* (if (eq variant 'dark) "#282c34" "#FFFFFF"))
(*bg-2* (if (eq variant 'dark) "#30343C" "#ECF6FF"))
(*bg-3* (if (eq variant 'dark) "#373B43" "#D9E2EB"))
(*bg-4* (if (eq variant 'dark) "#3F434B" "#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"))
(*current-line* (if (eq variant 'dark) "#3f444a" "#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"))
@ -52,13 +52,13 @@
(*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* (if (eq variant 'dark) "#46577c" "#B3B3B3"))
(*line-number-bg* (if (eq variant 'dark) "#071017" "#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"))
(*mode-line-fg* (if (eq variant 'dark) "#8EAFD1" "#333333"))
(*mode-line-fg* (if (eq variant 'dark) "#798A9B" "#333333"))
(*normal* (if (eq variant 'dark) "#DFEFF6" "#000000"))
(*number* (if (eq variant 'dark) "#96DEFA" "#AF81F4"))
(*operators* (if (eq variant 'dark) "#3E71A1" "#DA70D6"))