From 0396aba6a42f14428675608ab09d4891d729ff53 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 3 Jan 2021 02:31:22 +0000 Subject: themes: support for wayland --- themes/jao-themes.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'themes') diff --git a/themes/jao-themes.el b/themes/jao-themes.el index 9f2e29e..0017083 100644 --- a/themes/jao-themes.el +++ b/themes/jao-themes.el @@ -1032,7 +1032,7 @@ (let ((result)) (dolist (f t-faces (reverse result)) (let ((xfb (cdr (assq (car f) x-faces)))) - (push `(,(car f) ((((type x ns)) ,@xfb) + (push `(,(car f) ((((type x pgtk ns)) ,@xfb) (t ,@(cdr f)))) result))))) (defun jao-themes--set-fbg (kind) @@ -1053,7 +1053,7 @@ (xfaces (make-symbol "xfaces")) (tx-faces (make-symbol "tx-faces")) (palette (cdr (assoc :palette args))) - (faces (cdr (assoc :faces args))) + (faces (or (cdr (assoc :faces args)) (list))) (x-faces (cdr (assoc :x-faces args))) (x-colors (cdr (assoc :x-colors args))) (a-colors (cdr (assoc :ansi-colors args))) @@ -1071,6 +1071,7 @@ (let ((,t-faces (jao-themes--make-faces ',faces))) (let* ,(jao-themes--let-palette palette t) (jao-themes--set-fbg 'x) + (jao-themes--set-fbg 'pgtk) (let* ((,xfaces (jao-themes--make-faces ',x-faces ',x-colors)) (,tx-faces (jao-themes--extract-faces ,t-faces ,xfaces))) (put ',name 'theme-immediate t) -- cgit v1.2.3