Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Changes to org-mode and mode-line #2

Open
wants to merge 3 commits into
base: master
Choose a base branch
from
Open

Changes to org-mode and mode-line #2

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
3350756
Changes in Org-Mode faces.
precompute Jan 1, 2021
2d26dfe
Mode Line changes and contrast fixes.
precompute Jan 1, 2021
2fb8a74
Swiper, company, diredfl, dired-subtree, evil, imenu-list
precompute Jan 3, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
130 changes: 91 additions & 39 deletions sorcery-theme.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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))
Expand Down Expand Up @@ -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))
Expand Down Expand Up @@ -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))
Expand Down Expand Up @@ -765,22 +767,22 @@
(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))
(org-clock-overlay (:background c0))
(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))
Expand Down Expand Up @@ -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))
Expand All @@ -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))
Expand All @@ -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))
Expand All @@ -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
Expand Down