;; My emacs file, lots of stuff grabbed all over the place..mainly from Cgabriel and random GNOME
;; Hackers..

;; Options Menu Settings
;; =====================
;; Some macros
(defmacro GNU_EMACS_21 (&rest x)
  (list 'if (string-match "GNU Emacs 21" (version)) (cons 'progn x)))
(defmacro GNU_EMACS (&rest x)
  (list 'if (string-match "GNU Emacs"    (version)) (cons 'progn x)))
(defmacro X_EMACS (&rest x)
  (list 'if (string-match "X_EMACS"       (version)) (cons 'progn x)))
(defmacro X_MODE (&rest x)
  (list 'if (eq window-system 'x)                   (cons 'progn x)))


(if (file-exists-p "~/etc/xmms.el")
    (load-library "~/etc/xmms.el"))

(if (file-exists-p "~/etc/color-theme.el")
    (load-library "~/etc/color-theme.el"))
;; (set-face-font 
;;	'default
;;	"-jis-fixed-medium-r-normal--0-0-75-75-c-0-jisx0208.1983-0")

;; Turn the toolbar
(GNU_EMACS_21 (X_MODE (tool-bar-mode -1) ) ) 

;; Disable the menubar and the scrollbar
(GNU_EMACS
 (menu-bar-mode -1) 
 (scroll-bar-mode -1) )

;; Display the time.
(display-time)
(setq display-time-24hr-format t)

;; Show which line and column marker is in
(setq line-number-mode t)
(setq column-number-mode t)

;; Highlight markings
(GNU_EMACS (transient-mark-mode t) )

;; Show matching parenthesis
(GNU_EMACS
 (show-paren-mode)
 (setq show-paren-style 'expression) )

;; Always end a file with a newline
(setq require-final-newline t)

;; Stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)

;; Don't show the startup message
(setq inhibit-startup-message t)

;;
(setq gnus-inhibit-startup-message t)

(setq minibuffer-max-depth nil)

(setq mouse-yank-at-point t)
(setq query-replace-highlight t)
(setq search-highlight t)

;; ----------------------------[ Programming ]----------------------------
;; Misc
(set-fill-column 80)

;; Fontlock at loadtime
(GNU_EMACS
 (global-font-lock-mode t) )

;; Compile options
(setq compile-command "make -j 3")
(setq compilation-window-height 15)
(setq compilation-scroll-output t)
(setq compile-auto-highlight t)

;; ChangeLog
(add-hook 'change-log-mode-hook
	  (function
	   (lambda ()
	     (auto-fill-mode)
	     (set-face-foreground 'change-log-date-face   "#ffe4b5"        )
	     (set-face-foreground 'change-log-name-face   "#7fffd4"        )
	     (set-face-foreground 'change-log-email-face  "#ffe4b5"        )
	     (set-face-foreground 'change-log-file-face   "steelblue"      ))))

;; Python
(autoload 'python-mode "python-mode" "Python editing mode." t)
(setq auto-mode-alist
      (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist
      (cons '("python" . python-mode)
	    interpreter-mode-alist))
 
;; C
(add-hook 'c-mode-hook
	  (function
	   (lambda ()
	     (c-set-style "linux")
	     (c-toggle-auto-state 1)
	     (c-toggle-hungry-state 1)
	     (setq indent-tabs-mode nil)
	     (define-key c-mode-base-map "\C-m" 'newline-and-indent))))

;; Deprecated for Gtk+ 2.0 and the switch to GObject
;;(add-hook 'c-mode-hook (load-library "~/etc/gtk-widg.el"))
(add-hook 'c-mode-hook (load-library "~/etc/gnome-doc.el"))
(add-hook 'c-mode-hook (load-library "~/etc/egtk.el"))

;; C++
(add-hook 'c++-mode-hook
	  (function
	   (lambda ()
	     (c-set-style "linux")
	     (c-toggle-auto-state 1)
	     (c-toggle-hungry-state 1)
	     (setq indent-tabs-mode nil) ; nil=insert spaces instead of tabs
	     )))
;; Add hooks for kde development style
;;(add-hook 'c-mode-hook (load-library "~/etc/kde-devel-emacs.el"))

;; Java
(autoload 'java-mode "jde" "Major mode to edit Java files." t)

;; XML/SGML
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)


;; -----------------------[ Mouse wheel ]----------------------------

(defun up-slightly   () (interactive) (scroll-up 5)    )
(defun down-slightly () (interactive) (scroll-down 5)  )
(defun up-one        () (interactive) (scroll-up 1)    )
(defun down-one      () (interactive) (scroll-down 1)  )
(defun up-a-lot      () (interactive) (scroll-up)      )
(defun down-a-lot    () (interactive) (scroll-down)    )

(GNU_EMACS
 (global-set-key [mouse-4] 'down-slightly)
 (global-set-key [mouse-5] 'up-slightly)
 (global-set-key [S-mouse-4] 'down-one)
 (global-set-key [S-mouse-5] 'up-one)
 (global-set-key [C-mouse-4] 'down-a-lot)
 (global-set-key [C-mouse-5] 'up-a-lot) )


;; -----------------------[ Set up the modes ]------------------------

;; text mode
(setq default-major-mode 'text-mode)
(setq text-mode-hook
      '(lambda nil
	 (setq fill-column 72)
	 (auto-fill-mode 1)))

; sgml mode
(setq sgml-indent-data  t)
(add-hook 'sgml-mode-hook
	  (lambda ()
	    (define-key sgml-mode-map "\C-m" 'newline-and-indent) 
					;            (setq sgml-public-map ("%S" "/usr/local/lib/sgml/%o/%c/%d" "/usr/lib
					;/sgml/%o/%c/%d"))
	    (setq sgml-set-face t)
	    (setq sgml-indent-data t)
	    (setq sgml-auto-insert-required-elements t)))



(defun todo ()
  "Displays my TODO list"
  (interactive)
  (find-file "~/TODO")
)

(setq auto-mode-alist (cons '("\\.idl\\'" . c++-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.jl\\'" . lisp-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("\\.sawmillrc\\'" . lisp-mode) auto-mode-alist))
(setq interpreter-mode-alist
      (cons '("python" . python-mode)
            interpreter-mode-alist))

;; (defun load-gnome-tags ()
;;   "Loads all of the tags for GNOME"
;;   (setq tags-table-list
;; 	'("~/TAGS")))

(defun compile-install ()
  "runs 'make install'"
  (interactive)
  (compile "make install"))

(defun compile-install-lib ()
  "runs 'make install_libLTLIBRARIES'"
  (interactive)
  (compile "make install_libLTLIBRARIES"))

(defun compile-clean ()
  "runs 'make clean'"
  (interactive)
  (compile "make clean"))

(defun clean-line-ends ()
  (interactive)
  (if (not buffer-read-only)
      (save-excursion
	(goto-char (point-min))
	(let ((count 0))
	  ; This is bracket-space-tab-unbracket-plus-dollar
	  (while (re-search-forward "[ 	]+$" nil t)
	    (setq count (+ count 1))
	    (replace-match "" t t))
	  (message "Cleaned %d lines" count)))))


;; ----------------------[ Custom variables ]-----------------------
(custom-set-variables
 '(py-python-command "python2")
 '(show-paren-style (quote parenthesis))
 '(gnus-select-method (quote (nntp "news.tin.it")))
 '(vc-follow-symlinks t)
 '(add-log-full-name nil)
 '(add-log-mailing-address "baldessari@tiscalinet.it")
 '(add-log-time-format (quote add-log-iso8601-time-string))
 '(gnus-local-domain "tin.it")
 '(c-font-lock-extra-types (quote ("gint" "gfloat" "gchar" "gint8" "gint16" "gint32" "guint" "guint8" "guint16" "guint32" "guchar" "glong" "gboolean" "gshort" "gushort" "gulong" "gdouble" "gldouble" "gpointer" "Gtk" "Gdk" "GTK" "GDK" "NULL" "GList" "GSList" "->" "FALSE" "TRUE" "FILE" "\\sw+_t")))
 '(show-paren-mode t nil (paren))
 '(change-log-default-name "Michele Baldessari")
 '(gnus-local-organization "Red Hat, Spa." t)
 '(gnus-large-newsgroup 200)
 '(query-user-mail-address nil)
 '(user-full-name "Michele Baldessari")
 '(user-mail-address "baldessari@tiscalinet.it")
 '(dabbrev-case-fold-search nil)
 '(mail-source-delete-incoming t)
 '(nntp-address "news.tin.it" t)
 '(gnus-select-method '(nnml ""))
 '(gnus-secondary-select-methods nil)
 '(setq nnml-directory "~/Mail/"))
 '(mail-sources '((directory :path "~/Mail/")))


(setq tags-table-list '("~/TAGS"))
(setq compilation-read-command nil)
(setq make-backup-files nil)
(setq truncate-lines nil)
(setq truncate-partial-width-windows nil)
(if window-system
    (setq baud-rate 1000000)
  (setq baud-rate 36000))


;; Key bindings
;;
;;(global-set-key "\C-=" 'call-last-kbd-macro)
(global-set-key [f1] 'todo)
(global-set-key [f4] 'compile-install)
(global-set-key [f5] 'compile)
(global-set-key [f6] 'compile-clean)
(global-set-key "\M-g" 'goto-line)
(global-set-key "tg" 'todo)
(global-set-key "	" 'other-window)
(global-set-key "\C-o" 'shell)
(global-set-key (quote [C-tab]) 'lisp-complete-symbol)
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)
(global-set-key [end] 'end-of-line)
(global-set-key [home] 'beginning-of-line)
(global-set-key (quote [M-down]) (quote forward-paragraph))
(global-set-key (quote [M-up]) (quote backward-paragraph))
;; Fixes in Eterm
;;(global-set-key "\C-h" 'delete-backward-char)


;;;
;;; SGML
;;;

(setq-default sgml-indent-data 't)
(setq sgml-set-face t)
(setq sgml-auto-activate-dtd t)

(make-face 'sgml-comment-face)
(make-face 'sgml-doctype-face)
(make-face 'sgml-end-tag-face)
(make-face 'sgml-entity-face)
(make-face 'sgml-ignored-face)
(make-face 'sgml-ms-end-face)
(make-face 'sgml-ms-start-face)
(make-face 'sgml-pi-face)
(make-face 'sgml-sgml-face)
(make-face 'sgml-short-ref-face)
(make-face 'sgml-start-tag-face)

(set-face-foreground 'sgml-comment-face "maroon")
(set-face-foreground 'sgml-doctype-face "dark green")
(set-face-foreground 'sgml-end-tag-face "blue2")
(set-face-foreground 'sgml-entity-face "red2")
(set-face-foreground 'sgml-ignored-face "maroon")
(set-face-background 'sgml-ignored-face "gray90")
(set-face-foreground 'sgml-ms-end-face "maroon")
(set-face-foreground 'sgml-ms-start-face "maroon")
(set-face-foreground 'sgml-pi-face "maroon")
(set-face-foreground 'sgml-sgml-face "maroon")
(set-face-foreground 'sgml-short-ref-face "goldenrod")
(set-face-foreground 'sgml-start-tag-face "green")
(set-face-foreground 'sgml-end-tag-face "green")

(setq-default sgml-markup-faces
              '((comment . sgml-comment-face)
                (doctype . sgml-doctype-face)
                (end-tag . sgml-end-tag-face)
                (entity . sgml-entity-face)
                (ignored . sgml-ignored-face)
                (ms-end . sgml-ms-end-face)
                (ms-start . sgml-ms-start-face)
                (pi . sgml-pi-face)
                (sgml . sgml-sgml-face)
                (short-ref . sgml-short-ref-face)
                (start-tag . sgml-start-tag-face)
		(end-tag . sgml-end-tag-face)))

(setq x-allow-sendevents t)

(defun my-gnus-summary-delete-article (&optional n)
  "Delete the N next (mail) articles.
This command actually deletes articles.	 This is not a marking
command.  The article will disappear forever from your life, never to
return.
If N is negative, delete backwards.
If N is nil and articles have been marked with the process mark,
delete these instead."
  (interactive "P")
  (gnus-set-global-variables)
  (unless (gnus-check-backend-function 'request-expire-articles
				       gnus-newsgroup-name)
    (error "The current newsgroup does not support article deletion"))
  ;; Compute the list of articles to delete.
  (let ((articles (gnus-summary-work-articles n))
	not-deleted)
    (if '()
	()
      ;; Delete the articles.
      (setq not-deleted (gnus-request-expire-articles
			 articles gnus-newsgroup-name 'force))
      (while articles
	(gnus-summary-remove-process-mark (car articles))
	;; The backend might not have been able to delete the article
	;; after all.
	(unless (memq (car articles) not-deleted)
	  (gnus-summary-mark-article (car articles) gnus-canceled-mark))
	(setq articles (cdr articles)))
      (when not-deleted
	(gnus-message 4 "Couldn't delete articles %s" not-deleted)))
    (gnus-summary-position-point)
    (gnus-set-mode-line 'summary)
    not-deleted))
(setq transient-mark-mode t)

(defun make-schema (schema-path schema-type schema-owner schema-default schema-short schema-long)
  (interactive
   (list (read-string "Path: " nil 'schema-path-history)
	 (completing-read "Type: " '(("string" 1)
				     ("int" 2)
				     ("float" 3)
				     ("bool" 4)
				     ("schema" 5)
				     ("list" 6)
				     ("pair" 7))
			  nil 't "string")
	 (read-string "Owner: " nil 'schema-owner-history)
	 (read-string "Default Value: " nil 'schema-default-history)
	 (read-string "Description: " nil 'schema-short-history)
	 (read-string "Long Description: " nil 'schema-long-history)))
  (progn
    (insert "    <schema>\n")
    (insert (format "      <key>/schemas%s</key>\n" schema-path))
    (insert (format "      <applyto>%s</applyto>\n" schema-path))
    (insert (format "      <owner>%s</owner>\n" schema-owner))
    (insert (format "      <type>%s</type>\n" schema-type))
    (insert "      <locale name=\"C\">\n")
    (insert (format "        <default>%s</default>\n" schema-default))
    (insert (format "        <short>%s</short>\n" schema-short))
    (insert (format "        <long>%s</long>\n" schema-long))
    (insert "      </locale>\n")
    (insert "    </schema>\n")))

(defun insert-template (software-author software-license software-email software-tabs-width 
					software-indent-tabs-mode software-c-basic-offset)
  (interactive
   (list (completing-read "Author: " '(("Michele Baldessari"))
			  nil 't "Michele Baldessari")
	 (completing-read "License: " '(("GPL" 1)
				        ("LGPL" 2)
				        ("NONE" 3))
			  nil 't "GPL")
	 (completing-read "Email Address: " '(("baldessari@tiscalinet.it")
					      ("michele@babbozzi.homelinux.org")
					      ("michele.baldessari@students.uni-linz.ac.at"))XS
			  nil 't "baldessari@tiscalinet.it")
	 (read-string "Tabs width: " "4" 'software-tabs-width-history)
	 (read-string "Indent Tabs Mode: " "t" 'software-indent-tabs-mode-history)
	 (read-string "C Basic Offset: " "4" 'software-c-basic-offset-history)))

					      
  (progn
    (insert (format "/* -*- Mode: C; tab-width: %s; indent-tabs-mode: %s; c-basic-offset: %s -*- */\n"
		    software-tabs-width software-indent-tabs-mode software-c-basic-offset))
    (insert "/*\n")
    (insert (format "  Copyright (C) 2002 %s %s \n" software-author software-email))
    (insert "\n")
    (cond ((string= software-license "GPL")
	   (insert GPL-END))
	  ((string= software-license "LGPL")
	   (insert LGPL-END))
	  ((string= software-license "NONE")
	   (insert "\n */\n")))))



(defconst GPL-END "\n *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */\n")

(defconst LGPL-END "\n *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library General Public
 * License along with this library; if not, write to the
 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 * Boston, MA 02111-1307, USA.
 */\n")






(put 'upcase-region 'disabled nil)
(setq require-final-newline t)

;; ----------------------------[ Colors ]----------------------------

(set-background-color "black")
(set-foreground-color "wheat")
(set-cursor-color "red")
(set-mouse-color "red")


(defun color-theme-white ()
  "Set white background"
  (interactive)
  (X_MODE
   (set-face-foreground 'default "black")
   (set-face-background 'default "white") )
  
  (GNU_EMACS
   (set-face-foreground 'font-lock-builtin-face           "white"           )
   (set-face-foreground 'font-lock-comment-face           "lightblue"       )
   (set-face-foreground 'font-lock-constant-face          "forestgreen"     )
   
   (X_MODE
    (set-face-foreground 'font-lock-builtin-face          "chocolate"       )
    (set-face-foreground 'font-lock-comment-face          "SlateBlue4"      )
    (set-face-foreground 'font-lock-constant-face         "forestgreen"     )
    (set-face-foreground 'font-lock-function-name-face    "blue"            )
    (set-face-foreground 'font-lock-keyword-face          "SeaGreen"        )
    (set-face-foreground 'font-lock-string-face           "NavajoWhite4"    )
    (set-face-foreground 'font-lock-type-face             "blue4"           ) 

    (set-face-foreground 'font-lock-variable-name-face    "goldenrod"       )
    (set-face-foreground 'font-lock-warning-face          "limegreen"       )
    (set-face-foreground 'modeline                        "SeaGreen"        )
    (set-face-background 'modeline                        "grey95"          )
    (set-face-background 'region                          "darkseagreen2"   )
    (set-face-foreground 'region                          "black"           )
    (set-face-background 'show-paren-match-face           "lemon chiffon"   )
    (set-face-foreground 'show-paren-match-face           "black"           )
    (set-face-background 'show-paren-mismatch-face        "turquoise"       )
    (set-face-foreground 'show-paren-mismatch-face        "black"           )
    
    (GNU_EMACS_21
     (set-face-foreground 'font-lock-doc-face             "green"           )
     (set-face-background 'cursor                         "blue"            )
     (set-face-foreground 'cursor                         "white"           )
     (set-face-background 'fringe                         "grey95"          )
     (set-face-background 'isearch                        "yellow"          )
     (set-face-background 'isearch-lazy-highlight-face    "lightgoldenrod"  )
     (set-face-foreground 'scroll-bar                     "DarkSlateGrey"   )
     )
    ) 
   )
  )

(defun color-theme-grey ()
  "Set grey background"
  (interactive)
  (X_MODE
   (set-face-foreground 'default "GhostWhite")
   (set-face-background 'default "grey20"))
  
  (GNU_EMACS
   (set-face-foreground 'font-lock-builtin-face          "white"              )
   (set-face-foreground 'font-lock-comment-face          "lightblue"          )
   (set-face-foreground 'font-lock-constant-face         "forestgreen"        )
   
   (X_MODE
    (set-face-foreground 'font-lock-builtin-face          "springgreen"       )
    (set-face-foreground 'font-lock-comment-face          "steelblue"         )
    (set-face-foreground 'font-lock-constant-face         "#7fffd4"           )
    (set-face-foreground 'font-lock-function-name-face    "steelblue"         )
    (set-face-foreground 'font-lock-keyword-face          "#87ceff"           )
    (set-face-foreground 'font-lock-string-face           "#ffe4b5"           )
    (set-face-foreground 'font-lock-type-face             "steelblue2"        )
    (set-face-foreground 'font-lock-variable-name-face    "#ffe4b5"           )
    (set-face-foreground 'font-lock-warning-face          "limegreen"         )
    (set-face-foreground 'modeline                        "SeaGreen4"         )
    (set-face-background 'modeline                        "grey20"            )
    (set-face-background 'region                          "slateblue4"        )
    (set-face-foreground 'region                          "white"             )
    (set-face-background 'show-paren-match-face           "seagreen"          )
    (set-face-foreground 'show-paren-match-face           "white"             )
    (set-face-background 'show-paren-mismatch-face        "turquoise"         )

    (GNU_EMACS_21
     (set-face-foreground 'font-lock-doc-face             "green"             )
     (set-face-background 'cursor                         "steelblue"         )
     (set-face-foreground 'cursor                         "white"             )
     (set-face-background 'fringe                         "grey30"            )
     (set-face-background 'isearch                        "seagreen"          )
     (set-face-foreground 'isearch                        "white"             )
     (set-face-background 'isearch-lazy-highlight-face    "steelblue"         )
     (set-face-foreground 'isearch-lazy-highlight-face    "white"             )
     (set-face-foreground 'scroll-bar                     "DarkSlateGrey"     )
     )
    
    ) 
   )
  )

(defun color-theme-black ()
  "Set white background"
  (interactive)
  (X_MODE
;;    (set-face-foreground 'default "wheat")
   (set-face-foreground 'default "wheat")
   (set-face-background 'default "black"))
  
  (GNU_EMACS
   (set-face-foreground 'font-lock-builtin-face          "white"              )
   (set-face-foreground 'font-lock-comment-face          "lightblue"          )
   (set-face-foreground 'font-lock-constant-face         "forestgreen"        )
   
   (X_MODE
    (set-face-foreground 'font-lock-builtin-face          "springgreen"       )
    (set-face-foreground 'font-lock-comment-face          "steelblue"         )
    (set-face-foreground 'font-lock-constant-face         "khaki"             )
    (set-face-foreground 'font-lock-function-name-face    "mediumspringgreen" )
    (set-face-foreground 'font-lock-keyword-face          "mediumaquamarine"  )
    (set-face-foreground 'font-lock-string-face           "limegreen"         )
    (set-face-foreground 'font-lock-type-face             "steelblue2"         )
    (set-face-foreground 'font-lock-variable-name-face    "lavender"       )
    (set-face-foreground 'font-lock-warning-face          "limegreen"         )
    (set-face-foreground 'modeline                        "SeaGreen4"         )
    (set-face-background 'modeline                        "grey20"            )
    (set-face-background 'region                          "slateblue4"        )
    (set-face-foreground 'region                          "white"             )
    (set-face-background 'show-paren-match-face           "seagreen"          )
    (set-face-foreground 'show-paren-match-face           "white"             )
    (set-face-background 'show-paren-mismatch-face        "turquoise"         )
    
    (GNU_EMACS_21
     (set-face-foreground 'font-lock-doc-face             "green"             )
     (set-face-background 'cursor                         "steelblue"         )
     (set-face-foreground 'cursor                         "white"             )
     (set-face-background 'fringe                         "grey20"            )
     (set-face-background 'isearch                        "seagreen"          )
     (set-face-foreground 'isearch                        "white"             )
     (set-face-background 'isearch-lazy-highlight-face    "steelblue"         )
     (set-face-foreground 'isearch-lazy-highlight-face    "white"             )
     (set-face-foreground 'scroll-bar                     "DarkSlateGrey"     )
     )
    ) 
   )
  )



(defun my-color-theme ()
  "Color theme by Michele Baldessari, created 2002-04-29."
  (interactive)
  (color-theme-install
   '(my-color-theme
     ((background-color . "lightyellow2")
      (background-mode . light)
      (border-color . "black")
      (cursor-color . "black")
      (foreground-color . "gray20")
      (mouse-color . "black"))
     ((display-time-mail-face . mode-line)
      (help-highlight-face . underline)
      (list-matching-lines-face . bold)
      (rpm-spec-dir-face . rpm-spec-dir-face)
      (rpm-spec-doc-face . rpm-spec-doc-face)
      (rpm-spec-ghost-face . rpm-spec-ghost-face)
      (rpm-spec-macro-face . rpm-spec-macro-face)
      (rpm-spec-package-face . rpm-spec-package-face)
      (rpm-spec-tag-face . rpm-spec-tag-face)
      (view-highlight-face . highlight)
      (widget-mouse-face . highlight))
     (default ((t (:stipple nil :background "lightyellow2" :foreground "gray20" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 1 :width normal :family "default"))))
     (bg:erc-color-face0 ((t (:background "White"))))
     (bg:erc-color-face1 ((t (:background "black"))))
     (bg:erc-color-face10 ((t (:background "lightblue1"))))
     (bg:erc-color-face11 ((t (:background "cyan"))))
     (bg:erc-color-face12 ((t (:background "blue"))))
     (bg:erc-color-face13 ((t (:background "deeppink"))))
     (bg:erc-color-face14 ((t (:background "gray50"))))
     (bg:erc-color-face15 ((t (:background "gray90"))))
     (bg:erc-color-face2 ((t (:background "blue4"))))
     (bg:erc-color-face3 ((t (:background "green4"))))
     (bg:erc-color-face4 ((t (:background "red"))))
     (bg:erc-color-face5 ((t (:background "brown"))))
     (bg:erc-color-face6 ((t (:background "purple"))))
     (bg:erc-color-face7 ((t (:background "orange"))))
     (bg:erc-color-face8 ((t (:background "yellow"))))
     (bg:erc-color-face9 ((t (:background "green"))))
     (bold ((t (:bold t :weight bold))))
     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
     (border ((t (:background "black"))))
     (button ((t (:underline t))))
     (comint-highlight-input ((t (:bold t :weight bold))))
     (comint-highlight-prompt ((t (:foreground "dark blue"))))
     (cursor ((t (:background "black"))))
     (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
     (custom-changed-face ((t (:background "blue" :foreground "white"))))
     (custom-comment-face ((t (:background "gray85"))))
     (custom-comment-tag-face ((t (:foreground "blue4"))))
     (custom-documentation-face ((t (nil))))
     (custom-face-tag-face ((t (:bold t :weight bold :height 1.2 :family "helv"))))
     (custom-group-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2))))
     (custom-group-tag-face-1 ((t (:bold t :foreground "red" :weight bold :height 1.2 :family "helv"))))
     (custom-invalid-face ((t (:background "red" :foreground "yellow"))))
     (custom-modified-face ((t (:background "blue" :foreground "white"))))
     (custom-rogue-face ((t (:background "black" :foreground "pink"))))
     (custom-saved-face ((t (:underline t))))
     (custom-set-face ((t (:background "white" :foreground "blue"))))
     (custom-state-face ((t (:foreground "dark green"))))
     (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
     (custom-variable-tag-face ((t (:bold t :foreground "blue" :weight bold :height 1.2 :family "helv"))))
     (erc-action-face ((t (:bold t :weight bold))))
     (erc-bold-face ((t (:bold t :weight bold))))
     (erc-default-face ((t (nil))))
     (erc-direct-msg-face ((t (:foreground "IndianRed"))))
     (erc-error-face ((t (:background "Red" :foreground "White"))))
     (erc-input-face ((t (:foreground "brown"))))
     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
     (erc-prompt-face ((t (:bold t :background "lightBlue2" :foreground "Black" :weight bold))))
     (erc-timestamp-face ((t (:bold t :foreground "green" :weight bold))))
     (erc-underline-face ((t (:underline t))))
     (fg:erc-color-face0 ((t (:foreground "White"))))
     (fg:erc-color-face1 ((t (:foreground "black"))))
     (fg:erc-color-face10 ((t (:foreground "lightblue1"))))
     (fg:erc-color-face11 ((t (:foreground "cyan"))))
     (fg:erc-color-face12 ((t (:foreground "blue"))))
     (fg:erc-color-face13 ((t (:foreground "deeppink"))))
     (fg:erc-color-face14 ((t (:foreground "gray50"))))
     (fg:erc-color-face15 ((t (:foreground "gray90"))))
     (fg:erc-color-face2 ((t (:foreground "blue4"))))
     (fg:erc-color-face3 ((t (:foreground "green4"))))
     (fg:erc-color-face4 ((t (:foreground "red"))))
     (fg:erc-color-face5 ((t (:foreground "brown"))))
     (fg:erc-color-face6 ((t (:foreground "purple"))))
     (fg:erc-color-face7 ((t (:foreground "orange"))))
     (fg:erc-color-face8 ((t (:foreground "yellow"))))
     (fg:erc-color-face9 ((t (:foreground "green"))))
     (fixed-pitch ((t (:family "courier"))))
     (font-lock-builtin-face ((t (:foreground "magenta3" :underline t :height 0.9))))
     (font-lock-comment-face ((t (:italic t :foreground "yellow" :slant oblique :height 0.9))))
     (font-lock-constant-face ((t (:bold t :foreground "medium purple" :weight bold :height 0.9))))
     (font-lock-doc-face ((t (:foreground "red" :height 0.9))))
     (font-lock-function-name-face ((t (:bold t :foreground "black" :weight bold))))
     (font-lock-keyword-face ((t (:bold t :foreground "blue" :weight bold))))
     (font-lock-string-face ((t (:foreground "red" :height 0.9))))
     (font-lock-type-face ((t (:foreground "Royalblue"))))
     (font-lock-variable-name-face ((t (:bold t :foreground "maroon" :weight bold :height 0.9))))
     (font-lock-warning-face ((t (:bold t :foreground "Red" :weight bold))))
     (fringe ((t (:background "dodgerblue"))))
     (header-line ((t (:background "grey90" :foreground "grey20" :box nil :overline "red" :underline "red"))))
     (highlight ((t (:background "darkseagreen2"))))
     (isearch ((t (:background "magenta2" :foreground "lightskyblue1"))))
     (isearch-lazy-highlight-face ((t (:background "paleturquoise"))))
     (italic ((t (:italic t :slant italic))))
     (jde-bug-breakpoint-cursor ((t (:background "brown" :foreground "cyan"))))
     (jde-db-active-breakpoint-face ((t (:background "red" :foreground "black"))))
     (jde-db-requested-breakpoint-face ((t (:background "yellow" :foreground "black"))))
     (jde-db-spec-breakpoint-face ((t (:background "green" :foreground "black"))))
     (jde-java-font-lock-api-face ((t (:foreground "dark goldenrod"))))
     (jde-java-font-lock-bold-face ((t (:bold t :weight bold))))
     (jde-java-font-lock-code-face ((t (nil))))
     (jde-java-font-lock-constant-face ((t (:foreground "CadetBlue"))))
     (jde-java-font-lock-doc-tag-face ((t (:foreground "green4"))))
     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
     (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t :slant normal))))
     (jde-java-font-lock-modifier-face ((t (:foreground "Orchid"))))
     (jde-java-font-lock-number-face ((t (:foreground "RosyBrown"))))
     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
     (jde-java-font-lock-package-face ((t (:foreground "blue3"))))
     (jde-java-font-lock-pre-face ((t (nil))))
     (jde-java-font-lock-underline-face ((t (:underline t))))
     (menu ((t (nil))))
     (minibuffer-prompt ((t (:foreground "dark blue"))))
     (mode-line ((t (:background "dodgerblue" :foreground "black" :overline "red" :underline "red"))))
     (mode-line-inactive ((t (:italic t :background "white" :foreground "cadetblue" :box (:line-width -1 :color "grey75") :overline "red" :underline "red" :slant oblique :weight light))))
     (modeline-buffer-id ((t (:background "dodgerblue" :foreground "black"))))
     (modeline-mousable ((t (:background "dodgerblue" :foreground "black"))))
     (modeline-mousable-minor-mode ((t (:background "dodgerblue" :foreground "black"))))
     (mouse ((t (:background "black"))))
     (primary-selection ((t (:background "lightgoldenrod2"))))
     (region ((t (:background "lightgoldenrod2"))))
     (rpm-spec-dir-face ((t (:foreground "green"))))
     (rpm-spec-doc-face ((t (:foreground "magenta"))))
     (rpm-spec-ghost-face ((t (:foreground "red"))))
     (rpm-spec-macro-face ((t (:foreground "yellow"))))
     (rpm-spec-package-face ((t (:foreground "red"))))
     (rpm-spec-tag-face ((t (:foreground "blue"))))
     (scroll-bar ((t (nil))))
     (secondary-selection ((t (:background "yellow"))))
     (semantic-dirty-token-face ((t (:background "lightyellow"))))
     (semantic-unmatched-syntax-face ((t (:underline "red"))))
     (senator-intangible-face ((t (:foreground "gray25"))))
     (senator-momentary-highlight-face ((t (:background "gray70"))))
     (senator-read-only-face ((t (:background "#CCBBBB"))))
     (sgml-comment-face ((t (:foreground "maroon"))))
     (sgml-doctype-face ((t (:foreground "dark green"))))
     (sgml-end-tag-face ((t (:foreground "green"))))
     (sgml-entity-face ((t (:foreground "red2"))))
     (sgml-ignored-face ((t (:background "gray90" :foreground "maroon"))))
     (sgml-ms-end-face ((t (:foreground "maroon"))))
     (sgml-ms-start-face ((t (:foreground "maroon"))))
     (sgml-pi-face ((t (:foreground "maroon"))))
     (sgml-sgml-face ((t (:foreground "maroon"))))
     (sgml-short-ref-face ((t (:foreground "goldenrod"))))
     (sgml-start-tag-face ((t (:foreground "green"))))
     (show-paren-match-face ((t (:background "turquoise"))))
     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
     (speedbar-button-face ((t (:foreground "green4"))))
     (speedbar-directory-face ((t (:foreground "blue4"))))
     (speedbar-file-face ((t (:foreground "cyan4"))))
     (speedbar-highlight-face ((t (:background "green"))))
     (speedbar-selected-face ((t (:foreground "red" :underline t))))
     (speedbar-tag-face ((t (:foreground "brown"))))
     (template-message-face ((t (:bold t :weight bold))))
     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
     (tooltip ((t (:background "lightyellow" :foreground "black"))))
     (trailing-whitespace ((t (:background "red"))))
     (underline ((t (:underline t))))
     (variable-pitch ((t (:family "helv"))))
     (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"))))
     (zmacs-region ((t (:background "lightgoldenrod2")))))))