[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/eat 2b7dccd741 1/2: * eat.el: Use loop to define color and
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/eat 2b7dccd741 1/2: * eat.el: Use loop to define color and font faces |
Date: |
Wed, 30 Nov 2022 06:58:36 -0500 (EST) |
branch: elpa/eat
commit 2b7dccd741cc95081713baafaa96c095e0482c2a
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
* 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 245f1c8cfe..0a1c5c1191 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.