Skip to content

Instantly share code, notes, and snippets.

@mig
Created May 31, 2012 05:53
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mig/2841385 to your computer and use it in GitHub Desktop.
Save mig/2841385 to your computer and use it in GitHub Desktop.
color-theme-almost-monokai.el
;;; 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.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment