From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?iso-8859-1?q?S=E9bastien_Vauban?= Newsgroups: gmane.emacs.devel Subject: Re: Color-theme problems in Emacs 22+ (Ubuntu, Windows) Date: 31 Jan 2007 09:27:53 +0100 Organization: Sebastien Vauban Message-ID: <8764anlhx2.fsf_-_@missioncriticalit.com> References: <873b63os0c.fsf@stupidchicken.com> <87ps8wvh6g.fsf_-_@missioncriticalit.com> <87odogfn0u.fsf@stupidchicken.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1170267646 13246 80.91.229.12 (31 Jan 2007 18:20:46 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 31 Jan 2007 18:20:46 +0000 (UTC) Cc: rms@gnu.org, emacs-devel@gnu.org To: , cyd@stupidchicken.com Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jan 31 19:20:30 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1HCK4I-0004j5-LG for ged-emacs-devel@m.gmane.org; Wed, 31 Jan 2007 19:20:30 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HCK4G-0000Rw-IA for ged-emacs-devel@m.gmane.org; Wed, 31 Jan 2007 13:20:24 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1HCApN-0006rq-Kg for emacs-devel@gnu.org; Wed, 31 Jan 2007 03:28:25 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1HCApN-0006re-0I for emacs-devel@gnu.org; Wed, 31 Jan 2007 03:28:25 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1HCApM-0006rb-Rf for emacs-devel@gnu.org; Wed, 31 Jan 2007 03:28:24 -0500 Original-Received: from 81-188-7-133.sdsl.easynet.be ([81.188.7.133] helo=mail.missioncriticalit.com) by monty-python.gnu.org with esmtp (Exim 4.52) id 1HCApA-00040J-QW; Wed, 31 Jan 2007 03:28:13 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by mail.missioncriticalit.com (Postfix) with ESMTP id 1A44B9E01B; Wed, 31 Jan 2007 09:28:11 +0100 (CET) Original-Received: from mail.missioncriticalit.com ([127.0.0.1]) by localhost (escher [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 05630-09; Wed, 31 Jan 2007 09:27:54 +0100 (CET) Original-Received: from mundaneum. (unknown [10.10.10.1]) by mail.missioncriticalit.com (Postfix) with ESMTP id 463429E017; Wed, 31 Jan 2007 09:27:54 +0100 (CET) X-Www-site: Under construction... In-Reply-To: <87odogfn0u.fsf@stupidchicken.com> Original-Lines: 65 User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.4 X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at missioncriticalit.com X-detected-kernel: Linux 2.4-2.6 X-Mailman-Approved-At: Wed, 31 Jan 2007 13:19:42 -0500 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:65708 Archived-At: --=-=-= Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable Hello Chong, >> I've done the following: >> >> o ultra-simplified my .emacs file - see attachment; > > The .emacs file you attached is 5000 lines long---hardly > "ultra-simplified". Sorry, sorry, sorry! Of course, I swapped the two Emacs files, and sent you the wrong one. For all the tests I made yesterday, I thus used the very simplified config file (205 lines with a lot of comments, instead of 5000, as you saw) that's attached here. That's a 1:25 slim ratio! > Furthermore, it relies on a lot of files that seem to be > specific to your setup---I get errors when I try to use it. For my curiosity, I'd be interested to know which errors you got, as my goal is to make my .emacs file as general and multi-purpose as possible, and as I'd like to share it on the Web for the interested ones. > So probably the only one who can debug this is you. The > strategy is to keep removing items from .emacs until the bug > no longer appears (assuming the bug does not happen with an > empty .emacs---this is at least the case for me.) Then the > last change made was the one that caused the bug. I cannot really remove more stuff than I did now: I just kept what's related to font-lock, my faces and my color-theme setup. The only thing you have to change to make this file work for you is to update (lines 44 to 50) the value of the 2 following variables: ,---- | (defvar my-site-lisp-directory | "~/emacs/site-lisp/" | "Name of directory where my color-theme-sva.el file reside.") | | (defvar other-local-site-lisp-directory | "/home/sva/media/Downloads/emacs/site-lisp/" | "Name of directory where Emacs color-theme.el reside.") `---- Hope this now helps. And sorry once again for my mistake. Seb PS- In order to have a complete setup, I also attach the 2 other config files. --=20 S=E9bastien Vauban --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=.emacs-sva Content-Transfer-Encoding: quoted-printable ;;; .emacs --- my Emacs Init File (message "{{{ --[ Loading my Emacs init file ]--") ;; useful Common Lisp macros (`push', `case', ...) (require 'cl) ;;{{{ --[ Loading Libraries of Lisp Code for Emacs ]---------------------= --- ;; make loaded files give a message (defadvice load (before debug-log activate) (message "Loading %s..." (locate-library (ad-get-arg 0)))) ;; load-path enhancement (defun my-add-to-load-path (this-directory &optional with-subdirs recursi= ve) "Add THIS-DIRECTORY at the beginning of the load-path, if it exists. Add all its subdirectories not starting with a '.' if the optional argument WITH-SUBDIRS is not nil. Do it recursively if the third argument is not nil." (when this-directory (when (file-directory-p this-directory) (let* ((this-directory (expand-file-name this-directory)) (files (directory-files this-directory t "^[^\\.]"))) ;; completely canonicalize the directory name (while (not (string=3D this-directory (expand-file-name this-dire= ctory))) (setq this-directory (expand-file-name this-directory))) (message "Adding `%s' to load-path..." this-directory) (add-to-list 'load-path this-directory) (if with-subdirs (progn (while files (setq dir-or-file (car files)) (when (file-directory-p dir-or-file) (if recursive (my-add-to-load-path dir-or-file 'with-subdirs) (my-add-to-load-path dir-or-file))) (setq files (cdr files))))))))) ;;; ----[ Library Search (defvar my-site-lisp-directory "~/emacs/site-lisp/" "Name of directory where my personal color-theme file reside.") (defvar other-local-site-lisp-directory "/home/sva/media/Downloads/emacs/site-lisp/" "Name of directory where Emacs color-theme.el reside.") (my-add-to-load-path other-local-site-lisp-directory 'with-subdirs 'recur= sive) (my-add-to-load-path my-site-lisp-directory 'with-subdirs) (defvar missing-packages-list nil "List of packages that `try-require' can't find.") ;; attempt to load a feature/library, failing silently (defun try-require (feature) "Attempt to load a library or module. Return true if the library given as argument is successfully loaded. If not, instead of an error, just add the package to a list of missing packages." (condition-case err (progn (message "Checking for library `%s'..." feature) (if (stringp feature) (load-library feature) (require feature)) (message "Checking for library `%s'... Found" feature)) (file-error (progn (message "Checking for library `%s'... Missing" feature) (add-to-list 'missing-packages-list feature)) nil))) ;;}}} ;;{{{ --[ 18 Controlling the (info "(emacs)Display") ]-------------------= --- (message "18 Controlling the Display...") ;;; ----[ 18.2 Font Lock ;; make buffer size irrelevant for fontification (setq font-lock-maximum-size nil) ;; use the maximum decoration (setq font-lock-maximum-decoration t) ;; turn Font Lock mode on in many modes (global-font-lock-mode t) ;; color syntax highlighting definitions (defface my-font-lock-tab-face '((t (:background "Gold"))) "Face for highlighting tab characters.") (defface my-font-lock-trailing-space-face '((t (:background "LemonChiffon"))) "Face for highlighting trailing spaces.") ;; warning font lock (80 columns, tabs, trailing spaces) (defvar font-lock-keywords nil) (add-hook 'font-lock-mode-hook '(lambda () (setq font-lock-keywords (append font-lock-keywords '(("\t+" (0 'my-font-lock-tab-face t)) ("[ \t]+$" (0 'my-font-lock-trailing-space-face t)))))= )) ;;; ----[ 18.11 (info "(emacs)Optional Mode Line") Features ;; show the line number in each mode line (line-number-mode 1) ;; use inactive face for mode-line in non-selected windows (setq mode-line-in-non-selected-windows t) ;;; ----[ 18.14 The (info "(emacs)Cursor Display") ;; using cursor color to indicate some modes (r-o, insert and overwrite m= odes) (setq hcz-set-cursor-color-color "") (setq hcz-set-cursor-color-buffer "") (defun hcz-set-cursor-color-according-to-mode () "Change cursor color according to some minor modes." (let ((color (if buffer-read-only "blue" (if overwrite-mode "red" "rgb:15/FF/00")))) ;; insert mode (unless (and (string=3D color hcz-set-cursor-color-color) (string=3D (buffer-name) hcz-set-cursor-color-buffer)) (set-cursor-color (setq hcz-set-cursor-color-color color)) (setq hcz-set-cursor-color-buffer (buffer-name))))) (add-hook 'post-command-hook 'hcz-set-cursor-color-according-to-mode) (message "18 Controlling the Display... Done") ;;}}} ;;{{{ --[ 35 (info "(emacs)Sending Mail") (with Gnus) ]------------------= --- (message "35 Sending Mail...") ;; full name of this user (setq user-full-name "S=E9bastien Vauban") ;; full mailing address of this user (setq user-mail-address "zthjwsqqafhv@spammotel.com") (when (try-require 'gnus) ;; Gnus startup file name (setq gnus-init-file "~/.gnus-sva") (setq mail-user-agent 'gnus-user-agent)) (message "35 Sending Mail... Done") ;;}}} ;;{{{ --[ 36 (info "(emacs)Rmail") Reading Mail (with Gnus) ]------------= --- (message "36 Reading Mail with Gnus...") (when (try-require 'gnus) ;; reading mail with Gnus (setq read-mail-command 'gnus)) (message "36 Reading Mail with Gnus... Done") ;;}}} ;;; ----[ Faces ;; avoid Emacs hanging for a while changing default font (modify-frame-parameters nil '((wait-for-wm . nil))) ;; set default color theme (when (try-require 'color-theme) (if (fboundp 'color-theme-initialize) (color-theme-initialize)) (setq color-theme-is-global t) (when (try-require 'color-theme-sva) (color-theme-sva))) ;; set default font family and font size (assq-delete-all 'font default-frame-alist) (defvar my-default-font "-Misc-Fixed-Medium-R-SemiCondensed-*-13-*-*-*-*-*-*-*") ;; this face supports bold (in Gnus) while ;; "-misc-*-*-*-*-*-12-90-*-*-*-*-*-*" does not!! (add-to-list 'default-frame-alist (cons 'font my-default-font)) ;; convenience functions for face customization (try-require 'face-list) (message "}}}\n") ;;; .emacs ends here --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=.gnus-sva ;;; .gnus --- my Gnus Init File ;; Time-stamp: "Tue 2007-01-30 11:04 sva on mundaneum" ;; $Revision: 742 $ ;; $Date: 2007-01-25 10:16:36 +0100 (Thu, 25 Jan 2007) $ ;;; Code: (message "{{{ --[ Loading my Gnus init file ]--") ;;{{{ --[ Loading ]--------------------------------------------------------- (defvar my-gnus-root-dir "~/" "The root directory for my Gnus stuff.") ;; substitute environment variables, if any, in the directory name (setq my-gnus-root-dir (substitute-in-file-name my-gnus-root-dir)) ;; list of packages that `try-require' can't find (setq missing-packages-list nil) ;;}}} ;;{{{ --[ 1 (info "(gnus)Starting Up") Gnus ]------------------------------- (message "1 Starting Gnus...") ;;{{{ ----[ 1.1 (info "(gnus)Finding the News") ;; using Gnus for news (setq gnus-select-method (cond (t '(nntp "easynet" (nntp-address "news.easynet.be"))))) ;; .netrc-like file that holds nntp authinfo passwords (setq nntp-authinfo-file "~/.authinfo-news") ;; using Gnus for mail (with the one-file-one-message back-end) (setq gnus-secondary-select-methods `( (nnimap "" (nnimap-address ,(cond (t "81.188.7.133"))) ;; authorization information (user account and password) (nnimap-authinfo-file "~/.authinfo")) (nnslashdot ""))) ;;}}} ;; do not prompt the user for his mail address (setq query-user-mail-address nil) ;;{{{ ----[ 1.5 (info "(gnus)New Groups") ;; don't save the list of killed groups ;; WARNING as Gnus has no record of which groups are new and which are old, ;; the automatic new newsgroups subscription methods becomes meaningless (setq gnus-save-killed-list nil) ;;{{{ ----[ 1.7 (info "(gnus)Startup Files") ;; don't save a `.newsrc' file (for using other newsreaders) on exit (setq gnus-save-newsrc-file nil) ;; ignore the `.newsrc' file (setq gnus-read-newsrc-file nil) ;; my `.newsrc' file (setq gnus-startup-file (concat my-gnus-root-dir "Mail/.newsrc")) ;;}}} ;;{{{ ----[ 1.8 (info "(gnus)Auto Save") ;; unconditionally read the dribble file (setq gnus-always-read-dribble-file t) ;;}}} ;;{{{ ----[ 1.9 (info "(gnus)The Active File") ;; Gnus will only know about the groups in my `.newsrc' file (setq gnus-read-active-file nil) ;;}}} (message "1 Starting Gnus... Done") ;;}}} ;;{{{ --[ 2 (info "(gnus)The Group Buffer") ]------------------------------- (message "2 Group Buffer...") ;;{{{ ----[ 2.1 (info "(gnus)Group Buffer Format") ;; format of the group buffer (setq gnus-group-line-format (concat "%M%m%P %O " "%(%-45,45g%) " "%5N Unread/ %5t Items" "\n")) ;;}}} ;;{{{ ----[ 2.16 (info "(gnus)Group Topics") (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) ;;}}} (message "2 Group Buffer... Done") ;;}}} ;;{{{ --[ 3 (info "(gnus)The Summary Buffer") ]----------------------------- (message "3 Summary Buffer...") ;;{{{ ----[ 3.1 (info "(gnus)Summary Buffer Format") ;; format specification of the lines in the summary buffer ;; for the record, the default string is `%U%R%z%I%(%[%4L: %-20,20n%]%) %s\n' (setq gnus-summary-line-format (concat "%U%R" "%z " "%-15,15n " "%4,4~(cut 0)o-" "%2,2~(cut 4)o-" "%2,2~(cut 6)o " "%2,2~(cut 9)o:" "%2,2~(cut 11)o " (if (string-match "v5.1[01].*$" (gnus-version)) "%4k %B") "%I%(%0,80s%)\n")) ;; strings indicating that the current article has the same subject as ;; the previous (if (and window-system (string-match "v5.1[01].*$" (gnus-version))) (progn (setq gnus-summary-same-subject "") (setq gnus-sum-thread-tree-root "\x4912f ") (setq gnus-sum-thread-tree-false-root "\x490f8 ") (setq gnus-sum-thread-tree-single-indent "\x4912b ") (setq gnus-sum-thread-tree-leaf-with-other "\x4903c\x49020\x490fa ") (setq gnus-sum-thread-tree-single-leaf "\x49034\x49020\x490fa ") (setq gnus-sum-thread-tree-vertical "\x49022")) (setq gnus-summary-same-subject "\\-> ...")) ;; format specification for the summary mode line (setq gnus-summary-mode-line-format "%V: %%b") ;;}}} ;;{{{ ----[ (info "(gnus)Sorting") the Summary Buffer ;; sort threads by reverse date (of the root node) ;; [primary sort key should be the last function in the list] (setq gnus-thread-sort-functions '((not gnus-thread-sort-by-number) gnus-thread-sort-by-date)) ;;}}} ;;{{{ ----[ 3.12 (info "(gnus)Article Caching") ;; entering of articles from the cache (setq gnus-cache-enter-articles '(ticked dormant unread read)) ;; simple setup for your convenience, if you are using nnimap from ;; home, over a dialup connection ;; removing of articles from the cache (setq gnus-cache-remove-articles nil) ;; cache your nnimap groups (setq gnus-cacheable-groups "^nnimap") ;; avoid caching your nnml and nnfolder groups (setq gnus-uncacheable-groups "^nnml\\|^nnfolder") ;;}}} ;;{{{ ----[ 3.26 (info "(gnus)Various Summary Stuff") ;; highlight current line in summary buffer (defun my-setup-highlight-line () (hl-line-mode 1)) (add-hook 'gnus-summary-mode-hook 'my-setup-highlight-line) ;;}}} (message "3 Summary Buffer... Done") ;;}}} ;; warn that some packages were missing (if missing-packages-list (progn (message "Packages not found: %S" (nreverse missing-packages-list)))) (message "}}}\n") ;; This is for the sake of Emacs. ;; Local Variables: ;; mode: emacs-lisp ;; coding: iso-latin-9 ;; End: ;;; .gnus ends here --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=color-theme-sva.el ;;; color-theme-sva.el --- my color theme (require 'color-theme) (defun color-theme-sva () "Initialize faces according to my preferences." (interactive) (color-theme-install '(color-theme-sva ((background-color . "white") (background-mode . light) (border-color . "black") (cursor-color . "rgb:15/FF/00") (foreground-color . "black") (mouse-color . "black")) (default ((t (nil)))) (bold ((t (:bold t :weight bold)))) (bold-italic ((t (:italic t :bold t :slant italic :weight bold)))) (italic ((t (:italic t :slant italic)))) (underline ((t (:underline t)))) (highlight ((t (:foreground "white" :background "rgb:31/6A/C5")))) ;; darkolivegreen ;; bbdb (bbdb-company ((t (:foreground "steel blue" :italic t)))) (bbdb-field-name ((t (:foreground "steel blue" :bold t)))) (bbdb-field-value ((t (:foreground "steel blue")))) (bbdb-name ((t (:foreground "rgb:FF/66/33" :underline t)))) (calendar-today-face ((t (:bold t :weight bold :background "yellow")))) (comint-highlight-input ((t (:bold t :weight bold)))) (comint-highlight-prompt ((t (:foreground "blue")))) ;; custom (custom-saved-face ((t (:underline t)))) (custom-state-face ((t (:foreground "dark green")))) (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button))))) (custom-modified-face ((t (:background "blue" :foreground "white")))) (custom-invalid-face ((t (:background "red" :foreground "yellow")))) (custom-set-face ((t (:background "white" :foreground "blue")))) (custom-changed-face ((t (:background "blue" :foreground "white")))) (custom-rogue-face ((t (:background "black" :foreground "pink")))) (custom-face-tag-face ((t (:underline t)))) (custom-variable-button-face ((t (:bold t :underline t :weight bold)))) ;; cvs (cvs-filename-face ((t (:foreground "blue4")))) (cvs-handled-face ((t (:foreground "pink")))) (cvs-header-face ((t (:foreground "blue4" :bold t)))) (cvs-marked-face ((t (:foreground "green3" :bold t)))) (cvs-msg-face ((t (:italic t :foreground "gray55")))) (cvs-need-action-face ((t (:foreground "orange")))) (cvs-unknown-face ((t (:foreground "red")))) ;; subversion (svn-status-marked-face ((t (:foreground "green3" :bold t)))) (svn-status-marked-popup-face ((t (:foreground "green3" :bold t)))) (svn-status-update-available-face ((t (:foreground "orange")))) (svn-status-directory-face ((t (:foreground "blue" :bold t)))) (svn-status-filename-face ((t (:foreground "magenta3")))) (svn-status-symlink-face ((t (:foreground "cyan")))) (svn-status-locked-face ((t (:foreground "red" :bold t)))) (svn-status-switched-face ((t (:italic t :foreground "gray55")))) ;; diary (diary-face ((t (:foreground "red")))) ;; dircolors (dircolors-face-asm ((t (:foreground "blue3")))) (dircolors-face-backup ((t (:foreground "blue3")))) (dircolors-face-compress ((t (:foreground "red")))) (dircolors-face-dir ((t (:foreground "blue" :bold t)))) (dircolors-face-doc ((t (:foreground "gold")))) (dircolors-face-dos ((t (:foreground "green3")))) (dircolors-face-emacs ((t (:foreground "turquoise3")))) (dircolors-face-html ((t (:foreground "gold")))) (dircolors-face-img ((t (:foreground "magenta3")))) (dircolors-face-lang ((t (:foreground "turquoise3")))) (dircolors-face-lang-interface ((t (:foreground "turquoise3")))) (dircolors-face-make ((t (:foreground "green3")))) (dircolors-face-objet ((t (:foreground "blue3")))) (dircolors-face-package ((t (:foreground "red")))) (dircolors-face-paddb ((t (:foreground "blue3")))) (dircolors-face-ps ((t (:foreground "gold")))) (dircolors-face-sound ((t (:foreground "magenta3")))) (dircolors-face-tar ((t (:foreground "red")))) (dircolors-face-yacc ((t (:foreground "turquoise3")))) ;; dired (dired-face-boring ((t (:foreground "Gray65")))) (dired-face-directory ((t (:bold t)))) (dired-face-executable ((t (:foreground "SeaGreen")))) (dired-face-flagged ((t (:background "LightSlateGray")))) (dired-face-header ((t (:background "grey75" :foreground "black")))) (dired-face-marked ((t (:background "PaleVioletRed")))) (dired-face-permissions ((t (:background "grey75" :foreground "black")))) (dired-face-setuid ((t (:foreground "Red")))) (dired-face-socket ((t (:foreground "magenta")))) (dired-face-symlink ((t (:foreground "cyan")))) ;; dired+ (diredp-date-time ((t (:foreground "rgb:33/64/4E")))) (diredp-dir-heading ((t (:background "yellow" :foreground "blue" :bold t :weight bold)))) (diredp-dir-priv ((t (:background "yellow" :foreground "blue" :bold t :weight bold)))) (diredp-file-name ((t (:foreground "black")))) (diredp-file-suffix ((t (:foreground "rgb:7B/46/8E")))) (diredp-flag-mark-line ((t (:foreground "red" :bold t :weight bold)))) ;; emacs wiki (emacs-wiki-bad-link-face ((t (:foreground "red" :weight bold)))) (emacs-wiki-header-1 ((t (:bold t :weight bold :height 1.4)))) (emacs-wiki-header-2 ((t (:bold t :weight bold :height 1.3)))) (emacs-wiki-header-3 ((t (:height 1.2)))) (emacs-wiki-header-4 ((t (:height 1.1)))) (emacs-wiki-header-5 ((t (:height 1.0)))) (emacs-wiki-header-6 ((t (:height 0.9)))) (emacs-wiki-link-face ((t (:foreground "blue" :underline t)))) ;; flypell (flyspell-duplicate-face ((t (:foreground "Gold3" :underline t :weight bold :bold t)))) (flyspell-incorrect-face ((t (:foreground "red" :underline t :bold t)))) ;; LaTeX (font-latex-math-face ((t (:foreground "black")))) (font-latex-sedate-face ((t (:foreground "gray45")))) ;; (font-lock-comment-face ((t (:foreground "red")))) (font-lock-constant-face ((t (:foreground "dark cyan")))) (font-lock-function-name-face ((t (:foreground "blue")))) (font-lock-keyword-face ((t (:foreground "purple1")))) (font-lock-reference-face ((t (:foreground "dark cyan")))) (font-lock-string-face ((t (:foreground "green4")))) (font-lock-type-face ((t (:foreground "forest green")))) (font-lock-variable-name-face ((t (:foreground "magenta")))) (font-lock-warning-face ((t (:bold t :foreground "red")))) (gnus-splash-face ((t (:foreground "blue")))) ;; Gnus group buffer (gnus-group-mail-1-empty-face ((t (:foreground "rgb:50/50/B0")))) (gnus-group-mail-1-face ((t (:foreground "rgb:50/50/B0" :bold t)))) (gnus-group-mail-2-empty-face ((t (:foreground "rgb:66/00/66")))) (gnus-group-mail-2-face ((t (:foreground "rgb:66/00/66" :bold t)))) (gnus-group-mail-3-empty-face ((t (:foreground "rgb:00/77/77")))) (gnus-group-mail-3-face ((t (:foreground "rgb:00/77/77" :bold t)))) (gnus-group-news-1-empty-face ((t (:foreground "rgb:50/50/B0")))) (gnus-group-news-1-face ((t (:foreground "rgb:50/50/B0" :bold t)))) (gnus-group-news-2-empty-face ((t (:foreground "rgb:66/00/66")))) (gnus-group-news-2-face ((t (:foreground "rgb:66/00/66" :bold t)))) (gnus-group-news-3-empty-face ((t (:foreground "rgb:00/77/77")))) (gnus-group-news-3-face ((t (:foreground "rgb:00/77/77" :bold t)))) (gnus-group-news-4-empty-face ((t (:foreground "rgb:99/00/00")))) (gnus-group-news-4-face ((t (:foreground "rgb:99/00/00" :bold t)))) (gnus-group-news-5-empty-face ((t (:foreground "rgb:00/00/99")))) (gnus-group-news-5-face ((t (:foreground "rgb:00/00/99" :bold t)))) (gnus-group-news-6-empty-face ((t (:foreground "rgb:BB/66/00")))) (gnus-group-news-6-face ((t (:foreground "rgb:BB/66/00" :bold t)))) ;; Gnus summary buffer (gnus-summary-selected-face ((t (:foreground "rgb:FF/66/33" :bold t)))) (gnus-summary-high-unread-face ((t (:foreground "blue" :bold t)))) (gnus-summary-high-read-face ((t (:foreground "rgb:80/00/80" :bold t)))) (gnus-summary-high-ticked-face ((t (:foreground "hot pink" :bold t)))) (gnus-summary-high-ancient-face ((t (:foreground "rgb:77/77/99" :bold t)))) (gnus-summary-normal-unread-face ((t (:foreground "blue")))) (gnus-summary-normal-read-face ((t (:foreground "rgb:80/00/80")))) (gnus-summary-normal-ticked-face ((t (:foreground "hot pink")))) (gnus-summary-normal-ancient-face ((t (:foreground "rgb:77/77/99")))) (gnus-summary-low-unread-face ((t (:low t :foreground "blue" :italic t)))) (gnus-summary-low-read-face ((t (:low t :foreground "rgb:80/00/80" :italic t)))) (gnus-summary-low-ticked-face ((t (:low t :foreground "hot pink" :italic t)))) (gnus-summary-low-ancient-face ((t (:low t :foreground "rgb:77/77/99" :italic t)))) (gnus-summary-cancelled-face ((t (:italic t :foreground "gray55" :strike-through t)))) ;; Gnus article buffer (gnus-header-name-face ((t (:foreground "rgb:33/99/CC" :bold t :family "Arial")))) (gnus-header-from-face ((t (:foreground "blue" :family "Arial")))) (gnus-header-subject-face ((t (:foreground "rgb:FF/66/33" :bold t)))) (gnus-header-newsgroups-face ((t (:foreground "rgb:33/99/CC" :family "Arial")))) (gnus-header-content-face ((t (:foreground "rgb:33/99/CC" :family "Arial")))) (gnus-cite-attribution-face ((t (:foreground "rgb:50/50/B0")))) (gnus-cite-face-1 ((t (:foreground "rgb:50/50/B0")))) (gnus-cite-face-2 ((t (:foreground "rgb:66/00/66")))) (gnus-cite-face-3 ((t (:foreground "rgb:00/77/77")))) (gnus-cite-face-4 ((t (:foreground "rgb:99/00/00")))) (gnus-cite-face-5 ((t (:foreground "rgb:00/00/99")))) (gnus-cite-face-6 ((t (:foreground "rgb:BB/66/00")))) (gnus-cite-face-7 ((t (:foreground "rgb:50/50/B0")))) (gnus-cite-face-8 ((t (:foreground "rgb:66/00/66")))) (gnus-cite-face-9 ((t (:foreground "rgb:00/77/77")))) (gnus-cite-face-10 ((t (:foreground "rgb:99/00/00")))) (gnus-signature-face ((t (:foreground "rgb:7F/7F/7F")))) (gnus-emphasis-bold ((t (:bold t)))) (widget-button-face ((t (:bold t :weight bold)))) (widget-button-pressed-face ((t (:foreground "red")))) (widget-documentation-face ((t (:foreground "dark green")))) (widget-field-face ((t (:background "gray85")))) (widget-inactive-face ((t (:foreground "dim gray")))) (widget-single-line-field-face ((t (:background "gray85")))) ;; (widget-mouse-face . highlight) ;; when replying (message-header-name-face ((t (:foreground "rgb:33/99/CC" :bold t :family "Arial")))) (message-header-to-face ((t (:foreground "blue" :family "Arial")))) (message-header-cc-face ((t (:foreground "blue" :family "Arial")))) (message-header-subject-face ((t (:foreground "rgb:FF/66/33" :bold t)))) (message-header-newsgroups-face ((t (:foreground "rgb:33/99/CC" :family "Arial")))) (message-header-xheader-face ((t (:foreground "red")))) (message-header-other-face ((t (:foreground "rgb:33/99/CC" :family "Arial")))) (message-separator-face ((t (:foreground "red" :bold t :family "Arial")))) (message-cited-text-face ((t (:foreground "rgb:50/50/B0")))) (message-mml-face ((t (:foreground "ForestGreen")))) ;; Gnus/Message (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow")))) (gnus-picon-face ((t (:background "white" :foreground "yellow")))) (gnus-picon-xbm-face ((t (:background "white" :foreground "yellow")))) (gnus-x-face ((t (:background "white" :foreground "black")))) (html-helper-bold-face ((t (:foreground "black" :bold t)))) (html-helper-italic-face ((t (:foreground "black" :slant italic)))) (html-helper-underline-face ((t (:foreground "black" :underline t)))) (html-tag-face ((t (:foreground "blue")))) (info-header-node ((t (:foreground "magenta" :underline t)))) ;; node name (info-header-xref ((t (:foreground "dodger blue" :underline t)))) ;; node names (info-menu-5 ((t (:foreground "dark orange" :underline t)))) ;; special * (info-menu-header ((t (:foreground "red" :underline t)))) ;; major topics (info-node ((t (:foreground "blue" :underline t)))) ;; XEmacs manuals (info-xref ((t (:bold t :foreground "magenta4" :weight bold)))) ;; highlighting matches (match ((t (:background "yellow" :foreground "rgb:EE/66/00" :bold t)))) (isearch ((t (:background "yellow" :foreground "rgb:EE/66/00" :bold t)))) (isearch-lazy-highlight-face ((t (:background "rgb:CC/FF/FF" :foreground "blue" :bold t)))) ;; for GNU Emacs (isearch-secondary ((t (:background "rgb:CC/FF/FF" :foreground "blue" :bold t)))) ;; for XEmacs ;; make (makefile-space-face ((t (:background "hotpink")))) ;; modeline (modeline-buffer-id ((t (:background "rgb:39/80/F4" :foreground "white")))) (modeline-mousable ((t (:background "rgb:39/80/F4" :foreground "gray85")))) ;; major mode (modeline-mousable-minor-mode ((t (:background "rgb:39/80/F4" :foreground "gray75")))) (modeline ((t (:background "DeepSkyBlue1" :foreground "black" :height 1.25 :family "courier"))) t) (modeline-inactive ((t (:inherit modeline :background "PaleTurquoise1" :foreground "grey20" :box (:line-width -1 :color "grey75") :weight light :family "profontwindows"))) t) ;; org (org-done ((t (:foreground "green3" :bold t :strike-through t)))) (org-level-1 ((t (:foreground "blue" :bold t :height 1.3)))) (org-level-2 ((t (:foreground "red" :bold t :height 1.1)))) (org-level-3 ((t (:foreground "Purple")))) (org-scheduled-previously ((t (:foreground "blue" :bold t)))) (org-scheduled-today ((t (:foreground "blue")))) (org-upcoming-deadline ((t (:foreground "DarkOrange" :bold t)))) ;; selection (region ((t (:background "seashell2")))) ;; for GNU Emacs (zmacs-region ((t (:background "seashell2")))) ;; for XEmacs (secondary-selection ((t (:background "paleturquoise")))) ;; for cat <