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.

92 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. ;; Junio: A vivid theme like chocolates
  14. ;;
  15. ;; ----------------------------
  16. (unless (>= emacs-major-version 24)
  17. (error "requires Emacs 24 or later."))
  18. (deftheme junio "A vivid theme like chocolates")
  19. (let ((junio-background "#120312")
  20. (junio-foreground "#C5C5B8")
  21. (junio-comment-slate "#637579")
  22. (junio-black "#000000")
  23. (junio-constant "#6F8FCC")
  24. (junio-mid-gray "#555555")
  25. (junio-light-gray "#BCBCBC")
  26. (junio-type "#EF5C5F")
  27. (junio-green "#8fbfdc")
  28. (junio-cursor "#F0F040")
  29. (junio-dark-slate "#403D3D")
  30. (junio-key "#FFA070")
  31. (junio-func "#8AAFFA")
  32. (junio-yellow "#E6DB74")
  33. (junio-string "#868B44")
  34. (junio-sky-blue "#A197BF")
  35. (junio-mode "#A1BAA1")
  36. (junio-mode-back "#1A1A1A")
  37. (junio-warn-red "#EE0000"))
  38. (custom-theme-set-faces
  39. 'junio
  40. ;; ----------------- Frame stuff --------------------
  41. `(default ((t (:background ,junio-background :foreground ,junio-foreground))))
  42. `(cursor ((t (:background ,junio-cursor))))
  43. `(hl-line ((t (:background ,junio-black))))
  44. `(mode-line-inactive ((t (:box nil :foreground ,junio-mid-gray :background ,junio-black))))
  45. `(mode-line ((t (:box nil :bold t :foreground ,junio-mode :background ,junio-mode-back))))
  46. `(fringe ((t (:background ,junio-background))))
  47. ;; Highlight region color
  48. `(region ((t (:foreground ,junio-yellow :background ,junio-dark-slate))))
  49. ;; Dir-ed search prompt
  50. `(minibuffer-prompt ((default (:foreground ,junio-foreground))))
  51. ;; ---------------- Code Highlighting ---------------
  52. ;; Builtins
  53. `(font-lock-builtin-face ((t (:foreground ,junio-green))))
  54. ;; Constants
  55. `(font-lock-constant-face ((t (:foreground ,junio-constant))))
  56. ;; Comments
  57. `(font-lock-comment-face ((t (:foreground ,junio-comment-slate))))
  58. ;; Function names
  59. `(font-lock-function-name-face ((t (:foreground ,junio-func))))
  60. ;; Keywords
  61. `(font-lock-keyword-face ((t (:foreground ,junio-key))))
  62. ;; Strings
  63. `(font-lock-string-face ((t (:foreground ,junio-string))))
  64. ;; Variables
  65. `(font-lock-variable-name-face ((t (:foreground ,junio-sky-blue))))
  66. `(font-lock-type-face ((t (:foreground ,junio-type))))
  67. `(font-lock-warning-face ((t (:foreground ,junio-warn-red :background ,junio-light-gray :bold t))))
  68. ;; ---------------- Package Specific Stuff -----------
  69. ;; Powerline
  70. `(powerline-active1 ((t (:background ,junio-yellow :foreground ,junio-background))))))
  71. ;;;###autoload
  72. (when load-file-name
  73. (add-to-list 'custom-theme-load-path
  74. (file-name-as-directory (file-name-directory load-file-name)))
  75. (when (not window-system)
  76. (custom-set-faces '(default ((t (:background nil)))))))
  77. (provide-theme 'junio)
  78. ;; Local Variables:
  79. ;; no-byte-compile: t
  80. ;; End: