diff options
| author | jao <jao@gnu.org> | 2021-01-03 02:31:22 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-01-03 02:31:22 +0000 |
| commit | 0396aba6a42f14428675608ab09d4891d729ff53 (patch) | |
| tree | 3ce7ca6b6a5d12d3d90f6cbce8ce192a5a99c15c | |
| parent | 9660b8608061d051983956b5ed1c312e887ecb67 (diff) | |
| download | elibs-0396aba6a42f14428675608ab09d4891d729ff53.tar.gz elibs-0396aba6a42f14428675608ab09d4891d729ff53.tar.bz2 | |
themes: support for wayland
| -rw-r--r-- | themes/jao-themes.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |