branch: elpa/dracula-theme
commit 99ef8ef438e8e11a4486a20c353508b5e20d010e
Merge: aa72f3d c7618c8
Author: Étienne Deparis <[email protected]>
Commit: Étienne Deparis <[email protected]>
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 <[email protected]>
;; 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:
