Skip to content

Instantly share code, notes, and snippets.

@lateau

lateau/late-night-theme.el

Last active Aug 11, 2020
Embed
What would you like to do?
Late Night Theme for Emacs24: Color theme by Alex Schroeder, created 2003-08-07. This theme is for use late at night, with only little light in the room. The goal was to make something as dark and subtle as the text console in its default 80x25 state -- dark grey on black.
;;; late-night-theme.el --- Late Night theme for Emacs 24
;; Author: Alex Schroeder
;; Maintainer: Daehyub Kim <lateau at gmail.com>
;; URL: https://gist.github.com/4420862
;; Version: 0.0
;; Keywords: theme, color
;;; Commentary:
;; To install the theme, M-x `load-theme' then enter
;; `late-night'. If you run into any issues, check the
;; `custom-theme-load-path' variable.
;;; Code:
(deftheme late-night
"Color theme by Alex Schroeder, created 2003-08-07.
This theme is for use late at night, with only little light in the room.
The goal was to make something as dark and subtle as the text console in
its default 80x25 state -- dark grey on black.")
(custom-theme-set-faces
'late-night
'(cursor ((t (:background "#888"))))
'(escape-glyph ((t (:foreground "#555"))))
'(minibuffer-prompt ((t (:foreground "#555"))))
'(highlight ((t (:foreground "light blue" :background "dark slate blue"))))
'(region ((t (:background "#322A31"))))
'(shadow ((t (:foreground "#555555"))))
'(secondary-selection ((t (:background "paleturquoise"))))
'(trailing-whitespace ((t (:background "#999"))))
'(font-lock-builtin-face ((t (:foreground "#777" :weight bold))))
'(font-lock-comment-delimiter-face ((t (:foreground "#555" :inherit font-lock-comment-face))))
'(font-lock-comment-face ((t (:foreground "#555"))))
'(font-lock-constant-face ((t (:foreground "#777"))))
'(font-lock-doc-face ((t (:foreground "#777"))))
'(font-lock-function-name-face ((t (:foreground "#777" :weight bold))))
'(font-lock-keyword-face ((t (:foreground "#777" :weight bold))))
'(font-lock-preprocessor-face ((t (:foreground "#777"))))
'(font-lock-regexp-grouping-backslash ((t (:inherit bold :foreground "#666666"))))
'(font-lock-regexp-grouping-construct ((t (:inherit bold :foreground "#666666"))))
'(font-lock-reference-face ((t (:foreground "#777"))))
'(font-lock-string-face ((t (:foreground "#777"))))
'(font-lock-type-face ((t (:weight bold))))
'(font-lock-variable-name-face ((t (:foreground "#888" :weight bold))))
'(font-lock-warning-face ((t (:foreground "#999" :weight bold))))
'(link ((t (:foreground "#666" :underline t :weight bold))))
'(link-visited ((t (:inherit link :foreground "#666"))))
'(fringe ((t :foreground "#444" :background "#111")))
'(mode-line-highlight ((t (:box (:line-width 2 :color "grey40" :style released-button)))))
'(isearch ((t (:background "red" :foreground "pink"))))
'(compilation-error ((t (:inherit error))))
'(error ((t (:foreground "#B20006" :weight bold))))
'(warning ((t (:foreground "#FF8000" :weight bold))))
'(success ((t (:foreground "#00DD00" :weight bold))))
'(compilation-line-number ((t (:foreground "#FF8000"))))
'(glyphless-char ((t (:background "#4F4D4D"))))
'(lazy-highlight ((t (:background "red"))))
'(match (( t (:foreground "#aaa" :background "#000" :weight bold))))
'(default ((t (:stipple nil :background "#000" :foreground "#666" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'late-night)
;; Local Variables:
;; no-byte-compile: t
;; End:
;;; late-night-theme.el ends here
@ghost

This comment has been minimized.

Copy link

@ghost ghost commented Oct 27, 2015

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment