;; -*- emacs-lisp -*- ;;; mst-blue-colours.el --- A blue colour scheme ;; Author: Mark Triggs ;; $Id: mst-blue-colours.el,v 1.9 2006/10/02 04:45:01 mst Exp $ ;; 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, 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 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. ;;; Commentary: ;; Emacs Appearance ;; (require 'font-lock) (defun set-frame-alist (sym-property value) (let ((prop (assoc sym-property default-frame-alist))) (setq default-frame-alist (cons (cons sym-property value) (if prop (remove prop default-frame-alist) default-frame-alist)))) (let ((prop (assoc sym-property initial-frame-alist))) (setq initial-frame-alist (cons (cons sym-property value) (if prop (remove prop initial-frame-alist) initial-frame-alist))))) (defmacro ensure-eval-all (&rest forms) "Wrap each individual form in an IGNORE-ERRORS" `(progn ,@(mapcar #'(lambda (f) `(condition-case err ,f (error () (when (fboundp 'warn) (warn (format "Error with: %s" err)))))) forms))) ;; Emacs Appearance ;; (set-frame-alist 'cursor-color "white") (set-face-background 'cursor "white") (setq-default cursor-type 'bar) (cond ((eq window-system 'x) (ensure-eval-all (set-face-background 'modeline "#567") (set-face-foreground 'modeline "#def") (set-face-attribute 'modeline nil :box '(:line-width 1 :color "#89A")) (set-face-attribute 'modeline nil :weight 'normal) (set-face-foreground 'widget-button "#bcd") (set-face-attribute 'header-line nil :box nil) (set-face-background 'header-line "#456") (set-face-foreground 'header-line "#def") (set-face-attribute 'header-line nil :box '(:line-width 1 :color "black")) (set-face-foreground 'mode-line-inactive "#567") (set-face-background 'mode-line-inactive "#012") (set-face-attribute 'mode-line-inactive nil :weight 'normal) (set-face-attribute 'mode-line-inactive nil :box nil) (set-face-background 'default "#112233") (set-face-foreground 'default "#abc") (set-frame-alist 'foreground-color "#abc") (set-frame-alist 'background-color "#112233") (set-face-background 'fringe "#001020") (set-face-foreground 'font-lock-string-face "#def") (set-face-foreground 'font-lock-comment-face "#def") (set-face-foreground 'font-lock-keyword-face "#def") (set-face-attribute 'font-lock-keyword-face nil :weight 'bold) (set-face-foreground 'font-lock-function-name-face "#def") (set-face-attribute 'font-lock-function-name-face nil :weight 'semi-bold) (set-face-foreground 'font-lock-variable-name-face "#def") (set-face-attribute 'font-lock-variable-name-face nil :weight 'normal) (set-face-foreground 'font-lock-constant-face "#def") (set-face-attribute 'font-lock-constant-face nil :weight 'normal) (set-face-foreground 'font-lock-builtin-face "#def") (set-face-attribute 'font-lock-builtin-face nil :weight 'bold) (set-face-foreground 'font-lock-warning-face "red") (set-face-attribute 'font-lock-warning-face nil :weight 'bold) (set-face-font 'minibuffer-prompt (face-font 'default)) (set-face-attribute 'minibuffer-prompt nil :weight 'bold) (set-face-foreground 'minibuffer-prompt "#def") (set-face-foreground 'font-lock-type-face "#def") (set-face-attribute 'font-lock-type-face nil :weight 'bold) (set-face-foreground 'font-lock-doc-face "#def") (set-face-foreground 'region "#def") (set-face-background 'region "#506070") (set-face-foreground 'italic "def") ;; (set-face-foreground 'hi-red-b "red") ;; (set-face-attribute 'hi-red-b nil :weight 'bold) (set-face-background 'show-paren-match-face (face-background 'default)) (set-face-foreground 'show-paren-match-face "#def") (set-face-attribute 'show-paren-match-face nil :weight 'extra-bold) (set-face-background 'isearch "#506070") (set-face-foreground 'isearch "#def") (eval-after-load "highline" '(progn (set-face-attribute 'highline-face nil :weight 'bold) (set-face-foreground 'highline-face "#def") (set-face-background 'highline-face (face-background 'default)))) (set-face-foreground 'highlight "#def") (set-face-background 'highlight (face-background 'default)) (set-face-attribute 'highlight nil :box 1) (eval-after-load "flyspell" '(progn (set-face-foreground 'flyspell-incorrect-face "Gray60") (set-face-attribute 'flyspell-incorrect-face nil :box '(:line-width 2 :color "#def")) (set-face-attribute 'flyspell-incorrect-face nil :underline nil))) ;; cperl horribleness (eval-after-load "cperl-mode" '(progn (set-face-foreground 'cperl-nonoverridable-face "#def") (set-face-attribute 'cperl-nonoverridable-face nil :weight 'bold) (copy-face 'font-lock-variable-name-face 'cperl-hash-face) (copy-face 'font-lock-variable-name-face 'cperl-array-face) (set-face-background 'cperl-array-face (face-background 'default)) (set-face-background 'cperl-hash-face (face-background 'default)))) ;; emacs-wiki (eval-after-load "emacs-wiki" '(progn (set-face-foreground 'emacs-wiki-link-face "#def") (set-face-attribute 'emacs-wiki-link-face nil :underline t))) ;; Info (eval-after-load "info" '(progn (set-face-foreground 'info-xref "#def") (set-face-foreground 'info-xref-visited "#abc") (set-face-attribute 'info-xref nil :weight 'bold) (set-face-attribute 'info-xref-visited nil :weight 'normal))) ;; Message sending (eval-after-load "message" '(progn (set-face-foreground 'message-cited-text-face "#def") (set-face-foreground 'message-header-name-face "Gray50") (set-face-attribute 'message-header-name-face nil :weight 'bold))) ;; shell mode (eval-after-load "sh-script" '(set-face-foreground 'sh-heredoc-face "Black")) ;; LaTeX (eval-after-load "font-latex" (progn (set-face-foreground 'font-latex-italic-face "gray50") (set-face-foreground 'font-latex-bold-face "gray40") (set-face-foreground 'font-latex-math-face "gray50") (set-face-foreground 'font-latex-warning-face "red") (dotimes (i 4) (set-face-foreground (intern (format "font-latex-sectioning-%d-face" (1+ i))) "#fff")))) ;; MMM-mode ;; SLIME (eval-after-load "slime" '(progn (set-face-foreground 'slime-repl-inputed-output-face (face-foreground 'default)))) (eval-after-load "mmm-mode" '(set-face-background 'mmm-default-submode-face (face-background 'default))) (eval-after-load "compile" '(progn (set-face-foreground 'compilation-info "#abc") (set-face-foreground 'match "#def") (set-face-attribute 'match nil :box 1) (set-face-background 'match (face-background 'default)))) (eval-after-load "tiny-xmms" '(progn (set-face-background 'tiny-xmms-highline "#112233") (set-face-foreground 'tiny-xmms-highline "#def"))))) (t (set-face-foreground 'modeline "black") (set-face-background 'modeline "white"))) (provide 'mst-blue-colours) ;;; mst-colours.el ends here