API tools faq
paste
Advertisement
Guest User

Actraiser emacs theme

a guest
Apr 23rd, 2025
13
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.80 KB | Software | 0 0
raw download clone embed print report
  1. ;;
  2. ;; I saved the below in .emacs.d/actraiser-theme.el
  3. ;;
  4. ;; In your .emacs, use the theme by calling this
  5. ;; (load-theme 'actraiser t)
  6. ;;
  7. ;;
  8.  
  9. (deftheme actraiser "Dark-themed colorscheme for Emacs")
  10.  
  11. (let* ((a-fg "#e4e4ef")
  12. (a-fg+1 "#f4f4ff")
  13. (a-fg+2 "#f6f6f6")
  14. (a-white "#ffffff")
  15. (a-black "#000000")
  16. (a-bg-1 "#030805")
  17. (a-bg "#081310") ; #051510
  18. (a-bg+1 "#223225")
  19. (a-bg+2 "#3f483f")
  20. (a-bg+3 "#485548")
  21. (a-bg+4 "#527570")
  22. (a-red-2 "#501020")
  23. (a-red-1 "#c73c3f")
  24. (a-red "#f43841")
  25. (a-red+1 "#ff4f58")
  26. (a-orange "#ff6622")
  27. (a-pink "#DCA3A3")
  28. (a-green "#40b36c")
  29. (a-yellow-1 "#dbbe97")
  30. (a-yellow "#eedd33") ; #ffdd33
  31. (a-gold "#ffdd33")
  32. (a-brown "#cc8c3c")
  33. (a-quartz "#95aca5")
  34. (a-niagara-2 "#303540")
  35. (a-niagara-1 "#565f73")
  36. (a-niagara "#96a9c9")
  37. (a-wisteria-1 "#88719d")
  38. (a-wisteria "#9e95c7")
  39. (a-aqua "aquamarine")
  40.  
  41. (a-comment "#40b36c") ; #40b3b1
  42. (a-text a-yellow-1)
  43. (a-doc-string "#40b36c")
  44. (a-selection "#153232") ; #303838
  45. (a-type-and-punctuation a-quartz)
  46. (a-keyword a-aqua)
  47. (a-variable a-yellow-1)
  48. (a-function a-yellow-1)
  49. (a-string "#27e3e3") ; a-green
  50. (a-constant a-quartz)
  51. (a-preprocessor a-quartz)
  52. (a-reference a-quartz)
  53. (a-linenum-fg a-bg+4)
  54. (a-linenum-current-fg a-aqua)
  55. (a-warning a-orange)
  56. (a-error a-red+1)
  57. (a-success "#95cc15")
  58. (a-custom-state a-green)
  59. (a-cursor a-aqua)
  60. )
  61. (custom-theme-set-variables
  62. 'actraiser
  63. '(frame-background-mode (quote dark)))
  64.  
  65. (custom-theme-set-faces
  66. 'actraiser
  67.  
  68. ;; fundamental elements colorscheme
  69. `(border ((t ,(list :background a-bg
  70. :foreground a-bg+2))))
  71. `(cursor ((t (:background ,a-cursor))))
  72. `(default ((t ,(list :background a-bg
  73. :foreground a-text))))
  74. `(region ((t (:background ,a-selection :foreground nil))))
  75. `(fringe ((t ,(list :background nil
  76. :foreground a-bg+2))))
  77.  
  78. `(vertical-border ((t ,(list :foreground a-bg+2))))
  79. `(link ((t (:foreground ,a-niagara :underline t))))
  80. `(link-visited ((t (:foreground ,a-wisteria :underline t))))
  81. `(match ((t (:background ,a-bg+4))))
  82. `(shadow ((t (:foreground ,a-bg+4))))
  83. `(minibuffer-prompt ((t (:foreground ,a-niagara)))) ;; this is what you see when you C-f or M-x or ...
  84. `(secondary-selection ((t ,(list :background a-selection
  85. :foreground nil))))
  86.  
  87. `(tooltip ((t ,(list :background a-bg+4
  88. :foreground a-white))))
  89. `(query-replace ((t (:inherit (isearch)))))
  90.  
  91. ;; holidays
  92. `(holiday-face ((t (:foreground ,a-pink))))
  93.  
  94. ;; terminal (ansi-term)
  95. `(term-color-black ((t (:foreground ,a-bg+3 :background ,a-bg+4))))
  96. `(term-color-red ((t (:foreground ,a-red-1 :background ,a-red-1))))
  97. `(term-color-green ((t (:foreground ,a-green :background ,a-green))))
  98. `(term-color-blue ((t (:foreground ,a-niagara :background ,a-niagara))))
  99. `(term-color-yellow ((t (:foreground ,a-yellow :background ,a-yellow))))
  100. `(term-color-magenta ((t (:foreground ,a-wisteria :background ,a-wisteria))))
  101. `(term-color-cyan ((t (:foreground ,a-quartz :background ,a-quartz))))
  102. `(term-color-white ((t (:foreground ,a-fg :background ,a-white))))
  103.  
  104. ;; compilation
  105. `(compilation-info ((t ,(list :foreground a-success
  106. :background a-bg
  107. :inherit 'unspecified))))
  108. `(compilation-warning ((t ,(list :foreground a-warning
  109. :background a-bg
  110. :bold t
  111. :inherit 'unspecified))))
  112. `(compilation-error ((t ,(list :foreground a-error
  113. :background a-bg))))
  114. `(compilation-error ((t (:foreground ,a-error))))
  115. `(compilation-mode-line-fail ((t ,(list :foreground a-error
  116. :background a-bg
  117. :weight 'bold
  118. :inherit 'unspecified))))
  119. `(compilation-mode-line-exit ((t ,(list :foreground a-success
  120. :background a-bg
  121. :weight 'bold
  122. :inherit 'unspecified))))
  123.  
  124. ;; show paren
  125. `(show-paren-match-face ((t (:background ,a-bg+4))))
  126. `(show-paren-mismatch-face ((t (:background ,a-red-1))))
  127.  
  128. ;; speedbar
  129. `(speedbar-directory-face ((t ,(list :foreground a-niagara
  130. :weight 'bold))))
  131. `(speedbar-file-face ((t (:foreground ,a-fg))))
  132. `(speedbar-highlight-face ((t (:background ,a-bg+1))))
  133. `(speedbar-selected-face ((t (:foreground ,a-red))))
  134. `(speedbar-tag-face ((t (:foreground ,a-yellow))))
  135.  
  136. ;; completion
  137. `(completions-annotations ((t (:inherit 'shadow))))
  138.  
  139. ;; ido
  140. `(ido-first-match ((t (:foreground ,a-aqua :bold nil))))
  141. `(ido-only-match ((t (:foreground ,a-green :weight bold))))
  142. `(ido-subdir ((t (:foreground ,a-niagara :weight bold))))
  143.  
  144. ;; font-lock :Here
  145. `(font-lock-add-keywords '(c-mode c++-mode)
  146. '(("\\(\\w+\\)\\s-*\("
  147. (1 font-lock-function-name-face)))
  148. t)
  149. `(font-lock-keyword-face ((t (:foreground ,a-keyword :bold t))))
  150. `(font-lock-type-face ((t (:foreground ,a-type-and-punctuation))))
  151. `(font-lock-constant-face ((t (:foreground ,a-constant))))
  152. `(font-lock-variable-name-face ((t (:foreground ,a-variable))))
  153. `(font-lock-builtin-face ((t (:foreground ,a-type-and-punctuation))))
  154. `(font-lock-string-face ((t (:foreground ,a-string))))
  155. `(font-lock-comment-face ((t (:foreground ,a-comment))))
  156. `(font-lock-comment-delimiter-face ((t (:foreground ,a-comment))))
  157. `(font-lock-doc-face ((t (:foreground ,a-doc-string))))
  158. `(font-lock-doc-string-face ((t (:foreground ,a-doc-string))))
  159. `(font-lock-function-name-face ((t (:foreground ,a-function))))
  160. `(font-lock-preprocessor-face ((t (:foreground ,a-preprocessor))))
  161. `(font-lock-reference-face ((t (:foreground ,a-reference))))
  162. `(font-lock-warning-face ((t (:foreground ,a-warning))))
  163.  
  164. ;; highlight-numbers
  165. `(highlight-numbers-number ((t (:foreground ,a-constant))))
  166.  
  167. ;; custom
  168. `(custom-state ((t (:foreground ,a-custom-state))))
  169.  
  170. ;; ;; tree-sitter
  171. ;; `(tree-sitter-hl-face:method.call ((t (:inherit font-lock-function-name-face))))
  172. ;; `(tree-sitter-hl-face:function.call ((t (:inherit font-lock-function-name-face))))
  173. ;; `(tree-sitter-hl-face:operator ((t (:inherit default))))
  174. ;; `(tree-sitter-hl-face:constant.builtin ((t (:inherit font-lock-constant-face))))
  175. ;; `(tree-sitter-hl-face:number ((t (:inherit font-lock-constant-face))))
  176. ;; `(tree-sitter-hl-face:variable ((t (:inherit font-lock-variable-name-face))))
  177. ;; `(tree-sitter-hl-face:keyword ((t (:inherit font-lock-keyword-face))))
  178.  
  179. ;; whitespace
  180. ;; `(trailing-whitespace ((t ,(list :foreground a-black
  181. ;; :background a-red))))
  182. `(whitespace-space ((t ,(list :background a-bg
  183. :foreground a-bg+1))))
  184. `(whitespace-tab ((t ,(list :background a-bg
  185. :foreground a-bg+1))))
  186. `(whitespace-hspace ((t ,(list :background a-bg
  187. :foreground a-bg+2))))
  188. `(whitespace-line ((t ,(list :background a-bg
  189. :foreground a-red+1))))
  190. `(whitespace-newline ((t ,(list :background a-bg
  191. :foreground a-bg+2))))
  192. `(whitespace-trailing ((t ,(list :background a-red+1
  193. :foreground a-red+1))))
  194. `(whitespace-empty ((t ,(list :background a-niagara-2
  195. :foreground a-niagara-2))))
  196. `(whitespace-indentation ((t ,(list :background a-bg
  197. :foreground a-bg+1))))
  198. `(whitespace-space-after-tab ((t ,(list :background a-red+1
  199. :foreground a-red+1))))
  200. `(whitespace-space-before-tab ((t ,(list :background a-red+1
  201. :foreground a-red+1))))
  202.  
  203. ;; mode-line stuff
  204. `(mode-line ((t ,(list :background a-text
  205. :foreground a-bg
  206. :box nil))))
  207. `(mode-line-inactive ((t ,(list :background a-bg+1
  208. :foreground a-quartz))))
  209. `(mode-line-buffer-id ((t ,(list :bold t))))
  210.  
  211. ;; isearch
  212. `(isearch ((t ,(list :foreground a-black
  213. :background a-pink))))
  214. `(isearch-fail ((t ,(list :foreground a-black
  215. :background a-red))))
  216. `(isearch-lazy-highlight-face ((t ,(list
  217. :foreground a-fg+1
  218. :background a-niagara-1))))
  219.  
  220. ;; dired
  221. `(dired-directory ((t (:foreground ,a-niagara :weight bold))))
  222. `(dired-symlink ((t (:foreground ,a-pink))))
  223. `(dired-ignored ((t ,(list :foreground a-quartz
  224. :inherit 'unspecified))))
  225.  
  226. ;; eshell
  227. `(eshell-ls-backup ((t (:foreground ,a-quartz))))
  228. `(eshell-ls-directory ((t (:foreground ,a-niagara))))
  229. `(eshell-ls-executable ((t (:foreground ,a-green))))
  230. `(eshell-ls-symlink ((t (:foreground ,a-yellow))))
  231. )
  232. )
  233.  
  234. ;; Duplicate from :Here???
  235. (font-lock-add-keywords '(c-mode c++-mode)
  236. '(("\\(\\w+\\)\\s-*\("
  237. (1 font-lock-function-name-face)))
  238. t)
  239.  
  240. (provide-theme 'actraiser)
  241.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!