emacs: add themes

This commit is contained in:
Paul Walker
2021-03-02 10:02:24 +00:00
parent 9fb40204f5
commit 954bca71a5
5 changed files with 319 additions and 0 deletions

View File

@@ -0,0 +1,25 @@
(defun color-theme-amber ()
(interactive)
(color-theme-install
'(color-theme-amber
((background-color . "#160903")
(background-mode . light)
(border-color . "#472400")
(cursor-color . "#a35000")
(foreground-color . "#eeeeec")
(mouse-color . "black"))
(fringe ((t (:background "#472400"))))
(mode-line ((t (:foreground "#ffb347" :background "#402008"))))
(region ((t (:background "#482b0f"))))
(font-lock-builtin-face ((t (:foreground "#d56b44"))))
(font-lock-comment-face ((t (:foreground "#888a85"))))
(font-lock-function-name-face ((t (:foreground "#f9971a"))))
(font-lock-keyword-face ((t (:foreground "#ffb633"))))
(font-lock-string-face ((t (:foreground "#b28153"))))
(font-lock-type-face ((t (:foreground"#ff6e1a"))))
(font-lock-constant-face ((t (:foreground "#e9771a"))))
(font-lock-variable-name-face ((t (:foreground "#e05542"))))
(minibuffer-prompt ((t (:foreground "#fa7d00" :bold t))))
(font-lock-warning-face ((t (:foreground "red" :bold t))))
)))
(provide 'color-theme-amber)

View File

@@ -0,0 +1,26 @@
(defun color-theme-aquamarina-762835 ()
"Theme generated by Sweyla: http://inspiration-theme.sweyla.com/code/seed/762835/"
(interactive)
(color-theme-install
'(color-theme-aquamarina-762835
((background-color . "#07050D")
(foreground-color . "#FFFFFF")
(background-mode . dark)
(border-color . "#323232")
(cursor-color . "#FFFFFF")
(mouse-color . "#323232"))
(mode-line ((t (:foreground "#FFFFFF" :background "#323232"))))
(region ((t (:background "#323232"))))
(font-lock-comment-face ((t (:foreground "#00A3FF"))))
(font-lock-constant-face ((t (:foreground "#2978FF"))))
(font-lock-builtin-face ((t (:foreground "#02F8FF"))))
(font-lock-function-name-face ((t (:foreground "#60F5FF"))))
(font-lock-variable-name-face ((t (:foreground "#00B7C2"))))
(font-lock-keyword-face ((t (:foreground "#55BDB5"))))
(font-lock-string-face ((t (:foreground "#FFFF7C"))))
(font-lock-doc-string-face ((t (:foreground "#FFFF7C"))))
(font-lock-type-face ((t (:foreground "#D5E8B1"))))
)))
(provide 'color-theme-aquamarina-762835)

View File

@@ -0,0 +1,27 @@
(defun color-theme-smoothy-786597 ()
"Theme generated by Sweyla: http://color-theme-smoothy-786597.el.sweyla.com/code/seed/786597/"
(interactive)
(color-theme-install
'(color-theme-smoothy-786597
((background-color . "#000000")
(foreground-color . "#FFFFFF")
(background-mode . dark)
(border-color . "#323232")
(cursor-color . "#FFFFFF")
(mouse-color . "#323232"))
(mode-line ((t (:foreground "#FFFFFF" :background "#323232"))))
(region ((t (:background "#323232"))))
(font-lock-comment-face ((t (:foreground "#208598"))))
(font-lock-constant-face ((t (:foreground "#A9430C"))))
(font-lock-builtin-face ((t (:foreground "#7F669E"))))
(font-lock-function-name-face ((t (:foreground "#C8FFBE"))))
(font-lock-variable-name-face ((t (:foreground "#4DB021"))))
(font-lock-keyword-face ((t (:foreground "#BFA155"))))
(font-lock-string-face ((t (:foreground "#5BC500"))))
(font-lock-doc-string-face ((t (:foreground "#5BC500"))))
(font-lock-type-face ((t (:foreground "#DE5E12"))))
)))
(provide 'color-theme-smoothy-786597)

View File

@@ -0,0 +1,238 @@
(deftheme mechanical-turq
"mechanical-turq By: Jasonm23 / Created 2012-06-26.")
(custom-theme-set-variables
'mechanical-turq
'(powerline-color1 "#00779a")
'(powerline-color2 "#00475a")
'(linum-format " %7i ")
'(fringe-mode 6 nil (fringe))
)
(custom-theme-set-faces
'mechanical-turq
'(default
((t
(:foreground "#ffffff"
:background "#00080A"))))
'(fixed-pitch
((t (:family "Monospace"))))
'(variable-pitch
((t (:family "Sans Serif"))))
'(escape-glyph ;; Things like
and other control chars.
((t (:foreground "#FF6600" :background "#011d2c"))))
;; Line Numbers (linum-mode)
'(linum
((t (:background "#00181b" :foreground "#005050" :box nil :height 100))))
;; Margin Fringes
'(fringe
((t ( :background "#00181b" :Foreground "#006060" ))))
;; Mode-line / status line
'(mode-line
((t (:background "#0b2c2d" :box nil :foreground "#0cd6e4" :height 85))))
'(mode-line-inactive
((t (:weight light :box nil :background "#002329" :foreground "#000000" :inherit (mode-line)))))
'(mode-line-emphasis
((t (:weight bold))))
'(mode-line-highlight
((t (:box nil (t (:inherit (highlight)))))))
'(mode-line-buffer-id
((t (:weight bold :box nil))))
;; Cursor
'(cursor
((t (:foreground "#ffffff" :background "#013d4c"))))
;; Minibuffer
'(minibuffer-prompt
((t (:weight bold :foreground "#00aab2"))))
'(minibuffer-message
((t (:foreground "#ffffff"))))
;; Region
'(region
((t (:background "#001f26"))))
;; Secondary region
'(secondary-selection
((((class color) (min-colors 88) (background dark)) (:background "#144053"))))
;; font-lock - syntax highlighting
'(font-lock-builtin-face ((t (:foreground "#508590"))))
'(font-lock-comment-face ((t (:foreground "#265f59"))))
'(font-lock-comment-delimiter-face ((t (:foreground "#467882" ))))
'(font-lock-doc-face ((t (:inherit (font-lock-string-face)))))
'(font-lock-function-name-face ((t (:foreground "#60c3be"))))
'(font-lock-keyword-face ((t (:foreground "#0abda7"))))
'(font-lock-negation-char-face ((t nil)))
'(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
'(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
'(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
'(font-lock-string-face ((t (:foreground "#aaedee"))))
'(font-lock-constant-face ((t (:foreground "#1ae9d7"))))
'(font-lock-type-face ((t (:foreground "#1f8e8a"))))
'(font-lock-variable-name-face ((t (:foreground "#0ebeb8"))))
'(font-lock-warning-face ((t (:weight bold :foreground "#FF0000"))))
;; Hightlight
'(highlight
((((class color) (min-colors 88) (background light))
(:background "#004453"))
(((class color)
(min-colors 88)
(background dark))
(:background "#004450"))
(((class color) (min-colors 16)
(background light))
(:background "#004450"))
(((class color)
(min-colors 16)
(background dark))
(:background "#005560"))
(((class color)
(min-colors 8))
(:foreground "#000000" :background "#00FF00"))
(t (:inverse-video t))))
'(shadow
((((class color grayscale)
(min-colors 88)
(background light))
(:foreground "#999999"))
(((class color grayscale)
(min-colors 88)
(background dark))
(:foreground "#999999"))
(((class color)
(min-colors 8)
(background light))
(:foreground "#00ff00"))
(((class color)
(min-colors 8)
(background dark))
(:foreground "#ffff00"))))
'(trailing-whitespace
((((class color)
(background light))
(:background "#ff0000"))
(((class color)
(background dark))
(:background "#ff0000")) (t (:inverse-video t))))
'(link ((((class color) (min-colors 88)
(background light)) (:underline t :foreground "#00b7f0")) (((class color)
(background light)) (:underline t :foreground "#0044FF")) (((class color) (min-colors 88)
(background dark)) (:underline t :foreground "#0099aa")) (((class color)
(background dark)) (:underline t :foreground "#0099aa")) (t (:inherit (underline)))))
'(link-visited ((default (:inherit (link))) (((class color)
(background light)) (:inherit (link))) (((class color)
(background dark)) (:inherit (link)))))
'(button ((t (:inherit (link)))))
'(header-line ((default (:inherit (mode-line))) (((type tty)) (:underline t :inverse-video nil))
(((class color grayscale)
(background light)) (:box nil :foreground "#222222" :background "#bbbbbb"))
(((class color grayscale)
(background dark)) (:box nil :foreground "#bbbbbb" :background "#222222"))
(((class mono)
(background light)) (:underline t :box nil :inverse-video nil :foreground "#000000" :background "#ffffff"))
(((class mono)
(background dark)) (:underline t :box nil :inverse-video nil :foreground "#ffffff" :background "#000000"))))
'(tooltip ((default nil) (nil nil)))
'(isearch
((((class color) (min-colors 88)
(background light)) (:foreground "#99ccee" :background "#444444"))
(((class color) (min-colors 88)
(background dark)) (:foreground "#bb3311" :background "##444444"))
(((class color) (min-colors 16)) (:foreground "#0088cc" :background "#444444"))
(((class color) (min-colors 8)) (:foreground "#0088cc" :background "#444444")) (t (:inverse-video t))))
'(isearch-fail
((((class color)
(min-colors 88)
(background light))
(:background "#ffaaaa"))
(((class color)
(min-colors 88)
(background dark))
(:background "#880000"))
(((class color)
(min-colors 16))
(:background "#FF0000"))
(((class color)
(min-colors 8))
(:background "#FF0000"))
(((class color grayscale))
(:foreground "#888888")) (t (:inverse-video t))))
'(lazy-highlight
((((class color)
(min-colors 88)
(background light))
(:background "#77bbdd"))
(((class color)
(min-colors 88)
(background dark))
(:background "#77bbdd"))
(((class color)
(min-colors 16))
(:background "#4499ee"))
(((class color)
(min-colors 8))
(:background "#4499ee")) (t (:underline t))))
'(match
((((class color)
(min-colors 88)
(background light))
(:background "#3388cc"))
(((class color)
(min-colors 88)
(background dark))
(:background "#3388cc"))
(((class color)
(min-colors 8)
(background light))
(:foreground "#000000" :background "#FFFF00"))
(((class color)
(min-colors 8)
(background dark))
(:foreground "#ffffff" :background "#0000FF")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "#888888"))))
'(next-error
((t (:inherit (region)))))
'(query-replace
((t (:inherit (isearch)))))
)
(provide-theme 'mechanical-turq)

View File

@@ -0,0 +1,3 @@
(
(:id "sha1:d845e6530fd2e60812dece59ee93a7ae9d373ef1" :fingerprint "sha1:34:54:18:5f:bb:5b:63:d6:03:0c:70:c6:18:cb:fc:70:6d:1d:80:a9" :host "news.xcski.com:nntp" :conditions (:self-signed :no-host-match :expired :unknown-ca :invalid))
)