From bb2f8378639db57d870a84b6e6d6686b2fa97ccd Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 31 May 2011 01:06:47 +0200 Subject: themes: recognize ns as windowing system --- themes/jao-dark-theme.el | 2 +- themes/jao-light-theme.el | 11 ++++++----- themes/jao-themes.el | 5 ++++- 3 files changed, 11 insertions(+), 7 deletions(-) diff --git a/themes/jao-dark-theme.el b/themes/jao-dark-theme.el index ebdbe68..03f8e5d 100644 --- a/themes/jao-dark-theme.el +++ b/themes/jao-dark-theme.el @@ -1,4 +1,4 @@ -(jao-define-custom-theme jao-dark-theme +(jao-define-custom-theme jao-dark (:palette (fg unspecified "grey55") (bg unspecified "grey2") (box "yellow" "grey30") diff --git a/themes/jao-light-theme.el b/themes/jao-light-theme.el index b306622..9db1c59 100644 --- a/themes/jao-light-theme.el +++ b/themes/jao-light-theme.el @@ -1,6 +1,6 @@ -(jao-define-custom-theme jao-light-theme - (:palette (fg "black" "black") - (bg "white" "#efebe7") +(jao-define-custom-theme jao-light + (:palette (fg unspecified "black") + (bg unspecified "#efebe7") (box "magenta" "antiquewhite3") (button ((c 13 nil) nbf nul) (bx)) (hilite ((c nil 5))) @@ -37,6 +37,7 @@ (compilation-info (c nil nil) bf) (diary (c 14) bf) (gnus-summary-selected (c 13 nil) nul) + (gnus-summary-normal-unread (c 0 nil)) (header-line (c nil 5) nul) (italic it) (mode-line (c 0 5) nbf nul) @@ -57,9 +58,9 @@ (cursor (c 1 1)) (fringe (c 11 nil)) (gnus-summary-selected (c nil "white")) - (header-line (c nil "white")) + (header-line (c nil "#E0DACC")) (mode-line (c 0 7) :box (:line-width -1 :color "grey60")) - (mode-line-inactive (~ mode-line) (c 12)) + (mode-line-inactive (~ mode-line) (c "grey30" "#E0DACC")) (org-hide (c 7 nil)) (vertical-border (c 12 nil)) (w3m-image (c 3)) diff --git a/themes/jao-themes.el b/themes/jao-themes.el index 8f2467d..412f42c 100644 --- a/themes/jao-themes.el +++ b/themes/jao-themes.el @@ -643,7 +643,7 @@ (let ((result)) (dolist (f t-faces (reverse result)) (let ((xfb (cdr (assq (car f) x-faces)))) - (push `(,(car f) ((((type x darwin)) ,@xfb) + (push `(,(car f) ((((type x ns)) ,@xfb) (t ,@(cdr f)))) result))))) (defun jao-themes--set-fbg (kind) @@ -683,5 +683,8 @@ (put 'jao-define-custom-theme 'lisp-indent-function 1) +(add-to-list 'custom-theme-load-path (file-name-directory load-file-name)) + + (provide 'jao-themes) -- cgit v1.2.3