maciej/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create custom theme

Browse source
This commit is contained in:
Maciej Szlosarczyk 2017-05-26 09:27:46 +03:00
parent fbc43e54cb
commit f9d3a10cb7
No known key found for this signature in database
GPG key ID: 0D4EEACF63D4262E
2 changed files with 46 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

40
base16-not-harmonic-theme.el Normal file
View file

@ -0,0 +1,40 @@
;; base16-not-harmonic-theme.el -- A base16 colorscheme
;;; Commentary:
;; Base16: (https://github.com/chriskempson/base16)
;; Based on harmonic-dark theme by Jannik Seibert (https://github.com/janniks)
;;; Code:
(require 'base16-theme)
(defvar base16-not-harmonic-colors
'(:base00 "#0b1c2c"
:base01 "#223b54"
:base02 "#2c3a47"
:base03 "#627e99"
:base04 "#aabcce"
:base05 "#cbd6e2"
:base06 "#e5ebf1"
:base07 "#f7f9fb"
:base08 "#bf8b56"
:base09 "#bfbf56"
:base0A "#8bbf56"
:base0B "#56bf8b"
:base0C "#568bbf"
:base0D "#9b78bc"
:base0E "#bf568b"
:base0F "#bf5656")
"All colors for Base16 Harmonic16 Dark are defined here.")
;; Define the theme
(deftheme base16-not-harmonic)
;; Add all the faces to the theme
(base16-theme-define 'base16-not-harmonic base16-not-harmonic-colors)
;; Mark the theme as provided
(provide-theme 'base16-not-harmonic)
(provide 'base16-not-harmonic-theme)
;;; base16-not-harmonic-theme.el ends here

19
themes.el
View file

@ -13,30 +13,23 @@
(setq display-time-format "%H:%M") (setq display-time-format "%H:%M")
(display-time-mode t) (display-time-mode t)
;; (load-theme 'ujelly t t)
;; (load-theme 'avk-daylight t t)
;; (load-theme 'monokai t t)
;; (load-theme 'flatui t t)
;; (load-theme 'atom-one-dark t t)
(load-theme 'flatui t t) (load-theme 'flatui t t)
;; (load-theme 'noctilux t t) (load "~/.emacs.d/base16-not-harmonic-theme.el")
;; (load-theme 'whiteboard t t) (load-theme 'base16-not-harmonic t t)
;; (load-theme 'dichromacy t t)
(load-theme 'base16-harmonic-dark t t)
(defun base16-harmonic-custom () (defun base16-harmonic-custom ()
"Additional configuration for Base 16 theme." "Additional configuration for Base 16 theme."
(set-face-attribute 'linum nil :font "Hasklig 14" (set-face-attribute 'linum nil :font "Hasklig 14"
:slant 'normal :slant 'normal
:background "#0b1c2c")
(set-face-attribute 'mode-line nil :font "Hasklig 13"
:background "#2c3a47") :background "#2c3a47")
(set-face-attribute 'fringe nil :background "#2c3a47")) (set-face-attribute 'mode-line nil :font "Hasklig 13")
(set-face-attribute 'fringe nil :background "#2c3a47"
:slant 'normal))
(require 'helm-themes) (require 'helm-themes)
(if (display-graphic-p) (if (display-graphic-p)
(progn (progn
(enable-theme 'base16-harmonic-dark) (enable-theme 'base16-not-harmonic)
(base16-harmonic-custom)) (base16-harmonic-custom))
(progn (progn
(enable-theme 'flatui))) (enable-theme 'flatui)))