diff --git a/lisp/mitch-theme.el b/lisp/mitch-theme.el deleted file mode 100644 index b0aa17d..0000000 --- a/lisp/mitch-theme.el +++ /dev/null @@ -1,187 +0,0 @@ -;;; mitch-theme.el --- set visual theme in the only unique way - -;;; Commentary: -;; When I first started using `nvim', I copied my `nano' config -;; which was very cringe and basic. And so I scoured the internet -;; for themes. And discovered something truly disturbing: -;; Every single `nvim' and `emacs' theme looks exactly the same, -;; and they're all gray-on-gray cringe. I prefer my cringe to really -;; pop rather than ooze before my eyes, so I somehow found the `nvim' -;; theme that gradually became this. -;; We require 'autothemer because it makes the face declaration so much -;; simpler. - -;;; Code: -(require 'autothemer) - -;; set font... -;; Taken from https://web.archive.org/web/20210622224446/https://www.manueluberti.eu/emacs/2017/02/26/dynamicfonts/ - -;; insane font stuff. Might be what breaks something. -;; (defun mitch/setup-main-fonts (default-height variable-pitch-height) -;; "Set up default fonts. - -;; Use DEFAULT-HEIGHT for default face and VARIABLE-PITCH-HEIGHT -;; for variable-pitch face." -;; (set-face-attribute 'default nil -;; :family "MesloLGS NF" -;; :height default-height) -;; (set-face-attribute 'variable-pitch nil -;; :height variable-pitch-height -;; :weight 'regular)) -;; ;; Now I just have to call this function with the proper values for :height -;; ;; according to the screen size. -;; (when window-system -;; (if (> (x-display-pixel-width) 1800) -;; (mitch/setup-main-fonts 130 140) -;; (mitch/setup-main-fonts 110 120))) - -;; sane font stuff -(set-face-attribute 'fixed-pitch nil - :family "MesloLGS NF") -(set-face-attribute 'default nil - :family "MesloLGS NF") -(set-face-attribute 'variable-pitch nil - :inherit 'default - :family "Sans Serif") - -(setq rainbow-delimiters-max-face-count 2) -;; (setq org-fontify-quote-and-verse-blocks t) - -;; Set transparent background; might break older emacsen -(add-to-list 'initial-frame-alist '(alpha-background . 50)) -(add-to-list 'default-frame-alist '(alpha-background . 50)) -(add-to-list 'default-frame-alist '(cursor-color . "white")) -(add-to-list 'default-frame-alist '(fullscreen . maximized)) - -(autothemer-deftheme - mitch "Based on my nvim theme. Because everything else looks the same." - - ;; Specify the color classes used by the theme - (( - ((class color) (min-colors #xFFFFFF)) ;; truecolor - ((class color) (min-colors #xFF )) ;; 256color - ((class color) (min-colors 16 )) ;; 16color - ((class color) (min-colors 8 )) ;; 8color - ) - - ;; Specify the color palette for each of the classes above. - (mitch-black "black" 'nil) - (mitch-red "red" ) - (mitch-green "ForestGreen") - (mitch-yellow "gold1" "white") - (mitch-blue "blue" ) - (mitch-magenta "magenta") - (mitch-cyan "cyan") - (mitch-white "white") - (mitch-pink "pink2") - (mitch-light-black "grey19" "grey19" "gray") - (mitch-light-red "orange") - (mitch-light-green "green3") - (mitch-light-yellow "PaleGoldenrod") - (mitch-light-blue "RoyalBlue") - (mitch-light-magenta "DarkMagenta") - (mitch-light-cyan "turquoise3" "lightseagreen") - (mitch-light-white "grey69") - (mitch-visual-bg "DarkBlue" "midnightblue") - (mitch-dark-gray "grey7") - (mitch-dark-yellow "DarkGoldenrod1") - (mitch-dark-red "DarkRed") - (mitch-mid-gray "grey33") - (mitch-mid-violet "BlueViolet") - (mitch-mid-red "red3") - ) - - ;; specifications for Emacs faces. - ( - ;; (default (:background mitch-black :foreground mitch-light-yellow)) - (default (:background mitch-black :foreground mitch-white)) - (default (:slant 'normal)) - (cursor (:inverse-video t)) - (highlight (:background mitch-visual-bg)) - (region (:inherit 'highlight)) - (link (:foreground mitch-light-blue :underline 't)) - (link-visited (:foreground mitch-mid-violet :underline 't)) - (whitespace-line (:background mitch-dark-red)) - (line-number (:background 'nil :inherit 'font-lock-comment-delimiter-face)) - (line-number-current-line (:inherit - 'line-number - :foreground mitch-yellow - :weight 'bold)) - (linum (:inherit 'line-number)) - (linum-relative-current-face (:inherit 'line-number-current-line)) - (ivy-current-match (:inherit 'highlight :extend t)) - (ivy-separator (:inherit 'marginalia-documentation)) - (show-paren-match (:background mitch-light-cyan)) - ;; font-lock faces. The defaults that are important to get right. - (font-lock-comment-face (:foreground mitch-green :slant 'oblique)) - (font-lock-comment-delimiter-face (:foreground mitch-light-black)) - (font-lock-constant-face (:foreground mitch-light-white :weight 'normal)) - (font-lock-string-face (:foreground mitch-light-blue :slant 'italic)) - (font-lock-builtin-face (:foreground mitch-light-white :weight 'bold)) - (font-lock-keyword-face (:foreground mitch-mid-red :weight 'normal)) - (font-lock-type-face (:foreground mitch-light-red :weight 'bold)) - (font-lock-function-name-face (:foreground mitch-red :weight 'normal)) - (font-lock-variable-name-face (:foreground mitch-light-cyan :weight 'normal)) - (font-lock-negation-char-face (:foreground mitch-visual-bg :weight 'bold)) - ;; other things - (transient-heading (:inherit 'default - :foreground mitch-magenta - :weight 'bold)) - (rainbow-delimiters-depth-1-face (:foreground mitch-light-magenta)) - (rainbow-delimiters-depth-2-face (:foreground mitch-magenta :weight 'normal)) - (vertical-border (:foreground mitch-mid-violet :weight 'bold)) - (fringe (:inherit 'default)) - (whitespace-space (:foreground mitch-black)) - (whitespace-tab (:foreground mitch-black)) - (whitespace-newline (:foreground mitch-black)) - (org-meta-line (:inherit 'font-lock-comment-delimiter-face)) - (isearch (:foreground mitch-dark-yellow - :background mitch-light-magenta - :weight 'bold)) - (lazy-highlight (:inherit 'isearch)) - (completions-highlight (:background mitch-mid-violet)) - (corfu-default (:background mitch-mid-gray)) - (corfu-current (:inherit 'completions-highlight)) - ;; ansi colors - (ansi-color-black (:foreground mitch-black :background mitch-light-black)) - (ansi-color-red (:foreground mitch-red :background mitch-light-red)) - (ansi-color-green (:foreground mitch-green :background mitch-light-green)) - (ansi-color-yellow (:foreground mitch-yellow :background mitch-light-yellow)) - (ansi-color-blue (:foreground mitch-blue :background mitch-light-blue)) - (ansi-color-magenta (:foreground mitch-magenta - :background mitch-light-magenta)) - (ansi-color-cyan (:foreground mitch-cyan :background mitch-light-cyan)) - (ansi-color-white (:foreground mitch-white :background mitch-light-white)) - (ansi-color-bright-black (:background mitch-black - :foreground mitch-light-black)) - (ansi-color-bright-red (:background mitch-red :foreground mitch-light-red)) - (ansi-color-bright-green (:background mitch-green - :foreground mitch-light-green)) - (ansi-color-bright-yellow (:background mitch-yellow - :foreground mitch-light-yellow)) - (ansi-color-bright-blue (:background mitch-blue :foreground mitch-light-blue)) - (ansi-color-bright-magenta (:background mitch-magenta - :foreground mitch-light-magenta)) - (ansi-color-bright-cyan (:background mitch-cyan :foreground mitch-light-cyan)) - (ansi-color-bright-white (:background mitch-white - :foreground mitch-light-white)) - ;; eshell colors - (epe-dir-face (:foreground mitch-cyan)) - (eshell-syntax-highlighting-shell-command-face (:foreground - mitch-light-green)) - (eshell-syntax-highlighting-lisp-function-face (:foreground - mitch-light-green)) - (eshell-syntax-highlighting-alias-face (:foreground - mitch-light-green)) - (eshell-syntax-highlighting-invalid-face (:weight 'bold - :foreground mitch-red)) - (epe-status-face (:inherit 'font-lock-constant-face)) - (eshell-syntax-highlighting-file-arg-face (:foreground - mitch-magenta - :underline 't)) - ) - ) - -(provide-theme 'mitch) -;;; mitch-theme.el ends here