[Themes] Add dark and light theme

This commit is contained in:
dbo 2017-12-02 13:09:56 +01:00
parent 2ca12e0b8e
commit eb67f79be6
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
4 changed files with 48 additions and 17 deletions

@ -1 +1 @@
Subproject commit 70e27f2900adb5343ef7f04c77010e96bb980e87
Subproject commit 544e502bdbc71ae8909fc6e671ddd7101c16e548

View File

@ -128,18 +128,6 @@ With a prefix argument P, isearch for the symbol at point."
#'isearch-forward-symbol-at-point
#'isearch-forward))))
(defun db/go-dark ()
"Enable dark themes."
(interactive)
(load-theme 'solarized-dark)
(load-theme 'smart-mode-line-dark))
(defun db/go-light ()
"Enable light themes."
(interactive)
(load-theme 'solarized-light)
(load-theme 'smart-mode-line-light))
(defun endless/fill-or-unfill ()
"Like `fill-paragraph', but unfill if used twice."
;; http://endlessparentheses.com/fill-and-unfill-paragraphs-with-a-single-key.html

41
themes/db-dark-theme.el Normal file
View File

@ -0,0 +1,41 @@
(deftheme db-dark
"Created 2017-12-02.")
(load-theme 'solarized-dark)
(custom-theme-set-faces
'db-dark
'(aw-leading-char-face ((t (:foreground "red" :height 1.0))))
'(cursor ((t (:background "red" :foreground "#002b36" :inverse-video t :weight ultra-bold))))
'(emms-browser-artist-face ((t (:foreground "RoyalBlue1"))))
'(emms-browser-composer-face ((t (:foreground "RoyalBlue1"))))
'(emms-browser-performer-face ((t (:foreground "#aaaaff"))))
'(emms-browser-track-face ((t (:foreground "DodgerBlue3" :height 1.0))))
'(emms-playlist-selected-face ((t (:foreground "medium sea green"))))
'(org-agenda-date ((t (:background "#002b36" :foreground "#586e75" :inverse-video nil :box (:line-width 2 :color "#002b36") :overline nil :slant normal :weight bold :height 1.2))))
'(org-agenda-dimmed-todo-face ((t nil)))
'(org-agenda-done ((t (:foreground "light gray" :slant normal))))
'(org-agenda-structure ((t (:foreground "#93a1a1" :inverse-video nil :box (:line-width 2 :color "#002b36") :underline nil :slant normal :weight bold :height 1.1))))
'(org-clock-overlay ((t (:background "black"))))
'(org-column ((t (:strike-through nil :underline nil :slant normal :weight normal :height 110 :family "DejaVu Sans Mono"))))
'(org-headline-done ((t (:foreground "#859900"))))
'(org-level-1 ((t (:inherit default :foreground "#cb4b16" :height 1.0))))
'(org-level-2 ((t (:inherit default :foreground "#859900" :height 1.0))))
'(org-level-3 ((t (:inherit default :foreground "#268bd2" :height 1.0))))
'(org-level-4 ((t (:inherit default :foreground "#b58900" :height 1.0))))
'(org-level-5 ((t (:inherit default :foreground "#2aa198" :height 1.0))))
'(org-warning ((t (:foreground "#dc322f" :weight normal))))
'(outline-4 ((t (:inherit org-level-4))))
'(flyspell-duplicate ((t (:underline (:color "orange red" :style wave)))))
'(flyspell-incorrect ((t (:underline (:color "orange red" :style wave)))))
'(gnus-group-mail-2 ((t (:inherit outline-4 :weight normal))))
'(gnus-group-mail-3 ((t (:inherit gnus-group-mail-3-empty :weight normal))))
'(gnus-group-news-3 ((t (:inherit outline-5 :weight normal))))
'(gnus-summary-high-ancient ((t (:foreground "#268bd2" :weight normal))))
'(gnus-summary-high-read ((t (:foreground "#859900" :weight normal))))
'(gnus-summary-high-unread ((t (:foreground "#839496" :weight normal))))
'(gnus-summary-low-ancient ((t (:foreground "dim gray"))))
'(gnus-summary-low-unread ((t (:foreground "dim gray"))))
'(default ((t (:height 108)))))
(provide-theme 'db-dark)

View File

@ -1,8 +1,10 @@
(deftheme exot-main
"Created 2017-03-17.")
(deftheme db-light
"Created 2017-12-02.")
(load-theme 'solarized-light)
(custom-theme-set-faces
'exot-main
'db-light
'(aw-leading-char-face ((t (:foreground "red" :height 1.0))))
'(cursor ((t (:background "red" :foreground "#002b36" :inverse-video t :weight ultra-bold))))
'(emms-browser-artist-face ((t (:foreground "RoyalBlue1"))))
@ -35,4 +37,4 @@
'(gnus-summary-low-unread ((t (:foreground "dim gray"))))
'(default ((t (:height 108)))))
(provide-theme 'exot-main)
(provide-theme 'db-light)