From: Amin Bandali Date: Sun, 29 Sep 2019 16:10:01 +0000 (-0400) Subject: emacs: add and use smart-mode-line-tangomod-theme X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/0f4b61b6a2164eaa6b7dbcac3eb4752487563895 emacs: add and use smart-mode-line-tangomod-theme --- diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 68a6049..7b8cf94 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1520,6 +1520,7 @@ This function is intended for use with `ivy-ignore-buffers'." :commands (sml/apply-theme) :demand :config + (setq sml/theme 'tangomod) (sml/setup) (smart-mode-line-enable)) @@ -1569,7 +1570,7 @@ This function is intended for use with `ivy-ignore-buffers'." (interactive) (mapc #'disable-theme custom-enabled-themes) (load-theme 'tangomod t) - (sml/apply-theme 'automatic) + (sml/apply-theme 'tangomod) (font-lock-remove-keywords 'org-mode b/org-mode-font-lock-keywords)) diff --git a/.emacs.d/lisp/smart-mode-line-tangomod-theme.el b/.emacs.d/lisp/smart-mode-line-tangomod-theme.el new file mode 100644 index 0000000..b69eb7d --- /dev/null +++ b/.emacs.d/lisp/smart-mode-line-tangomod-theme.el @@ -0,0 +1,51 @@ +;;; smart-mode-line-tangomod-theme.el --- tangomod theme for smart-mode-line + +;; Copyright (C) 2019 Amin Bandali + +;; Author: Amin Bandali +;; Version: 0.1.0 +;; Package-Requires: ((emacs "24.3") (smart-mode-line "2.10")) +;; Keywords: mode-line themes faces + +;;; Commentary: +;; +;; tangomod theme for smart-mode-line + +;;; License: +;; +;; This file is NOT part of GNU Emacs. +;; +;; This program 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 3 +;; of the License, or (at your option) any later version. +;; +;; This program 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. +;; + +;;; Code: + +(deftheme smart-mode-line-tangomod + "tangomod theme for smart-mode-line.") + +(custom-theme-set-faces + 'smart-mode-line-tangomod + '(mode-line-buffer-id ((t :inherit sml/filename :foreground nil :background nil))) + '(mode-line-inactive ((t :background "#e1e1e1"))) + '(mode-line ((t :background "#e7e7e7"))) + '(sml/global ((t :inherit font-lock-preprocessor-face))) + '(sml/filename ((t :inherit mode-line-buffer-id))) + '(sml/modes ((t :foreground nil :inherit sml/filename :weight normal))) + '(sml/prefix ((t :inherit (font-lock-variable-name-face sml/global)))) + '(sml/read-only ((t :inherit (font-lock-type-face sml/not-modified))))) + +;;;###autoload +(when load-file-name + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'smart-mode-line-tangomod) +;;; smart-mode-line-tangomod-theme.el ends here.