diff --git a/private b/private index 70e27f2..544e502 160000 --- a/private +++ b/private @@ -1 +1 @@ -Subproject commit 70e27f2900adb5343ef7f04c77010e96bb980e87 +Subproject commit 544e502bdbc71ae8909fc6e671ddd7101c16e548 diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 9a2fe85..c894885 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -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 diff --git a/themes/db-dark-theme.el b/themes/db-dark-theme.el new file mode 100644 index 0000000..6e25708 --- /dev/null +++ b/themes/db-dark-theme.el @@ -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) diff --git a/themes/exot-main-theme.el b/themes/db-light-theme.el similarity index 95% rename from themes/exot-main-theme.el rename to themes/db-light-theme.el index a93a56d..90129b1 100644 --- a/themes/exot-main-theme.el +++ b/themes/db-light-theme.el @@ -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)