Nicks Mind Portal
Insight into something.
My .emacs
Posted on by Nick Guthrie 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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;------------------------------------------------------------------------------
;; _ _ __ __ ____ _____ _
;; | \ | | \/ |/ ___| |_ _| |__ ___ _ __ ___ ___
;; | \| | |\/| | | _ | | | '_ \ / _ \ '_ ` _ \ / _ \
;; | |\ | | | | |_| | | | | | | | __/ | | | | | __/
;; |_| \_|_| |_|\____| |_| |_| |_|\___|_| |_| |_|\___|
;;------------------------------------------------------------------------------
;; 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"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; -----------------------------------------------------------------------------
;; -- 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])
;; -------------------------------------
;; -- 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
[?\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])
;; -------------------------------------
;; -- Org Attachment - eShell
;; -------------------------------------
(fset 'org-attachment-eshell
[?\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])
;; -------------------------------------
;; -- Gen PDF
;; -------------------------------------
(fset 'gen-pdf
[?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])
;;Formatting
;; -------------------------------------
;; -- Replace Returns with Spaces in Region
;; Replaces Paragraph Returns with Spaces
;; (using search & replace)
;; -------------------------------------
(fset 'replace_returns_with_spaces_in_region
[?\M-% ?Q ?J backspace backspace ?\M-q ?\M-j return ? ? backspace return ?!])
;; -------------------------------------
;; -- Remove Returns in Region
;; Replaces Paragraph Returns with Spaces
;; (using search & replace)
;; -------------------------------------
(fset 'replace_spaces_with_underscore_in_region
[?\M-% ? return ?_ return ?!])
;; -------------------------------------
;; -- Replace Underscore With Spaces In Region
;; Replaces Underscorews with Spaces
;; (using search & replace)
;; -------------------------------------
(fset 'replace_underscore_with_spaces_in_region
[?\M-% ?_ return ? return ?!])
;; -------------------------------------
;; -- Replaces Periods with ". \n" in Region
;; (using search & replace)
;; -------------------------------------
(fset 'convert-sentences-to-org-bullets-in-region
[?\M-% ?. ? return ?. ? ?\C-q ?\C-j ?+ ? return ?!])
[/bash]</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 [f9] '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)
