[nongnu] elpa/dracula-theme 99ef8ef 185/187: Merge branch 'wip'

[ELPA Syncer]

branch: elpa/dracula-theme
commit 99ef8ef438e8e11a4486a20c353508b5e20d010e
Merge: aa72f3d c7618c8
Author: Étienne Deparis <etienne@depar.is>
Commit: Étienne Deparis <etienne@depar.is>

    Merge branch 'wip'
---
 dracula-theme.el | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/dracula-theme.el b/dracula-theme.el
index d35f1f1..3bfe59d 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -4,6 +4,7 @@
 ;;
 ;; Code licensed under the MIT license
 
+;; Maintainer: Étienne Deparis <etienne@depar.is>
 ;; Author: film42
 ;; Version: 1.7.0
 ;; Package-Requires: ((emacs "24.3"))
@@ -786,8 +787,24 @@ read it before opening a new issue about your will.")
                       (t                       ; should be only tty-like envs
                        ,(funcall expand-with-func 'cadddr spec))))
                    whole-theme))
-           whole-theme)))
+           whole-theme))
 
+  (apply #'custom-theme-set-variables
+         'dracula
+         (let ((get-func
+                (pcase (display-color-cells)
+                  ((pred (<= 16777216)) 'car) ; fully graphical envs
+                  ((pred (<= 256)) 'cadr)     ; terminal withs 256 colors
+                  (_ 'caddr))))               ; should be only tty-like envs
+           `((ansi-color-names-vector
+              [,(funcall get-func (alist-get 'dracula-bg colors))
+               ,(funcall get-func (alist-get 'dracula-red colors))
+               ,(funcall get-func (alist-get 'dracula-green colors))
+               ,(funcall get-func (alist-get 'dracula-yellow colors))
+               ,(funcall get-func (alist-get 'dracula-comment colors))
+               ,(funcall get-func (alist-get 'dracula-purple colors))
+               ,(funcall get-func (alist-get 'dracula-cyan colors))
+               ,(funcall get-func (alist-get 'dracula-fg colors))])))))
 
 
 ;;;###autoload
@@ -798,7 +815,6 @@ read it before opening a new issue about your will.")
 (provide-theme 'dracula)
 
 ;; Local Variables:
-;; no-byte-compile: t
 ;; indent-tabs-mode: nil
 ;; End: