diff --git a/sorcery-theme.el b/sorcery-theme.el index 09e44ea..0b70c9a 100644 --- a/sorcery-theme.el +++ b/sorcery-theme.el @@ -37,18 +37,20 @@ sorcery "Sorcery - A D&D (Dark and Dusty) Emacs Theme." ((((class color) (min-colors #xFFFFFF))) - (fg "#dddddd") - (bg "#000000") - (c0 "#111111") - (c1 "#af5f5f") - (c2 "#5F8787") - (c3 "#87875f") - (c4 "#5f87af") - (c5 "#5f5f87") - (c6 "#5Fafaf") - (c7 "#666666") - (c8 "#222222") - (c9 "#999999")) ( + (fg "#dddddd") + (bg "#000000") + (c0 "#111111") + (c1 "#af5f5f") + (c2 "#5F8787") + (c3 "#87875f") + (c4 "#5f87af") + (c5 "#5f5f87") + (c6 "#5Fafaf") + (c7 "#666666") + (c8 "#222222") + (c9 "#999999") + (c10 "#bbbbbb") + (c11 "#101010")) ( ;;; Face weights (bold (:weight 'bold)) @@ -88,16 +90,16 @@ ;; Header line and mode line (header-line (:foreground fg :background c0)) (header-line-highlight (:foreground fg :background c0)) - (mode-line (:foreground fg :background c0)) + (mode-line (:foreground fg :background c0 :box (:line-width 1 :color "#444444"))) (mode-line-buffer-id (:foreground fg :background c0)) (mode-line-emphasis (:foreground c4 :background c0)) (mode-line-highlight (:foreground c4 :background c0)) - (mode-line-inactive (:foreground fg :background c0)) + (mode-line-inactive (:foreground fg :background c0 :box (:line-width 1 :color c8))) ;; Other UI elements (button (:foreground fg :background bg :box t)) (cursor (:background fg :background bg)) - (link (:foreground c5 :underline t)) + (link (:foreground c4 :underline t)) (link-visited (:foreground c5 :underline t)) (mouse (:foreground fg :background bg)) (mouse-drag-and-drop-region (:foreground fg :background c8)) @@ -349,7 +351,7 @@ (help-argument-name (:slant 'italic)) ;; Hl-line - (hl-line (:background c0)) + (hl-line (:background c11)) ;; Ibuffer (ibuffer-locked-buffer (:foreground c1)) @@ -765,8 +767,8 @@ (org-agenda-structure (:foreground c7)) (org-archived (:foreground c7)) (org-block (:foreground fg :background c0 :extend t)) - (org-block-begin-line (:foreground c7 :background c0 :slant 'italic :extend t)) - (org-block-end-line (:foreground c7 :background c0 :slant 'italic :extend t)) + (org-block-begin-line (:foreground c7 :background c11 :slant 'italic :extend t)) + (org-block-end-line (:foreground c7 :background c11 :slant 'italic :extend t)) (org-checkbox (:foreground fg)) (org-checkbox-statistics-done (:foreground c2)) (org-checkbox-statistics-todo (:foreground c1)) @@ -774,13 +776,13 @@ (org-code (:foreground c7)) (org-column (:foreground fg)) (org-column-title (:foreground fg)) - (org-date (:foreground c7)) + (org-date (:foreground c7 :underline t)) (org-date-selected (:foreground c4 :slant 'italic)) (org-default (:foreground fg :background bg)) - (org-document-info (:foreground c7 :slant 'italic)) - (org-document-info-keyword (:foreground c7 :slant 'italic)) + (org-document-info (:foreground c10 :slant 'italic)) + (org-document-info-keyword (:foreground c10 :slant 'italic)) (org-document-title (:foreground fg :weight 'bold)) - (org-done (:foreground c2 :slant 'italic)) + (org-done (:foreground c2 :slant 'italic :box t)) (org-drawer (:foreground c7)) (org-ellipsis (:foreground c7)) (org-footnote (:foreground c7)) @@ -809,12 +811,12 @@ (org-link (:foreground c4 :underline t)) (org-list-dt (:foreground fg :weight 'bold)) (org-macro (:foreground fg)) - (org-meta-line (:foreground c7 :background bg :slant 'italic)) + (org-meta-line (:foreground c10 :background bg :slant 'italic)) (org-mode-line-clock (:foreground fg)) (org-mode-line-clock-overrun (:foreground c1 :weight 'bold)) (org-priority (:foreground c5)) (org-property-value (:foreground fg)) - (org-quote (:foreground c7)) + (org-quote (:foreground c10 :background c8 :extend t)) (org-scheduled (:foreground fg)) (org-scheduled-previously (:foreground c1)) (org-scheduled-today (:foreground fg)) @@ -825,7 +827,7 @@ (org-tag-group (:foreground fg)) (org-target (:foreground fg :underline t)) (org-time-grid (:foreground c7)) - (org-todo (:foreground c1 :slant 'italic)) + (org-todo (:foreground c1 :slant 'italic :box t)) (org-upcoming-deadline (:foreground fg)) (org-upcoming-distant-deadline (:foreground fg)) (org-verbatim (:foreground c7)) @@ -843,15 +845,15 @@ (pdf-view-region (:foreground fg :background c8)) ;; Swiper - (swiper-background-match-face-1 (:foreground fg)) - (swiper-background-match-face-2 (:foreground fg)) - (swiper-background-match-face-3 (:foreground fg)) - (swiper-background-match-face-4 (:foreground fg)) - (swiper-line-face (:foreground c4)) - (swiper-match-face-1 (:foreground fg)) - (swiper-match-face-2 (:foreground fg)) - (swiper-match-face-3 (:foreground fg)) - (swiper-match-face-4 (:foreground fg)) + (swiper-background-match-face-1 (:foreground c4)) + (swiper-background-match-face-2 (:foreground c4)) + (swiper-background-match-face-3 (:foreground c2)) + (swiper-background-match-face-4 (:foreground c5)) + (swiper-line-face (:underline c3 :extend t)) + (swiper-match-face-1 (:foreground c3)) + (swiper-match-face-2 (:foreground c4)) + (swiper-match-face-3 (:foreground c2)) + (swiper-match-face-4 (:foreground c5)) ;; Vterm (vterm-color-default (:foreground fg :background bg)) @@ -875,11 +877,61 @@ (git-gutter-fr:modified (:background c3)) ;; company - (company-tooltip-selection (:foreground fg :background c7)) - (company-tooltip-common (:foreground fg)) - (company-tooltip (:foreground fg :background c0)) - (company-scrollbar-bg (:background bg)) - (company-scrollbar-fg (:background c8)) + (company-tooltip-selection (:foreground fg :background c7)) + (company-tooltip-common (:foreground fg)) + (company-tooltip-annotation (:foreground c3)) + (company-tooltip (:foreground fg :background c0)) + (company-scrollbar-bg (:background bg)) + (company-scrollbar-fg (:background c8)) + + ;;diredfl + (diredfl-dir-name (:foreground fg :weight 'bold)) + (diredfl-number (:foreground c7)) + (diredfl-symlink (:foreground c2)) + (diredfl-no-priv (:foreground c9)) + (diredfl-dir-priv (:foreground c3)) + (diredfl-read-priv (:foreground c4)) + (diredfl-rare-priv (:foreground c4)) + (diredfl-link-priv (:foreground c4)) + (diredfl-file-name (:foreground fg)) + (diredfl-exec-priv (:foreground c5)) + (diredfl-date-time (:foreground c9 :underline t)) + (diredfl-write-priv (:foreground c6)) + (diredfl-other-priv (:foreground c4)) + (diredfl-file-suffix (:foreground c9)) + (diredfl-dir-heading (:foreground c3 :box t)) + (diredfl-autofile-name (:foreground c9)) + (diredfl-flag-mark (:foreground c3)) + (diredfl-flag-mark-line (:slant 'italic :underline c3)) + (diredfl-executable-tag (:foreground c9)) + (diredfl-ignored-file-name (:foreground c9)) + (diredfl-deletion (:foreground c1)) + (diredfl-deletion-file-name (:strike-through c1)) + (diredfl-tagged-autofile-name (:foreground c9)) + (diredfl-compressed-file-name (:foreground c9)) + (diredfl-compressed-file-suffix (:foreground c9)) + + ;; dired-subtree + (dired-subtree-depth-1-face (:background bg)) + (dired-subtree-depth-2-face (:background bg)) + (dired-subtree-depth-3-face (:background bg)) + (dired-subtree-depth-4-face (:background bg)) + (dired-subtree-depth-5-face (:background bg)) + (dired-subtree-depth-6-face (:background bg)) + + ;;evil + (evil-ex-info (:foreground c1 :slant 'italic)) + (evil-ex-search (:foreground c8 :background c7 :weight 'bold)) + (evil-ex-substitute-matches (:foreground c8 :background c1 :strike-through t :weight 'bold)) + (evil-ex-substitute-replacement (:foreground c8 :background c2 :weight 'bold)) + + ;; imenu-list + (imenu-list-entry-face-0 (:foreground fg :underline t)) + (imenu-list-entry-subalist-face-0 (:inherit 'imenu-list-entry-face-0 :weight 'bold)) + (imenu-list-entry-face-1 (:foreground c4)) + (imenu-list-entry-subalist-face-1 (:inherit 'imenu-list-entry-face-1 :weight 'bold)) + (imenu-list-entry-face-2 (:foreground c3)) + (imenu-list-entry-subalist-face-2 (:inherit 'imenu-list-entry-face-2 :weight 'bold)) ;;; Language-specific