emacs: use alloy-mode for dsh (DASH) files as well
[~bandali/configs] / .emacs.d / lisp / smart-mode-line-tangomod-theme.el
... / ...
CommitLineData
1;;; smart-mode-line-tangomod-theme.el --- tangomod theme for smart-mode-line
2
3;; Copyright (C) 2019 Amin Bandali
4
5;; Author: Amin Bandali <bandali@gnu.org>
6;; Version: 0.1.0
7;; Package-Requires: ((emacs "24.3") (smart-mode-line "2.10"))
8;; Keywords: mode-line themes faces
9
10;;; Commentary:
11;;
12;; tangomod theme for smart-mode-line
13
14;;; License:
15;;
16;; This file is NOT part of GNU Emacs.
17;;
18;; This program is free software; you can redistribute it and/or
19;; modify it under the terms of the GNU General Public License
20;; as published by the Free Software Foundation; either version 3
21;; of the License, or (at your option) any later version.
22;;
23;; This program is distributed in the hope that it will be useful,
24;; but WITHOUT ANY WARRANTY; without even the implied warranty of
25;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26;; GNU General Public License for more details.
27;;
28
29;;; Code:
30
31(deftheme smart-mode-line-tangomod
32 "tangomod theme for smart-mode-line.")
33
34(custom-theme-set-faces
35 'smart-mode-line-tangomod
36 '(mode-line-buffer-id ((t :inherit sml/filename :foreground nil :background nil)))
37 '(mode-line-inactive ((t :background "#e1e1e1")))
38 '(mode-line ((t :background "#e7e7e7")))
39 '(sml/global ((t :inherit font-lock-preprocessor-face)))
40 '(sml/filename ((t :inherit mode-line-buffer-id)))
41 '(sml/modes ((t :foreground nil :inherit sml/filename :weight normal)))
42 '(sml/prefix ((t :inherit (font-lock-variable-name-face sml/global))))
43 '(sml/read-only ((t :inherit (font-lock-type-face sml/not-modified)))))
44
45;;;###autoload
46(when load-file-name
47 (add-to-list 'custom-theme-load-path
48 (file-name-as-directory (file-name-directory load-file-name))))
49
50(provide-theme 'smart-mode-line-tangomod)
51;;; smart-mode-line-tangomod-theme.el ends here.