+++ /dev/null
-;;; 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
+++ /dev/null
-;;; 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
--- /dev/null
+;;; 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
--- /dev/null
+;;; 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