My .emacs

Posted on by on September 17th, 2013 | 0 Comments »
My .emacs
;;-*-EMACS-LISP-*-  ;;forces emacs to start in the Lisp Major Mode
;; .emacs - Emacs Init File
;; -----------------------------------------------------------------------------
;;    ___ _ __ ___   __ _  ___ ___
;;   / _ \ '_ ` _ \ / _` |/ __/ __|
;;  |  __/ | | | | | (_| | (__\__ \
;; (_)___|_| |_| |_|\__,_|\___|___/
;;
;; -----------------------------------------------------------------------------
;; This file 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 file 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 PARsvn/tavern/org/TICULAR 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 file; if not, write to the Free Software Foundation, Inc., 59 Temple
;; Place - Suite 330, Boston, MA 02111-1307, USA.
;; -----------------------------------------------------------------------------
;;
;; If "something is worth doing, it's worth doing well," it then follows that if
;; something is worth doing, it can be done in emacs.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- ELPA
;; http://www.emacswiki.org/emacs/ELPA
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load-file "~/.emacs.d/package.el")
(load-file "~/.emacs.d/cdlatex.el")
(require 'package)
;; Any add to list for package-archives (to add marmalade or melpa) goes here
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                         ("marmalade" . "http://marmalade-repo.org/packages/")
                         ("melpa" . "http://melpa.milkbox.net/packages/")))
(package-initialize)
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Load Paths
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/")
(load-file "~/.emacs.d/nmg/subroutines.el")
(load-file "~/.emacs.d/nmg/theme.el")
;;(load-file "~/.emacs.d/nmg/new_latex.el")
;;(load-file "~/.emacs.d/temp.el")
(require 'org)
;; http://orgmode.org/manual/Installation.html
(setq snake-score-file "~/.emacs.d/snake-scores") ;;Very Important
(setq tetris-score-file "~/.emacs.d/tetris-scores") ;;Also Imporant
(load-file "~/.emacs.d/mediawiki.el")
(load-file "~/.emacs.d/nmg/tempo.el")
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Theme
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'color-theme)
(my-color-theme)
(set-default-font "Inconsolata-14")
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Init
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(tool-bar-mode -1)
;; turning off auto-fullscreen, probelm when new frames are created.
(toggle-fullscreen)
(auto-raise-mode 1) ;;EmacsManual P.191
(global-auto-revert-mode t) ;;makes all bufferes auto-refresh on external change
;;(setq fill-column 80) ;;http://www.delorie.com/gnu/docs/emacs/emacs_478.html
;;(define-key global-map (kbd "RET") 'newline-and-indent)
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- C C++ C# Mode
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-ede-mode 1)
(require 'semantic/sb)
(semantic-mode 1)
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- C C++ C# Mode
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'c-mode-common-hook
	  '(lambda () 
	     (define-key c-mode-base-map (kbd "RET") 'newline-and-indent)
	     ;;(c-toggle-auto-state 1) ;;dislike, makes bad newlines
	     (c-set-style "stroustrup")
	     (set-fill-column 80)
	     ;;M-q to fill /** */ Paragraph Segments
	     ;;http://stackoverflow.com/questions/1972219/
	     ;;   emacs-c-mode-fill-paragraph-with-doxygen-comments
	     ;; Original replacement:
	     ;;   "^[ ]*\\(//+\\|\\**\\)[ ]*\\([ ]*$\\|@param\\)\\|^\f"
	     (setq paragraph-start "^[ ]*\\(///\\|\\**\\)[ ]*\\([ ]*$\\|@\\)\\|^\f")
	     ))
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- C C++ C# Mode
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'emacs-lisp-mode-hook
          (lambda ()
            (set-fill-column 80)
	    ))
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- CEDET
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;/home/slayer/.emacs.d/elpa/
;; Semantic
;;(global-semantic-idle-completions-mode t)
;;(global-semantic-decoration-mode t)
;;(global-semantic-highlight-func-mode t)
;;(global-semantic-show-unmatched-syntax-mode t)

;; CC-mode
;;(add-hook 'c-mode-hook '(lambda ()
;;        (setq ac-sources (append '(ac-source-semantic) ac-sources))
;;        (local-set-key (kbd "RET") 'newline-and-indent)
;;        (linum-mode t)
;;        (semantic-mode t)))

;; Autocomplete
;;(require 'auto-complete-config)
;;(add-to-list 'ac-dictionary-directories (expand-file-name
;;             "~/.emacs.d/elpa/auto-complete-20130503.2013/dict"))
;;(setq ac-comphist-file (expand-file-name
;;             "~/.emacs.d/ac-comphist.dat"))
;;(ac-config-default)
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- AutoPair
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require `autopair)
(autopair-global-mode 1)
(setq autopair-autowrap t)
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Org-Mode
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- General
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -------------------------------------
;; -- Startup
;; -------------------------------------
(setq org-startup-with-inline-images "inlineimages")
(setq org-startup-indented t) ;;TOM 205
(add-hook 'org-mode-hook
	  '(lambda()
	     (turn-on-font-lock) ;;not needed when global-font-lock-mode is on
	     (setq org-tags-column -90)
	     (setq org-indent-mode t)
	     (visual-line-mode t)
	     (add-hook 'org-mode-hook 'turn-on-org-cdlatex)
	     ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Publishing
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -------------------------------------
;; -- Publish Websites
;; -------------------------------------
(setq org-publish-project-alist
      '(("embedd-gui"
         :base-directory "~/svn/embedd-gui/doc/"
         :publishing-directory "~/svn/embedd-gui/doc/"
	 )))
;; -------------------------------------
;; -- PDF
;; -------------------------------------
;; 'djcb-org-article' for export org documents to the LaTex 'article', using
;; XeTeX and some fancy fonts; requires XeTeX (see org-latex-to-pdf-process)
;; -----------------------------------------------------------------------------
;; http://emacs-fu.blogspot.com/2011/04/nice-looking-pdfs-with-org-mode-and.html
;; http://comments.gmane.org/gmane.emacs.orgmode/40221
;; -----------------------------------------------------------------------------
;; Install Packages:
;; + texlive-all  
;; + texlive-xetex
;; + ttf-sil-gentium
;; + ttf-sil-gentium-basic
;; + ttf-sil-charis
;; + ttf-dejavu
;; -----------------------------------------------------------------------------
;; Make sure to include the latex class in you header:
;; #+LaTeX_CLASS: djcb-org-article
;; -----------------------------------------------------------------------------
(eval-after-load 'org-export-latex
  '(progn
     (add-to-list 'org-export-latex-classes
		  '("djcb-org-article"
		    "\\documentclass[11pt,a4paper]{article}
		     \\usepackage{minted}
		     \\usemintedstyle{emacs}
		     \\newminted{common-lisp}{fontsize=24}
                     \\usepackage[T1]{fontenc}
                     \\usepackage{hyperref}
                     \\usepackage{fontspec}
                     \\usepackage{graphicx} 
                     \\defaultfontfeatures{Mapping=tex-text}
                     \\setromanfont{Gentium}
                     \\setromanfont [BoldFont={Gentium Basic Bold},
                                     ItalicFont={Gentium Basic Italic}]{Gentium Basic}
                     \\setsansfont{Charis SIL}
                     \\setmonofont[Scale=0.8]{DejaVu Sans Mono}
                     \\usepackage{geometry}
                     \\geometry{a4paper, textwidth=6.5in, textheight=10in,
                                 marginparsep=7pt, marginparwidth=.6in}
                     \\pagestyle{empty}
                     \\title{}
                           [NO-DEFAULT-PACKAGES]
                           [NO-PACKAGES]"
		    ("\\section{%s}" . "\\section*{%s}")
		    ("\\subsection{%s}" . "\\subsection*{%s}")
		    ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		    ("\\paragraph{%s}" . "\\paragraph*{%s}")
		    ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))))
;; -----------------------------------------------------------------------------
;; Added Syntax Highlighting Support
;; http://orgmode.org/worg/org-tutorials/org-latex-export.html
;; #+LaTeX_HEADER: \usepackage{minted}
;; #+LaTeX_HEADER: \usemintedstyle{emacs}
;; #+LaTeX_HEADER: \newminted{common-lisp}{fontsize=\footnotesize}
;; -----------------------------------------------------------------------------
;; Install Packages:
;; + python-pygments
;; -----------------------------------------------------------------------------
(setq org-export-latex-listings 'minted)
(setq org-export-latex-custom-lang-environments
      '(
	(emacs-lisp "common-lispcode")
       ))
(setq org-export-latex-minted-options
      '(("frame" "lines")
        ("fontsize" "\\scriptsize")
	("linenos" "")
))
(setq org-latex-to-pdf-process 
      '("xelatex --shell-escape -interaction nonstopmode %f"
	"xelatex --shell-escape -interaction nonstopmode %f")) ;; for multiple passes
;; Not sure if this is actually setting the export class correctly.
(setq org-export-latex-class "djcb-org-article")
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Remote Editing
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -------------------------------------
;; -- Tramp
;; -------------------------------------
(require 'tramp)
(setq tramp-default-method "scp")
;;
;;
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- CUSTOM SET VARIABLES
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(custom-theme-directory "~/.emacs.d/themes/")
 '(display-battery-mode t)
 '(display-time-mode t)
 '(fringe-mode (quote (nil . 0)) nil (fringe))
 '(ido-everywhere nil)
 '(ido-max-prospects 12)
 '(ido-mode (quote both) nil (ido))
 '(mediawiki-site-alist (quote (("nickguthrie" "http://nickguthrie.com/wiki/" "Nick Guthrie" "JHk35ioneon" "Main Page") ("Wikipedia" "http://en.wikipedia.org/w/" "username" "password" "Main Page"))))
 '(mediawiki-site-default "nickguthrie")
 '(message-log-max t)
 '(org-adapt-indentation nil)
 '(org-babel-load-languages (quote ((emacs-lisp . t) (C . t) (css . t) (ditaa . t) (dot . t) (gnuplot . t) (java . t) (org . t) (plantuml . t) (sh . t) (sql . t) (awk . t) (lisp . t))))
 '(org-export-author-info nil)
 '(org-export-email-info nil)
 '(org-fontify-done-headline t)
 '(org-footnote-auto-adjust t)
 '(org-format-latex-options (quote (:foreground "Green" :background default :scale 1.5 :html-foreground "Green" :html-background "Transparent" :html-scale 1.75 :matchers ("begin" "$1" "$" "$$" "\\(" "\\["))))
 '(org-indirect-buffer-display (quote other-window))
 '(org-src-tab-acts-natively t)
 '(org-use-sub-superscripts (quote {}))
 '(scroll-bar-mode nil)
 '(show-paren-mode t)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
theme.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;------------------------------------------------------------------------------
;;  _   _ __  __  ____   _____ _
;; | \ | |  \/  |/ ___| |_   _| |__   ___ _ __ ___   ___
;; |  \| | |\/| | |  _    | | | '_ \ / _ \ '_ ` _ \ / _ \
;; | |\  | |  | | |_| |   | | | | | |  __/ | | | | |  __/
;; |_| \_|_|  |_|\____|   |_| |_| |_|\___|_| |_| |_|\___|
;;------------------------------------------------------------------------------
;; File: nmg-theme.el
;; Color theme by Nicholas Guthrie, created 2012-03-23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require `org-install)
(eval-when-compile    (require 'color-theme))
(defun my-color-theme ()
  (interactive)
  (color-theme-install
   '(my-color-theme
     ((background-color . "black")
      (background-mode . dark)
      (background-toolbar-color . "#cf3ccf3ccf3c")
      (border-color . "gold")
      (bottom-toolbar-shadow-color . "#79e77df779e7")
      (cursor-color . "orchid")
      (foreground-color . "WhiteSmoke")
      (mouse-color . "OrangeRed")
      (top-toolbar-shadow-color . "#fffffbeeffff"))
     ((ac-fuzzy-cursor-color . "red")
      (diary-face . diary)
      (list-matching-lines-buffer-name-face . underline)
      (list-matching-lines-face . bold)
      (org-goto-interface . outline-path-completion)
      (widget-mouse-face . highlight))
     (default ((t (:stipple nil :background "black" :foreground "WhiteSmoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 143 :width normal :foundry "unknown" :family "Inconsolata"))))
     (CUA-global-mark-face ((t (:background "cyan" :foreground "black"))))
     (CUA-rectangle-face ((t (:background "maroon" :foreground "white"))))
     (CUA-rectangle-noselect-face ((t (:background "dimgray" :foreground "white"))))
     (Man-overstrike-face ((t (:bold t :weight bold))))
     (Man-underline-face ((t (:underline t))))
     (ac-candidate-face ((t (:background "lightgray" :foreground "black"))))
     (ac-completion-face ((t (:foreground "darkgray" :underline t))))
     (ac-gtags-candidate-face ((t (:background "lightgray" :foreground "navy"))))
     (ac-gtags-selection-face ((t (:background "navy" :foreground "white"))))
     (ac-selection-face ((t (:background "steelblue" :foreground "white"))))
     (ac-yasnippet-candidate-face ((t (:background "sandybrown" :foreground "black"))))
     (ac-yasnippet-selection-face ((t (:background "coral3" :foreground "white"))))
     (align-highlight-change-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (align-highlight-nochange-face ((t (:background "SkyBlue4"))))
     (apropos-keybinding-face ((t (:underline t))))
     (apropos-label-face ((t (:italic t :slant italic))))
     (apropos-match-face ((t (:background "SkyBlue4"))))
     (apropos-property-face ((t (:italic t :bold t :slant italic :weight bold))))
     (apropos-symbol-face ((t (:bold t :weight bold))))
     (apt-utils-broken-face ((t (:foreground "red"))))
     (apt-utils-description-face ((t (:foreground "cadet blue"))))
     (apt-utils-field-contents-face ((t (:foreground "orange"))))
     (apt-utils-field-keyword-face ((t (:bold t :foreground "purple" :weight bold))))
     (apt-utils-file-face ((t (:foreground "brown"))))
     (apt-utils-installed-status-face ((t (:italic t :slant italic))))
     (apt-utils-normal-package-face ((t (:foreground "yellow"))))
     (apt-utils-version-face ((t (:italic t :slant italic))))
     (apt-utils-virtual-package-face ((t (:foreground "green"))))
     (bbdb-company ((t (:italic t :slant italic))))
     (bbdb-field-name ((t (:bold t :weight bold))))
     (bbdb-field-value ((t (nil))))
     (bbdb-name ((t (:underline t))))
     (bg:erc-color-face0 ((t (:background "saddle brown"))))
     (bg:erc-color-face1 ((t (:background "black"))))
     (bg:erc-color-face10 ((t (:background "DodgerBlue4"))))
     (bg:erc-color-face11 ((t (:background "cyan4"))))
     (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 "grey15"))))
     (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 "yellow4"))))
     (bg:erc-color-face9 ((t (:background "green"))))
     (blank-space-face ((t (:background "DarkGray"))))
     (blank-tab-face ((t (:background "cornsilk" :foreground "black"))))
     (blue ((t (:foreground "blue"))))
     (bold ((t (:bold t :weight bold))))
     (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
     (border ((t (:background "gold" :foreground "black"))))
     (browse-kill-ring-separator-face ((t (:bold t :weight bold))))
     (buffer-menu-buffer ((t (:bold t :weight bold))))
     (buffers-tab ((t (:background "black" :foreground "LightSkyBlue"))))
     (buffers-tab-face ((t (:background "black" :foreground "LightSkyBlue"))))
     (button ((t (:bold t :background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :underline t :weight bold))))
     (calendar-today ((t (:underline t))))
     (calendar-today-face ((t (:underline t))))
     (change-log-acknowledgement-face ((t (:italic t :foreground "AntiqueWhite3" :slant oblique))))
     (change-log-conditionals-face ((t (:foreground "Aquamarine"))))
     (change-log-date-face ((t (:italic t :foreground "BurlyWood" :slant oblique))))
     (change-log-email-face ((t (:foreground "Aquamarine"))))
     (change-log-file-face ((t (:bold t :foreground "LightSkyBlue" :weight bold :height 0.9 :family "Verdana"))))
     (change-log-function-face ((t (:foreground "Aquamarine"))))
     (change-log-list-face ((t (:foreground "LightSkyBlue"))))
     (change-log-name-face ((t (:bold t :foreground "Gold" :weight bold))))
     (clear-case-mode-string-face ((t (:bold t :background "grey" :foreground "black" :box (:line-width 2 :color "grey" :style released-button) :weight bold :height 0.9 :family "Arial"))))
     (clearcase-dired-checkedout-face ((t (:foreground "red"))))
     (comint-highlight-input ((t (:bold t :weight bold))))
     (comint-highlight-prompt ((t (:foreground "cyan1"))))
     (compilation-column-number ((t (:foreground "PaleGreen"))))
     (compilation-error ((t (:bold t :foreground "Pink" :weight bold))))
     (compilation-info ((t (:bold t :foreground "Green1" :weight bold))))
     (compilation-line-number ((t (:foreground "LightGoldenrod"))))
     (compilation-message-face ((t (:underline t))))
     (compilation-warning ((t (:bold t :foreground "Orange" :weight bold))))
     (completions-annotations ((t (:italic t :slant italic))))
     (completions-common-part ((t (:stipple nil :background "black" :foreground "WhiteSmoke" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 81 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))))
     (completions-first-difference ((t (:bold t :weight bold))))
     (cperl-array-face ((t (:bold t :background "B;ack" :foreground "LawnGreen" :weight bold))))
     (cperl-hash-face ((t (:italic t :bold t :background "B;ack" :foreground "SpringGreen" :slant italic :weight bold))))
     (cperl-here-face ((t (:foreground "RosyBrown1"))))
     (cperl-invalid-face ((t (:foreground "MediumPurple1"))))
     (cperl-nonoverridable-face ((t (:foreground "chartreuse3"))))
     (cperl-pod-face ((t (:italic t :foreground "chocolate1" :slant oblique))))
     (cperl-pod-head-face ((t (:foreground "tomato"))))
     (cscope-file-face ((t (:foreground "blue"))))
     (cscope-function-face ((t (:foreground "magenta"))))
     (cscope-line-face ((t (:foreground "green"))))
     (cscope-line-number-face ((t (:foreground "red"))))
     (cscope-mouse-face ((t (:background "blue" :foreground "white"))))
     (cursor ((t (:background "orchid"))))
     (custom-button-face ((t (nil))))
     (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
     (custom-changed-face ((t (:background "blue" :foreground "wheat"))))
     (custom-comment-face ((t (:background "dim gray"))))
     (custom-comment-tag-face ((t (:foreground "gray80"))))
     (custom-documentation-face ((t (nil))))
     (custom-face-tag-face ((t (:bold t :weight bold :height 1.1 :family "helv"))))
     (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.1 :family "helv"))))
     (custom-group-tag-face-1 ((t (:bold t :foreground "pink" :weight bold :height 1.1 :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 "lime green"))))
     (custom-variable-button-face ((t (:bold t :background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button) :underline t :weight bold))))
     (custom-variable-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2 :family "helv"))))
     (cvs-filename-face ((t (:foreground "white"))))
     (cvs-handled-face ((t (:foreground "pink"))))
     (cvs-header-face ((t (:foreground "green"))))
     (cvs-marked-face ((t (:bold t :foreground "green3" :weight bold))))
     (cvs-msg-face ((t (:foreground "red"))))
     (cvs-need-action-face ((t (:foreground "yellow"))))
     (cvs-unknown-face ((t (:foreground "grey"))))
     (cyan-bold ((t (:bold t :foreground "cyan" :weight bold))))
     (cyan-italic ((t (:italic t :foreground "cyan" :slant italic))))
     (darkviolet-bold ((t (:bold t :foreground "dark violet" :weight bold))))
     (darkviolet-italic ((t (:italic t :foreground "dark violet" :slant italic))))
     (debian-changelog-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
     (develock-bad-manner ((t (:background "Yellow" :foreground "Black"))))
     (develock-lonely-parentheses ((t (:background "PaleTurquoise" :foreground "Blue"))))
     (develock-long-line-1 ((t (:foreground "Orange"))))
     (develock-long-line-2 ((t (:background "#1a1a42"))))
     (develock-reachable-mail-address ((t (:background "LemonChiffon" :foreground "DarkGreen"))))
     (develock-upper-case-attribute ((t (:background "Wheat" :foreground "Black"))))
     (develock-upper-case-tag ((t (:background "PowderBlue" :foreground "Black"))))
     (develock-whitespace-1 ((t (:background "Red" :foreground "Black"))))
     (develock-whitespace-2 ((t (:background "Orange" :foreground "Black"))))
     (develock-whitespace-3 ((t (:background "Yellow" :foreground "Black"))))
     (diary ((t (:foreground "IndianRed"))))
     (diary-anniversary ((t (:foreground "Cyan1"))))
     (diary-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
     (diary-face ((t (:foreground "IndianRed"))))
     (diary-time ((t (:foreground "LightGoldenrod"))))
     (dictionary-button-face ((t (:bold t :background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button) :weight bold))))
     (dictionary-reference-face ((t (:foreground "yellow"))))
     (dictionary-word-entry-face ((t (:italic t :slant italic))))
     (diff-added-face ((t (:foreground "Green"))))
     (diff-changed-face ((t (:foreground "Khaki"))))
     (diff-context-face ((t (:foreground "grey70"))))
     (diff-file-header ((t (:bold t :background "grey20" :foreground "ivory1" :weight bold))))
     (diff-file-header-face ((t (:bold t :background "grey20" :foreground "ivory1" :weight bold))))
     (diff-function-face ((t (:foreground "SpringGreen1"))))
     (diff-header-face ((t (:background "SlateBlue4"))))
     (diff-hunk-header-face ((t (:background "DodgerBlue4"))))
     (diff-index-face ((t (:bold t :background "SteelBlue4" :weight bold))))
     (diff-nonexistent ((t (:bold t :background "Black" :foreground "Wheat1" :weight bold))))
     (diff-nonexistent-face ((t (:bold t :background "Black" :foreground "Wheat1" :weight bold))))
     (diff-removed-face ((t (:foreground "salmon1"))))
     (dired-face-boring ((t (:foreground "Gray65"))))
     (dired-face-directory ((t (:bold t :foreground "SkyBlue2" :weight bold))))
     (dired-face-executable ((t (:foreground "Green"))))
     (dired-face-flagged ((t (:background "DarkSlateGray" :foreground "LemonChiffon"))))
     (dired-face-header ((t (:background "grey15" :foreground "OldLace"))))
     (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"))))
     (display-time-mail-balloon-enhance-face ((t (:background "orange"))))
     (display-time-mail-balloon-gnus-group-face ((t (:foreground "blue"))))
     (display-time-time-balloon-face ((t (:foreground "red"))))
     (ediff-current-diff-face-A ((t (:background "pale green" :foreground "firebrick"))))
     (ediff-current-diff-face-Ancestor ((t (:background "VioletRed" :foreground "Black"))))
     (ediff-current-diff-face-B ((t (:background "Yellow" :foreground "DarkOrchid"))))
     (ediff-current-diff-face-C ((t (:background "Pink" :foreground "Navy"))))
     (ediff-even-diff-face-A ((t (:background "light grey" :foreground "Black"))))
     (ediff-even-diff-face-Ancestor ((t (:background "Grey" :foreground "White"))))
     (ediff-even-diff-face-B ((t (:background "Grey" :foreground "White"))))
     (ediff-even-diff-face-C ((t (:background "light grey" :foreground "Black"))))
     (ediff-fine-diff-face-A ((t (:background "sky blue" :foreground "Navy"))))
     (ediff-fine-diff-face-Ancestor ((t (:background "Green" :foreground "Black"))))
     (ediff-fine-diff-face-B ((t (:background "cyan" :foreground "Black"))))
     (ediff-fine-diff-face-C ((t (:background "Turquoise" :foreground "Black"))))
     (ediff-odd-diff-face-A ((t (:background "Grey" :foreground "White"))))
     (ediff-odd-diff-face-Ancestor ((t (:background "light grey" :foreground "Black"))))
     (ediff-odd-diff-face-B ((t (:background "light grey" :foreground "Black"))))
     (ediff-odd-diff-face-C ((t (:background "Grey" :foreground "White"))))
     (eieio-custom-slot-tag-face ((t (:foreground "light blue"))))
     (eldoc-highlight-function-argument ((t (:bold t :weight bold))))
     (epa-field-body ((t (:italic t :foreground "turquoise" :slant italic))))
     (epa-field-name ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
     (epa-mark ((t (:bold t :foreground "orange" :weight bold))))
     (epa-string ((t (:foreground "lightyellow"))))
     (epa-validity-disabled ((t (:italic t :slant italic))))
     (epa-validity-high ((t (:bold t :foreground "PaleTurquoise" :weight bold))))
     (epa-validity-low ((t (:italic t :slant italic))))
     (epa-validity-medium ((t (:italic t :foreground "PaleTurquoise" :slant italic))))
     (erc-action-face ((t (:bold t :foreground "turquoise1" :weight bold))))
     (erc-bold-face ((t (:bold t :weight bold))))
     (erc-button ((t (:bold t :foreground "RoyalBlue1" :box (:line-width 2 :style released-button) :weight bold))))
     (erc-button-face ((t (:bold t :foreground "RoyalBlue1" :box (:line-width 2 :style released-button) :weight bold))))
     (erc-button-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (erc-button-nickname-face ((t (:bold t :background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button) :weight bold))))
     (erc-command-indicator-face ((t (:bold t :weight bold))))
     (erc-current-nick-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
     (erc-dangerous-host-face ((t (:foreground "red"))))
     (erc-default-face ((t (nil))))
     (erc-direct-msg-face ((t (:foreground "sandybrown"))))
     (erc-error-face ((t (:foreground "red"))))
     (erc-fool-face ((t (:foreground "dim gray"))))
     (erc-header-line ((t (:background "grey95" :foreground "ConFlowerBlue"))))
     (erc-input-face ((t (:foreground "brown"))))
     (erc-inverse-face ((t (:background "Black" :foreground "White"))))
     (erc-keyword-face ((t (:bold t :foreground "pale green" :weight bold))))
     (erc-my-nick-face ((t (:bold t :foreground "brown" :weight bold))))
     (erc-nick-default-face ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
     (erc-nick-msg-face ((t (:bold t :foreground "IndianRed" :weight bold))))
     (erc-notice-face ((t (:bold t :foreground "SlateBlue" :weight bold))))
     (erc-pal-face ((t (:bold t :foreground "Magenta" :weight bold))))
     (erc-prompt-face ((t (:bold t :background "Navy" :foreground "lightBlue2" :weight bold))))
     (erc-timestamp-face ((t (:bold t :foreground "SeaGreen1" :weight bold))))
     (erc-underline-face ((t (:underline t))))
     (escape-glyph ((t (:foreground "cyan"))))
     (eshell-ls-archive-face ((t (:bold t :foreground "IndianRed" :weight bold))))
     (eshell-ls-backup-face ((t (:foreground "Grey"))))
     (eshell-ls-clutter-face ((t (:foreground "DimGray"))))
     (eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue" :weight bold))))
     (eshell-ls-executable-face ((t (:foreground "Coral"))))
     (eshell-ls-missing-face ((t (:foreground "black"))))
     (eshell-ls-picture-face ((t (:foreground "Violet"))))
     (eshell-ls-product-face ((t (:foreground "sandybrown"))))
     (eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
     (eshell-ls-special-face ((t (:foreground "Gold"))))
     (eshell-ls-symlink-face ((t (:bold t :foreground "DarkCyan" :weight bold))))
     (eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
     (eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
     (eshell-test-failed-face ((t (:bold t :foreground "OrangeRed" :weight bold))))
     (eshell-test-ok-face ((t (:bold t :foreground "Green" :weight bold))))
     (excerpt ((t (:italic t :slant italic))))
     (face-6 ((t (:foreground "pink"))))
     (face-7 ((t (:foreground "steelblue"))))
     (face-8 ((t (:foreground "lime green"))))
     (ff-paths-non-existent-file-face ((t (:bold t :foreground "NavyBlue" :weight bold))))
     (fg:erc-color-face0 ((t (:foreground "BlanchedAlmond"))))
     (fg:erc-color-face1 ((t (:foreground "beige"))))
     (fg:erc-color-face10 ((t (:foreground "pale goldenrod"))))
     (fg:erc-color-face11 ((t (:foreground "cyan"))))
     (fg:erc-color-face12 ((t (:foreground "lightblue1"))))
     (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"))))
     (file-name-shadow ((t (:foreground "grey70"))))
     (fixed ((t (:bold t :weight bold))))
     (fixed-pitch ((t (:family "courier"))))
     (fl-comment-face ((t (:foreground "pink"))))
     (fl-doc-string-face ((t (:foreground "purple"))))
     (fl-function-name-face ((t (:foreground "red"))))
     (fl-keyword-face ((t (:foreground "cyan"))))
     (fl-string-face ((t (:foreground "green"))))
     (fl-type-face ((t (:foreground "yellow"))))
     (flyspell-duplicate-face ((t (:bold t :foreground "IndianRed" :underline t :weight bold))))
     (flyspell-incorrect-face ((t (:bold t :foreground "Pink" :underline t :weight bold))))
     (font-latex-sedate-face ((t (:foreground "Gray85"))))
     (font-latex-string-face ((t (:foreground "orange"))))
     (font-latex-warning-face ((t (:foreground "gold"))))
     (font-lock-builtin-face ((t (:foreground "LightSteelBlue"))))
     (font-lock-comment-delimiter-face ((t (:foreground "Salmon"))))
     (font-lock-comment-face ((t (:italic t :foreground "chocolate1" :slant oblique))))
     (font-lock-constant-face ((t (:bold t :foreground "LightSlateBlue" :weight bold))))
     (font-lock-doc-face ((t (:italic t :foreground "LightCoral" :slant oblique))))
     (font-lock-doc-string-face ((t (:foreground "Plum"))))
     (font-lock-emphasized-face ((t (:bold t :weight bold))))
     (font-lock-exit-face ((t (:foreground "LightBlue"))))
     (font-lock-function-name-face ((t (:bold t :foreground "mediumspringgreen" :weight bold :height 1.1))))
     (font-lock-keyword-face ((t (:foreground "cyan1"))))
     (font-lock-negation-char-face ((t (nil))))
     (font-lock-other-emphasized-face ((t (:italic t :bold t :slant italic :weight bold))))
     (font-lock-other-type-face ((t (:bold t :foreground "Turquoise" :weight bold))))
     (font-lock-preprocessor-face ((t (:italic t :foreground "CornFlowerBlue" :slant italic))))
     (font-lock-reference-face ((t (:foreground "PaleGreen"))))
     (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
     (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
     (font-lock-string-face ((t (:foreground "RosyBrown1"))))
     (font-lock-type-face ((t (:foreground "SteelBlue1"))))
     (font-lock-variable-name-face ((t (:foreground "Aquamarine"))))
     (font-lock-warning-face ((t (:bold t :foreground "Pink" :weight bold))))
     (fp-topic-face ((t (:italic t :bold t :background "black" :foreground "lavender" :slant italic :weight bold))))
     (fringe ((t (:background "grey30" :foreground "Wheat"))))
     (gdb-arrow-face ((t (:bold t :background "yellow" :foreground "red" :weight bold))))
     (gnus-button ((t (:bold t :background "#191932" :box (:line-width 2 :style released-button) :weight bold))))
     (gnus-cite-attribution-face ((t (:italic t :slant italic))))
     (gnus-cite-face-1 ((t (:foreground "CornflowerBlue"))))
     (gnus-cite-face-10 ((t (:foreground "thistle1"))))
     (gnus-cite-face-11 ((t (:foreground "LightYellow1"))))
     (gnus-cite-face-2 ((t (:foreground "PaleGreen"))))
     (gnus-cite-face-3 ((t (:foreground "LightGoldenrod"))))
     (gnus-cite-face-4 ((t (:foreground "LightPink"))))
     (gnus-cite-face-5 ((t (:foreground "turquoise"))))
     (gnus-cite-face-6 ((t (:foreground "khaki"))))
     (gnus-cite-face-7 ((t (:foreground "plum"))))
     (gnus-cite-face-8 ((t (:foreground "DeepSkyBlue1"))))
     (gnus-cite-face-9 ((t (:foreground "chartreuse1"))))
     (gnus-emphasis-bold ((t (:bold t :weight bold))))
     (gnus-emphasis-bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
     (gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
     (gnus-emphasis-italic ((t (:italic t :slant italic))))
     (gnus-emphasis-strikethru ((t (:strike-through t))))
     (gnus-emphasis-underline ((t (:underline t))))
     (gnus-emphasis-underline-bold ((t (:bold t :underline t :weight bold))))
     (gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t :slant italic :weight bold))))
     (gnus-emphasis-underline-italic ((t (:italic t :underline t :slant italic))))
     (gnus-group-mail-1 ((t (:foreground "#3BFF00" :weight normal))))
     (gnus-group-mail-1-empty ((t (:foreground "#249900"))))
     (gnus-group-mail-1-empty-face ((t (:foreground "#249900"))))
     (gnus-group-mail-1-face ((t (:foreground "#3BFF00" :weight normal))))
     (gnus-group-mail-2 ((t (:foreground "#5EFF00" :weight normal))))
     (gnus-group-mail-2-empty ((t (:foreground "#389900"))))
     (gnus-group-mail-2-empty-face ((t (:foreground "#389900"))))
     (gnus-group-mail-2-face ((t (:foreground "#5EFF00" :weight normal))))
     (gnus-group-mail-3 ((t (:foreground "#80FF00" :weight normal))))
     (gnus-group-mail-3-empty ((t (:foreground "#4D9900"))))
     (gnus-group-mail-3-empty-face ((t (:foreground "#4D9900"))))
     (gnus-group-mail-3-face ((t (:foreground "#A1FF00" :weight normal))))
     (gnus-group-mail-low ((t (:bold t :foreground "aquamarine2" :weight bold))))
     (gnus-group-mail-low-empty ((t (:foreground "aquamarine2"))))
     (gnus-group-mail-low-empty-face ((t (:foreground "aquamarine2"))))
     (gnus-group-mail-low-face ((t (:bold t :foreground "aquamarine2" :weight bold))))
     (gnus-group-news-1 ((t (:bold t :foreground "#8480FF" :weight bold))))
     (gnus-group-news-1-empty ((t (:foreground "#524DFF"))))
     (gnus-group-news-1-empty-face ((t (:foreground "#524DFF"))))
     (gnus-group-news-1-face ((t (:bold t :foreground "#8480FF" :weight bold))))
     (gnus-group-news-2 ((t (:bold t :foreground "#8088FF" :weight bold))))
     (gnus-group-news-2-empty ((t (:foreground "#4D58FF"))))
     (gnus-group-news-2-empty-face ((t (:foreground "#4D58FF"))))
     (gnus-group-news-2-face ((t (:bold t :foreground "#8088FF" :weight bold))))
     (gnus-group-news-3 ((t (:bold t :foreground "#8095FF" :weight bold))))
     (gnus-group-news-3-empty ((t (:foreground "#4D6AFF"))))
     (gnus-group-news-3-empty-face ((t (nil))))
     (gnus-group-news-3-face ((t (:bold t :foreground "#8095FF" :weight bold))))
     (gnus-group-news-4 ((t (:bold t :foreground "#80A1FF" :weight bold))))
     (gnus-group-news-4-empty ((t (:foreground "#4D7CFF"))))
     (gnus-group-news-4-empty-face ((t (:foreground "#4D7CFF"))))
     (gnus-group-news-4-face ((t (:bold t :foreground "#80A1FF" :weight bold))))
     (gnus-group-news-5 ((t (:bold t :foreground "#80AEFF" :weight bold))))
     (gnus-group-news-5-empty ((t (:foreground "#4D8EFF"))))
     (gnus-group-news-5-empty-face ((t (:foreground "#4D8EFF"))))
     (gnus-group-news-5-face ((t (:bold t :foreground "#80AEFF" :weight bold))))
     (gnus-group-news-6 ((t (:bold t :foreground "#80BBFF" :weight bold))))
     (gnus-group-news-6-empty ((t (:foreground "#4DA0FF"))))
     (gnus-group-news-6-empty-face ((t (:foreground "#4DA0FF"))))
     (gnus-group-news-6-face ((t (:bold t :foreground "#80BBFF" :weight bold))))
     (gnus-group-news-low ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
     (gnus-group-news-low-empty ((t (:foreground "DarkTurquoise"))))
     (gnus-group-news-low-empty-face ((t (:foreground "DarkTurquoise"))))
     (gnus-group-news-low-face ((t (:bold t :foreground "DarkTurquoise" :weight bold))))
     (gnus-header-content ((t (:italic t :foreground "DarkKhaki" :slant italic))))
     (gnus-header-content-face ((t (:italic t :foreground "DarkKhaki" :slant italic))))
     (gnus-header-from ((t (:foreground "PaleGreen1"))))
     (gnus-header-from-face ((t (:foreground "PaleGreen1"))))
     (gnus-header-name ((t (:bold t :foreground "BlanchedAlmond" :weight bold))))
     (gnus-header-name-face ((t (:bold t :foreground "BlanchedAlmond" :weight bold))))
     (gnus-header-newsgroups ((t (:italic t :foreground "yellow" :slant italic))))
     (gnus-header-newsgroups-face ((t (:italic t :foreground "yellow" :slant italic))))
     (gnus-header-subject ((t (:foreground "coral1"))))
     (gnus-header-subject-face ((t (:foreground "coral1"))))
     (gnus-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (gnus-signature ((t (:italic t :slant italic))))
     (gnus-signature-face ((t (:italic t :slant italic))))
     (gnus-splash ((t (:foreground "#cccccc"))))
     (gnus-splash-face ((t (:foreground "#cccccc"))))
     (gnus-summary-cancelled ((t (:background "black" :foreground "yellow"))))
     (gnus-summary-cancelled-face ((t (:background "black" :foreground "yellow"))))
     (gnus-summary-high-ancient ((t (:bold t :foreground "CornflowerBlue" :weight bold))))
     (gnus-summary-high-ancient-face ((t (:bold t :foreground "CornflowerBlue" :weight bold))))
     (gnus-summary-high-read ((t (:bold t :foreground "grey60" :weight bold))))
     (gnus-summary-high-read-face ((t (:bold t :foreground "grey60" :weight bold))))
     (gnus-summary-high-ticked ((t (:bold t :foreground "RosyBrown" :weight bold))))
     (gnus-summary-high-ticked-face ((t (:bold t :foreground "RosyBrown" :weight bold))))
     (gnus-summary-high-undownloaded ((t (:bold t :foreground "ivory3" :weight bold))))
     (gnus-summary-high-unread ((t (:bold t :foreground "PaleGreen" :weight bold))))
     (gnus-summary-high-unread-face ((t (:bold t :foreground "PaleGreen" :weight bold))))
     (gnus-summary-low-ancien-facet ((t (:italic t :foreground "LightSteelBlue" :slant italic))))
     (gnus-summary-low-ancient ((t (:italic t :foreground "LightSteelBlue" :slant italic))))
     (gnus-summary-low-ancient-face ((t (:italic t :foreground "RoyalBlue" :slant italic))))
     (gnus-summary-low-read ((t (:italic t :foreground "LightSlateGray" :slant italic))))
     (gnus-summary-low-read-face ((t (:italic t :foreground "LightSlateGray" :slant italic))))
     (gnus-summary-low-ticked ((t (:italic t :foreground "pink" :slant italic))))
     (gnus-summary-low-ticked-face ((t (:italic t :foreground "pink" :slant italic))))
     (gnus-summary-low-undownloaded ((t (:italic t :foreground "grey75" :slant italic :weight normal))))
     (gnus-summary-low-unread ((t (:italic t :foreground "MediumSeaGreen" :slant italic))))
     (gnus-summary-low-unread-face ((t (:italic t :foreground "MediumSeaGreen" :slant italic))))
     (gnus-summary-normal-ancient ((t (:foreground "SkyBlue"))))
     (gnus-summary-normal-ancient-face ((t (:foreground "SkyBlue"))))
     (gnus-summary-normal-read ((t (:foreground "grey50"))))
     (gnus-summary-normal-read-face ((t (:foreground "grey50"))))
     (gnus-summary-normal-ticked ((t (:foreground "LightSalmon"))))
     (gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
     (gnus-summary-normal-undownloaded ((t (:foreground "LightGray" :weight normal))))
     (gnus-summary-normal-unread ((t (:foreground "YellowGreen"))))
     (gnus-summary-normal-unread-face ((t (nil))))
     (gnus-summary-root-face ((t (:bold t :foreground "Red" :weight bold))))
     (gnus-summary-selected ((t (:foreground "LemonChiffon" :underline t))))
     (gnus-summary-selected-face ((t (:foreground "LemonChiffon" :underline t))))
     (gnus-topic-face ((t (:italic t :bold t :background "black" :foreground "lavender" :slant italic :weight bold))))
     (gnus-user-agent-bad-face ((t (:bold t :background "black" :foreground "red" :weight bold))))
     (gnus-user-agent-good-face ((t (:background "black" :foreground "green"))))
     (gnus-user-agent-unknown-face ((t (:bold t :background "black" :foreground "orange" :weight bold))))
     (gnus-x-face ((t (:background "white" :foreground "black"))))
     (goto-address-mail-face ((t (:italic t :slant italic))))
     (goto-address-mail-mouse-face ((t (:background "SkyBlue4"))))
     (goto-address-url-face ((t (:bold t :weight bold))))
     (goto-address-url-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (green ((t (:foreground "green"))))
     (gui-button-face ((t (:background "grey75" :foreground "black" :box (:line-width 2 :style released-button)))))
     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
     (header-line ((t (:background "grey20" :foreground "grey90" :box nil :height 0.9))))
     (help-argument-name ((t (:italic t :slant italic))))
     (help-highlight-face ((t (:underline t))))
     (highlight ((t (:background "darkseagreen2" :foreground "blue"))))
     (highlight-beyond-fill-column-face ((t (:underline t))))
     (highlight-changes-delete-face ((t (:foreground "red" :underline t))))
     (highlight-changes-face ((t (:foreground "red"))))
     (highline ((t (:background "darkolivegreen"))))
     (highline-face ((t (:background "darkolivegreen"))))
     (holiday ((t (:background "chocolate4"))))
     (holiday-face ((t (:background "chocolate4"))))
     (html-helper-bold-face ((t (:bold t :weight bold))))
     (html-helper-italic-face ((t (:bold t :foreground "yellow" :weight bold))))
     (html-helper-underline-face ((t (:underline t))))
     (hyper-apropos-documentation ((t (:foreground "white"))))
     (hyper-apropos-heading ((t (:bold t :weight bold))))
     (hyper-apropos-hyperlink ((t (:foreground "sky blue"))))
     (hyper-apropos-major-heading ((t (:bold t :weight bold))))
     (hyper-apropos-section-heading ((t (:bold t :weight bold))))
     (hyper-apropos-warning ((t (:bold t :foreground "red" :weight bold))))
     (ibuffer-deletion-face ((t (:foreground "red"))))
     (ibuffer-dired-buffer-face ((t (:bold t :foreground "mediumspringgreen" :weight bold :height 1.1))))
     (ibuffer-help-buffer-face ((t (:italic t :foreground "chocolate1" :slant oblique))))
     (ibuffer-hidden-buffer-face ((t (:bold t :foreground "Pink" :weight bold))))
     (ibuffer-marked-face ((t (:foreground "green"))))
     (ibuffer-occur-match-face ((t (:bold t :foreground "Pink" :weight bold))))
     (ibuffer-read-only-buffer-face ((t (:foreground "SteelBlue1"))))
     (ibuffer-special-buffer-face ((t (:foreground "SteelBlue1"))))
     (ibuffer-title-face ((t (:foreground "SteelBlue1"))))
     (ido-first-match ((t (:bold t :weight bold))))
     (ido-incomplete-regexp ((t (:bold t :foreground "Pink" :weight bold))))
     (ido-indicator ((t (:background "red1" :foreground "yellow1" :width condensed))))
     (ido-only-match ((t (:foreground "ForestGreen"))))
     (ido-subdir ((t (:foreground "red1"))))
     (info-header-node ((t (:italic t :bold t :weight bold :slant italic :foreground "yellow"))))
     (info-header-xref ((t (:bold t :weight bold :foreground "DodgerBlue1"))))
     (info-menu-header ((t (:bold t :weight bold :family "helv"))))
     (info-menu-star ((t (:foreground "red1" :underline t))))
     (info-node ((t (:italic t :bold t :foreground "yellow" :slant italic :weight bold))))
     (info-title-1 ((t (:bold t :weight bold :height 2.9859839999999997 :family "helv"))))
     (info-title-2 ((t (:bold t :weight bold :height 1.728 :family "helv"))))
     (info-title-3 ((t (:bold t :weight bold :height 1.2 :family "helv"))))
     (info-title-4 ((t (:bold t :weight bold :family "helv"))))
     (info-xref ((t (:bold t :foreground "DodgerBlue1" :weight bold))))
     (info-xref-visited ((t (:underline t :foreground "violet"))))
     (isearch ((t (:background "palevioletred2" :foreground "brown4"))))
     (isearch-fail ((t (:background "red4"))))
     (isearch-secondary ((t (:foreground "red3"))))
     (ispell-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (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 "light 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 "Aquamarine"))))
     (jde-java-font-lock-doc-tag-face ((t (:foreground "light coral"))))
     (jde-java-font-lock-italic-face ((t (:italic t :slant italic))))
     (jde-java-font-lock-link-face ((t (:foreground "cadetblue" :underline t))))
     (jde-java-font-lock-modifier-face ((t (:foreground "LightSteelBlue"))))
     (jde-java-font-lock-number-face ((t (:foreground "LightSalmon"))))
     (jde-java-font-lock-operator-face ((t (:foreground "medium blue"))))
     (jde-java-font-lock-package-face ((t (:foreground "steelblue1"))))
     (jde-java-font-lock-pre-face ((t (nil))))
     (jde-java-font-lock-underline-face ((t (:underline t))))
     (lazy-highlight ((t (:background "paleturquoise4"))))
     (linemenu-face ((t (:background "gray30"))))
     (link ((t (:foreground "cyan1" :underline t))))
     (link-visited ((t (:foreground "violet" :underline t))))
     (list-matching-lines-buffer-name-face ((t (:underline t))))
     (list-matching-lines-face ((t (:bold t :weight bold))))
     (list-mode-item-selected ((t (:background "gray68" :foreground "dark green"))))
     (magenta ((t (:foreground "magenta"))))
     (magenta-bold ((t (:bold t :foreground "magenta2" :weight bold))))
     (makefile-space-face ((t (:background "hotpink"))))
     (man-bold ((t (:bold t :weight bold))))
     (man-heading ((t (:bold t :weight bold))))
     (man-italic ((t (:foreground "yellow"))))
     (man-xref ((t (:underline t))))
     (match ((t (:background "RoyalBlue3"))))
     (menu ((t (nil))))
     (message-cited-text ((t (:foreground "red3"))))
     (message-cited-text-face ((t (:foreground "red"))))
     (message-header-cc ((t (:bold t :foreground "chartreuse1" :weight bold))))
     (message-header-cc-face ((t (:bold t :foreground "chartreuse1" :weight bold))))
     (message-header-name ((t (:foreground "green"))))
     (message-header-name-face ((t (:foreground "green"))))
     (message-header-newsgroups ((t (:italic t :bold t :foreground "papaya whip" :slant italic :weight bold))))
     (message-header-newsgroups-face ((t (:italic t :bold t :foreground "papaya whip" :slant italic :weight bold))))
     (message-header-other ((t (:foreground "ivory"))))
     (message-header-other-face ((t (:foreground "ivory"))))
     (message-header-subject ((t (:foreground "OliveDrab1"))))
     (message-header-subject-face ((t (:foreground "OliveDrab1"))))
     (message-header-to ((t (:bold t :foreground "floral white" :weight bold))))
     (message-header-to-face ((t (:bold t :foreground "floral white" :weight bold))))
     (message-header-xheader ((t (:foreground "DeepSkyBlue1"))))
     (message-header-xheader-face ((t (:foreground "DeepSkyBlue1"))))
     (message-mml ((t (:foreground "MediumSpringGreen"))))
     (message-mml-face ((t (:foreground "MediumSpringGreen"))))
     (message-separator ((t (:foreground "LightSkyBlue1"))))
     (message-separator-face ((t (:foreground "LightSkyBlue1"))))
     (message-url ((t (:bold t :foreground "blue" :weight bold))))
     (midnightblue-bold ((t (:bold t :foreground "midnightblue" :weight bold))))
     (midnightblue-italic ((t (:italic t :foreground "midnightblue" :slant italic))))
     (minibuffer-prompt ((t (:foreground "cyan"))))
     (mm-uu-extract ((t (:background "dark green" :foreground "light yellow"))))
     (mmm-face ((t (:background "black" :foreground "green"))))
     (mode-line ((t (:background "grey75" :foreground "Blue" :box (:line-width -1 :style released-button) :height 0.9))))
     (mode-line-buffer-id ((t (:bold t :background "grey65" :foreground "red" :weight bold :height 0.9))))
     (mode-line-emphasis ((t (:bold t :weight bold))))
     (mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button :height 0.9)))))
     (mode-line-inactive ((t (:background "grey30" :foreground "grey80" :box (:line-width -1 :color "grey40" :style nil) :weight light :height 0.9))))
     (modeline-mousable ((t (:background "white" :foreground "magenta"))))
     (modeline-mousable-minor-mode ((t (:background "Gray80" :foreground "green4"))))
     (mouse ((t (:background "OrangeRed"))))
     (my-gnus-direct-fup-face ((t (:bold t :background "NavyBlue" :foreground "#70fc70" :weight bold))))
     (my-gnus-indirect-fup-face ((t (:bold t :background "#092109" :foreground "#7fff7f" :weight bold))))
     (my-gnus-own-posting-face ((t (:bold t :background "#210909" :foreground "chartreuse3" :weight bold))))
     (my-group-face-2 ((t (:bold t :foreground "DarkSeaGreen1" :weight bold))))
     (my-group-face-3 ((t (:bold t :foreground "Green1" :weight bold))))
     (my-group-face-4 ((t (:bold t :foreground "LightSteelBlue" :weight bold))))
     (my-group-face-5 ((t (:bold t :foreground "beige" :weight bold))))
     (my-group-mail-unread-crit-1 ((t (:bold t :foreground "#99FFAA" :weight bold))))
     (my-group-mail-unread-crit-2 ((t (:foreground "#99FF9C" :weight normal))))
     (my-group-mail-unread-crit-3 ((t (:foreground "#A3FF99" :weight normal))))
     (my-group-mail-unread-high-1 ((t (:bold t :foreground "#B1FF99" :weight bold))))
     (my-group-mail-unread-high-2 ((t (:foreground "#BEFF99" :weight normal))))
     (my-group-mail-unread-high-3 ((t (:foreground "#CCFF99" :weight normal))))
     (my-group-mail-unread-mod-1 ((t (:bold t :foreground "#DAFF99" :weight bold))))
     (my-group-mail-unread-mod-2 ((t (:foreground "#E7FF99" :weight normal))))
     (my-group-mail-unread-mod-3 ((t (:foreground "#F5FF99" :weight normal))))
     (my-group-news-unread-crit-3 ((t (:bold t :foreground "#BFB3FF" :weight bold))))
     (my-group-news-unread-crit-4 ((t (:bold t :foreground "#BAB3FF" :weight bold))))
     (my-group-news-unread-crit-5 ((t (:foreground "#B5B3FF" :weight normal))))
     (my-group-news-unread-crit-6 ((t (:foreground "#B3B5FF" :weight normal))))
     (my-group-news-unread-high-3 ((t (:bold t :foreground "#B3BAFF" :weight bold))))
     (my-group-news-unread-high-4 ((t (:bold t :foreground "#B3BFFF" :weight bold))))
     (my-group-news-unread-high-5 ((t (:foreground "#B3C4FF" :weight normal))))
     (my-group-news-unread-high-6 ((t (:foreground "#B3C9FF" :weight normal))))
     (my-group-news-unread-mod-3 ((t (:bold t :foreground "#B3CFFF" :weight bold))))
     (my-group-news-unread-mod-4 ((t (:bold t :foreground "#B3D4FF" :weight bold))))
     (my-group-news-unread-mod-5 ((t (:foreground "#B3D9FF" :weight normal))))
     (my-group-news-unread-mod-6 ((t (:foreground "#B3DEFF" :weight normal))))
     (next-error ((t (:background "blue3"))))
     (nobreak-space ((t (:foreground "cyan" :underline t))))
     (orchid-bold ((t (:bold t :foreground "MediumOrchid1" :weight bold))))
     (org-agenda-calendar-event ((t (:family "Inconsolata" :foundry "unknown" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "WhiteSmoke" :background "black" :stipple nil :height 143))))
     (org-agenda-calendar-sexp ((t (:family "Inconsolata" :foundry "unknown" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "WhiteSmoke" :background "black" :stipple nil :height 143))))
     (org-agenda-clocking ((t (:background "SkyBlue4"))))
     (org-agenda-column-dateline ((t (:family "Inconsolata" :foundry "unknown" :weight normal :slant normal :underline nil :strike-through nil :background "grey30" :height 143))))
     (org-agenda-current-time ((t (:foreground "LightGoldenrod"))))
     (org-agenda-date ((t (:foreground "LightSkyBlue"))))
     (org-agenda-date-today ((t (:italic t :bold t :foreground "LightSkyBlue" :slant italic :weight bold))))
     (org-agenda-date-weekend ((t (:bold t :foreground "LightSkyBlue" :weight bold))))
     (org-agenda-diary ((t (:family "Inconsolata" :foundry "unknown" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "WhiteSmoke" :background "black" :stipple nil :height 143))))
     (org-agenda-dimmed-todo-face ((t (:foreground "grey50"))))
     (org-agenda-done ((t (:foreground "PaleGreen"))))
     (org-agenda-filter-category ((t (:box (:line-width -1 :style released-button) :foreground "Blue" :background "grey75" :height 0.9))))
     (org-agenda-filter-tags ((t (:box (:line-width -1 :style released-button) :foreground "Blue" :background "grey75" :height 0.9))))
     (org-agenda-restriction-lock ((t (:background "skyblue4"))))
     (org-agenda-structure ((t (:foreground "LightSkyBlue"))))
     (org-archived ((t (:foreground "grey70"))))
     (org-block ((t (:foreground "grey70"))))
     (org-block-background ((t (nil))))
     (org-block-begin-line ((t (:italic t :foreground "chocolate1" :slant oblique))))
     (org-block-end-line ((t (:italic t :foreground "chocolate1" :slant oblique))))
     (org-checkbox ((t (:bold t :weight bold))))
     (org-checkbox-statistics-done ((t (:bold t :weight bold :foreground "PaleGreen"))))
     (org-checkbox-statistics-todo ((t (:bold t :weight bold :foreground "Pink"))))
     (org-clock-overlay ((t (:background "SkyBlue4"))))
     (org-code ((t (:foreground "grey70"))))
     (org-column ((t (:background "grey30" :strike-through nil :underline nil :slant normal :weight normal :height 143 :foundry "unknown" :family "Inconsolata"))))
     (org-column-title ((t (:bold t :background "grey30" :underline t :weight bold))))
     (org-date ((t (:foreground "Cyan" :underline t))))
     (org-default ((t (:family "Inconsolata" :foundry "unknown" :width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground "WhiteSmoke" :background "black" :stipple nil :height 143))))
     (org-document-info ((t (:foreground "pale turquoise"))))
     (org-document-info-keyword ((t (:foreground "grey70"))))
     (org-document-title ((t (:bold t :foreground "pale turquoise" :weight bold :height 1.44))))
     (org-done ((t (:bold t :foreground "PaleGreen" :weight bold))))
     (org-drawer ((t (:foreground "LightSkyBlue"))))
     (org-ellipsis ((t (:foreground "LightGoldenrod" :underline t))))
     (org-footnote ((t (:foreground "Cyan" :underline t))))
     (org-formula ((t (:foreground "chocolate1"))))
     (org-habit-alert-face ((t (:background "gold"))))
     (org-habit-alert-future-face ((t (:background "darkgoldenrod"))))
     (org-habit-clear-face ((t (:background "blue"))))
     (org-habit-clear-future-face ((t (:background "midnightblue"))))
     (org-habit-overdue-face ((t (:background "firebrick"))))
     (org-habit-overdue-future-face ((t (:background "darkred"))))
     (org-habit-ready-face ((t (:background "forestgreen"))))
     (org-habit-ready-future-face ((t (:background "darkgreen"))))
     (org-headline-done ((t (:foreground "LightSalmon"))))
     (org-hide ((t (:foreground "black"))))
     (org-indent ((t (nil))))
     (org-latex-and-export-specials ((t (:foreground "burlywood"))))
     (org-level-1 ((t (:foreground "LightSkyBlue"))))
     (org-level-2 ((t (:foreground "LightGoldenrod"))))
     (org-level-3 ((t (:foreground "Cyan1"))))
     (org-level-4 ((t (:foreground "chocolate1"))))
     (org-level-5 ((t (:foreground "PaleGreen"))))
     (org-level-6 ((t (:foreground "Aquamarine"))))
     (org-level-7 ((t (:foreground "LightSteelBlue"))))
     (org-level-8 ((t (:foreground "LightSalmon"))))
     (org-link ((t (:foreground "Cyan" :underline t))))
     (org-meta-line ((t (:italic t :slant oblique :foreground "chocolate1"))))
     (org-mode-line-clock ((t (:box (:line-width -1 :style released-button) :foreground "Blue" :background "grey75" :height 0.9))))
     (org-mode-line-clock-overrun ((t (:box (:line-width -1 :style released-button) :foreground "Blue" :background "red" :height 0.9))))
     (org-property-value ((t (nil))))
     (org-quote ((t (:foreground "grey70"))))
     (org-scheduled ((t (:foreground "PaleGreen"))))
     (org-scheduled-previously ((t (:foreground "chocolate1"))))
     (org-scheduled-today ((t (:foreground "PaleGreen"))))
     (org-sexp-date ((t (:foreground "Cyan"))))
     (org-special-keyword ((t (:foreground "LightSalmon"))))
     (org-table ((t (:foreground "LightSkyBlue"))))
     (org-tag ((t (:bold t :weight bold))))
     (org-target ((t (:underline t))))
     (org-time-grid ((t (:foreground "LightGoldenrod"))))
     (org-todo ((t (:bold t :foreground "Pink" :weight bold))))
     (org-upcoming-deadline ((t (:foreground "chocolate1"))))
     (org-verbatim ((t (:foreground "grey70" :underline t))))
     (org-verse ((t (:foreground "grey70"))))
     (org-warning ((t (:bold t :foreground "Pink" :weight bold))))
     (outline-1 ((t (:foreground "LightSkyBlue"))))
     (outline-2 ((t (:foreground "LightGoldenrod"))))
     (outline-3 ((t (:foreground "Cyan1"))))
     (outline-4 ((t (:foreground "chocolate1"))))
     (outline-5 ((t (:foreground "PaleGreen"))))
     (outline-6 ((t (:foreground "Aquamarine"))))
     (outline-7 ((t (:foreground "LightSteelBlue"))))
     (outline-8 ((t (:foreground "LightSalmon"))))
     (p4-depot-added-face ((t (:foreground "blue"))))
     (p4-depot-deleted-face ((t (:foreground "red"))))
     (p4-depot-unmapped-face ((t (:foreground "grey30"))))
     (p4-diff-change-face ((t (:foreground "dark green"))))
     (p4-diff-del-face ((t (:foreground "red"))))
     (p4-diff-file-face ((t (:background "gray90"))))
     (p4-diff-head-face ((t (:background "gray95"))))
     (p4-diff-ins-face ((t (:foreground "blue"))))
     (pabbrev-debug-display-label-face ((t (:underline "navy"))))
     (pabbrev-suggestions-face ((t (:foreground "PaleGreen"))))
     (pabbrev-suggestions-label-face ((t (nil))))
     (paren-blink-off ((t (:foreground "black"))))
     (paren-mismatch-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
     (paren-no-match-face ((t (:bold t :background "white" :foreground "red" :weight bold))))
     (plum ((t (:bold t :foreground "plum" :weight bold))))
     (popup-face ((t (:background "lightgray" :foreground "black"))))
     (popup-isearch-match ((t (:background "sky blue"))))
     (popup-menu-face ((t (:background "lightgray" :foreground "black"))))
     (popup-menu-selection-face ((t (:background "steelblue" :foreground "white"))))
     (popup-scroll-bar-background-face ((t (:background "gray"))))
     (popup-scroll-bar-foreground-face ((t (:background "black"))))
     (popup-tip-face ((t (:background "khaki1" :foreground "black"))))
     (pp^L-highlight ((t (:box (:line-width 3 :style pressed-button)))))
     (primary-selection ((t (:background "blue"))))
     (qt-classes-face ((t (:foreground "Red"))))
     (query-replace ((t (:background "palevioletred2" :foreground "brown4"))))
     (red ((t (:foreground "red"))))
     (region ((t (:background "blue3"))))
     (scroll-bar ((t (:background "grey75" :foreground "WhiteSmoke"))))
     (secondary-selection ((t (:background "SkyBlue4"))))
     (semantic-dirty-token-face ((t (:background "lightyellow"))))
     (semantic-highlight-edits-face ((t (:background "gray20"))))
     (semantic-unmatched-syntax-face ((t (:underline "red"))))
     (senator-intangible-face ((t (:foreground "gray75"))))
     (senator-momentary-highlight-face ((t (:background "gray30"))))
     (senator-read-only-face ((t (:background "#664444"))))
     (setnu-line-number-face ((t (:bold t :weight bold))))
     (sgml-doctype-face ((t (:foreground "orange"))))
     (sgml-end-tag-face ((t (:foreground "greenyellow"))))
     (sgml-entity-face ((t (:foreground "gold"))))
     (sgml-ignored-face ((t (:background "gray60" :foreground "gray20"))))
     (sgml-sgml-face ((t (:foreground "yellow"))))
     (sgml-start-tag-face ((t (:foreground "mediumspringgreen"))))
     (shadow ((t (:foreground "grey70"))))
     (shell-option-face ((t (:foreground "blue4"))))
     (shell-output-2-face ((t (:foreground "green4"))))
     (shell-output-3-face ((t (:foreground "green4"))))
     (shell-output-face ((t (:bold t :weight bold))))
     (shell-prompt-face ((t (:foreground "red4"))))
     (show-block-face1 ((t (:background "gray10"))))
     (show-block-face2 ((t (:background "gray15"))))
     (show-block-face3 ((t (:background "gray20"))))
     (show-block-face4 ((t (:background "gray25"))))
     (show-block-face5 ((t (:background "gray30"))))
     (show-block-face6 ((t (:background "gray35"))))
     (show-block-face7 ((t (:background "gray40"))))
     (show-block-face8 ((t (:background "gray45"))))
     (show-block-face9 ((t (:background "gray50"))))
     (show-paren-match ((t (:background "steelblue3"))))
     (show-paren-match-face ((t (:background "steelblue3"))))
     (show-paren-mismatch ((t (:background "purple" :foreground "white"))))
     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
     (speedbar-button-face ((t (:foreground "green3"))))
     (speedbar-directory-face ((t (:foreground "light blue"))))
     (speedbar-file-face ((t (:foreground "cyan"))))
     (speedbar-highlight-face ((t (:background "sea green"))))
     (speedbar-selected-face ((t (:foreground "red" :underline t))))
     (speedbar-separator-face ((t (:background "blue" :foreground "white" :overline "gray"))))
     (speedbar-tag-face ((t (:foreground "yellow"))))
     (swbuff-current-buffer-face ((t (:bold t :foreground "red" :weight bold))))
     (table-cell ((t (:background "blue1" :foreground "gray90" :inverse-video nil))))
     (template-message-face ((t (:bold t :weight bold))))
     (term-black ((t (:foreground "black"))))
     (term-blackbg ((t (nil))))
     (term-blue ((t (:foreground "blue"))))
     (term-blue-bold-face ((t (:bold t :foreground "blue" :weight bold))))
     (term-blue-face ((t (:foreground "blue"))))
     (term-blue-inv-face ((t (:background "blue"))))
     (term-blue-ul-face ((t (:foreground "blue" :underline t))))
     (term-bluebg ((t (:background "blue"))))
     (term-bold ((t (:bold t :weight bold))))
     (term-cyan ((t (:foreground "cyan"))))
     (term-cyan-bold-face ((t (:bold t :foreground "cyan" :weight bold))))
     (term-cyan-face ((t (:foreground "cyan"))))
     (term-cyan-inv-face ((t (:background "cyan"))))
     (term-cyan-ul-face ((t (:foreground "cyan" :underline t))))
     (term-cyanbg ((t (:background "cyan"))))
     (term-default-bg ((t (nil))))
     (term-default-bg-inv ((t (nil))))
     (term-default-bold-face ((t (:bold t :weight bold))))
     (term-default-face ((t (nil))))
     (term-default-fg ((t (nil))))
     (term-default-fg-inv ((t (nil))))
     (term-default-inv-face ((t (:background "peachpuff" :foreground "black"))))
     (term-default-ul-face ((t (:underline t))))
     (term-green ((t (:foreground "green"))))
     (term-green-bold-face ((t (:bold t :foreground "green" :weight bold))))
     (term-green-face ((t (:foreground "green"))))
     (term-green-inv-face ((t (:background "green"))))
     (term-green-ul-face ((t (:foreground "green" :underline t))))
     (term-greenbg ((t (:background "green"))))
     (term-invisible ((t (nil))))
     (term-invisible-inv ((t (nil))))
     (term-magenta ((t (:foreground "magenta"))))
     (term-magenta-bold-face ((t (:bold t :foreground "magenta" :weight bold))))
     (term-magenta-face ((t (:foreground "magenta"))))
     (term-magenta-inv-face ((t (:background "magenta"))))
     (term-magenta-ul-face ((t (:foreground "magenta" :underline t))))
     (term-magentabg ((t (:background "magenta"))))
     (term-red ((t (:foreground "red"))))
     (term-red-bold-face ((t (:bold t :foreground "red" :weight bold))))
     (term-red-face ((t (:foreground "red"))))
     (term-red-inv-face ((t (:background "red"))))
     (term-red-ul-face ((t (:foreground "red" :underline t))))
     (term-redbg ((t (:background "red"))))
     (term-underline ((t (:underline t))))
     (term-white ((t (:foreground "white"))))
     (term-white-bold-face ((t (:bold t :foreground "white" :weight bold))))
     (term-white-face ((t (:foreground "white"))))
     (term-white-inv-face ((t (nil))))
     (term-white-ul-face ((t (:foreground "white" :underline t))))
     (term-whitebg ((t (:background "white"))))
     (term-yellow ((t (:foreground "yellow"))))
     (term-yellow-bold-face ((t (:bold t :foreground "yellow" :weight bold))))
     (term-yellow-face ((t (:foreground "yellow"))))
     (term-yellow-inv-face ((t (:background "yellow"))))
     (term-yellow-ul-face ((t (:foreground "yellow" :underline t))))
     (term-yellowbg ((t (:background "yellow"))))
     (text-cursor ((t (:background "Red3" :foreground "black"))))
     (tinyreplace-:face ((t (:background "darkseagreen2" :foreground "blue"))))
     (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
     (tooltip ((t (:background "lightyellow" :foreground "black" :family "helv"))))
     (trailing-whitespace ((t (:background "red1"))))
     (underline ((t (:underline t))))
     (variable-pitch ((t (:family "helv"))))
     (vc-annotate-face-0046FF ((t (:background "black" :foreground "wheat"))))
     (vc-mode-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (vcursor ((t (:background "cyan" :foreground "blue" :underline t))))
     (vertical-border ((t (:background "dim gray"))))
     (vhdl-font-lock-attribute-face ((t (:foreground "Orchid"))))
     (vhdl-font-lock-directive-face ((t (:foreground "CadetBlue"))))
     (vhdl-font-lock-enumvalue-face ((t (:foreground "Gold4"))))
     (vhdl-font-lock-function-face ((t (:foreground "Orchid4"))))
     (vhdl-font-lock-prompt-face ((t (:bold t :foreground "Red" :weight bold))))
     (vhdl-font-lock-reserved-words-face ((t (:bold t :foreground "Orange" :weight bold))))
     (vhdl-font-lock-translate-off-face ((t (:background "LightGray"))))
     (vhdl-speedbar-architecture-face ((t (:foreground "Blue"))))
     (vhdl-speedbar-architecture-selected-face ((t (:foreground "Blue" :underline t))))
     (vhdl-speedbar-configuration-face ((t (:foreground "DarkGoldenrod"))))
     (vhdl-speedbar-configuration-selected-face ((t (:foreground "DarkGoldenrod" :underline t))))
     (vhdl-speedbar-entity-face ((t (:foreground "ForestGreen"))))
     (vhdl-speedbar-entity-selected-face ((t (:foreground "ForestGreen" :underline t))))
     (vhdl-speedbar-instantiation-face ((t (:foreground "Brown"))))
     (vhdl-speedbar-instantiation-selected-face ((t (:foreground "Brown" :underline t))))
     (vhdl-speedbar-package-face ((t (:foreground "Grey50"))))
     (vhdl-speedbar-package-selected-face ((t (:foreground "Grey50" :underline t))))
     (view-highlight-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (violet-bold ((t (:bold t :foreground "violet" :weight bold))))
     (violet-italic ((t (:italic t :foreground "violet" :slant italic))))
     (viper-minibuffer-emacs-face ((t (:background "darkseagreen2" :foreground "Black"))))
     (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
     (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
     (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
     (viper-search-face ((t (:background "khaki" :foreground "Black"))))
     (vm-highlight-url-face ((t (:italic t :bold t :slant italic :weight bold))))
     (vm-highlighted-header-face ((t (:bold t :weight bold))))
     (vm-mime-button-face ((t (:background "grey75" :foreground "black" :box (:line-width 2 :style released-button)))))
     (vm-summary-highlight-face ((t (:bold t :weight bold))))
     (vm-xface ((t (:background "white" :foreground "black"))))
     (vmpc-pre-sig-face ((t (:foreground "forestgreen"))))
     (vmpc-sig-face ((t (:foreground "steelblue"))))
     (which-func ((t (:foreground "Blue1"))))
     (widget ((t (:background "Gray80" :foreground "black"))))
     (widget-button ((t (:bold t :box (:line-width 2 :style released-button) :weight bold))))
     (widget-button-pressed ((t (:background "lightgrey" :foreground "red1" :box (:line-width 2 :style pressed-button)))))
     (widget-documentation ((t (:foreground "lime green"))))
     (widget-field ((t (:background "dim gray"))))
     (widget-inactive ((t (:foreground "grey70"))))
     (widget-mouse-face ((t (:background "darkseagreen2" :foreground "blue"))))
     (widget-single-line-field ((t (:background "dim gray"))))
     (woman-bold-face ((t (:bold t :weight bold))))
     (woman-italic-face ((t (:foreground "beige"))))
     (woman-unknown-face ((t (:foreground "LightSalmon"))))
     (x-face ((t (:background "white" :foreground "black"))))
     (x-symbol-heading-face ((t (:bold t :weight bold))))
     (xrdb-option-name-face ((t (:foreground "red"))))
     (xrdb-option-value-face ((t (:bold t :foreground "magenta" :weight bold))))
     (xref-keyword-face ((t (:background "blue"))))
     (xref-list-default-face ((t (nil))))
     (xref-list-pilot-face ((t (:background "navy"))))
     (xref-list-symbol-face ((t (:background "navy"))))
     (yellow ((t (:foreground "yellow"))))
     (zmacs-region ((t (:background "cyan" :foreground "black")))))))
(add-to-list 'color-themes '(my-color-theme  "NMG" "Nick Guthrie"))
subroutines.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- Key Bindings (Hotkeys)
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(global-set-key "\C-m"`newline-and-indent)
(global-set-key "\M-;" `match-paren)
					;(global-set-key "\C-xm" `nmg-format-all)
					;(global-set-key "\C-xj" `nmg-c-comment-the-line)
;;(global-set-key [f1] `nmg-page-title)
(global-set-key [f12] `compile)
;;(global-set-key [(meta return)] `toggle-fullscreen) keybinding conflict
(global-set-key [f9] 'tempo-complete-tag)
(global-set-key [f11] 'toggle-fullscreen) ;;useful in org-mode
;;(global-set-key (kbd "C-c b") `ecb-minor-mode)
;;(global-set-key (kbd "M-j") 'pull-next-line) ;;why do I have this keybinding?
;;(global-set-key "\M-\C-g" 'org-plot/gnuplot)
(global-set-key "\C-xp" 'org-toggle-pretty-entities)
(global-set-key "\C-xcc" 'capitalize-region) ;; C-x convert capitilize
(global-set-key "\C-xcu" 'upcase-region) ;;C-x convert upcase
(global-set-key "\C-xcl" 'downcase-region) ;;C-x convert downcase
(global-set-key "\C-xcp" 'convert-sentences-to-org-bullets-in-region) ;;C-x convert paragraph

(global-set-key "\C-xct" 'org-babel-tangle)
(global-set-key "\C-xcr" 'org-refile)
(global-set-key "\C-xal" 'org-attachment-link)
(global-set-key "\C-xae" 'org-attachment-epages)
;;(global-set-key "\C-xcf" 'fill-paragraph)
(global-set-key "\C-xrb" 'rename-buffer)
(global-set-key "\C-xrr" 'replace_returns_with_spaces_in_region)
(global-set-key "\C-xrs" 'replace_spaces_with_underscore_in_region)
(global-set-key "\C-xru" 'replace_underscore_with_spaces_in_region)
(global-set-key "\C-xcf" 'format-all-code) ;;C-x code format



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;------------------------------------------------------------------------------
;;  ____        _                     _   _
;; / ___| _   _| |__  _ __ ___  _   _| |_(_)_ __   ___  ___
;; \___ \| | | | '_ \| '__/ _ \| | | | __| | '_ \ / _ \/ __|
;;  ___) | |_| | |_) | | | (_) | |_| | |_| | | | |  __/\__ \
;; |____/ \__,_|_.__/|_|  \___/ \__,_|\__|_|_| |_|\___||___/
;;------------------------------------------------------------------------------
;; File: nmg-subroutines.el
;; - created using org-bable-tangle (manual edits will be over-written)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;----------------------------------------------------------------------------
;;                _____                 _   _
;;               |  ___|   _ _ __   ___| |_(_) ___  _ __  ___
;;               | |_ | | | | '_ \ / __| __| |/ _ \| '_ \/ __|
;;               |  _|| |_| | | | | (__| |_| | (_) | | | \__ \
;;               |_|   \__,_|_| |_|\___|\__|_|\___/|_| |_|___/
;;
;;----------------------------------------------------------------------------
;; -------------------------------------
;; -- Full Screen
;; Make new frames fullscreen by default.
;; -------------------------------------
(defun toggle-fullscreen (&optional f)
  (interactive)
  (let ((current-value (frame-parameter nil 'fullscreen)))
    (set-frame-parameter nil 'fullscreen
                         (if (equal 'fullboth current-value)
                             (if (boundp 'old-fullscreen) old-fullscreen nil)
                           (progn (setq old-fullscreen current-value)
                                  'fullboth)
                           ))))

;; -------------------------------------
;; -- Byte Compile .emacs
;; Byte compiles .emacs on save.
;; -------------------------------------
(defun byte-compile-user-init-file ()
  (let ((byte-compile-warnings '(unresolved)))
    ;; Useful if compilation fails.
    (when (file-exists-p (concat user-init-file ".elc"))
      (delete-file (concat user-init-file ".elc")))
    (byte-compile-file user-init-file)
    (message "%s compiled" user-init-file)))
;; ----------------------------------
;; -- Match Paren
;; Hop between matching parens.
;; ----------------------------------
(defun match-paren (arg)
  "Go to the matching paren if on a paren; otherwise insert %."
  (interactive "p")
  (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
        ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
        (t (error "%s" "Not on a paren"))))

;; -----------------------------------------------------------------------------
;;                      __  __
;;                     |  \/  | __ _  ___ _ __ ___  ___
;;                     | |\/| |/ _` |/ __| '__/ _ \/ __|
;;                     | |  | | (_| | (__| | | (_) \__ \
;;                     |_|  |_|\__,_|\___|_|  \___/|___/
;;
;; -----------------------------------------------------------------------------
;; -------------------------------------
;; -- Org Attachment-Link
;; -------------------------------------
(fset 'org-attachment-link
   (lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([134217837 97 116 116 97 99 104 58 6 6 47 1 67108896 5 134217765 37 50 48 return 32 return 33 1 91 4 67108896 5 91 5 91 65 116 116 97 99 104 109 101 110 116 5 93] 0 "%d")) arg)))

;; -------------------------------------
;; -- Format All Code
;; -------------------------------------
(fset 'format-all-code
   [?\M-x ?p ?o ?i ?n ?t ?- ?t ?o ?- ?r ?e ?g ?i ?s tab return return ?\M-< ?\C-  ?\M-> ?\C-\M-\\ ?\M-x ?j ?u ?m ?p ?- ?t ?o ?- ?r ?e ?g ?i ?s tab return return])

;; -------------------------------------
;; -- Org Attachment PDF Pages
;; -------------------------------------
(fset 'org-attachment-epages
   [?\C-c ?\C-a ?F ?\M-< ?\M-m ?\C-  ?\C-e ?\C-b ?\M-w ?\C-x ?k return ?\C-u ?\M-x ?e ?s ?h ?e ?l ?l return ?c ?d ?  ?\C-y return ?c ?p ?  ?* ?. ?p ?d ?f ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?s ?h ?  ?~ ?/ ?s ?h ?/ ?p ?d ?f ?_ ?t ?o ?_ ?p ?n ?g ?- ?p ?g ?s ?. ?s ?h ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?r ?m ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?e ?x ?i ?t return ?e ?x ?i ?t return&#93;)
;; -------------------------------------
;; -- Org Attachment PDF Complete
;; Initiate on a Headline with 1 PDF attachment
;; Results in creating preview.jpg, thumb.jpg, and {pg/###.jpg for all pages}
;; -------------------------------------
(fset 'org-attachment-pdf-complete
   &#91;?\C-u ?\C-c ?\C-a ?F ?\M-< ?\M-m ?\C-  ?\C-e ?\C-b ?\M-w ?\C-x ?k return ?\C-u ?\M-x ?e ?s ?h ?e ?l ?l return ?c ?d ?  ?\C-y return ?c ?p ?  ?* ?. ?p ?d ?f ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?s ?h ?  ?~ ?/ ?s ?h ?/ ?p ?d ?f ?_ ?t ?o ?_ ?p ?n ?g ?- ?p ?g ?s ?. ?s ?h ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?r ?m ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?e ?x ?i ?t&#93;)

;; -------------------------------------
;; -- Org Attachment - eShell
;; -------------------------------------
(fset 'org-attachment-eshell
   &#91;?\C-c ?\C-a ?F ?\M-< ?\M-m ?\C-  ?\C-e ?\C-b ?\M-w ?\C-x ?k return ?\M-x ?e ?s ?h ?e ?l ?l return ?c ?d ?  ?\C-y ?\; ?  ?l ?s return&#93;)

;; -------------------------------------
;; -- Gen PDF
;; -------------------------------------
(fset 'gen-pdf
   &#91;?c ?p ?  ?* ?. ?p ?d ?f ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?s ?h ?~ backspace ?  ?~ ?/ ?s ?h ?/ ?p ?d ?f ?_ ?t ?o ?_ ?p ?n ?g ?- ?p ?g ?s ?  ?f ?o ?o ?. ?p ?d ?f ?\; ?  ?r ?m ?  ?f ?o ?o ?. ?p ?d ?f return&#93;)


;;Formatting
;; -------------------------------------
;; -- Replace Returns with Spaces in Region
;; Replaces Paragraph Returns with Spaces
;;   (using search & replace)
;; -------------------------------------
(fset 'replace_returns_with_spaces_in_region
   &#91;?\M-% ?Q ?J backspace backspace ?\M-q ?\M-j return ?  ?  backspace return ?!&#93;)
;; -------------------------------------
;; -- Remove Returns in Region
;; Replaces Paragraph Returns with Spaces
;;   (using search & replace)
;; -------------------------------------
(fset 'replace_spaces_with_underscore_in_region
   &#91;?\M-% ?  return ?_ return ?!&#93;)
;; -------------------------------------
;; -- Replace Underscore With Spaces In Region
;; Replaces Underscorews with Spaces
;;   (using search & replace)
;; -------------------------------------
(fset 'replace_underscore_with_spaces_in_region
   &#91;?\M-% ?_ return ?  return ?!&#93;)

;; -------------------------------------
;; -- Replaces Periods with ". \n" in Region
;;   (using search & replace)
;; -------------------------------------
(fset 'convert-sentences-to-org-bullets-in-region
   &#91;?\M-% ?. ?  return ?. ?  ?\C-q ?\C-j ?+ ?  return ?!&#93;)
&#91;/bash&#93;</pre>

<strong>tempo.el</strong>
[bash]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ---------------------------------------------------------------- :Tempo Tags:
;;                 _____                      _____             
;;                |_   _|__ _ __  _ __  ___  |_   _|_ _ __ _ ___
;;                  | |/ -_) '  \| '_ \/ _ \   | |/ _` / _` (_-<
;;                  |_|\___|_|_|_| .__/\___/   |_|\__,_\__, /__/
;;                               |_|                   |___/    
;; -----------------------------------------------------------------------------
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Usage (Type key word, then hit F9)
;;
;; |----------+-------------------------------------|
;; | key word | Insert a:                           |
;; |----------+-------------------------------------|
;; | include  | #include <> statement               |
;; | ifdef    | #ifdef #else #endif statement       |
;; | ifndef   | #ifndef #define #endif statement    |
;; |----------+-------------------------------------|
;; | if       | C if statement                      |
;; | else     | C else statement                    |
;; | ifelse   | C if else statement                 |
;; | while    | C while statement                   |
;; | for      | C for statement                     |
;; | fori     | C for loop: for(x = 0; x < ..; x++) |
;; | main     | C main statement                    |
;; | ifmalloc | C if (malloc...) statement          |
;; | ifcalloc | C if (calloc...) statement          |
;; | switch   | C switch statement                  |
;; | case     | C case statement                    |
;; |----------+-------------------------------------|
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Source: http://xenon.stanford.edu/~manku/emacs.html
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; This is a way to hook tempo into cc-mode
(defvar c-tempo-tags nil
  "Tempo tags for C mode")
(defvar c++-tempo-tags nil
  "Tempo tags for C++ mode")
 
;;; C-Mode Templates and C++-Mode Templates (uses C-Mode Templates also)
(require 'tempo)
(setq tempo-interactive t)
 
(add-hook 'c-mode-hook '(lambda ()
                                (local-set-key &#91;f9&#93; 'tempo-complete-tag)))
(add-hook 'c-mode-hook '(lambda ()
              (tempo-use-tag-list 'c-tempo-tags)
              ))
(add-hook 'c++-mode-hook '(lambda ()
                (tempo-use-tag-list 'c-tempo-tags)
                (tempo-use-tag-list 'c++-tempo-tags)
                ))
 
;;; Preprocessor Templates (appended to c-tempo-tags)
 
(tempo-define-template "c-include"
               '("include <" r ".h>" > n
             )
               "include"
               "Insert a #include <> statement"
               'c-tempo-tags)
 
(tempo-define-template "c-ifdef"
               '("ifdef " (p "ifdef-clause: " clause) > n> p n
             "#else /* !(" (s clause) ") */" n> p n
             "#endif /* " (s clause)" */" n>
             )
               "ifdef"
               "Insert a #ifdef #else #endif statement"
               'c-tempo-tags)
 
(tempo-define-template "c-ifndef"
               '("ifndef " (p "ifndef-clause: " clause) > n
             "#define " (s clause) n> p n
             "#endif /* " (s clause)" */" n>
             )
               "ifndef"
               "Insert a #ifndef #define #endif statement"
               'c-tempo-tags)
;;; C-Mode Templates
(tempo-define-template "c-if"
               '(> "if (" (p "if-clause: " clause) ")" n>
                           "{" > n>
                           > r n
                           "}" > n>
                           )
               "if"
               "Insert a C if statement"
               'c-tempo-tags)
 
(tempo-define-template "c-else"
               '(> "else" n>
                           "{" > n>
                           > r n
                           "}" > n>
                           )
               "else"
               "Insert a C else statement"
               'c-tempo-tags)
 
(tempo-define-template "c-if-else"
               '(> "if (" (p "if-clause: " clause) ")"  n>
                           "{" > n
                           > r n
                           "}" > n
                           "else" > n
                           "{" > n>
                           > r n
                           "}" > n>
                           )
               "ifelse"
               "Insert a C if else statement"
               'c-tempo-tags)
 
(tempo-define-template "c-while"
               '(> "while (" (p "while-clause: " clause) ")" >  n>
                           "{" > n
                           > r n
                           "}" > n>
                           )
               "while"
               "Insert a C while statement"
               'c-tempo-tags)
 
(tempo-define-template "c-for"
               '(> "for (" (p "for-clause: " clause) ")" >  n>
                           "{" > n
                           > r n
                           "}" > n>
                           )
               "for"
               "Insert a C for statement"
               'c-tempo-tags)
 
(tempo-define-template "c-for-i"
               '(> "for (" (p "variable: " var) " = 0; " (s var)
                           " < "(p "upper bound: " ub)"; " (s var) "++)" >  n>
                           "{" > n
                           > r n
                           "}" > n>
                           )
               "fori"
               "Insert a C for loop: for(x = 0; x < ..; x++)"               'c-tempo-tags) 

(tempo-define-template "c-main"              '(> "int main(int argc, char *argv[])" >  n>
                           "{" > n>
                           > r n
                           > "return 0 ;" n>
                           > "}" > n>
                           )
               "main"
               "Insert a C main statement"
               'c-tempo-tags)
 
(tempo-define-template "c-if-malloc"
               '(> (p "variable: " var) " = ("
                           (p "type: " type) " *) malloc (sizeof(" (s type)
                           ") * " (p "nitems: " nitems) ") ;" n>
                           > "if (" (s var) " == NULL)" n>
                           > "error_exit (\"" (buffer-name) ": " r ": Failed to malloc() " (s var) " \") ;" n>
                           )
               "ifmalloc"
               "Insert a C if (malloc...) statement"
               'c-tempo-tags)
 
(tempo-define-template "c-if-calloc"
               '(> (p "variable: " var) " = ("
                           (p "type: " type) " *) calloc (sizeof(" (s type)
                           "), " (p "nitems: " nitems) ") ;" n>
                           > "if (" (s var) " == NULL)" n>
                           > "error_exit (\"" (buffer-name) ": " r ": Failed to calloc() " (s var) " \") ;" n>
                           )
               "ifcalloc"
               "Insert a C if (calloc...) statement"
               'c-tempo-tags)
 
(tempo-define-template "c-switch"
               '(> "switch (" (p "switch-condition: " clause) ")" n>
                           "{" >  n>
                           "case " (p "first value: ") ":" > n> p n
                           "break;" > n> p n
                           "default:" > n> p n
                           "break;" > n
                           "}" > n>
                           )
               "switch"
               "Insert a C switch statement"
               'c-tempo-tags)
 
(tempo-define-template "c-case"
               '(n "case " (p "value: ") ":" > n> p n
               "break;" > n> p
               )
               "case"
               "Insert a C case statement"
               'c-tempo-tags)
Export Beautiful PDFs in Emacs
A file storage server implemented in C

Categorized Under

Emacs

About Nick Guthrie

» has written 38 posts

History