From: rearman Date: Tue, 5 May 2026 17:06:09 +0000 (-0400) Subject: Move themes to own dir X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=79695255ca6f84008a6b51d731fabbeb454107f0;p=emacsinit.git Move themes to own dir --- diff --git a/acme-theme.el b/acme-theme.el deleted file mode 100644 index 3e2a34c..0000000 --- a/acme-theme.el +++ /dev/null @@ -1,156 +0,0 @@ -;;; acme-theme.el --- -*- lexical-binding: t; -*- - -;;; Code: - -(deftheme acme - "Color theme to look like the acme editor from plan9") - -(let ((class '((class color) (min-colors 89))) - (text "#000000") - (bg "#ffffea") - (bar "#eaffff") - (dirty "#8888cc") - (highlight "#eeee9e") - (darkscroll "#99994c") - (red "#ff0000") - (green "#00ff00")) - (custom-theme-set-faces - 'acme -;;;; Special faces. - `(default - ((,class (:foreground ,text :background ,bg)))) - `(error - ((,class (:foreground ,red)))) - `(warning - ((,class (:inherit default :weight bold)))) - `(success - ((,class (:inherit default :weight bold)))) -;;;; font-lock. - `(font-lock-comment-face - ((,class (:slant italic :weight light)))) - `(font-lock-string-face - ((,class (:inherit default)))) - `(font-lock-builtin-face - ((,class (:inherit default)))) - `(font-lock-type-face - ((,class (:inherit default)))) - `(font-lock-constant-face - ((,class (:inherit default)))) - `(font-lock-function-name-face - ((,class (:inherit default)))) - `(font-lock-variable-name-face - ((,class (:inherit default)))) - `(font-lock-keyword-face - ((,class (:inherit default)))) - `(font-lock-number-face - ((,class (:inherit default)))) -;;;; Decorations. - `(vertical-border - ((,class (:background ,text)))) - `(scroll-bar - ((,class (:background ,darkscroll)))) - `(region - ((,class (:background ,highlight :extend t)))) - `(shadow - ((,class (:foreground ,text :weight light)))) - `(match - ((,class (:background ,highlight)))) - `(highlight - ((,class (:background ,highlight)))) - `(secondary-selection - ((,class (:background ,darkscroll :extend t)))) - `(lazy-highlight - ((,class (:background ,darkscroll)))) - `(isearch - ((,class (:foreground ,text :background ,highlight)))) - `(fringe - ((,class (:inherit default)))) - `(line-number - ((,class (:inherit default)))) - `(line-number-current-line - ((,class (:foreground ,text :background ,darkscroll :weight bold)))) - `(mode-line - ((,class (:foreground ,text :background ,bar)))) - `(mode-line-inactive - ((,class (:inherit mode-line)))) - `(mode-line-highlight - ((,class (:foreground ,text :background ,dirty :box (:color ,dirty))))) - `(header-line - ((,class (:foreground ,text :background ,bar :box (:color ,dirty))))) -;;; Org - `(org-document-title - ((,class (:foreground ,text :weight bold)))) - `(org-level-1 - ((,class (:inherit default)))) - `(org-level-2 - ((,class (:inherit default)))) - `(org-level-3 - ((,class (:inherit default)))) - `(org-level-4 - ((,class (:inherit default)))) - `(org-level-5 - ((,class (:inherit default)))) - `(org-level-6 - ((,class (:inherit default)))) - `(org-level-7 - ((,class (:inherit default)))) - `(org-level-8 - ((,class (:inherit default)))) - `(org-todo - ((,class (:foreground ,red :bold t)))) - `(org-headline-todo - ((,class (:foreground ,red)))) - `(org-done - ((,class (:foreground ,green :italic t)))) - `(org-headline-done - ((,class (:foreground ,green)))) - - `(org-ellipsis - ((,class (:inherit default)))) - `(org-table - ((,class (:inherit default)))) - `(org-formula - ((,class (:inherit default)))) - `(org-drawer - ((,class (:inherit default)))) - `(org-footnote - ((,class (:inherit default)))) - `(org-date - ((,class (:inherit default)))) -;;; Org Agenda - `(header-line - ((,class (:inherit default)))) - `(org-agenda-structure - ((,class (:inherit default)))) - `(org-column - ((,class (:inherit default)))) - `(org-agenda-done - ((,class (:foreground ,text :italic t)))) - `(org-time-grid - ((,class (:inherit default)))) - `(org-agenda-date-weekend - ((,class (:inherit org-agenda-date :weight bold)))) - `(org-agenda-date-today - ((,class (:inherit org-agenda-date :weight bold :slant italic)))) - `(org-upcoming-deadline - ((,class (:inherit default)))) - `(org-scheduled - ((,class (:inherit default)))) - `(org-scheduled-today - ((,class (:inherit default)))) - `(org-scheduled-previously - ((,class (:inherit default)))) -;;; Misc. other packages - `(corfu-default - ((,class (:inherit default)))) - `(corfu-current - ((,class (:foreground ,text :background ,highlight :extend t)))))) - -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) - -(provide-theme 'acme) -(provide 'acme-theme) -;;; acme-theme.el ends here diff --git a/eng-paper-theme.el b/eng-paper-theme.el deleted file mode 100644 index 8ba8238..0000000 --- a/eng-paper-theme.el +++ /dev/null @@ -1,192 +0,0 @@ -;;; eng-paper-theme.el --- -*- lexical-binding: t; -*- - -;;; Code: - -(deftheme eng-paper - "Color theme to look like engineering paper, - with elements from Birren/DuPont's Color conditioning system") - -(let ((class '((class color) (min-colors 89))) - (text "#000000") - (light-green "#b5dabf") - (light-gray "#c0cfd1") - (precaution-blue "#315e9a") - (hi-vis-yellow "#eec801") - (alert-orange "#e85400") - (fire-prot-red "#e41b00") - (safety-green "#00883a") - (traffic-white "#f0f0f0")) - (custom-theme-set-faces - 'eng-paper -;;;; Special faces. - `(default - ((,class (:foreground ,text :background ,light-green)))) - `(error - ((,class (:foreground ,fire-prot-red)))) - `(warning - ((,class (:inherit default :weight bold)))) - `(success - ((,class (:inherit default :weight bold)))) -;;;; font-lock. - `(font-lock-comment-face - ((,class (:slant italic :weight light :foreground ,safety-green)))) - `(font-lock-string-face - ((,class (:inherit default)))) - `(font-lock-builtin-face - ((,class (:inherit default)))) - `(font-lock-type-face - ((,class (:inherit default)))) - `(font-lock-constant-face - ((,class (:inherit default)))) - `(font-lock-function-name-face - ((,class (:inherit default)))) - `(font-lock-variable-name-face - ((,class (:inherit default)))) - `(font-lock-keyword-face - ((,class (:inherit default)))) - `(font-lock-number-face - ((,class (:inherit default)))) -;;;; Decorations. - `(vertical-border - ((,class (:background ,text)))) - `(scroll-bar - ((,class (:foreground ,light-green :background ,safety-green)))) - `(region - ((,class (:foreground unspecified :background unspecified :box t :extend t)))) - `(shadow - ((,class (:foreground ,text :weight light)))) - `(match - ((,class (:background ,hi-vis-yellow)))) - `(highlight - ((,class (:background ,hi-vis-yellow)))) - `(show-paren-match - ((,class (:foreground unspecified :background unspecified :underline t)))) - `(link - ((,class (:foreground ,precaution-blue :underline t)))) - `(secondary-selection - ((,class (:background ,alert-orange :extend t)))) - `(lazy-highlight - ((,class (:background ,alert-orange)))) - `(isearch - ((,class (:foreground ,text :background ,hi-vis-yellow)))) - `(fringe - ((,class (:inherit default)))) - `(line-number - ((,class (:foreground ,safety-green)))) - `(line-number-current-line - ((,class (:foreground ,text :weight bold)))) - `(mode-line - ((,class (:inherit default :box (:color ,traffic-white :line-width (2 . 2)))))) - `(mode-line-inactive - ((,class (:inherit mode-line)))) - `(mode-line-highlight - ((,class (:inherit mode-line :background ,alert-orange)))) - `(header-line - ((,class (:inherit mode-line)))) -;;; Org - `(org-document-title - ((,class (:foreground ,text :weight bold)))) - `(org-level-1 - ((,class (:inherit default)))) - `(org-level-2 - ((,class (:inherit default)))) - `(org-level-3 - ((,class (:inherit default)))) - `(org-level-4 - ((,class (:inherit default)))) - `(org-level-5 - ((,class (:inherit default)))) - `(org-level-6 - ((,class (:inherit default)))) - `(org-level-7 - ((,class (:inherit default)))) - `(org-level-8 - ((,class (:inherit default)))) - `(org-todo - ((,class (:foreground ,fire-prot-red :bold t)))) - `(org-headline-todo - ((,class (:foreground ,fire-prot-red)))) - `(org-done - ((,class (:foreground ,safety-green :italic t)))) - `(org-headline-done - ((,class (:foreground ,safety-green)))) - - `(org-ellipsis - ((,class (:inherit default)))) - `(org-table - ((,class (:inherit default)))) - `(org-formula - ((,class (:inherit default)))) - `(org-drawer - ((,class (:inherit default)))) - `(org-footnote - ((,class (:inherit default)))) - `(org-date - ((,class (:inherit default)))) -;;; Org Agenda - `(header-line - ((,class (:inherit default)))) - `(org-agenda-structure - ((,class (:inherit default)))) - `(org-column - ((,class (:inherit default)))) - `(org-agenda-done - ((,class (:foreground ,text :italic t)))) - `(org-time-grid - ((,class (:inherit default)))) - `(org-agenda-date-weekend - ((,class (:inherit org-agenda-date :weight bold)))) - `(org-agenda-date-today - ((,class (:inherit org-agenda-date :weight bold :slant italic)))) - `(org-upcoming-deadline - ((,class (:inherit default)))) - `(org-scheduled - ((,class (:inherit default)))) - `(org-scheduled-today - ((,class (:inherit default)))) - `(org-scheduled-previously - ((,class (:inherit default)))) -;;; ORG-TRANSCLUSION - `(org-transclusion-fringe - ((,class (:foreground ,light-green :background ,precaution-blue)))) - `(org-transclusion-source - ((,class (:foreground ,precaution-blue)))) -;;; HOWM - `(howm-reminder-deadline-face - ((,class (:foreground ,fire-prot-red)))) - `(howm-reminder-todo-face - ((,class (:foreground ,alert-orange)))) - `(howm-reminder-late-deadline-face - ((,class (:foreground ,text :background ,fire-prot-red)))) - `(howm-reminder-schedule-face - ((,class (:foreground ,safety-green)))) - `(howm-reminder-normal-face - ((,class (:foreground ,precaution-blue)))) - `(howm-reminder-done-face - ((,class (:inherit default)))) - `(howm-reminder-today-face - ((,class (:foreground ,text :background ,alert-orange)))) - `(howm-mode-title-face - ((,class (:foreground ,precaution-blue)))) - `(howm-mode-ref-face - ((,class (:foreground ,precaution-blue)))) - `(howm-mode-keyword-face - ((,class (:foreground ,traffic-white :background ,precaution-blue)))) -;;; Misc. other packages - `(corfu-default - ((,class (:inherit default)))) - `(corfu-current - ((,class (:inherit default :underline t)))) - `(corfu-bar - ((,class (:background ,safety-green)))) - `(corfu-border - ((,class (:background ,traffic-white)))))) - -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) - -(provide-theme 'eng-paper) -(provide 'eng-paper-theme) -;;; eng-paper-theme.el ends here diff --git a/themes/acme-theme.el b/themes/acme-theme.el new file mode 100644 index 0000000..3e2a34c --- /dev/null +++ b/themes/acme-theme.el @@ -0,0 +1,156 @@ +;;; acme-theme.el --- -*- lexical-binding: t; -*- + +;;; Code: + +(deftheme acme + "Color theme to look like the acme editor from plan9") + +(let ((class '((class color) (min-colors 89))) + (text "#000000") + (bg "#ffffea") + (bar "#eaffff") + (dirty "#8888cc") + (highlight "#eeee9e") + (darkscroll "#99994c") + (red "#ff0000") + (green "#00ff00")) + (custom-theme-set-faces + 'acme +;;;; Special faces. + `(default + ((,class (:foreground ,text :background ,bg)))) + `(error + ((,class (:foreground ,red)))) + `(warning + ((,class (:inherit default :weight bold)))) + `(success + ((,class (:inherit default :weight bold)))) +;;;; font-lock. + `(font-lock-comment-face + ((,class (:slant italic :weight light)))) + `(font-lock-string-face + ((,class (:inherit default)))) + `(font-lock-builtin-face + ((,class (:inherit default)))) + `(font-lock-type-face + ((,class (:inherit default)))) + `(font-lock-constant-face + ((,class (:inherit default)))) + `(font-lock-function-name-face + ((,class (:inherit default)))) + `(font-lock-variable-name-face + ((,class (:inherit default)))) + `(font-lock-keyword-face + ((,class (:inherit default)))) + `(font-lock-number-face + ((,class (:inherit default)))) +;;;; Decorations. + `(vertical-border + ((,class (:background ,text)))) + `(scroll-bar + ((,class (:background ,darkscroll)))) + `(region + ((,class (:background ,highlight :extend t)))) + `(shadow + ((,class (:foreground ,text :weight light)))) + `(match + ((,class (:background ,highlight)))) + `(highlight + ((,class (:background ,highlight)))) + `(secondary-selection + ((,class (:background ,darkscroll :extend t)))) + `(lazy-highlight + ((,class (:background ,darkscroll)))) + `(isearch + ((,class (:foreground ,text :background ,highlight)))) + `(fringe + ((,class (:inherit default)))) + `(line-number + ((,class (:inherit default)))) + `(line-number-current-line + ((,class (:foreground ,text :background ,darkscroll :weight bold)))) + `(mode-line + ((,class (:foreground ,text :background ,bar)))) + `(mode-line-inactive + ((,class (:inherit mode-line)))) + `(mode-line-highlight + ((,class (:foreground ,text :background ,dirty :box (:color ,dirty))))) + `(header-line + ((,class (:foreground ,text :background ,bar :box (:color ,dirty))))) +;;; Org + `(org-document-title + ((,class (:foreground ,text :weight bold)))) + `(org-level-1 + ((,class (:inherit default)))) + `(org-level-2 + ((,class (:inherit default)))) + `(org-level-3 + ((,class (:inherit default)))) + `(org-level-4 + ((,class (:inherit default)))) + `(org-level-5 + ((,class (:inherit default)))) + `(org-level-6 + ((,class (:inherit default)))) + `(org-level-7 + ((,class (:inherit default)))) + `(org-level-8 + ((,class (:inherit default)))) + `(org-todo + ((,class (:foreground ,red :bold t)))) + `(org-headline-todo + ((,class (:foreground ,red)))) + `(org-done + ((,class (:foreground ,green :italic t)))) + `(org-headline-done + ((,class (:foreground ,green)))) + + `(org-ellipsis + ((,class (:inherit default)))) + `(org-table + ((,class (:inherit default)))) + `(org-formula + ((,class (:inherit default)))) + `(org-drawer + ((,class (:inherit default)))) + `(org-footnote + ((,class (:inherit default)))) + `(org-date + ((,class (:inherit default)))) +;;; Org Agenda + `(header-line + ((,class (:inherit default)))) + `(org-agenda-structure + ((,class (:inherit default)))) + `(org-column + ((,class (:inherit default)))) + `(org-agenda-done + ((,class (:foreground ,text :italic t)))) + `(org-time-grid + ((,class (:inherit default)))) + `(org-agenda-date-weekend + ((,class (:inherit org-agenda-date :weight bold)))) + `(org-agenda-date-today + ((,class (:inherit org-agenda-date :weight bold :slant italic)))) + `(org-upcoming-deadline + ((,class (:inherit default)))) + `(org-scheduled + ((,class (:inherit default)))) + `(org-scheduled-today + ((,class (:inherit default)))) + `(org-scheduled-previously + ((,class (:inherit default)))) +;;; Misc. other packages + `(corfu-default + ((,class (:inherit default)))) + `(corfu-current + ((,class (:foreground ,text :background ,highlight :extend t)))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'acme) +(provide 'acme-theme) +;;; acme-theme.el ends here diff --git a/themes/eng-paper-theme.el b/themes/eng-paper-theme.el new file mode 100644 index 0000000..8ba8238 --- /dev/null +++ b/themes/eng-paper-theme.el @@ -0,0 +1,192 @@ +;;; eng-paper-theme.el --- -*- lexical-binding: t; -*- + +;;; Code: + +(deftheme eng-paper + "Color theme to look like engineering paper, + with elements from Birren/DuPont's Color conditioning system") + +(let ((class '((class color) (min-colors 89))) + (text "#000000") + (light-green "#b5dabf") + (light-gray "#c0cfd1") + (precaution-blue "#315e9a") + (hi-vis-yellow "#eec801") + (alert-orange "#e85400") + (fire-prot-red "#e41b00") + (safety-green "#00883a") + (traffic-white "#f0f0f0")) + (custom-theme-set-faces + 'eng-paper +;;;; Special faces. + `(default + ((,class (:foreground ,text :background ,light-green)))) + `(error + ((,class (:foreground ,fire-prot-red)))) + `(warning + ((,class (:inherit default :weight bold)))) + `(success + ((,class (:inherit default :weight bold)))) +;;;; font-lock. + `(font-lock-comment-face + ((,class (:slant italic :weight light :foreground ,safety-green)))) + `(font-lock-string-face + ((,class (:inherit default)))) + `(font-lock-builtin-face + ((,class (:inherit default)))) + `(font-lock-type-face + ((,class (:inherit default)))) + `(font-lock-constant-face + ((,class (:inherit default)))) + `(font-lock-function-name-face + ((,class (:inherit default)))) + `(font-lock-variable-name-face + ((,class (:inherit default)))) + `(font-lock-keyword-face + ((,class (:inherit default)))) + `(font-lock-number-face + ((,class (:inherit default)))) +;;;; Decorations. + `(vertical-border + ((,class (:background ,text)))) + `(scroll-bar + ((,class (:foreground ,light-green :background ,safety-green)))) + `(region + ((,class (:foreground unspecified :background unspecified :box t :extend t)))) + `(shadow + ((,class (:foreground ,text :weight light)))) + `(match + ((,class (:background ,hi-vis-yellow)))) + `(highlight + ((,class (:background ,hi-vis-yellow)))) + `(show-paren-match + ((,class (:foreground unspecified :background unspecified :underline t)))) + `(link + ((,class (:foreground ,precaution-blue :underline t)))) + `(secondary-selection + ((,class (:background ,alert-orange :extend t)))) + `(lazy-highlight + ((,class (:background ,alert-orange)))) + `(isearch + ((,class (:foreground ,text :background ,hi-vis-yellow)))) + `(fringe + ((,class (:inherit default)))) + `(line-number + ((,class (:foreground ,safety-green)))) + `(line-number-current-line + ((,class (:foreground ,text :weight bold)))) + `(mode-line + ((,class (:inherit default :box (:color ,traffic-white :line-width (2 . 2)))))) + `(mode-line-inactive + ((,class (:inherit mode-line)))) + `(mode-line-highlight + ((,class (:inherit mode-line :background ,alert-orange)))) + `(header-line + ((,class (:inherit mode-line)))) +;;; Org + `(org-document-title + ((,class (:foreground ,text :weight bold)))) + `(org-level-1 + ((,class (:inherit default)))) + `(org-level-2 + ((,class (:inherit default)))) + `(org-level-3 + ((,class (:inherit default)))) + `(org-level-4 + ((,class (:inherit default)))) + `(org-level-5 + ((,class (:inherit default)))) + `(org-level-6 + ((,class (:inherit default)))) + `(org-level-7 + ((,class (:inherit default)))) + `(org-level-8 + ((,class (:inherit default)))) + `(org-todo + ((,class (:foreground ,fire-prot-red :bold t)))) + `(org-headline-todo + ((,class (:foreground ,fire-prot-red)))) + `(org-done + ((,class (:foreground ,safety-green :italic t)))) + `(org-headline-done + ((,class (:foreground ,safety-green)))) + + `(org-ellipsis + ((,class (:inherit default)))) + `(org-table + ((,class (:inherit default)))) + `(org-formula + ((,class (:inherit default)))) + `(org-drawer + ((,class (:inherit default)))) + `(org-footnote + ((,class (:inherit default)))) + `(org-date + ((,class (:inherit default)))) +;;; Org Agenda + `(header-line + ((,class (:inherit default)))) + `(org-agenda-structure + ((,class (:inherit default)))) + `(org-column + ((,class (:inherit default)))) + `(org-agenda-done + ((,class (:foreground ,text :italic t)))) + `(org-time-grid + ((,class (:inherit default)))) + `(org-agenda-date-weekend + ((,class (:inherit org-agenda-date :weight bold)))) + `(org-agenda-date-today + ((,class (:inherit org-agenda-date :weight bold :slant italic)))) + `(org-upcoming-deadline + ((,class (:inherit default)))) + `(org-scheduled + ((,class (:inherit default)))) + `(org-scheduled-today + ((,class (:inherit default)))) + `(org-scheduled-previously + ((,class (:inherit default)))) +;;; ORG-TRANSCLUSION + `(org-transclusion-fringe + ((,class (:foreground ,light-green :background ,precaution-blue)))) + `(org-transclusion-source + ((,class (:foreground ,precaution-blue)))) +;;; HOWM + `(howm-reminder-deadline-face + ((,class (:foreground ,fire-prot-red)))) + `(howm-reminder-todo-face + ((,class (:foreground ,alert-orange)))) + `(howm-reminder-late-deadline-face + ((,class (:foreground ,text :background ,fire-prot-red)))) + `(howm-reminder-schedule-face + ((,class (:foreground ,safety-green)))) + `(howm-reminder-normal-face + ((,class (:foreground ,precaution-blue)))) + `(howm-reminder-done-face + ((,class (:inherit default)))) + `(howm-reminder-today-face + ((,class (:foreground ,text :background ,alert-orange)))) + `(howm-mode-title-face + ((,class (:foreground ,precaution-blue)))) + `(howm-mode-ref-face + ((,class (:foreground ,precaution-blue)))) + `(howm-mode-keyword-face + ((,class (:foreground ,traffic-white :background ,precaution-blue)))) +;;; Misc. other packages + `(corfu-default + ((,class (:inherit default)))) + `(corfu-current + ((,class (:inherit default :underline t)))) + `(corfu-bar + ((,class (:background ,safety-green)))) + `(corfu-border + ((,class (:background ,traffic-white)))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'eng-paper) +(provide 'eng-paper-theme) +;;; eng-paper-theme.el ends here