From 6684ad32673421b8c62caaac0806b0f189561854 Mon Sep 17 00:00:00 2001 From: Derek Taylor Date: Wed, 29 Jun 2022 15:08:32 -0500 Subject: [PATCH] Adding color theme options to Doom. Fixing colors in XMonad. --- .config/doom/config.el | 160 ++++++++++++++++++++++++++++-- .config/doom/config.org | 142 +++++++++++++++++++++++++- .xmonad/lib/Colors/Nord.hs | 32 +++--- .xmonad/lib/Colors/OceanicNext.hs | 20 ++-- 4 files changed, 316 insertions(+), 38 deletions(-) diff --git a/.config/doom/config.el b/.config/doom/config.el index d58f07f..1a05430 100644 --- a/.config/doom/config.el +++ b/.config/doom/config.el @@ -392,17 +392,155 @@ List of keybindings (SPC h b b)") "DONE(d)" ; Task has been completed "CANCELLED(c)" )))) ; Task has been cancelled -(dolist - (face - '((org-level-1 1.7 "#51afef" ultra-bold) - (org-level-2 1.6 "#c678dd" extra-bold) - (org-level-3 1.5 "#98be65" bold) - (org-level-4 1.4 "#da8548" semi-bold) - (org-level-5 1.3 "#5699af" normal) - (org-level-6 1.2 "#a9a1e1" normal) - (org-level-7 1.1 "#4bd5bd" normal) - (org-level-8 1.0 "#ff6c6b" normal))) - (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face))) +(defun org-headers-doom-one () + "Enable Doom One colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#51afef" ultra-bold) + (org-level-2 1.6 "#c678dd" extra-bold) + (org-level-3 1.5 "#98be65" bold) + (org-level-4 1.4 "#da8548" semi-bold) + (org-level-5 1.3 "#5699af" normal) + (org-level-6 1.2 "#a9a1e1" normal) + (org-level-7 1.1 "#4bd5bd" normal) + (org-level-8 1.0 "#ff6c6b" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-dracula () + "Enable Dracula colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#8be9fd" ultra-bold) + (org-level-2 1.6 "#bd93f9" extra-bold) + (org-level-3 1.5 "#50fa7b" bold) + (org-level-4 1.4 "#ff79c6" semi-bold) + (org-level-5 1.3 "#9aedfe" normal) + (org-level-6 1.2 "#caa9fa" normal) + (org-level-7 1.1 "#5af78e" normal) + (org-level-8 1.0 "#ff92d0" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-gruvbox-dark () + "Enable Gruvbox Dark colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#458588" ultra-bold) + (org-level-2 1.6 "#b16286" extra-bold) + (org-level-3 1.5 "#98971a" bold) + (org-level-4 1.4 "#fb4934" semi-bold) + (org-level-5 1.3 "#83a598" normal) + (org-level-6 1.2 "#d3869b" normal) + (org-level-7 1.1 "#d79921" normal) + (org-level-8 1.0 "#8ec07c" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-monokai-pro () + "Enable Monokai Pro colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#78dce8" ultra-bold) + (org-level-2 1.6 "#ab9df2" extra-bold) + (org-level-3 1.5 "#a9dc76" bold) + (org-level-4 1.4 "#fc9867" semi-bold) + (org-level-5 1.3 "#ff6188" normal) + (org-level-6 1.2 "#ffd866" normal) + (org-level-7 1.1 "#78dce8" normal) + (org-level-8 1.0 "#ab9df2" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-nord () + "Enable Nord colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#81a1c1" ultra-bold) + (org-level-2 1.6 "#b48ead" extra-bold) + (org-level-3 1.5 "#a3be8c" bold) + (org-level-4 1.4 "#ebcb8b" semi-bold) + (org-level-5 1.3 "#bf616a" normal) + (org-level-6 1.2 "#88c0d0" normal) + (org-level-7 1.1 "#81a1c1" normal) + (org-level-8 1.0 "#b48ead" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-oceanic-next () + "Enable Oceanic Next colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#6699cc" ultra-bold) + (org-level-2 1.6 "#c594c5" extra-bold) + (org-level-3 1.5 "#99c794" bold) + (org-level-4 1.4 "#fac863" semi-bold) + (org-level-5 1.3 "#5fb3b3" normal) + (org-level-6 1.2 "#ec5f67" normal) + (org-level-7 1.1 "#6699cc" normal) + (org-level-8 1.0 "#c594c5" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-palenight () + "Enable Palenight colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#82aaff" ultra-bold) + (org-level-2 1.6 "#c792ea" extra-bold) + (org-level-3 1.5 "#c3e88d" bold) + (org-level-4 1.4 "#ffcb6b" semi-bold) + (org-level-5 1.3 "#a3f7ff" normal) + (org-level-6 1.2 "#e1acff" normal) + (org-level-7 1.1 "#f07178" normal) + (org-level-8 1.0 "#ddffa7" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-solarized-dark () + "Enable Solarized Dark colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#268bd2" ultra-bold) + (org-level-2 1.6 "#d33682" extra-bold) + (org-level-3 1.5 "#859900" bold) + (org-level-4 1.4 "#b58900" semi-bold) + (org-level-5 1.3 "#cb4b16" normal) + (org-level-6 1.2 "#6c71c4" normal) + (org-level-7 1.1 "#2aa198" normal) + (org-level-8 1.0 "#657b83" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-solarized-light () + "Enable Solarized Light colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#268bd2" ultra-bold) + (org-level-2 1.6 "#d33682" extra-bold) + (org-level-3 1.5 "#859900" bold) + (org-level-4 1.4 "#b58900" semi-bold) + (org-level-5 1.3 "#cb4b16" normal) + (org-level-6 1.2 "#6c71c4" normal) + (org-level-7 1.1 "#2aa198" normal) + (org-level-8 1.0 "#657b83" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-tomorrow-night () + "Enable Tomorrow Night colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#81a2be" ultra-bold) + (org-level-2 1.6 "#b294bb" extra-bold) + (org-level-3 1.5 "#b5bd68" bold) + (org-level-4 1.4 "#e6c547" semi-bold) + (org-level-5 1.3 "#cc6666" normal) + (org-level-6 1.2 "#70c0ba" normal) + (org-level-7 1.1 "#b77ee0" normal) + (org-level-8 1.0 "#9ec400" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) (use-package ox-man) (use-package ox-gemini) diff --git a/.config/doom/config.org b/.config/doom/config.org index 40502b0..a113b74 100644 --- a/.config/doom/config.org +++ b/.config/doom/config.org @@ -785,6 +785,10 @@ I wrapped most of this block in (after! org). Without this, my settings might b ** Set font sizes for each header level in Org You can set the Org heading levels to be different font sizes. So I choose to have level 1 headings to be 140% in height, level 2 to be 130%, etc. Other interesting things you could play with include adding :foreground color and/or :background color if you want to override the theme colors. #+begin_src emacs-lisp + +(defun org-headers-doom-one () + "Enable Doom One colors for Org headers." + (interactive) (dolist (face '((org-level-1 1.7 "#51afef" ultra-bold) @@ -795,7 +799,143 @@ You can set the Org heading levels to be different font sizes. So I choose to h (org-level-6 1.2 "#a9a1e1" normal) (org-level-7 1.1 "#4bd5bd" normal) (org-level-8 1.0 "#ff6c6b" normal))) - (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-dracula () + "Enable Dracula colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#8be9fd" ultra-bold) + (org-level-2 1.6 "#bd93f9" extra-bold) + (org-level-3 1.5 "#50fa7b" bold) + (org-level-4 1.4 "#ff79c6" semi-bold) + (org-level-5 1.3 "#9aedfe" normal) + (org-level-6 1.2 "#caa9fa" normal) + (org-level-7 1.1 "#5af78e" normal) + (org-level-8 1.0 "#ff92d0" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-gruvbox-dark () + "Enable Gruvbox Dark colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#458588" ultra-bold) + (org-level-2 1.6 "#b16286" extra-bold) + (org-level-3 1.5 "#98971a" bold) + (org-level-4 1.4 "#fb4934" semi-bold) + (org-level-5 1.3 "#83a598" normal) + (org-level-6 1.2 "#d3869b" normal) + (org-level-7 1.1 "#d79921" normal) + (org-level-8 1.0 "#8ec07c" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-monokai-pro () + "Enable Monokai Pro colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#78dce8" ultra-bold) + (org-level-2 1.6 "#ab9df2" extra-bold) + (org-level-3 1.5 "#a9dc76" bold) + (org-level-4 1.4 "#fc9867" semi-bold) + (org-level-5 1.3 "#ff6188" normal) + (org-level-6 1.2 "#ffd866" normal) + (org-level-7 1.1 "#78dce8" normal) + (org-level-8 1.0 "#ab9df2" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-nord () + "Enable Nord colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#81a1c1" ultra-bold) + (org-level-2 1.6 "#b48ead" extra-bold) + (org-level-3 1.5 "#a3be8c" bold) + (org-level-4 1.4 "#ebcb8b" semi-bold) + (org-level-5 1.3 "#bf616a" normal) + (org-level-6 1.2 "#88c0d0" normal) + (org-level-7 1.1 "#81a1c1" normal) + (org-level-8 1.0 "#b48ead" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-oceanic-next () + "Enable Oceanic Next colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#6699cc" ultra-bold) + (org-level-2 1.6 "#c594c5" extra-bold) + (org-level-3 1.5 "#99c794" bold) + (org-level-4 1.4 "#fac863" semi-bold) + (org-level-5 1.3 "#5fb3b3" normal) + (org-level-6 1.2 "#ec5f67" normal) + (org-level-7 1.1 "#6699cc" normal) + (org-level-8 1.0 "#c594c5" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-palenight () + "Enable Palenight colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#82aaff" ultra-bold) + (org-level-2 1.6 "#c792ea" extra-bold) + (org-level-3 1.5 "#c3e88d" bold) + (org-level-4 1.4 "#ffcb6b" semi-bold) + (org-level-5 1.3 "#a3f7ff" normal) + (org-level-6 1.2 "#e1acff" normal) + (org-level-7 1.1 "#f07178" normal) + (org-level-8 1.0 "#ddffa7" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-solarized-dark () + "Enable Solarized Dark colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#268bd2" ultra-bold) + (org-level-2 1.6 "#d33682" extra-bold) + (org-level-3 1.5 "#859900" bold) + (org-level-4 1.4 "#b58900" semi-bold) + (org-level-5 1.3 "#cb4b16" normal) + (org-level-6 1.2 "#6c71c4" normal) + (org-level-7 1.1 "#2aa198" normal) + (org-level-8 1.0 "#657b83" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-solarized-light () + "Enable Solarized Light colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#268bd2" ultra-bold) + (org-level-2 1.6 "#d33682" extra-bold) + (org-level-3 1.5 "#859900" bold) + (org-level-4 1.4 "#b58900" semi-bold) + (org-level-5 1.3 "#cb4b16" normal) + (org-level-6 1.2 "#6c71c4" normal) + (org-level-7 1.1 "#2aa198" normal) + (org-level-8 1.0 "#657b83" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + +(defun org-headers-tomorrow-night () + "Enable Tomorrow Night colors for Org headers." + (interactive) + (dolist + (face + '((org-level-1 1.7 "#81a2be" ultra-bold) + (org-level-2 1.6 "#b294bb" extra-bold) + (org-level-3 1.5 "#b5bd68" bold) + (org-level-4 1.4 "#e6c547" semi-bold) + (org-level-5 1.3 "#cc6666" normal) + (org-level-6 1.2 "#70c0ba" normal) + (org-level-7 1.1 "#b77ee0" normal) + (org-level-8 1.0 "#9ec400" normal))) + (set-face-attribute (nth 0 face) nil :font "Ubuntu" :weight (nth 3 face) :height (nth 1 face) :foreground (nth 2 face)))) + #+end_src ** Org-export diff --git a/.xmonad/lib/Colors/Nord.hs b/.xmonad/lib/Colors/Nord.hs index 13c6183..01f07b9 100644 --- a/.xmonad/lib/Colors/Nord.hs +++ b/.xmonad/lib/Colors/Nord.hs @@ -7,22 +7,22 @@ colorScheme = "nord" colorBack = "#2E3440" colorFore = "#D8DEE9" -color01 = "#343d46" -color02 = "#EC5f67" -color03 = "#99C794" -color04 = "#FAC863" -color05 = "#6699cc" -color06 = "#c594c5" -color07 = "#5fb3b3" -color08 = "#d8dee9" -color09 = "#343d46" -color10 = "#EC5f67" -color11 = "#99C794" -color12 = "#FAC863" -color13 = "#6699cc" -color14 = "#c594c5" -color15 = "#5fb3b3" -color16 = "#d8dee9" +color01 = "#3B4252" +color02 = "#BF616A" +color03 = "#A3BE8C" +color04 = "#EBCB8B" +color05 = "#81A1C1" +color06 = "#B48EAD" +color07 = "#88C0D0" +color08 = "#E5E9F0" +color09 = "#4C566A" +color10 = "#BF616A" +color11 = "#A3BE8C" +color12 = "#EBCB8B" +color13 = "#81A1C1" +color14 = "#B48EAD" +color15 = "#8FBCBB" +color16 = "#ECEFF4" colorTrayer :: String colorTrayer = "--tint 0x2E3440" diff --git a/.xmonad/lib/Colors/OceanicNext.hs b/.xmonad/lib/Colors/OceanicNext.hs index 54a45fe..dd34476 100644 --- a/.xmonad/lib/Colors/OceanicNext.hs +++ b/.xmonad/lib/Colors/OceanicNext.hs @@ -7,22 +7,22 @@ colorScheme = "oceanic-next" colorBack = "#1b2b34" colorFore = "#d8dee9" -color01 = "#343d46" -color02 = "#EC5f67" -color03 = "#99C794" -color04 = "#FAC863" +color01 = "#29414f" +color02 = "#ec5f67" +color03 = "#99c794" +color04 = "#fac863" color05 = "#6699cc" color06 = "#c594c5" color07 = "#5fb3b3" -color08 = "#d8dee9" -color09 = "#343d46" -color10 = "#EC5f67" -color11 = "#99C794" -color12 = "#FAC863" +color08 = "#65737e" +color09 = "#405860" +color10 = "#ec5f67" +color11 = "#99c794" +color12 = "#fac863" color13 = "#6699cc" color14 = "#c594c5" color15 = "#5fb3b3" -color16 = "#d8dee9" +color16 = "#adb5c0" colorTrayer :: String colorTrayer = "--tint 0x1b2b34"