Re: ColorTheme badly functioning in Emacs 22

[Leon]

It works perfectly in Fedora core 5. Did you grab color-theme from CVS?

On Sun, 20 Aug 2006 17:01:56 GMT, Sébastien Vauban wrote:

> Hello,
>
> I'm a long time user (and a big fan) of ColorTheme, but have now
> problems within Emacs 22 (both in Ubuntu and in the Windows
> port): many buffers are not colored anymore (Gnus groups for
> example), or not the first time the buffer is visited (Org list
> of tasks for example).
>
>     Note -- I don't have any color trouble with the message
>     buffer, for example. Very very weird.
>
> Going back and forth from/to Emacs 21/22 with the same .emacs
> configuration file, I can see the differences: my color theme is
> no more applied...
>
>     ,----[ color-theme-seb.el ]
>     | 
>     | (require 'color-theme)
>     | 
>     | (defun color-theme-seb ()
>     |   "Initialize faces according to my preferences."
>     |   (interactive)
>     |   (color-theme-install
>     |    '(color-theme-seb
>     |      ((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
>     | 
>     |      ;; 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"))))
>     | 
>     |      ;; 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"))))
>     | 
>     |      ;; org
>     |      (org-done ((t (:foreground "gray55" :strike-through t))))
>     |      (org-level-1 ((t (:foreground "blue" :bold t :height 1.4))))
>     |      (org-level-2 ((t (:foreground "red" :bold t :height 1.2))))
>     |      (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))))
>     | 
>     |      )))
>     | 
>     | (provide 'color-theme-seb)
>     `----
>
> I don't know if it's of importance, but here are the fonts I'm
> using (one under Ubuntu, the other under Windows, in 9 points):
>
>     ,----[ Extract of my .emacs ]
>     | 
>     | ;;; ----[ Faces
>     | 
>     | ;; set default color theme
>     | (when (try-require 'color-theme)
>     |     (color-theme-initialize)
>     |     (when (try-require 'color-theme-seb)
>     |         (color-theme-seb)))
>     | 
>     | ;; allow any scalable font
>     | (when running-ms-windows
>     |     (setq scalable-fonts-allowed t))
>     | 
>     | ;; set default font family and font size
>     | (assq-delete-all 'font default-frame-alist)
>     | (defvar my-default-font
>     |   (if running-ms-windows
>     |       "-*-Courier New-*-*-*-*-12-90-*-*-*-*-*-*"
>     |     "-Misc-Fixed-Medium-R-SemiCondensed-*-13-*-*-*-*-*-*-*"))
>     |     ;; this latest face supports bold (in Gnus) while
>     |     ;; "-misc-*-*-*-*-*-12-90-*-*-*-*-*-*" does not!!
>     | 
>     | (add-to-list 'default-frame-alist (cons 'font my-default-font))
>     `----
>
> Can you help?
>
> Thanks a lot,
>   Seb

-- 
Leon