This commit is contained in:
2025-12-23 15:01:22 -05:00
parent 982009bee5
commit 9cdbf00ed4
29 changed files with 31023 additions and 58 deletions

View File

@@ -0,0 +1,41 @@
;;; bedroom-theme.el --- Max's dark color theme -*- lexical-binding: t; -*-
;;; Commentary:
;; A dark color theme based on Max's personal color settings.
;;; Code:
(deftheme bedroom
"Max's dark color theme.")
(custom-theme-set-faces
'bedroom
;; Basic faces
'(default ((t (:foreground "#DADEE5" :background "#141B2B"))))
'(cursor ((t (:background "#FF69B4"))))
'(region ((t (:background "#15285A"))))
'(hl-line ((t (:background "#000000"))))
'(highlight ((t (:background "#15285A"))))
'(mode-line ((t (:background "#d3b58d" :foreground "#141B2B"))))
'(mode-line-inactive ((t (:inverse-video t))))
;; Font lock faces
'(font-lock-builtin-face ((t (:foreground "#DADEE5"))))
'(font-lock-comment-face ((t (:foreground "#87919D"))))
'(font-lock-string-face ((t (:foreground "#d3b58d"))))
'(font-lock-keyword-face ((t (:foreground "#c47616"))))
'(font-lock-function-name-face ((t (:foreground "#DADEE5"))))
'(font-lock-variable-name-face ((t (:foreground "#DADEE5"))))
'(font-lock-constant-face ((t (:foreground "#BBABC3"))))
'(font-lock-type-face ((t (:foreground "#85B8DE"))))
'(font-lock-warning-face ((t (:foreground "#FC2D07"))))
;; Custom/widget faces
'(custom-group-tag ((t (:underline t :foreground "lightblue"))))
'(custom-variable-tag ((t (:underline t :foreground "lightblue"))))
'(widget-field ((t (:foreground "white"))))
'(widget-single-line-field ((t (:background "darkgray")))))
(provide-theme 'bedroom)
;;; bedroom-theme.el ends here

View File

@@ -0,0 +1,129 @@
;;; fleury-theme.el --- The fleury color theme
;; Copyright (C) 2025 Shams Parvez Arka
;; See end of file for extended copyright information
;; Author : Shams Parvez Arka <parvez6826@gmail.com>
;; URL : https://github.com/ShamsParvezArka/fleury-theme.el
;; Version : 0.5
;; Commentary: "Coming up with an original idea in 21st century
;; is tough, even my dreams aren't original anymore!"
(deftheme fleury "The fleury color theme")
;; Color palette
(let ((rich-black "#020202")
(light-bronze "#b99468")
(charcoal-gray "#212121")
(charcoal-gray-lite "#1e1e1e")
(gunmetal-blue "#303040")
(dark-slate "#222425")
(amber-gold "#fcaa05")
(medium-gray "#404040")
(jet-black "#121212")
(dim-gray "#666666")
(goldenrod "#f0c674")
(bright-orange "#ffaa00")
(dusty-rose "#dc7575")
(sunflower-yellow "#edb211")
(burnt-orange "#de451f")
(sky-blue "#2895c7")
(sky-blue-lite "#2f2f38")
(bright-red "#ff0000")
(fresh-green "#66bc11")
(lime-green "#003939")
(vivid-vermilion "#f0500c")
(golden-yellow "#f0bb0c")
(pure-black "#000000")
(aqua-ice "#8ffff2")
(dusty-sage "#9ba290")
(coffee-brown "#63523d")
(mode-line-foreground-active "#e7aa4d")
(mode-line-background-active "#1a120b")
(mode-line-border "#161616")
)
(custom-theme-set-faces
'fleury
;; UI Elements
`(default ((t (:background ,rich-black :foreground ,light-bronze))))
`(cursor ((t (:background ,fresh-green))))
`(region ((t (:background ,lime-green))))
`(highlight ((t (:background ,charcoal-gray-lite))))
`(fringe ((t (:background ,dark-slate))))
`(vertical-border ((t (:foreground ,dark-slate))))
`(minibuffer-prompt ((t (:foreground ,amber-gold :weight bold))))
;; Line Numbers
`(line-number ((t (:foreground ,medium-gray :background ,rich-black))))
`(line-number-current-line ((t (:background ,charcoal-gray-lite :foreground ,light-bronze))))
;; Font Lock Faces
`(font-lock-comment-face ((t (:foreground ,dim-gray))))
`(font-lock-keyword-face ((t (:foreground ,goldenrod))))
`(font-lock-string-face ((t (:foreground ,bright-orange))))
`(font-lock-constant-face ((t (:foreground ,bright-orange))))
`(font-lock-builtin-face ((t (:foreground ,dusty-rose))))
`(font-lock-preprocessor-face ((t (:foreground,dusty-rose))))
`(font-lock-type-face ((t (:foreground ,sunflower-yellow))))
`(font-lock-function-name-face ((t (:foreground ,burnt-orange))))
`(font-lock-variable-name-face ((t (:foreground ,light-bronze))))
`(font-lock-variable-use-face ((t (:foreground ,sky-blue))))
`(font-lock-preprocessor-face ((t (:foreground ,dusty-rose))))
`(font-lock-warning-face ((t (:foreground ,bright-red :weight bold))))
`(font-lock-doc-face ((t (:foreground ,fresh-green))))
;; Mode Line
`(mode-line ((t (:background ,mode-line-background-active :foreground ,mode-line-foreground-active :box (:line-width 1 :color ,mode-line-border :style nil)))))
`(mode-line-inactive ((t (:background ,rich-black :foreground ,mode-line-foreground-active :box (:line-width 1 :color ,mode-line-border :style nil)))))
;; Search & String Matching
`(match ((t (:background ,golden-yellow :foreground ,pure-black))))
`(isearch ((t (:background ,vivid-vermilion :foreground ,pure-black))))
`(lazy-highlight ((t (:background ,golden-yellow :foreground ,pure-black))))
`(ido-first-match ((t (:foreground ,golden-yellow))))
`(ido-only-match ((t (:foreground ,vivid-vermilion))))
;; Custom Elements
`(show-paren-match ((t (:background ,sky-blue-lite))))
`(show-paren-mismatch ((t (:background ,dusty-sage))))
;; Tooltip and Popup
`(tooltip ((t (:background ,coffee-brown :foreground ,amber-gold))))
;; Compilation
`(flycheck-error ((t (:underline (:color ,bright-red :style wave)))))
`(compilation-error ((t (:foreground ,bright-red))))
`(compilation-info ((t ,(list :foreground fresh-green :inherit 'unspecified))))
`(compilation-warning ((t ,(list :foreground coffee-brown :bold t :inherit 'unspecified))))
`(compilation-mode-line-fail ((t ,(list :foreground bright-red :weight 'bold :inherit 'unspecified))))
`(compilation-mode-line-exit ((t ,(list :foreground fresh-green :weight 'bold :inherit 'unspecified))))
))
(provide-theme 'fleury)
;; MIT License
;; Copyright (c) 2025 Shams Parvez Arka
;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
;; in the Software without restriction, including without limitation the rights
;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:
;; The above copyright notice and this permission notice shall be included in all
;; copies or substantial portions of the Software.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.

View File

@@ -0,0 +1,425 @@
;;; gruber-darker-theme.el --- Gruber Darker color theme for Emacs 24.
;; Copyright (C) 2013-2016 Alexey Kutepov a.k.a rexim
;; Copyright (C) 2009-2010 Jason R. Blevins
;; Author: Alexey Kutepov <reximkut@gmail.com>
;; URL: http://github.com/rexim/gruber-darker-theme
;; Version: 0.7
;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation
;; files (the "Software"), to deal in the Software without
;; restriction, including without limitation the rights to use, copy,
;; modify, merge, publish, distribute, sublicense, and/or sell copies
;; of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:
;; The above copyright notice and this permission notice shall be
;; included in all copies or substantial portions of the Software.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
;; BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
;; ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.
;;; Commentary:
;;
;; Gruber Darker color theme for Emacs by Jason Blevins. A darker
;; variant of the Gruber Dark theme for BBEdit by John Gruber. Adapted
;; for deftheme and extended by Alexey Kutepov a.k.a. rexim.
(deftheme gruber-darker
"Gruber Darker color theme for Emacs 24")
;; Please, install rainbow-mode.
;; Colors with +x are lighter. Colors with -x are darker.
(let ((gruber-darker-fg "#e4e4ef")
(gruber-darker-fg+1 "#f4f4ff")
(gruber-darker-fg+2 "#f5f5f5")
(gruber-darker-white "#ffffff")
(gruber-darker-black "#000000")
(gruber-darker-bg-1 "#101010")
(gruber-darker-bg "#181818")
(gruber-darker-bg+1 "#282828")
(gruber-darker-bg+2 "#453d41")
(gruber-darker-bg+3 "#484848")
(gruber-darker-bg+4 "#52494e")
(gruber-darker-red-1 "#c73c3f")
(gruber-darker-red "#f43841")
(gruber-darker-red+1 "#ff4f58")
(gruber-darker-green "#73c936")
(gruber-darker-yellow "#ffdd33")
(gruber-darker-brown "#cc8c3c")
(gruber-darker-quartz "#95a99f")
(gruber-darker-niagara-2 "#303540")
(gruber-darker-niagara-1 "#565f73")
(gruber-darker-niagara "#96a6c8")
(gruber-darker-wisteria "#9e95c7")
)
(custom-theme-set-variables
'gruber-darker
'(frame-brackground-mode (quote dark)))
(custom-theme-set-faces
'gruber-darker
;; Agda2
`(agda2-highlight-datatype-face ((t (:foreground ,gruber-darker-quartz))))
`(agda2-highlight-primitive-type-face ((t (:foreground ,gruber-darker-quartz))))
`(agda2-highlight-function-face ((t (:foreground ,gruber-darker-niagara))))
`(agda2-highlight-keyword-face ((t ,(list :foreground gruber-darker-yellow
:bold t))))
`(agda2-highlight-inductive-constructor-face ((t (:foreground ,gruber-darker-green))))
`(agda2-highlight-number-face ((t (:foreground ,gruber-darker-wisteria))))
;; AUCTeX
`(font-latex-bold-face ((t (:foreground ,gruber-darker-quartz :bold t))))
`(font-latex-italic-face ((t (:foreground ,gruber-darker-quartz :italic t))))
`(font-latex-math-face ((t (:foreground ,gruber-darker-green))))
`(font-latex-sectioning-5-face ((t ,(list :foreground gruber-darker-niagara
:bold t))))
`(font-latex-slide-title-face ((t (:foreground ,gruber-darker-niagara))))
`(font-latex-string-face ((t (:foreground ,gruber-darker-green))))
`(font-latex-warning-face ((t (:foreground ,gruber-darker-red))))
;; Basic Coloring (or Uncategorized)
`(border ((t ,(list :background gruber-darker-bg-1
:foreground gruber-darker-bg+2))))
`(cursor ((t (:background ,gruber-darker-yellow))))
`(default ((t ,(list :foreground gruber-darker-fg
:background gruber-darker-bg))))
`(fringe ((t ,(list :background nil
:foreground gruber-darker-bg+2))))
`(vertical-border ((t ,(list :foreground gruber-darker-bg+2))))
`(link ((t (:foreground ,gruber-darker-niagara :underline t))))
`(link-visited ((t (:foreground ,gruber-darker-wisteria :underline t))))
`(match ((t (:background ,gruber-darker-bg+4))))
`(shadow ((t (:foreground ,gruber-darker-bg+4))))
`(minibuffer-prompt ((t (:foreground ,gruber-darker-niagara))))
`(region ((t (:background ,gruber-darker-bg+3 :foreground nil))))
`(secondary-selection ((t ,(list :background gruber-darker-bg+3
:foreground nil))))
`(trailing-whitespace ((t ,(list :foreground gruber-darker-black
:background gruber-darker-red))))
`(tooltip ((t ,(list :background gruber-darker-bg+4
:foreground gruber-darker-white))))
;; Calendar
`(holiday-face ((t (:foreground ,gruber-darker-red))))
;; Compilation
`(compilation-info ((t ,(list :foreground gruber-darker-green
:inherit 'unspecified))))
`(compilation-warning ((t ,(list :foreground gruber-darker-brown
:bold t
:inherit 'unspecified))))
`(compilation-error ((t (:foreground ,gruber-darker-red+1))))
`(compilation-mode-line-fail ((t ,(list :foreground gruber-darker-red
:weight 'bold
:inherit 'unspecified))))
`(compilation-mode-line-exit ((t ,(list :foreground gruber-darker-green
:weight 'bold
:inherit 'unspecified))))
;; Completion
`(completions-annotations ((t (:inherit 'shadow))))
;; Custom
`(custom-state ((t (:foreground ,gruber-darker-green))))
;; Diff
`(diff-removed ((t ,(list :foreground gruber-darker-red+1
:background nil))))
`(diff-added ((t ,(list :foreground gruber-darker-green
:background nil))))
;; Dired
`(dired-directory ((t (:foreground ,gruber-darker-niagara :weight bold))))
`(dired-ignored ((t ,(list :foreground gruber-darker-quartz
:inherit 'unspecified))))
;; Ebrowse
`(ebrowse-root-class ((t (:foreground ,gruber-darker-niagara :weight bold))))
`(ebrowse-progress ((t (:background ,gruber-darker-niagara))))
;; Egg
`(egg-branch ((t (:foreground ,gruber-darker-yellow))))
`(egg-branch-mono ((t (:foreground ,gruber-darker-yellow))))
`(egg-diff-add ((t (:foreground ,gruber-darker-green))))
`(egg-diff-del ((t (:foreground ,gruber-darker-red))))
`(egg-diff-file-header ((t (:foreground ,gruber-darker-wisteria))))
`(egg-help-header-1 ((t (:foreground ,gruber-darker-yellow))))
`(egg-help-header-2 ((t (:foreground ,gruber-darker-niagara))))
`(egg-log-HEAD-name ((t (:box (:color ,gruber-darker-fg)))))
`(egg-reflog-mono ((t (:foreground ,gruber-darker-niagara-1))))
`(egg-section-title ((t (:foreground ,gruber-darker-yellow))))
`(egg-text-base ((t (:foreground ,gruber-darker-fg))))
`(egg-term ((t (:foreground ,gruber-darker-yellow))))
;; ERC
`(erc-notice-face ((t (:foreground ,gruber-darker-wisteria))))
`(erc-timestamp-face ((t (:foreground ,gruber-darker-green))))
`(erc-input-face ((t (:foreground ,gruber-darker-red+1))))
`(erc-my-nick-face ((t (:foreground ,gruber-darker-red+1))))
;; EShell
`(eshell-ls-backup ((t (:foreground ,gruber-darker-quartz))))
`(eshell-ls-directory ((t (:foreground ,gruber-darker-niagara))))
`(eshell-ls-executable ((t (:foreground ,gruber-darker-green))))
`(eshell-ls-symlink ((t (:foreground ,gruber-darker-yellow))))
;; Font Lock
`(font-lock-builtin-face ((t (:foreground ,gruber-darker-yellow))))
`(font-lock-comment-face ((t (:foreground ,gruber-darker-brown))))
`(font-lock-comment-delimiter-face ((t (:foreground ,gruber-darker-brown))))
`(font-lock-constant-face ((t (:foreground ,gruber-darker-quartz))))
`(font-lock-doc-face ((t (:foreground ,gruber-darker-green))))
`(font-lock-doc-string-face ((t (:foreground ,gruber-darker-green))))
`(font-lock-function-name-face ((t (:foreground ,gruber-darker-niagara))))
`(font-lock-keyword-face ((t (:foreground ,gruber-darker-yellow :bold t))))
`(font-lock-preprocessor-face ((t (:foreground ,gruber-darker-quartz))))
`(font-lock-reference-face ((t (:foreground ,gruber-darker-quartz))))
`(font-lock-string-face ((t (:foreground ,gruber-darker-green))))
`(font-lock-type-face ((t (:foreground ,gruber-darker-quartz))))
`(font-lock-variable-name-face ((t (:foreground ,gruber-darker-fg+1))))
`(font-lock-warning-face ((t (:foreground ,gruber-darker-red))))
;; Flymake
`(flymake-errline
((((supports :underline (:style wave)))
(:underline (:style wave :color ,gruber-darker-red)
:foreground unspecified
:background unspecified
:inherit unspecified))
(t (:foreground ,gruber-darker-red :weight bold :underline t))))
`(flymake-warnline
((((supports :underline (:style wave)))
(:underline (:style wave :color ,gruber-darker-yellow)
:foreground unspecified
:background unspecified
:inherit unspecified))
(t (:forground ,gruber-darker-yellow :weight bold :underline t))))
`(flymake-infoline
((((supports :underline (:style wave)))
(:underline (:style wave :color ,gruber-darker-green)
:foreground unspecified
:background unspecified
:inherit unspecified))
(t (:forground ,gruber-darker-green :weight bold :underline t))))
;; Flyspell
`(flyspell-incorrect
((((supports :underline (:style wave)))
(:underline (:style wave :color ,gruber-darker-red) :inherit unspecified))
(t (:foreground ,gruber-darker-red :weight bold :underline t))))
`(flyspell-duplicate
((((supports :underline (:style wave)))
(:underline (:style wave :color ,gruber-darker-yellow) :inherit unspecified))
(t (:foreground ,gruber-darker-yellow :weight bold :underline t))))
;; Helm
`(helm-candidate-number ((t ,(list :background gruber-darker-bg+2
:foreground gruber-darker-yellow
:bold t))))
`(helm-ff-directory ((t ,(list :foreground gruber-darker-niagara
:background gruber-darker-bg
:bold t))))
`(helm-ff-executable ((t (:foreground ,gruber-darker-green))))
`(helm-ff-file ((t (:foreground ,gruber-darker-fg :inherit unspecified))))
`(helm-ff-invalid-symlink ((t ,(list :foreground gruber-darker-bg
:background gruber-darker-red))))
`(helm-ff-symlink ((t (:foreground ,gruber-darker-yellow :bold t))))
`(helm-selection-line ((t (:background ,gruber-darker-bg+1))))
`(helm-selection ((t (:background ,gruber-darker-bg+1 :underline nil))))
`(helm-source-header ((t ,(list :foreground gruber-darker-yellow
:background gruber-darker-bg
:box (list :line-width -1
:style 'released-button)))))
;; Ido
`(ido-first-match ((t (:foreground ,gruber-darker-yellow :bold nil))))
`(ido-only-match ((t (:foreground ,gruber-darker-brown :weight bold))))
`(ido-subdir ((t (:foreground ,gruber-darker-niagara :weight bold))))
;; Info
`(info-xref ((t (:foreground ,gruber-darker-niagara))))
`(info-visited ((t (:foreground ,gruber-darker-wisteria))))
;; Jabber
`(jabber-chat-prompt-foreign ((t ,(list :foreground gruber-darker-quartz
:bold nil))))
`(jabber-chat-prompt-local ((t (:foreground ,gruber-darker-yellow))))
`(jabber-chat-prompt-system ((t (:foreground ,gruber-darker-green))))
`(jabber-rare-time-face ((t (:foreground ,gruber-darker-green))))
`(jabber-roster-user-online ((t (:foreground ,gruber-darker-green))))
`(jabber-activity-face ((t (:foreground ,gruber-darker-red))))
`(jabber-activity-personal-face ((t (:foreground ,gruber-darker-yellow :bold t))))
;; Line Highlighting
`(highlight ((t (:background ,gruber-darker-bg+1 :foreground nil))))
`(highlight-current-line-face ((t ,(list :background gruber-darker-bg+1
:foreground nil))))
;; line numbers
`(line-number ((t (:inherit default :foreground ,gruber-darker-bg+4))))
`(line-number-current-line ((t (:inherit line-number :foreground ,gruber-darker-yellow))))
;; Linum
`(linum ((t `(list :foreground gruber-darker-quartz
:background gruber-darker-bg))))
;; Magit
`(magit-branch ((t (:foreground ,gruber-darker-niagara))))
`(magit-diff-hunk-header ((t (:background ,gruber-darker-bg+2))))
`(magit-diff-file-header ((t (:background ,gruber-darker-bg+4))))
`(magit-log-sha1 ((t (:foreground ,gruber-darker-red+1))))
`(magit-log-author ((t (:foreground ,gruber-darker-brown))))
`(magit-log-head-label-remote ((t ,(list :foreground gruber-darker-green
:background gruber-darker-bg+1))))
`(magit-log-head-label-local ((t ,(list :foreground gruber-darker-niagara
:background gruber-darker-bg+1))))
`(magit-log-head-label-tags ((t ,(list :foreground gruber-darker-yellow
:background gruber-darker-bg+1))))
`(magit-log-head-label-head ((t ,(list :foreground gruber-darker-fg
:background gruber-darker-bg+1))))
`(magit-item-highlight ((t (:background ,gruber-darker-bg+1))))
`(magit-tag ((t ,(list :foreground gruber-darker-yellow
:background gruber-darker-bg))))
`(magit-blame-heading ((t ,(list :background gruber-darker-bg+1
:foreground gruber-darker-fg))))
;; Message
`(message-header-name ((t (:foreground ,gruber-darker-green))))
;; Mode Line
`(mode-line ((t ,(list :background gruber-darker-bg+1
:foreground gruber-darker-white))))
`(mode-line-buffer-id ((t ,(list :background gruber-darker-bg+1
:foreground gruber-darker-white))))
`(mode-line-inactive ((t ,(list :background gruber-darker-bg+1
:foreground gruber-darker-quartz))))
;; Neo Dir
`(neo-dir-link-face ((t (:foreground ,gruber-darker-niagara))))
;; Org Mode
`(org-agenda-structure ((t (:foreground ,gruber-darker-niagara))))
`(org-column ((t (:background ,gruber-darker-bg-1))))
`(org-column-title ((t (:background ,gruber-darker-bg-1 :underline t :weight bold))))
`(org-done ((t (:foreground ,gruber-darker-green))))
`(org-todo ((t (:foreground ,gruber-darker-red-1))))
`(org-upcoming-deadline ((t (:foreground ,gruber-darker-yellow))))
;; Search
`(isearch ((t ,(list :foreground gruber-darker-black
:background gruber-darker-fg+2))))
`(isearch-fail ((t ,(list :foreground gruber-darker-black
:background gruber-darker-red))))
`(isearch-lazy-highlight-face ((t ,(list
:foreground gruber-darker-fg+1
:background gruber-darker-niagara-1))))
;; Sh
`(sh-quoted-exec ((t (:foreground ,gruber-darker-red+1))))
;; Show Paren
`(show-paren-match-face ((t (:background ,gruber-darker-bg+4))))
`(show-paren-mismatch-face ((t (:background ,gruber-darker-red-1))))
;; Slime
`(slime-repl-inputed-output-face ((t (:foreground ,gruber-darker-red))))
;; Tuareg
`(tuareg-font-lock-governing-face ((t (:foreground ,gruber-darker-yellow))))
;; Speedbar
`(speedbar-directory-face ((t ,(list :foreground gruber-darker-niagara
:weight 'bold))))
`(speedbar-file-face ((t (:foreground ,gruber-darker-fg))))
`(speedbar-highlight-face ((t (:background ,gruber-darker-bg+1))))
`(speedbar-selected-face ((t (:foreground ,gruber-darker-red))))
`(speedbar-tag-face ((t (:foreground ,gruber-darker-yellow))))
;; Which Function
`(which-func ((t (:foreground ,gruber-darker-wisteria))))
;; Whitespace
`(whitespace-space ((t ,(list :background gruber-darker-bg
:foreground gruber-darker-bg+1))))
`(whitespace-tab ((t ,(list :background gruber-darker-bg
:foreground gruber-darker-bg+1))))
`(whitespace-hspace ((t ,(list :background gruber-darker-bg
:foreground gruber-darker-bg+2))))
`(whitespace-line ((t ,(list :background gruber-darker-bg+2
:foreground gruber-darker-red+1))))
`(whitespace-newline ((t ,(list :background gruber-darker-bg
:foreground gruber-darker-bg+2))))
`(whitespace-trailing ((t ,(list :background gruber-darker-red
:foreground gruber-darker-red))))
`(whitespace-empty ((t ,(list :background gruber-darker-yellow
:foreground gruber-darker-yellow))))
`(whitespace-indentation ((t ,(list :background gruber-darker-yellow
:foreground gruber-darker-red))))
`(whitespace-space-after-tab ((t ,(list :background gruber-darker-yellow
:foreground gruber-darker-yellow))))
`(whitespace-space-before-tab ((t ,(list :background gruber-darker-brown
:foreground gruber-darker-brown))))
;; tab-bar
`(tab-bar ((t (:background ,gruber-darker-bg+1 :foreground ,gruber-darker-bg+4))))
`(tab-bar-tab ((t (:background nil :foreground ,gruber-darker-yellow :weight bold))))
`(tab-bar-tab-inactive ((t (:background nil))))
;; vterm / ansi-term
`(term-color-black ((t (:foreground ,gruber-darker-bg+3 :background ,gruber-darker-bg+4))))
`(term-color-red ((t (:foreground ,gruber-darker-red-1 :background ,gruber-darker-red-1))))
`(term-color-green ((t (:foreground ,gruber-darker-green :background ,gruber-darker-green))))
`(term-color-blue ((t (:foreground ,gruber-darker-niagara :background ,gruber-darker-niagara))))
`(term-color-yellow ((t (:foreground ,gruber-darker-yellow :background ,gruber-darker-yellow))))
`(term-color-magenta ((t (:foreground ,gruber-darker-wisteria :background ,gruber-darker-wisteria))))
`(term-color-cyan ((t (:foreground ,gruber-darker-quartz :background ,gruber-darker-quartz))))
`(term-color-white ((t (:foreground ,gruber-darker-fg :background ,gruber-darker-white))))
;; company-mode
`(company-tooltip ((t (:foreground ,gruber-darker-fg :background ,gruber-darker-bg+1))))
`(company-tooltip-annotation ((t (:foreground ,gruber-darker-brown :background ,gruber-darker-bg+1))))
`(company-tooltip-annotation-selection ((t (:foreground ,gruber-darker-brown :background ,gruber-darker-bg-1))))
`(company-tooltip-selection ((t (:foreground ,gruber-darker-fg :background ,gruber-darker-bg-1))))
`(company-tooltip-mouse ((t (:background ,gruber-darker-bg-1))))
`(company-tooltip-common ((t (:foreground ,gruber-darker-green))))
`(company-tooltip-common-selection ((t (:foreground ,gruber-darker-green))))
`(company-scrollbar-fg ((t (:background ,gruber-darker-bg-1))))
`(company-scrollbar-bg ((t (:background ,gruber-darker-bg+2))))
`(company-preview ((t (:background ,gruber-darker-green))))
`(company-preview-common ((t (:foreground ,gruber-darker-green :background ,gruber-darker-bg-1))))
;; Proof General
`(proof-locked-face ((t (:background ,gruber-darker-niagara-2))))
;; Orderless
`(orderless-match-face-0 ((t (:foreground ,gruber-darker-yellow))))
`(orderless-match-face-1 ((t (:foreground ,gruber-darker-green))))
`(orderless-match-face-2 ((t (:foreground ,gruber-darker-brown))))
`(orderless-match-face-3 ((t (:foreground ,gruber-darker-quartz))))
))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'gruber-darker)
;; Local Variables:
;; no-byte-compile: t
;; indent-tabs-mode: nil
;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode +1))
;; End:
;;; gruber-darker-theme.el ends here.

View File

@@ -0,0 +1,71 @@
;;; handmade-theme.el --- A Handmade theme -*- lexical-binding:t -*-
;; Copyright (C) 2022 Niko Pavlinek
;; This is free and unencumbered software released into the public domain.
;; Anyone is free to copy, modify, publish, use, compile, sell, or distribute
;; this software, either in source code form or as a compiled binary, for any
;; purpose, commercial or non-commercial, and by any means.
;; In jurisdictions that recognize copyright laws, the author or authors of this
;; software dedicate any and all copyright interest in the software to the
;; public domain. We make this dedication for the benefit of the public at large
;; and to the detriment of our heirs and successors. We intend this dedication
;; to be an overt act of relinquishment in perpetuity of all present and future
;; rights to this software under copyright law.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
;; AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
;; ACTION OF CONTRACT, TORT OR OTHERWISE,ARISING FROM, OUT OF OR IN CONNECTION
;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; For more information, please refer to <http://unlicense.org/>
(deftheme handmade
"A port of the Emacs theme used by Casey Muratori on the Handmade Hero series.")
(defface handmade-important-face nil "")
(defface handmade-note-face nil "")
(defface handmade-todo-face nil "")
(mapc (lambda (mode)
(font-lock-add-keywords mode '(("\\<\\(IMPORTANT\\)" 1 'handmade-important-face t)
("\\<\\(NOTE\\)" 1 'handmade-note-face t)
("\\<\\(STUDY\\)" 1 'handmade-important-face t)
("\\<\\(TODO\\)" 1 'handmade-todo-face t)
("\\<\\(XXX\\)" 1 'handmade-todo-face t))))
'(c-mode c++-mode emacs-lisp-mode))
(let ((handmade-beige "burlywood3")
(handmade-dark-blue "midnight blue")
(handmade-dark-gray "#161616")
(handmade-dark-green "DarkGreen")
(handmade-gold "DarkGoldenrod3")
(handmade-light-beige "#dab98f")
(handmade-light-gray "gray50")
(handmade-light-green "#40ff40")
(handmade-olive "olive drab")
(handmade-red "Red")
(handmade-yellow "Yellow"))
(custom-theme-set-faces
'handmade
`(cursor ((t (:background ,handmade-light-green))))
`(default ((t (:background ,handmade-dark-gray :foreground ,handmade-beige))))
`(font-lock-builtin-face ((t (:foreground ,handmade-light-beige))))
`(font-lock-comment-face ((t (:foreground ,handmade-light-gray))))
`(font-lock-constant-face ((t (:foreground ,handmade-olive))))
`(font-lock-doc-face ((t (:foreground ,handmade-light-gray))))
`(font-lock-function-name-face ((t (:foreground ,handmade-beige))))
`(font-lock-keyword-face ((t (:foreground ,handmade-gold))))
`(font-lock-string-face ((t (:foreground ,handmade-olive))))
`(font-lock-type-face ((t (:foreground ,handmade-beige))))
`(font-lock-variable-name-face ((t (:foreground ,handmade-beige))))
`(handmade-important-face ((t (:foreground ,handmade-yellow :weight bold :underline t))))
`(handmade-note-face ((t (:foreground ,handmade-dark-green :weight bold :underline t))))
`(handmade-todo-face ((t (:foreground ,handmade-red :weight bold :underline t))))
`(hl-line ((t (:background ,handmade-dark-blue))))))
(provide-theme 'handmade)

View File

@@ -0,0 +1,37 @@
;;; witness-theme.el --- Witness color theme -*- lexical-binding: t; -*-
;;; Commentary:
;; A dark teal color theme.
;;; Code:
(deftheme witness
"Witness color theme - dark teal with green accents.")
(custom-theme-set-faces
'witness
;; Basic faces
'(default ((t (:foreground "#d3b58d" :background "#072626"))))
'(cursor ((t (:background "lightgreen"))))
'(region ((t (:background "blue"))))
'(highlight ((t (:foreground "navyblue" :background "darkseagreen2"))))
'(mode-line ((t (:inverse-video t))))
;; Font lock faces
'(font-lock-builtin-face ((t (:foreground "lightgreen"))))
'(font-lock-comment-face ((t (:foreground "#3fdf1f"))))
'(font-lock-string-face ((t (:foreground "#0fdfaf"))))
'(font-lock-keyword-face ((t (:foreground "white"))))
'(font-lock-function-name-face ((t (:foreground "white"))))
'(font-lock-variable-name-face ((t (:foreground "#c8d4ec"))))
'(font-lock-warning-face ((t (:foreground "#504038"))))
;; Custom/widget faces
'(custom-group-tag ((t (:underline t :foreground "lightblue"))))
'(custom-variable-tag ((t (:underline t :foreground "lightblue"))))
'(widget-field ((t (:foreground "white"))))
'(widget-single-line-field ((t (:background "darkgray")))))
(provide-theme 'witness)
;;; witness-theme.el ends here