From: Amin Bandali <bandali@gnu.org>
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?ds=sidebyside;hp=99eb633906cf72b4f48159eec7e6998c4511c0c0

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 <bandali@gnu.org>
+;; 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.