projects / ~bandali / configs / blame
| Commit | Line | Data |
|---|---|---|
| 9c48decc | 1 | ;;; smart-mode-line-bandali-theme.el --- bandali's smart-mode-line theme -*- lexical-binding: t; -*- |
| 0f4b61b6 | 2 | |
| 9c48decc | 3 | ;; Copyright (C) 2019-2020 Amin Bandali |
| 0f4b61b6 AB |
4 | |
| 5 | ;; Author: Amin Bandali <bandali@gnu.org> | |
| 6 | ;; Version: 0.1.0 | |
| 7 | ;; Package-Requires: ((emacs "24.3") (smart-mode-line "2.10")) | |
| 9c48decc | 8 | ;; Keywords: faces |
| 0f4b61b6 | 9 | |
| 0f4b61b6 | 10 | ;; This file is NOT part of GNU Emacs. |
| 9c48decc AB |
11 | |
| 12 | ;; This program is free software; you can redistribute it and/or modify | |
| 13 | ;; it under the terms of the GNU General Public License as published by | |
| 14 | ;; the Free Software Foundation, either version 3 of the License, or | |
| 15 | ;; (at your option) any later version. | |
| 16 | ||
| 0f4b61b6 AB |
17 | ;; This program is distributed in the hope that it will be useful, |
| 18 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 19 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 20 | ;; GNU General Public License for more details. | |
| 9c48decc AB |
21 | |
| 22 | ;; You should have received a copy of the GNU General Public License | |
| 23 | ;; along with this program. If not, see <https://www.gnu.org/licenses/>. | |
| 24 | ||
| 25 | ;;; Commentary: | |
| 26 | ||
| 27 | ;; My custom theme for smart-mode-line. | |
| 0f4b61b6 AB |
28 | |
| 29 | ;;; Code: | |
| 30 | ||
| 9c48decc AB |
31 | (deftheme smart-mode-line-bandali |
| 32 | "My custom theme for smart-mode-line.") | |
| 0f4b61b6 AB |
33 | |
| 34 | (custom-theme-set-faces | |
| 9c48decc | 35 | 'smart-mode-line-bandali |
| 0f4b61b6 AB |
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 | ||
| 9c48decc AB |
50 | (provide-theme 'smart-mode-line-bandali) |
| 51 | ;;; smart-mode-line-bandali-theme.el ends here. |