Permalink
Browse files

prepping for marmalade-elpa

  • Loading branch information...
2 parents adc2f4d + e72a84a commit 56ba3ce62a82e27b568fa373aff9bd58c6fecf77 @jasonm23 jasonm23 committed Feb 16, 2013
Showing with 34 additions and 42 deletions.
  1. +34 −42 soothe-theme.el
View
@@ -1,25 +1,22 @@
-;; soothe-theme.el --- REQUIRES EMACS 24: A Color Theme for Emacs.
-;; Copyright (C) 2012-13 Jason Milkins.
-;;
-;; Author: Jason Milkins <jasonm23@gmail.com>
-;; URL: https://github.com/jasonm23/emacs-soothe-theme
-;; Version: 0.1.3
-;;
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, version 3 of the License.
-;;
-;; 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.
-;;
-;; This file is not a part of Emacs
-;;
-;;
+;;; soothe-theme.el --- a light on dark color theme for Emacs24.
+;;; Author: Jason Milkins <jasonm23@gmail.com>
+;;; Url: https://github.com/jasonm23/emacs-soothe-theme
+;;; Version: 0.2.0
+;;;
+;;; This program is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, version 3 of the License.
+;;;
+;;; 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.
+;;;
+;;; This file is not a part of Emacs
+;;;
(unless (>= 24 emacs-major-version)
(error "soothe-theme requires Emacs 24 or later."))
@@ -84,7 +81,7 @@
(purple-1 "#7868b5")
(purple-1bg "#1D1B25")
(foreground "#F4EAD5")
- (hl-line "#171717")
+ (hl-line "#11152a")
(selection "#11152a")
(background "#110F13")
(background-dark "#0F0D11")
@@ -123,10 +120,10 @@
;;-----------------------------------------------------------------------------------------------------------------------
;; Basics
`(default ((t (:foreground ,foreground :background ,background ))))
- `(cursor ((t ( :background ,purple-1 ))))
+ `(cursor ((t ( :background ,red-2 ))))
`(region ((t (:foreground nil :background ,selection ))))
`(highlight ((t (:foreground ,blue-3 :background ,blue-3bg ))))
- `(hl-line ((t (:foreground ,foreground :background ,hl-line ))))
+ `(hl-line ((t ( :background ,hl-line ))))
`(minibuffer-prompt ((t (:foreground ,orange-1 :background ,orange-1bg ))))
`(escape-glyph ((t (:foreground ,red-1 :background ,purple-1bg ))))
;;-----------------------------------------------------------------------------------------------------------------------
@@ -201,13 +198,6 @@
`(org-link ((t (:foreground ,blue-1 :background ,blue-1bg ))))
`(org-todo ((t (:foreground ,red-1 :background ,red-1bg ))))
;;-----------------------------------------------------------------------------------------------------------------------
- ;; helm
- '(helm-candidate-number ((t (:foreground "black" :background "#779" ))))
- '(helm-selection ((t ( :background "#122359" :underline nil ))))
- '(helm-separator ((t (:foreground "#117799" ))))
- '(helm-source-header ((t (:foreground "white" :background "nil" :weight bold :height 1.4 :family "Sans Serif"))))
- '(helm-visible-mark ((t (:foreground "black" :background "#444" ))))
-
)
@@ -236,16 +226,16 @@
;; Rainbow delimiters
(defun soothe-rainbow-delim-set-face ()
- (set-face-attribute 'rainbow-delimiters-depth-1-face nil :foreground "#4A7D90")
- (set-face-attribute 'rainbow-delimiters-depth-2-face nil :foreground "#2C4B56")
- (set-face-attribute 'rainbow-delimiters-depth-3-face nil :foreground "#1A2D33")
- (set-face-attribute 'rainbow-delimiters-depth-4-face nil :foreground "#237A9A")
- (set-face-attribute 'rainbow-delimiters-depth-5-face nil :foreground "#2C5C62")
- (set-face-attribute 'rainbow-delimiters-depth-6-face nil :foreground "#1A374D")
- (set-face-attribute 'rainbow-delimiters-depth-7-face nil :foreground "#135A8A")
- (set-face-attribute 'rainbow-delimiters-depth-8-face nil :foreground "#225C65")
- (set-face-attribute 'rainbow-delimiters-depth-9-face nil :foreground "#14373C")
- (set-face-attribute 'rainbow-delimiters-unmatched-face nil :foreground "#660000"))
+ (set-face-attribute 'rainbow-delimiters-depth-1-face nil :foreground "#6ef" )
+ (set-face-attribute 'rainbow-delimiters-depth-2-face nil :foreground "#1ad" )
+ (set-face-attribute 'rainbow-delimiters-depth-3-face nil :foreground "#168" )
+ (set-face-attribute 'rainbow-delimiters-depth-4-face nil :foreground "#146" )
+ (set-face-attribute 'rainbow-delimiters-depth-5-face nil :foreground "#036" )
+ (set-face-attribute 'rainbow-delimiters-depth-6-face nil :foreground "#033" )
+ (set-face-attribute 'rainbow-delimiters-depth-7-face nil :foreground "#134" )
+ (set-face-attribute 'rainbow-delimiters-depth-8-face nil :foreground "#156" )
+ (set-face-attribute 'rainbow-delimiters-depth-9-face nil :foreground "#189" )
+ (set-face-attribute 'rainbow-delimiters-unmatched-face nil :foreground "#600" ))
(eval-after-load "rainbow-delimiters" '(soothe-rainbow-delim-set-face))
@@ -256,3 +246,5 @@
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'soothe)
+
+;;; soothe-theme.el ends here

0 comments on commit 56ba3ce

Please sign in to comment.