From 2b7dccd741cc95081713baafaa96c095e0482c2a Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Wed, 30 Nov 2022 17:26:26 +0600 Subject: [PATCH] * eat.el: Use loop to define color and font faces --- eat.el | 1397 +++----------------------------------------------------- 1 file changed, 59 insertions(+), 1338 deletions(-) diff --git a/eat.el b/eat.el index 245f1c8..0a1c5c1 100644 --- a/eat.el +++ b/eat.el @@ -334,1349 +334,70 @@ If your process is choking on big inputs, try lowering the value." "Face used to render rapidly blinking text." :group 'eat-term) -(defface eat-term-color-0 - '((t :inherit ansi-color-black)) - "Face used to render black color text." - :group 'eat-term) - -(put 'eat-term-color-black 'face-alias 'eat-term-color-0) - -(defface eat-term-color-1 - '((t :inherit ansi-color-red)) - "Face used to render red color text." - :group 'eat-term) - -(put 'eat-term-color-red 'face-alias 'eat-term-color-1) - -(defface eat-term-color-2 - '((t :inherit ansi-color-green)) - "Face used to render green color text." - :group 'eat-term) - -(put 'eat-term-color-green 'face-alias 'eat-term-color-2) - -(defface eat-term-color-3 - '((t :inherit ansi-color-yellow)) - "Face used to render yellow color text." - :group 'eat-term) - -(put 'eat-term-color-yellow 'face-alias 'eat-term-color-3) - -(defface eat-term-color-4 - '((t :inherit ansi-color-blue)) - "Face used to render blue color text." - :group 'eat-term) - -(put 'eat-term-color-blue 'face-alias 'eat-term-color-4) - -(defface eat-term-color-5 - '((t :inherit ansi-color-magenta)) - "Face used to render magenta color text." - :group 'eat-term) - -(put 'eat-term-color-magenta 'face-alias 'eat-term-color-5) - -(defface eat-term-color-6 - '((t :inherit ansi-color-cyan)) - "Face used to render cyan color text." - :group 'eat-term) - -(put 'eat-term-color-cyan 'face-alias 'eat-term-color-6) - -(defface eat-term-color-7 - '((t :inherit ansi-color-white)) - "Face used to render white color text." - :group 'eat-term) - -(put 'eat-term-color-white 'face-alias 'eat-term-color-7) - -(defface eat-term-color-8 - '((t :inherit ansi-color-bright-black)) - "Face used to render bright black color text." - :group 'eat-term) - -(put 'eat-term-color-bright-black 'face-alias 'eat-term-color-8) - -(defface eat-term-color-9 - '((t :inherit ansi-color-bright-red)) - "Face used to render bright red color text." - :group 'eat-term) - -(put 'eat-term-color-bright-red 'face-alias 'eat-term-color-9) - -(defface eat-term-color-10 - '((t :inherit ansi-color-bright-green)) - "Face used to render bright green color text." - :group 'eat-term) - -(put 'eat-term-color-bright-green 'face-alias 'eat-term-color-10) - -(defface eat-term-color-11 - '((t :inherit ansi-color-bright-yellow)) - "Face used to render bright yellow color text." - :group 'eat-term) - -(put 'eat-term-color-bright-yellow 'face-alias 'eat-term-color-11) - -(defface eat-term-color-12 - '((t :inherit ansi-color-bright-blue)) - "Face used to render bright blue color text." - :group 'eat-term) - -(put 'eat-term-color-bright-blue 'face-alias 'eat-term-color-12) - -(defface eat-term-color-13 - '((t :inherit ansi-color-bright-magenta)) - "Face used to render bright magenta color text." - :group 'eat-term) - -(put 'eat-term-color-bright-magenta 'face-alias 'eat-term-color-13) - -(defface eat-term-color-14 - '((t :inherit ansi-color-bright-cyan)) - "Face used to render bright cyan color text." - :group 'eat-term) - -(put 'eat-term-color-bright-cyan 'face-alias 'eat-term-color-14) - -(defface eat-term-color-15 - '((t :inherit ansi-color-bright-white)) - "Face used to render bright white color text." - :group 'eat-term) - -(put 'eat-term-color-bright-white 'face-alias 'eat-term-color-15) - -(defface eat-term-color-16 - '((t :foreground "#000000" :background "#000000")) - "Face used to render text with 16th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-17 - '((t :foreground "#00005F" :background "#00005F")) - "Face used to render text with 17th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-18 - '((t :foreground "#000087" :background "#000087")) - "Face used to render text with 18th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-19 - '((t :foreground "#0000AF" :background "#0000AF")) - "Face used to render text with 19th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-20 - '((t :foreground "#0000D7" :background "#0000D7")) - "Face used to render text with 20th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-21 - '((t :foreground "#0000FF" :background "#0000FF")) - "Face used to render text with 21th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-22 - '((t :foreground "#005F00" :background "#005F00")) - "Face used to render text with 22th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-23 - '((t :foreground "#005F5F" :background "#005F5F")) - "Face used to render text with 23th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-24 - '((t :foreground "#005F87" :background "#005F87")) - "Face used to render text with 24th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-25 - '((t :foreground "#005FAF" :background "#005FAF")) - "Face used to render text with 25th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-26 - '((t :foreground "#005FD7" :background "#005FD7")) - "Face used to render text with 26th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-27 - '((t :foreground "#005FFF" :background "#005FFF")) - "Face used to render text with 27th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-28 - '((t :foreground "#008700" :background "#008700")) - "Face used to render text with 28th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-29 - '((t :foreground "#00875F" :background "#00875F")) - "Face used to render text with 29th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-30 - '((t :foreground "#008787" :background "#008787")) - "Face used to render text with 30th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-31 - '((t :foreground "#0087AF" :background "#0087AF")) - "Face used to render text with 31th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-32 - '((t :foreground "#0087D7" :background "#0087D7")) - "Face used to render text with 32th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-33 - '((t :foreground "#0087FF" :background "#0087FF")) - "Face used to render text with 33th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-34 - '((t :foreground "#00AF00" :background "#00AF00")) - "Face used to render text with 34th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-35 - '((t :foreground "#00AF5F" :background "#00AF5F")) - "Face used to render text with 35th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-36 - '((t :foreground "#00AF87" :background "#00AF87")) - "Face used to render text with 36th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-37 - '((t :foreground "#00AFAF" :background "#00AFAF")) - "Face used to render text with 37th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-38 - '((t :foreground "#00AFD7" :background "#00AFD7")) - "Face used to render text with 38th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-39 - '((t :foreground "#00AFFF" :background "#00AFFF")) - "Face used to render text with 39th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-40 - '((t :foreground "#00D700" :background "#00D700")) - "Face used to render text with 40th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-41 - '((t :foreground "#00D75F" :background "#00D75F")) - "Face used to render text with 41th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-42 - '((t :foreground "#00D787" :background "#00D787")) - "Face used to render text with 42th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-43 - '((t :foreground "#00D7AF" :background "#00D7AF")) - "Face used to render text with 43th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-44 - '((t :foreground "#00D7D7" :background "#00D7D7")) - "Face used to render text with 44th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-45 - '((t :foreground "#00D7FF" :background "#00D7FF")) - "Face used to render text with 45th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-46 - '((t :foreground "#00FF00" :background "#00FF00")) - "Face used to render text with 46th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-47 - '((t :foreground "#00FF5F" :background "#00FF5F")) - "Face used to render text with 47th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-48 - '((t :foreground "#00FF87" :background "#00FF87")) - "Face used to render text with 48th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-49 - '((t :foreground "#00FFAF" :background "#00FFAF")) - "Face used to render text with 49th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-50 - '((t :foreground "#00FFD7" :background "#00FFD7")) - "Face used to render text with 50th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-51 - '((t :foreground "#00FFFF" :background "#00FFFF")) - "Face used to render text with 51th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-52 - '((t :foreground "#5F0000" :background "#5F0000")) - "Face used to render text with 52th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-53 - '((t :foreground "#5F005F" :background "#5F005F")) - "Face used to render text with 53th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-54 - '((t :foreground "#5F0087" :background "#5F0087")) - "Face used to render text with 54th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-55 - '((t :foreground "#5F00AF" :background "#5F00AF")) - "Face used to render text with 55th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-56 - '((t :foreground "#5F00D7" :background "#5F00D7")) - "Face used to render text with 56th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-57 - '((t :foreground "#5F00FF" :background "#5F00FF")) - "Face used to render text with 57th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-58 - '((t :foreground "#5F5F00" :background "#5F5F00")) - "Face used to render text with 58th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-59 - '((t :foreground "#5F5F5F" :background "#5F5F5F")) - "Face used to render text with 59th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-60 - '((t :foreground "#5F5F87" :background "#5F5F87")) - "Face used to render text with 60th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-61 - '((t :foreground "#5F5FAF" :background "#5F5FAF")) - "Face used to render text with 61th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-62 - '((t :foreground "#5F5FD7" :background "#5F5FD7")) - "Face used to render text with 62th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-63 - '((t :foreground "#5F5FFF" :background "#5F5FFF")) - "Face used to render text with 63th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-64 - '((t :foreground "#5F8700" :background "#5F8700")) - "Face used to render text with 64th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-65 - '((t :foreground "#5F875F" :background "#5F875F")) - "Face used to render text with 65th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-66 - '((t :foreground "#5F8787" :background "#5F8787")) - "Face used to render text with 66th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-67 - '((t :foreground "#5F87AF" :background "#5F87AF")) - "Face used to render text with 67th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-68 - '((t :foreground "#5F87D7" :background "#5F87D7")) - "Face used to render text with 68th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-69 - '((t :foreground "#5F87FF" :background "#5F87FF")) - "Face used to render text with 69th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-70 - '((t :foreground "#5FAF00" :background "#5FAF00")) - "Face used to render text with 70th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-71 - '((t :foreground "#5FAF5F" :background "#5FAF5F")) - "Face used to render text with 71th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-72 - '((t :foreground "#5FAF87" :background "#5FAF87")) - "Face used to render text with 72th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-73 - '((t :foreground "#5FAFAF" :background "#5FAFAF")) - "Face used to render text with 73th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-74 - '((t :foreground "#5FAFD7" :background "#5FAFD7")) - "Face used to render text with 74th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-75 - '((t :foreground "#5FAFFF" :background "#5FAFFF")) - "Face used to render text with 75th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-76 - '((t :foreground "#5FD700" :background "#5FD700")) - "Face used to render text with 76th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-77 - '((t :foreground "#5FD75F" :background "#5FD75F")) - "Face used to render text with 77th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-78 - '((t :foreground "#5FD787" :background "#5FD787")) - "Face used to render text with 78th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-79 - '((t :foreground "#5FD7AF" :background "#5FD7AF")) - "Face used to render text with 79th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-80 - '((t :foreground "#5FD7D7" :background "#5FD7D7")) - "Face used to render text with 80th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-81 - '((t :foreground "#5FD7FF" :background "#5FD7FF")) - "Face used to render text with 81th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-82 - '((t :foreground "#5FFF00" :background "#5FFF00")) - "Face used to render text with 82th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-83 - '((t :foreground "#5FFF5F" :background "#5FFF5F")) - "Face used to render text with 83th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-84 - '((t :foreground "#5FFF87" :background "#5FFF87")) - "Face used to render text with 84th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-85 - '((t :foreground "#5FFFAF" :background "#5FFFAF")) - "Face used to render text with 85th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-86 - '((t :foreground "#5FFFD7" :background "#5FFFD7")) - "Face used to render text with 86th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-87 - '((t :foreground "#5FFFFF" :background "#5FFFFF")) - "Face used to render text with 87th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-88 - '((t :foreground "#870000" :background "#870000")) - "Face used to render text with 88th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-89 - '((t :foreground "#87005F" :background "#87005F")) - "Face used to render text with 89th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-90 - '((t :foreground "#870087" :background "#870087")) - "Face used to render text with 90th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-91 - '((t :foreground "#8700AF" :background "#8700AF")) - "Face used to render text with 91th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-92 - '((t :foreground "#8700D7" :background "#8700D7")) - "Face used to render text with 92th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-93 - '((t :foreground "#8700FF" :background "#8700FF")) - "Face used to render text with 93th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-94 - '((t :foreground "#875F00" :background "#875F00")) - "Face used to render text with 94th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-95 - '((t :foreground "#875F5F" :background "#875F5F")) - "Face used to render text with 95th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-96 - '((t :foreground "#875F87" :background "#875F87")) - "Face used to render text with 96th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-97 - '((t :foreground "#875FAF" :background "#875FAF")) - "Face used to render text with 97th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-98 - '((t :foreground "#875FD7" :background "#875FD7")) - "Face used to render text with 98th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-99 - '((t :foreground "#875FFF" :background "#875FFF")) - "Face used to render text with 99th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-100 - '((t :foreground "#878700" :background "#878700")) - "Face used to render text with 100th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-101 - '((t :foreground "#87875F" :background "#87875F")) - "Face used to render text with 101th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-102 - '((t :foreground "#878787" :background "#878787")) - "Face used to render text with 102th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-103 - '((t :foreground "#8787AF" :background "#8787AF")) - "Face used to render text with 103th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-104 - '((t :foreground "#8787D7" :background "#8787D7")) - "Face used to render text with 104th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-105 - '((t :foreground "#8787FF" :background "#8787FF")) - "Face used to render text with 105th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-106 - '((t :foreground "#87AF00" :background "#87AF00")) - "Face used to render text with 106th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-107 - '((t :foreground "#87AF5F" :background "#87AF5F")) - "Face used to render text with 107th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-108 - '((t :foreground "#87AF87" :background "#87AF87")) - "Face used to render text with 108th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-109 - '((t :foreground "#87AFAF" :background "#87AFAF")) - "Face used to render text with 109th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-110 - '((t :foreground "#87AFD7" :background "#87AFD7")) - "Face used to render text with 110th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-111 - '((t :foreground "#87AFFF" :background "#87AFFF")) - "Face used to render text with 111th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-112 - '((t :foreground "#87D700" :background "#87D700")) - "Face used to render text with 112th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-113 - '((t :foreground "#87D75F" :background "#87D75F")) - "Face used to render text with 113th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-114 - '((t :foreground "#87D787" :background "#87D787")) - "Face used to render text with 114th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-115 - '((t :foreground "#87D7AF" :background "#87D7AF")) - "Face used to render text with 115th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-116 - '((t :foreground "#87D7D7" :background "#87D7D7")) - "Face used to render text with 116th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-117 - '((t :foreground "#87D7FF" :background "#87D7FF")) - "Face used to render text with 117th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-118 - '((t :foreground "#87FF00" :background "#87FF00")) - "Face used to render text with 118th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-119 - '((t :foreground "#87FF5F" :background "#87FF5F")) - "Face used to render text with 119th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-120 - '((t :foreground "#87FF87" :background "#87FF87")) - "Face used to render text with 120th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-121 - '((t :foreground "#87FFAF" :background "#87FFAF")) - "Face used to render text with 121th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-122 - '((t :foreground "#87FFD7" :background "#87FFD7")) - "Face used to render text with 122th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-123 - '((t :foreground "#87FFFF" :background "#87FFFF")) - "Face used to render text with 123th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-124 - '((t :foreground "#AF0000" :background "#AF0000")) - "Face used to render text with 124th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-125 - '((t :foreground "#AF005F" :background "#AF005F")) - "Face used to render text with 125th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-126 - '((t :foreground "#AF0087" :background "#AF0087")) - "Face used to render text with 126th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-127 - '((t :foreground "#AF00AF" :background "#AF00AF")) - "Face used to render text with 127th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-128 - '((t :foreground "#AF00D7" :background "#AF00D7")) - "Face used to render text with 128th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-129 - '((t :foreground "#AF00FF" :background "#AF00FF")) - "Face used to render text with 129th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-130 - '((t :foreground "#AF5F00" :background "#AF5F00")) - "Face used to render text with 130th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-131 - '((t :foreground "#AF5F5F" :background "#AF5F5F")) - "Face used to render text with 131th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-132 - '((t :foreground "#AF5F87" :background "#AF5F87")) - "Face used to render text with 132th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-133 - '((t :foreground "#AF5FAF" :background "#AF5FAF")) - "Face used to render text with 133th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-134 - '((t :foreground "#AF5FD7" :background "#AF5FD7")) - "Face used to render text with 134th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-135 - '((t :foreground "#AF5FFF" :background "#AF5FFF")) - "Face used to render text with 135th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-136 - '((t :foreground "#AF8700" :background "#AF8700")) - "Face used to render text with 136th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-137 - '((t :foreground "#AF875F" :background "#AF875F")) - "Face used to render text with 137th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-138 - '((t :foreground "#AF8787" :background "#AF8787")) - "Face used to render text with 138th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-139 - '((t :foreground "#AF87AF" :background "#AF87AF")) - "Face used to render text with 139th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-140 - '((t :foreground "#AF87D7" :background "#AF87D7")) - "Face used to render text with 140th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-141 - '((t :foreground "#AF87FF" :background "#AF87FF")) - "Face used to render text with 141th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-142 - '((t :foreground "#AFAF00" :background "#AFAF00")) - "Face used to render text with 142th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-143 - '((t :foreground "#AFAF5F" :background "#AFAF5F")) - "Face used to render text with 143th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-144 - '((t :foreground "#AFAF87" :background "#AFAF87")) - "Face used to render text with 144th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-145 - '((t :foreground "#AFAFAF" :background "#AFAFAF")) - "Face used to render text with 145th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-146 - '((t :foreground "#AFAFD7" :background "#AFAFD7")) - "Face used to render text with 146th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-147 - '((t :foreground "#AFAFFF" :background "#AFAFFF")) - "Face used to render text with 147th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-148 - '((t :foreground "#AFD700" :background "#AFD700")) - "Face used to render text with 148th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-149 - '((t :foreground "#AFD75F" :background "#AFD75F")) - "Face used to render text with 149th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-150 - '((t :foreground "#AFD787" :background "#AFD787")) - "Face used to render text with 150th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-151 - '((t :foreground "#AFD7AF" :background "#AFD7AF")) - "Face used to render text with 151th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-152 - '((t :foreground "#AFD7D7" :background "#AFD7D7")) - "Face used to render text with 152th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-153 - '((t :foreground "#AFD7FF" :background "#AFD7FF")) - "Face used to render text with 153th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-154 - '((t :foreground "#AFFF00" :background "#AFFF00")) - "Face used to render text with 154th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-155 - '((t :foreground "#AFFF5F" :background "#AFFF5F")) - "Face used to render text with 155th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-156 - '((t :foreground "#AFFF87" :background "#AFFF87")) - "Face used to render text with 156th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-157 - '((t :foreground "#AFFFAF" :background "#AFFFAF")) - "Face used to render text with 157th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-158 - '((t :foreground "#AFFFD7" :background "#AFFFD7")) - "Face used to render text with 158th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-159 - '((t :foreground "#AFFFFF" :background "#AFFFFF")) - "Face used to render text with 159th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-160 - '((t :foreground "#D70000" :background "#D70000")) - "Face used to render text with 160th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-161 - '((t :foreground "#D7005F" :background "#D7005F")) - "Face used to render text with 161th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-162 - '((t :foreground "#D70087" :background "#D70087")) - "Face used to render text with 162th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-163 - '((t :foreground "#D700AF" :background "#D700AF")) - "Face used to render text with 163th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-164 - '((t :foreground "#D700D7" :background "#D700D7")) - "Face used to render text with 164th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-165 - '((t :foreground "#D700FF" :background "#D700FF")) - "Face used to render text with 165th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-166 - '((t :foreground "#D75F00" :background "#D75F00")) - "Face used to render text with 166th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-167 - '((t :foreground "#D75F5F" :background "#D75F5F")) - "Face used to render text with 167th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-168 - '((t :foreground "#D75F87" :background "#D75F87")) - "Face used to render text with 168th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-169 - '((t :foreground "#D75FAF" :background "#D75FAF")) - "Face used to render text with 169th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-170 - '((t :foreground "#D75FD7" :background "#D75FD7")) - "Face used to render text with 170th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-171 - '((t :foreground "#D75FFF" :background "#D75FFF")) - "Face used to render text with 171th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-172 - '((t :foreground "#D78700" :background "#D78700")) - "Face used to render text with 172th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-173 - '((t :foreground "#D7875F" :background "#D7875F")) - "Face used to render text with 173th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-174 - '((t :foreground "#D78787" :background "#D78787")) - "Face used to render text with 174th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-175 - '((t :foreground "#D787AF" :background "#D787AF")) - "Face used to render text with 175th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-176 - '((t :foreground "#D787D7" :background "#D787D7")) - "Face used to render text with 176th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-177 - '((t :foreground "#D787FF" :background "#D787FF")) - "Face used to render text with 177th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-178 - '((t :foreground "#D7AF00" :background "#D7AF00")) - "Face used to render text with 178th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-179 - '((t :foreground "#D7AF5F" :background "#D7AF5F")) - "Face used to render text with 179th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-180 - '((t :foreground "#D7AF87" :background "#D7AF87")) - "Face used to render text with 180th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-181 - '((t :foreground "#D7AFAF" :background "#D7AFAF")) - "Face used to render text with 181th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-182 - '((t :foreground "#D7AFD7" :background "#D7AFD7")) - "Face used to render text with 182th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-183 - '((t :foreground "#D7AFFF" :background "#D7AFFF")) - "Face used to render text with 183th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-184 - '((t :foreground "#D7D700" :background "#D7D700")) - "Face used to render text with 184th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-185 - '((t :foreground "#D7D75F" :background "#D7D75F")) - "Face used to render text with 185th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-186 - '((t :foreground "#D7D787" :background "#D7D787")) - "Face used to render text with 186th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-187 - '((t :foreground "#D7D7AF" :background "#D7D7AF")) - "Face used to render text with 187th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-188 - '((t :foreground "#D7D7D7" :background "#D7D7D7")) - "Face used to render text with 188th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-189 - '((t :foreground "#D7D7FF" :background "#D7D7FF")) - "Face used to render text with 189th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-190 - '((t :foreground "#D7FF00" :background "#D7FF00")) - "Face used to render text with 190th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-191 - '((t :foreground "#D7FF5F" :background "#D7FF5F")) - "Face used to render text with 191th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-192 - '((t :foreground "#D7FF87" :background "#D7FF87")) - "Face used to render text with 192th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-193 - '((t :foreground "#D7FFAF" :background "#D7FFAF")) - "Face used to render text with 193th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-194 - '((t :foreground "#D7FFD7" :background "#D7FFD7")) - "Face used to render text with 194th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-195 - '((t :foreground "#D7FFFF" :background "#D7FFFF")) - "Face used to render text with 195th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-196 - '((t :foreground "#FF0000" :background "#FF0000")) - "Face used to render text with 196th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-197 - '((t :foreground "#FF005F" :background "#FF005F")) - "Face used to render text with 197th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-198 - '((t :foreground "#FF0087" :background "#FF0087")) - "Face used to render text with 198th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-199 - '((t :foreground "#FF00AF" :background "#FF00AF")) - "Face used to render text with 199th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-200 - '((t :foreground "#FF00D7" :background "#FF00D7")) - "Face used to render text with 200th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-201 - '((t :foreground "#FF00FF" :background "#FF00FF")) - "Face used to render text with 201th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-202 - '((t :foreground "#FF5F00" :background "#FF5F00")) - "Face used to render text with 202th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-203 - '((t :foreground "#FF5F5F" :background "#FF5F5F")) - "Face used to render text with 203th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-204 - '((t :foreground "#FF5F87" :background "#FF5F87")) - "Face used to render text with 204th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-205 - '((t :foreground "#FF5FAF" :background "#FF5FAF")) - "Face used to render text with 205th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-206 - '((t :foreground "#FF5FD7" :background "#FF5FD7")) - "Face used to render text with 206th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-207 - '((t :foreground "#FF5FFF" :background "#FF5FFF")) - "Face used to render text with 207th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-208 - '((t :foreground "#FF8700" :background "#FF8700")) - "Face used to render text with 208th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-209 - '((t :foreground "#FF875F" :background "#FF875F")) - "Face used to render text with 209th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-210 - '((t :foreground "#FF8787" :background "#FF8787")) - "Face used to render text with 210th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-211 - '((t :foreground "#FF87AF" :background "#FF87AF")) - "Face used to render text with 211th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-212 - '((t :foreground "#FF87D7" :background "#FF87D7")) - "Face used to render text with 212th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-213 - '((t :foreground "#FF87FF" :background "#FF87FF")) - "Face used to render text with 213th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-214 - '((t :foreground "#FFAF00" :background "#FFAF00")) - "Face used to render text with 214th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-215 - '((t :foreground "#FFAF5F" :background "#FFAF5F")) - "Face used to render text with 215th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-216 - '((t :foreground "#FFAF87" :background "#FFAF87")) - "Face used to render text with 216th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-217 - '((t :foreground "#FFAFAF" :background "#FFAFAF")) - "Face used to render text with 217th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-218 - '((t :foreground "#FFAFD7" :background "#FFAFD7")) - "Face used to render text with 218th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-219 - '((t :foreground "#FFAFFF" :background "#FFAFFF")) - "Face used to render text with 219th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-220 - '((t :foreground "#FFD700" :background "#FFD700")) - "Face used to render text with 220th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-221 - '((t :foreground "#FFD75F" :background "#FFD75F")) - "Face used to render text with 221th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-222 - '((t :foreground "#FFD787" :background "#FFD787")) - "Face used to render text with 222th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-223 - '((t :foreground "#FFD7AF" :background "#FFD7AF")) - "Face used to render text with 223th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-224 - '((t :foreground "#FFD7D7" :background "#FFD7D7")) - "Face used to render text with 224th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-225 - '((t :foreground "#FFD7FF" :background "#FFD7FF")) - "Face used to render text with 225th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-226 - '((t :foreground "#FFFF00" :background "#FFFF00")) - "Face used to render text with 226th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-227 - '((t :foreground "#FFFF5F" :background "#FFFF5F")) - "Face used to render text with 227th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-228 - '((t :foreground "#FFFF87" :background "#FFFF87")) - "Face used to render text with 228th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-229 - '((t :foreground "#FFFFAF" :background "#FFFFAF")) - "Face used to render text with 229th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-230 - '((t :foreground "#FFFFD7" :background "#FFFFD7")) - "Face used to render text with 230th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-231 - '((t :foreground "#FFFFFF" :background "#FFFFFF")) - "Face used to render text with 231th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-232 - '((t :foreground "#080808" :background "#080808")) - "Face used to render text with 232th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-233 - '((t :foreground "#121212" :background "#121212")) - "Face used to render text with 233th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-234 - '((t :foreground "#1C1C1C" :background "#1C1C1C")) - "Face used to render text with 234th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-235 - '((t :foreground "#262626" :background "#262626")) - "Face used to render text with 235th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-236 - '((t :foreground "#303030" :background "#303030")) - "Face used to render text with 236th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-237 - '((t :foreground "#3A3A3A" :background "#3A3A3A")) - "Face used to render text with 237th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-238 - '((t :foreground "#444444" :background "#444444")) - "Face used to render text with 238th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-239 - '((t :foreground "#4E4E4E" :background "#4E4E4E")) - "Face used to render text with 239th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-240 - '((t :foreground "#585858" :background "#585858")) - "Face used to render text with 240th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-241 - '((t :foreground "#626262" :background "#626262")) - "Face used to render text with 241th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-242 - '((t :foreground "#6C6C6C" :background "#6C6C6C")) - "Face used to render text with 242th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-243 - '((t :foreground "#767676" :background "#767676")) - "Face used to render text with 243th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-244 - '((t :foreground "#808080" :background "#808080")) - "Face used to render text with 244th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-245 - '((t :foreground "#8A8A8A" :background "#8A8A8A")) - "Face used to render text with 245th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-246 - '((t :foreground "#949494" :background "#949494")) - "Face used to render text with 246th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-247 - '((t :foreground "#9E9E9E" :background "#9E9E9E")) - "Face used to render text with 247th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-248 - '((t :foreground "#A8A8A8" :background "#A8A8A8")) - "Face used to render text with 248th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-249 - '((t :foreground "#B2B2B2" :background "#B2B2B2")) - "Face used to render text with 249th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-250 - '((t :foreground "#BCBCBC" :background "#BCBCBC")) - "Face used to render text with 250th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-251 - '((t :foreground "#C6C6C6" :background "#C6C6C6")) - "Face used to render text with 251th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-252 - '((t :foreground "#D0D0D0" :background "#D0D0D0")) - "Face used to render text with 252th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-253 - '((t :foreground "#DADADA" :background "#DADADA")) - "Face used to render text with 253th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-254 - '((t :foreground "#E4E4E4" :background "#E4E4E4")) - "Face used to render text with 254th color of 256 color palette." - :group 'eat-term) - -(defface eat-term-color-255 - '((t :foreground "#EEEEEE" :background "#EEEEEE")) - "Face used to render text with 255th color of 256 color palette." - :group 'eat-term) +;; Define color faces. +(let ((face-counter 0)) + (let ((colors '("black" "red" "green" "yellow" "blue" "magenta" + "cyan" "white"))) + ;; Basic colors. + (dolist (color colors) + (let ((face (intern (format "eat-term-color-%i" face-counter)))) + (custom-declare-face + face `((t :inherit ,(intern (format "ansi-color-%s" color)))) + (format "Face used to render %s color text." color) + :group 'eat-term) + (put (intern (format "eat-term-color-%s" color)) + 'face-alias face)) + (cl-incf face-counter)) + ;; Bright colors. + (dolist (color colors) + (let ((face (intern (format "eat-term-color-%i" face-counter)))) + (custom-declare-face + face `((t :inherit ,(intern (format "ansi-color-%s" color)))) + (format "Face used to render bright %s color text." color) + :group 'eat-term) + (put (intern (format "eat-term-color-bright-%s" color)) + 'face-alias face)) + (cl-incf face-counter))) + ;; 256-colors. + (while (< face-counter 256) + (let ((color + (if (>= face-counter 232) + (format "#%06X" + (* #x010101 + (+ 8 (* 10 (- face-counter 232))))) + (let ((col (- face-counter 16)) + (res 0) + (frac (* 6 6))) + (while (<= 1 frac) + (setq res (* res #x000100)) + (let ((color-num (mod (/ col frac) 6))) + (unless (zerop color-num) + (setq res (+ res #x37 (* #x28 color-num))))) + (setq frac (/ frac 6))) + (format "#%06X" res))))) + (custom-declare-face + (intern (format "eat-term-color-%i" face-counter)) + `((t :foreground ,color :background ,color)) + (format "Face used to render text with %i%s color of 256 color\ + palette." + face-counter (or (nth (% face-counter 10) + '(nil "st" "nd" "rd")) + "th")) + :group 'eat-term)) + (cl-incf face-counter))) (defface eat-term-font-0 '((t)) - "Default font.") + "Default font." + :group 'eat-term) (put 'eat-term-font-default 'face-alias 'eat-term-font-0) -(defface eat-term-font-1 '((t)) - "Alternative font 1.") - -(defface eat-term-font-2 '((t)) - "Alternative font 2.") - -(defface eat-term-font-3 '((t)) - "Alternative font 3.") - -(defface eat-term-font-4 '((t)) - "Alternative font 4.") - -(defface eat-term-font-5 '((t)) - "Alternative font 5.") - -(defface eat-term-font-6 '((t)) - "Alternative font 6.") - -(defface eat-term-font-7 '((t)) - "Alternative font 7.") - -(defface eat-term-font-8 '((t)) - "Alternative font 8.") - -(defface eat-term-font-9 '((t)) - "Alternative font 9.") +;; Font faces, 1 to 9 (inclusive). +(cl-loop for counter from 1 to 9 + do (custom-declare-face + (intern (format "eat-term-face-%i" counter)) '((t)) + (format "Alternative font %i." counter) + :group 'eat-term)) ;;;; Utility Functions.