Use almost-monokai color theme

emacs.d/colors/color-theme-almost-monokai.el

@@ -0,0 +1,59 @@
+;;; Almost Monokai: color-theme-almost-monokai.el
+;;; A beautiful, fruity and calm emacs color theme.
+
+;; Author: Prateek Saxena <prtksxna@gmail.com>
+;; Author: Pratul Kalia   <pratul@pratul.in>
+;;
+;; Based on the Monokai TextMate theme
+;; Author: Wimer Hazenberg <http://www.monokai.nl>
+
+;; Depends: color-theme
+
+;; 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., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+; Color theme support is required.
+(require 'color-theme)
+
+; Code start.
+(defun color-theme-almost-monokai ()
+  (interactive)
+  (color-theme-install
+   '(color-theme-almost-monokai
+     ((background-color . "#272821")
+      (foreground-color . "#F8F8F2")
+      (cursor-color . "#DAD085"))
+     (default ((t (nil))))
+     (modeline ((t (:background "white" :foreground "black" :box (:line-width 1 :style released-button)))))
+     (font-lock-builtin-face ((t (:foreground "#A6E22A"))))
+     (font-lock-comment-face ((t (:italic t :foreground "#75715D"))))
+     (font-lock-constant-face ((t (:foreground "#A6E22A"))))
+     (font-lock-doc-string-face ((t (:foreground "#65B042"))))
+     (font-lock-string-face ((t (:foreground "#DFD874"))))
+     (font-lock-function-name-face ((t (:foreground "#F1266F" :italic t))))
+     (font-lock-keyword-face ((t (:foreground "#66D9EF"))))
+     (font-lock-type-face ((t (:underline t :foreground "#89BDFF"))))
+     (font-lock-variable-name-face ((t (:foreground "#A6E22A"))))
+     (font-lock-warning-face ((t (:bold t :foreground "#FD5FF1"))))
+     (highlight-80+ ((t (:background "#D62E00"))))
+     (hl-line ((t (:background "#1A1A1A"))))
+     (region ((t (:background "#6DC5F1"))))
+     (ido-subdir ((t (:foreground "#F1266F"))))
+    )
+  )
+)
+(provide 'color-theme-almost-monokai)
+;---------------
+; Code end.