;;; color-theme-github.el --- Github color theme for GNU Emacs. ;; Copyright (C) 2011 Dudley Flanders ;; Author: Dudley Flanders ;; Keywords: github color theme ;; URL: http://github.com/dudleyf/color-theme-github ;; Version: 0.0.3 ;; Package-Requires: ((color-theme "6.6.1")) ;; This file is not a part of GNU Emacs. ;;; License: ;; This 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, or (at your option) any later ;; version. ;; ;; This is distributed in the hope that it will be useful, but WITHOUT ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ;; for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, ;; MA 02111-1307, USA. ;;; Code: ;; color theme (requires http://www.emacswiki.org/cgi-bin/wiki?ColorTheme ) (require 'color-theme) (defun color-theme-github () "Github color theme for GNU Emacs." (interactive) (color-theme-install '(color-theme-github ((background-color . "#f8f8ff") (background-mode . light) (border-color . "black") (cursor-color . "#000000") (foreground-color . "#000000") (mouse-color . "#bcd5fa")) () (default ((t (:stipple nil :background "#f8f8ff" :foreground "#000000" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal)))) (css-property ((t (:foreground "#0086b3")))) (css-selector ((t (:foreground "#990000")))) (cursor ((t (:background "#a7a7a7")))) (ecb-default-general-face ((t (:height 0.9)))) (ecb-default-highlight-face ((t (:background "#bcd5fa" :foreground "#000000")))) (ecb-directories-general-face ((t (:bold t :weight bold)))) (ecb-source-in-directories-buffer-face ((t (:foreground "#445588")))) (erb-comment-delim-face ((t (:italic t :bold t :slant italic :foreground "#999988" :weight bold)))) (erb-comment-face ((t (:bold t :background "#eeeeee" :foreground "#999988" :weight bold)))) (erb-delim-face ((t (:bold t :weight bold)))) (erb-exec-delim-face ((t (:bold t :weight bold)))) (erb-exec-face ((t (:background "#eeeeee")))) (erb-face ((t (:background "#eeeeee")))) (erb-out-delim-face ((t (:bold t :foreground "#445588" :weight bold)))) (erb-out-face ((t (:background "#eeeeee")))) (font-lock-builtin-face ((t (nil)))) (font-lock-comment-delimiter-face ((t (:italic t :slant italic :foreground "#999988")))) (font-lock-comment-face ((t (:italic t :foreground "#999988" :slant italic)))) (font-lock-constant-face ((t (:foreground "#990073")))) (font-lock-doc-face ((t (:foreground "#dd1144")))) (font-lock-function-name-face ((t (:foreground "#990000")))) (font-lock-keyword-face ((t (:bold t :weight bold)))) (font-lock-negation-char-face ((t (nil)))) (font-lock-reference-face ((t (nil)))) (font-lock-regexp-grouping-backslash ((t (:foreground "#009926")))) (font-lock-regexp-grouping-construct ((t (:foreground "#009926")))) (font-lock-string-face ((t (:foreground "#dd1144")))) (font-lock-type-face ((t (:foreground "#445588")))) (font-lock-variable-name-face ((t (:foreground "#0086b3")))) (highlight ((t (:background "#acc3e6")))) (link ((t (:foreground "blue1" :underline t)))) (link-visited ((t (:underline t :foreground "magenta4")))) (minibuffer-prompt ((t (:foreground "#445588")))) (mode-line ((t (:background "grey75" :foreground "black" :box (:line-width -1 :style released-button) :height 0.85)))) (mouse ((t (:background "#bcd5fa")))) (quack-about-face ((t (:family "Helvetica")))) (quack-about-title-face ((t (:bold t :foreground "#008000" :weight bold :height 2.0 :family "Helvetica")))) (quack-banner-face ((t (:family "Helvetica")))) (quack-pltfile-dir-face ((t (:bold t :background "gray33" :foreground "white" :weight bold :height 1.2 :family "Helvetica")))) (quack-pltfile-file-face ((t (:bold t :background "gray66" :foreground "black" :weight bold :height 1.2 :family "Helvetica")))) (quack-pltfile-prologue-face ((t (:background "gray66" :foreground "black")))) (quack-pltish-class-defn-face ((t (:bold t :weight bold :foreground "purple3")))) (quack-pltish-comment-face ((t (:foreground "cyan4")))) (quack-pltish-defn-face ((t (:bold t :foreground "blue3" :weight bold)))) (quack-pltish-keyword-face ((t (:bold t :weight bold)))) (quack-pltish-module-defn-face ((t (:bold t :weight bold :foreground "purple3")))) (quack-pltish-paren-face ((t (:foreground "red3")))) (quack-pltish-selfeval-face ((t (:foreground "green4")))) (quack-smallprint-face ((t (:height 0.8 :family "Courier")))) (quack-threesemi-h1-face ((t (:bold t :weight bold :height 1.4 :family "Helvetica")))) (quack-threesemi-h2-face ((t (:bold t :weight bold :height 1.2 :family "Helvetica")))) (quack-threesemi-h3-face ((t (:bold t :weight bold :family "Helvetica")))) (quack-threesemi-semi-face ((t (:background "#c0ffff" :foreground "#a0ffff")))) (quack-threesemi-text-face ((t (:background "#c0ffff" :foreground "cyan4")))) (region ((t (:background "#bcd5fa")))) (show-paren-match ((t (:background "#fff6a9")))) (show-paren-mismatch ((t (:background "#dd1144"))))))) ;;(add-to-list 'color-themes '(color-theme-github "GitHub" "Dudley Flanders")) (color-theme-github) (provide 'color-theme-github) ;;; color-theme-github.el ends here