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.

90 lines
3.5 KiB

  1. ;; This program is free software; you can redistribute it and/or modify
  2. ;; it under the terms of the GNU General Public License as published by
  3. ;; the Free Software Foundation, either version 3 of the License, or
  4. ;; (at your option) any later version.
  5. ;; This program is distributed in the hope that it will be useful,
  6. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  7. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  8. ;; GNU General Public License for more details.
  9. ;; You should have received a copy of the GNU General Public License
  10. ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  11. ;; ---------------------------
  12. ;;
  13. ;; Hickey: A dark color theme
  14. ;;
  15. ;; ----------------------------
  16. (unless (>= emacs-major-version 24)
  17. (error "requires Emacs 24 or later."))
  18. (deftheme hickey "A dark colour theme")
  19. (let ((hickey-background "#1D2021")
  20. (hickey-foreground "#F8F8F2")
  21. (hickey-dark-gray "#333333")
  22. (hickey-mid-gray "#555555")
  23. (hickey-light-gray "#666666")
  24. (hickey-lightest-gray "#999999")
  25. (hickey-comment-slate "#505C63")
  26. (hickey-orange "#F38630")
  27. (hickey-light-slate "#465459")
  28. (hickey-dark-slate "#161A1F")
  29. (hickey-light-blue "#A7DBD8")
  30. (hickey-strong-green "#AEE239")
  31. (hickey-subtle-blue "#A7DBD8")
  32. (hickey-dirty-white "#F8F8F0")
  33. (hickey-lighter-orange "#FD971F"))
  34. (custom-theme-set-faces
  35. 'hickey
  36. ;; ----------------- Frame stuff --------------------
  37. `(default ((t (:background ,hickey-background :foreground ,hickey-foreground))))
  38. `(cursor ((t (:background ,hickey-lightest-gray))))
  39. `(hl-line ((t (:background ,hickey-light-gray))))
  40. `(modeline ((t (:foreground ,hickey-lightest-gray :background ,hickey-mid-gray))))
  41. `(mode-line-inactive ((t (:box nil :foreground ,hickey-light-gray :background ,hickey-dark-gray))))
  42. `(mode-line ((t (:box nil :foreground ,hickey-background :background ,hickey-light-blue))))
  43. `(fringe ((t (:background ,hickey-background))))
  44. ;; Highlight region color
  45. `(region ((t (:foreground ,hickey-light-slate :background ,hickey-dark-slate))))
  46. ;; Dir-ed search prompt
  47. `(minibuffer-prompt ((default (:foreground ,hickey-light-blue))))
  48. ;; ---------------- Code Highlighting ---------------
  49. ;; Builtins
  50. `(font-lock-builtin-face ((t (:foreground ,hickey-orange))))
  51. ;; Constants
  52. `(font-lock-constant-face ((t (:foreground ,hickey-strong-green))))
  53. ;; Comments
  54. `(font-lock-comment-face ((t (:foreground ,hickey-comment-slate))))
  55. ;; Function names
  56. `(font-lock-function-name-face ((t (:foreground ,hickey-strong-green))))
  57. ;; Keywords
  58. `(font-lock-keyword-face ((t (:foreground ,hickey-subtle-blue))))
  59. ;; Strings
  60. `(font-lock-string-face ((t (:foreground ,hickey-dirty-white))))
  61. ;; Variables
  62. `(font-lock-variable-name-face ((t (:foreground ,hickey-lighter-orange))))
  63. `(font-lock-type-face ((t (:foreground ,hickey-lightest-gray))))
  64. `(font-lock-warning-face ((t (:foreground ,hickey-lightest-gray :bold t))))
  65. ;; ---------------- Package Specific Stuff -----------
  66. ;; Powerline
  67. `(powerline-active1 ((t (:background ,hickey-dirty-white :foreground ,hickey-background))))))
  68. ;;;###autoload
  69. (when load-file-name
  70. (add-to-list 'custom-theme-load-path
  71. (file-name-as-directory (file-name-directory load-file-name)))
  72. (when (not window-system)
  73. (custom-set-faces '(default ((t (:background nil)))))))
  74. (provide-theme 'hickey)
  75. ;; Local Variables:
  76. ;; no-byte-compile: t
  77. ;; End: