branch: elpa/dracula-theme
commit 57085af9bc7f31208febbc4eeaa25eea7ef799ba
Author: Étienne Deparis <[email protected]>
Commit: Étienne Deparis <[email protected]>
Improve code
---
dracula-theme.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/dracula-theme.el b/dracula-theme.el
index bf3b27d..3916472 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -769,11 +769,11 @@ read it before opening a new issue about your will.")
'dracula
(let ((color-names (mapcar #'car colors))
(graphic-colors (mapcar #'cadr colors))
- (term-colors (mapcar #'car (mapcar #'cddr colors)))
- (tty-colors (mapcar #'car (mapcar #'last colors)))
+ (term-colors (mapcar #'caddr colors))
+ (tty-colors (mapcar #'cadddr colors))
(expand-for-kind
(lambda (kind spec)
- (when (and (string= (symbol-name kind) "term-colors")
+ (when (and (eq kind 'term-colors)
dracula-use-24-bit-colors-on-256-colors-terms)
(setq kind 'graphic-colors))
(cl-progv color-names (symbol-value kind)
