Personal emacs config
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

49 lines
2.0 KiB

  1. ;;; smart-mode-line-dark-theme.el --- Dark theme for smart-mode-line
  2. ;; Copyright (C) 2014 Artur Malabarba <bruce.connor.am@gmail.com>
  3. ;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
  4. ;; URL: http://github.com/Bruce-Connor/smart-mode-line
  5. ;; Separator: -
  6. ;;; License:
  7. ;;
  8. ;; This file is NOT part of GNU Emacs.
  9. ;;
  10. ;; This program is free software; you can redistribute it and/or
  11. ;; modify it under the terms of the GNU General Public License
  12. ;; as published by the Free Software Foundation; either version 2
  13. ;; of the License, or (at your option) any later version.
  14. ;;
  15. ;; This program is distributed in the hope that it will be useful,
  16. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  18. ;; GNU General Public License for more details.
  19. ;;
  20. ;;; Change Log:
  21. ;; 0.1a - 2014/05/14 - Created File.
  22. ;;; Code:
  23. (deftheme smart-mode-line-dark "Dark theme for smart-mode-line.")
  24. (custom-theme-set-faces
  25. 'smart-mode-line-dark
  26. '(mode-line-buffer-id ((t :inherit sml/filename :foreground nil :background nil)))
  27. '(mode-line-inactive ((t :foreground "gray60" :background "#404045" :inverse-video nil)))
  28. '(mode-line ((t :foreground "gray60" :background "black" :inverse-video nil)))
  29. '(sml/global ((t :foreground "gray50" :inverse-video nil)))
  30. '(sml/modes ((t :inherit sml/global :foreground "White")))
  31. '(sml/filename ((t :inherit sml/global :foreground "#eab700" :weight bold)))
  32. '(sml/prefix ((t :inherit sml/global :foreground "#bf6000")))
  33. '(sml/read-only ((t :inherit sml/not-modified :foreground "DeepSkyBlue")))
  34. '(persp-selected-face ((t :foreground "ForestGreen" :inherit sml/filename)))
  35. '(helm-candidate-number ((t :foreground nil :background nil :inherit sml/filename))))
  36. ;;;###autoload
  37. (when load-file-name
  38. (add-to-list 'custom-theme-load-path
  39. (file-name-as-directory (file-name-directory load-file-name))))
  40. (provide-theme 'smart-mode-line-dark)
  41. ;;; smart-mode-line-dark-theme.el ends here.