Add tronesque theme and refcard to the repository
This commit is contained in:
parent
52a98ec86c
commit
f2d68d324d
GPG key ID:
41D62D42D3B0D765
2 changed files with 387 additions and 0 deletions
387
10themes-tronesque.el
Normal file
387
10themes-tronesque.el
Normal file
|
|
@ -0,0 +1,387 @@
|
|||
;;; tronesque-theme.el --- Color Theme based on Tron universe.
|
||||
|
||||
;; This file is free software; you can redistribute it and/or modify
|
||||
;; it under the terms of the GNU General Public License as published by
|
||||
;; the Free Software Foundation; either version 3, or (at your option)
|
||||
;; any later version.
|
||||
|
||||
;; This file is distributed in the hope that it will be useful,
|
||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;; GNU General Public License for more details.
|
||||
|
||||
;; License: GPL-3+
|
||||
|
||||
;; Copyright (c) 2017 Aurélien Bottazini
|
||||
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
;; Author: Aurélien Bottazini <aurelienbottazini.com>
|
||||
;; URL: https://github.com/aurelienbottazini/tronesque
|
||||
;; Version: 2.0
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; In your init file:
|
||||
;; (load-theme 'tronesque)
|
||||
;;
|
||||
;; You can also add:
|
||||
;; (tronesque-mode-line)
|
||||
;; To get a custom mode-line with additional colors
|
||||
;;
|
||||
;; Supports both Emacs with a window system and Emacs within a
|
||||
;; terminal. When used within a terminal you should use tronesque
|
||||
;; themed ansi colors (available in github repository)
|
||||
|
||||
;;; Code:
|
||||
(deftheme tronesque
|
||||
"Theme based on Tron universe. Colors are inspired / taken from the movies.
|
||||
More information on Tron: https://en.wikipedia.org/wiki/Tron")
|
||||
|
||||
(let (
|
||||
(base00 (if (window-system) "#081724" "black"))
|
||||
(base01 (if (window-system) "#033340" "brightblack"))
|
||||
(base02 (if (window-system) "#1d5483" "brightyellow"))
|
||||
(base03 (if (window-system) "#2872b2" "brightblue"))
|
||||
(base04 (if (window-system) "#d3f9ee" "white"))
|
||||
(base05 (if (window-system) "#a6f3dd" "brightgreen"))
|
||||
(base06 (if (window-system) "#effffe" "brightwhite"))
|
||||
(base07 (if (window-system) "#fffed9" "brightcyan"))
|
||||
(red (if (window-system) "#ff694d" "red"))
|
||||
(orange (if (window-system) "#f5b55f" "brightred"))
|
||||
(yellow (if (window-system) "#fffe4e" "yellow"))
|
||||
(magenta (if (window-system) "#afc0fd" "brightmagenta"))
|
||||
(violet (if (window-system) "#96a5d9" "magenta"))
|
||||
(blue (if (window-system) "#bad6e2" "blue"))
|
||||
(cyan (if (window-system) "#d2f1ff" "cyan"))
|
||||
(green (if (window-system) "#68f6cb" "green")))
|
||||
|
||||
(custom-theme-set-faces
|
||||
'tronesque
|
||||
|
||||
|
||||
`(button ((t (:background ,base00
|
||||
:foreground ,magenta
|
||||
:inherit nil
|
||||
:box (:line-width 2 :style released-button)))))
|
||||
`(cursor ((t (:background ,base06))))
|
||||
|
||||
`(custom-button ((t (:background ,magenta
|
||||
:foreground ,base00
|
||||
:inherit nil
|
||||
:box (:line-width 2 :style released-button)))))
|
||||
`(custom-state ((t (:foreground ,green))))
|
||||
`(default ((t (:background ,base00 :foreground ,base04))))
|
||||
`(dired-directory ((t (:background ,green :foreground ,base00))))
|
||||
`(dired-symlink ((t (:foreground ,yellow))))
|
||||
|
||||
`(escape-glyph ((t (:foreground ,green))))
|
||||
`(flymake-errline ((t (:background ,red
|
||||
:foreground ,base00
|
||||
:underline nil))))
|
||||
`(flymake-warnline ((t (:background ,orange
|
||||
:foreground ,base00
|
||||
:underline nil))))
|
||||
`(font-lock-builtin-face ((t (:slant italic :foreground ,violet))))
|
||||
`(font-lock-comment-delimiter-face ((t (:foreground ,base03))))
|
||||
`(font-lock-comment-face ((t (:foreground ,base03))))
|
||||
`(font-lock-constant-face ((t (:weight bold :foreground ,magenta))))
|
||||
`(font-lock-doc-face ((t (:slant italic :foreground ,green))))
|
||||
`(font-lock-function-name-face ((t (:foreground ,blue))))
|
||||
`(font-lock-keyword-face ((t (:weight bold :foreground ,violet))))
|
||||
`(font-lock-negation-char-face ((t (:foreground ,red))))
|
||||
`(font-lock-preprocessor-face ((t (:foreground ,violet))))
|
||||
`(font-lock-regexp-grouping-backslash ((t (:inherit (bold)))))
|
||||
`(font-lock-regexp-grouping-construct ((t (:inherit (bold)))))
|
||||
`(font-lock-string-face ((t (:foreground ,green))))
|
||||
`(font-lock-type-face ((t (:foreground ,orange))))
|
||||
`(font-lock-variable-name-face ((t (:foreground ,red))))
|
||||
`(font-lock-warning-face ((t (:foreground ,orange :underline t))))
|
||||
`(fringe ((t (:foreground ,base04 :background ,base01))))
|
||||
`(header-line ((t (:box (:line-width -1 :color nil :style released-button)
|
||||
:foreground ,base00 :background ,base07))))
|
||||
`(highlight ((t (:background ,yellow :foreground ,base00))))
|
||||
`(hl-line ((t (:background ,base01 :inherit nil))))
|
||||
`(idle-highlight ((t (:background ,base01 :foreground nil))))
|
||||
`(ido-indicator ((t (:background ,red
|
||||
:foreground ,base00
|
||||
:width condensed))))
|
||||
`(ido-only-match ((t (:background ,green :foreground ,base00))))
|
||||
`(ido-first-match ((t (:background ,green :foreground ,base00))))
|
||||
`(ido-subdir ((t (:foreground ,red))))
|
||||
`(info-menu-star ((t (:foreground ,red))))
|
||||
`(info-xref ((t (:foreground ,green))))
|
||||
`(isearch ((t (:weight bold :foreground ,base00 :background ,yellow))))
|
||||
`(isearch-fail ((t (:weight bold :foreground ,red))))
|
||||
`(lazy-highlight ((t (:weight bold
|
||||
:foreground ,base00
|
||||
:background ,base07))))
|
||||
`(link ((t (:foreground ,cyan :underline t))))
|
||||
`(link-visited ((t (:foreground ,blue :underline t))))
|
||||
`(match ((t (:foreground ,base00 :background ,blue))))
|
||||
`(minibuffer-prompt ((t (:foreground ,yellow))))
|
||||
`(next-error ((t (:inherit (region)))))
|
||||
`(org-hide ((t (:background ,base00 :foreground ,base00))))
|
||||
`(org-code ((t (:foreground ,violet))))
|
||||
`(org-date ((t (:underline t :foreground ,green))))
|
||||
`(org-agenda-date-today ((t (:foreground ,red :weight bold))))
|
||||
`(query-regplace ((t (:inherit (isearch)))))
|
||||
`(region ((t (:background ,base02))))
|
||||
`(secondary-selection ((t (:background ,base01))))
|
||||
`(shadow ((t (:foreground ,base02))))
|
||||
`(trailing-whitespace ((t (:background ,red))))
|
||||
|
||||
`(magit-header ((t (:background ,base01
|
||||
:foreground ,magenta
|
||||
:inherit nil ))))
|
||||
`(magit-item-highlight ((t (:background ,base01 :foreground ,base06))))
|
||||
`(magit-branch ((t (:foreground ,base05))))
|
||||
`(magit-diff-hunk-header ((t (:background ,base02))))
|
||||
`(magit-section-title ((t (:background ,orange
|
||||
:foreground ,base00
|
||||
:inherit nil
|
||||
:box (:line-width 2 :style released-button)))))
|
||||
`(diff-file-header ((t (:background ,base00
|
||||
:foreground ,magenta
|
||||
:inherit nil
|
||||
:box (:line-width 2 :style released-button)))))
|
||||
`(diff-context ((t (:inherit diff-changed :foreground ,base03))))
|
||||
`(diff-added ((t (:inherit diff-changed
|
||||
:foreground ,green
|
||||
:background ,base00))))
|
||||
`(diff-removed ((t (:inherit diff-changed
|
||||
:foreground ,red
|
||||
:background ,base00))))
|
||||
|
||||
`(outline-1 ((t (:foreground ,red :height 1.7))))
|
||||
`(outline-2 ((t (:foreground ,orange :height 1.3))))
|
||||
`(outline-3 ((t (:foreground ,yellow :height 1.05))))
|
||||
`(outline-4 ((t (:foreground ,blue))))
|
||||
`(outline-5 ((t (:foreground ,magenta))))
|
||||
`(outline-6 ((t (:foreground ,green))))
|
||||
`(outline-7 ((t (:foreground ,cyan))))
|
||||
`(outline-8 ((t (:foreground ,violet))))
|
||||
|
||||
`(success ((t (:background ,green :foreground ,base00 :weight bold))))
|
||||
`(compilation-mode-line-exit ((t (:inherit compilation-info
|
||||
:background ,green
|
||||
:weight bold))))
|
||||
`(compilation-mode-line-fail ((t (:inherit compilation-error
|
||||
:background ,red
|
||||
:weight bold))))
|
||||
|
||||
`(erc-dangerous-host-face ((t (:foreground ,red))))
|
||||
`(erc-direct-msg-face ((t (:foreground ,red))))
|
||||
`(erc-error-face ((t (:foreground ,red))))
|
||||
`(erc-fool-face ((t (:foreground ,base02))))
|
||||
`(erc-header-line ((t (:background ,base07 :foreground ,base00))))
|
||||
`(erc-inverse-face ((t (:background ,base04 :foreground ,base00))))
|
||||
`(erc-keyword-face ((t (:foreground ,green :weight bold))))
|
||||
`(erc-nick-msg-face ((t (:foreground ,red :weight bold))))
|
||||
`(erc-notice-face ((t (:foreground ,base02 :weight bold))))
|
||||
`(erc-pal-face ((t (:foreground ,magenta :weight bold))))
|
||||
`(erc-prompt-face ((t (:background ,violet
|
||||
:foreground ,base00
|
||||
:weight bold))))
|
||||
`(erc-timestamp-face ((t (:foreground ,green :weight bold))))
|
||||
`(erc-input-face ((t (:foreground ,orange))))
|
||||
`(erc-my-nick-face ((t (:foreground ,yellow))))
|
||||
`(erc-current-nick-face ((t (:foreground ,yellow))))
|
||||
|
||||
`(show-paren-match ((t (:background ,base03 :foreground ,green))))
|
||||
`(show-paren-mismatch ((t (:background ,red :foreground ,base00))))
|
||||
`(sp-show-pair-match-face ((t (:inherit show-paren-match))))
|
||||
`(sp-show-pair-mismatch-face ((t (:inherit show-paren-mismatch))))
|
||||
`(sp-pair-overlay-face ((t (:inherit sp-show-pair-match-face))))
|
||||
`(ac-completion-face ((t (:foreground ,base02 :underline t))))
|
||||
`(ac-candidate-face ((t (:background ,base04 :foreground ,base00))))
|
||||
`(ac-candidate-mouse-face ((t (:inherit ac-completion-face))))
|
||||
`(ac-selection-face ((t (:background ,base02))))
|
||||
`(writegood-weasels-face ((t (:inherit font-lock-warning-face))))
|
||||
|
||||
`(company-echo-common ((t (:foreground ,orange))))
|
||||
`(company-preview ((t (:background ,base02 :foreground ,base06))))
|
||||
`(company-preview-common ((t (:inherit company-preview
|
||||
:foreground ,base05))))
|
||||
`(company-preview-search ((t (:inherit company-preview
|
||||
:background ,yellow))))
|
||||
`(company-scrollbar-bg ((t (:inherit company-tooltip :background ,violet))))
|
||||
`(company-scrollbar-fg ((t (:background ,blue))))
|
||||
`(company-template-field ((t (:background ,yellow :foreground ,violet))))
|
||||
`(company-tooltip ((t (:background ,base02 :foreground ,base04))))
|
||||
`(company-tooltip-annotation ((t (:inherit company-tooltip
|
||||
:foreground ,base00))))
|
||||
`(company-tooltip-common ((t (:inherit company-tooltip
|
||||
:foreground ,base04))))
|
||||
`(company-tooltip-common-selection ((t (:inherit company-tooltip-selection
|
||||
:foreground ,yellow))))
|
||||
`(company-tooltip-selection ((t (:inherit company-tooltip
|
||||
:background ,base01))))
|
||||
`(helm-buffer-directory ((t (:background ,base00 :foreground ,red))))
|
||||
`(helm-buffer-file ((t (:foreground ,base05 :background ,base00))))
|
||||
`(helm-buffer-not-saved ((t (:foreground ,orange))))
|
||||
`(helm-buffer-process ((t (:foreground ,orange))))
|
||||
`(helm-buffer-saved-out ((t (:background ,base00 :foreground ,red))))
|
||||
`(helm-buffer-size ((t (:foreground ,magenta))))
|
||||
`(helm-candidate-number ((t (:background ,yellow :foreground ,base00))))
|
||||
`(helm-header ((t (:inherit header-line))))
|
||||
`(helm-prefarg ((t (:foreground ,green))))
|
||||
`(helm-selection ((t (:background ,green
|
||||
:foreground ,base00
|
||||
:underline nil))))
|
||||
`(helm-separator ((t (:foreground ,red))))
|
||||
`(helm-source-header ((t (:background ,violet
|
||||
:foreground ,base00
|
||||
:weight bold :height 1.3))))
|
||||
`(helm-visible-mark ((t (:background ,green :foreground ,base00))))
|
||||
|
||||
`(whitespace-empty ((t (:background ,yellow :foreground ,base00))))
|
||||
`(whitespace-hspace ((t (:background ,red :foreground ,yellow))))
|
||||
`(whitespace-indentation ((t (:background ,red :foreground ,yellow))))
|
||||
`(whitespace-line ((t (:foreground ,red))))
|
||||
`(whitespace-newline ((t (:foreground ,base02 :weight normal))))
|
||||
`(whitespace-space ((t (:background ,base00 :foreground ,base02))))
|
||||
`(whitespace-space-after-tab ((t (:background ,yellow :foreground ,red))))
|
||||
`(whitespace-pace-before-tab ((t (:background ,yellow :foreground ,orange))))
|
||||
`(whitespace-tab ((t (:background ,red :foreground ,yellow))))
|
||||
`(whitespace-trailing ((t (:background ,red
|
||||
:foreground ,yellow :weight bold))))
|
||||
|
||||
`(markdown-header-face ((t (:foreground ,red :weight bold))))
|
||||
`(markdown-header-face-1 ((t (:inherit outline-1))))
|
||||
`(markdown-header-face-2 ((t (:inherit outline-2))))
|
||||
`(markdown-header-face-3 ((t (:inherit outline-3))))
|
||||
`(markdown-header-face-4 ((t (:inherit outline-4))))
|
||||
`(markdown-header-face-5 ((t (:inherit outline-5))))
|
||||
)
|
||||
|
||||
(custom-theme-set-variables
|
||||
'tronesque
|
||||
|
||||
`(ansi-color-names-vector
|
||||
;; black, red, green, yellow, blue, magenta, cyan, white
|
||||
[,base00 ,red ,green ,yellow ,blue ,magenta ,cyan ,base04])
|
||||
`(ansi-term-color-vector
|
||||
;; black, red, green, yellow, blue, magenta, cyan, white
|
||||
[unspecified ,base00 ,red ,green ,yellow ,blue ,magenta ,cyan ,base04]))
|
||||
|
||||
;; Extra mode line faces
|
||||
(make-face 'mode-line-read-only-face)
|
||||
(make-face 'mode-line-modified-face)
|
||||
(make-face 'mode-line-clean-face)
|
||||
(make-face 'mode-line-folder-face)
|
||||
(make-face 'mode-line-filename-face)
|
||||
(make-face 'mode-line-position-face)
|
||||
(make-face 'mode-line-mode-face)
|
||||
(make-face 'mode-line-minor-mode-face)
|
||||
(make-face 'mode-line-vc-face)
|
||||
(make-face 'mode-line-80col-face)
|
||||
|
||||
(set-face-attribute 'mode-line nil
|
||||
:foreground base00 :background base03
|
||||
:inverse-video nil
|
||||
:box `(:line-width 2 :color ,base03 :style nil))
|
||||
(set-face-attribute 'mode-line-inactive nil
|
||||
:foreground base00 :background base01
|
||||
:inverse-video nil
|
||||
:box `(:line-width 2 :color ,base01 :style nil))
|
||||
(set-face-attribute 'mode-line-read-only-face nil
|
||||
:inherit 'mode-line-face
|
||||
:foreground red)
|
||||
(set-face-attribute 'mode-line-modified-face nil
|
||||
:inherit 'mode-line-face
|
||||
:background red
|
||||
:box `(:line-width 2 :color ,red :style nil))
|
||||
(set-face-attribute 'mode-line-clean-face nil
|
||||
:inherit 'mode-line-face
|
||||
:background green
|
||||
:box `(:line-width 2 :color ,green :style nil))
|
||||
(set-face-attribute 'mode-line-folder-face nil
|
||||
:inherit 'mode-line-face
|
||||
:foreground base00
|
||||
:background blue
|
||||
:box `(:line-width 2 :color ,blue :style nil))
|
||||
(set-face-attribute 'mode-line-filename-face nil
|
||||
:inherit 'mode-line-face
|
||||
:foreground base02
|
||||
:background orange
|
||||
:box `(:line-width 2 :color ,orange :style nil)
|
||||
:weight 'bold)
|
||||
(set-face-attribute 'mode-line-position-face nil
|
||||
:inherit 'mode-line-face
|
||||
:height 100)
|
||||
(set-face-attribute 'mode-line-mode-face nil
|
||||
:inherit 'mode-line-face
|
||||
:foreground base00
|
||||
:background blue
|
||||
:box `(:line-width 2 :color ,blue :style nil))
|
||||
(set-face-attribute 'mode-line-minor-mode-face nil
|
||||
:foreground base00
|
||||
:height 110)
|
||||
(set-face-attribute 'mode-line-vc-face nil
|
||||
:inherit 'mode-line-face
|
||||
:background green
|
||||
:box `(:line-width 2 :color ,green :style nil))
|
||||
(set-face-attribute 'mode-line-80col-face nil
|
||||
:inherit 'mode-line-position-face
|
||||
:foreground "black" :background orange
|
||||
:box `(:line-width 2 :color ,orange :style nil))
|
||||
)
|
||||
|
||||
(defun tronesque-mode-line ()
|
||||
"Change default mode-line."
|
||||
(interactive)
|
||||
(setq-default
|
||||
mode-line-format
|
||||
'(
|
||||
"%e"
|
||||
mode-line-front-space
|
||||
mode-line-mule-info
|
||||
mode-line-client
|
||||
mode-line-modified
|
||||
mode-line-remote
|
||||
mode-line-frame-identification
|
||||
(:propertize " "
|
||||
face mode-line-filename-face)
|
||||
(:propertize mode-line-buffer-identification
|
||||
face mode-line-filename-face)
|
||||
(:propertize " "
|
||||
face mode-line-filename-face)
|
||||
" "
|
||||
mode-line-position
|
||||
(vc-mode vc-mode)
|
||||
" "
|
||||
(:propertize " "
|
||||
face mode-line-mode-face)
|
||||
(:propertize mode-name
|
||||
face mode-line-mode-face)
|
||||
(:propertize " "
|
||||
face mode-line-mode-face)
|
||||
|
||||
(:eval (propertize (format-mode-line minor-mode-alist)
|
||||
'face 'mode-line-minor-mode-face))
|
||||
mode-line-misc-info
|
||||
mode-line-end-spaces)))
|
||||
|
||||
;; Helper function
|
||||
(defun shorten-directory (dir max-length)
|
||||
"Show up a directory named `DIR' with `MAX-LENGTH' characters."
|
||||
(let ((path (reverse (split-string (abbreviate-file-name dir) "/")))
|
||||
(output ""))
|
||||
(when (and path (equal "" (car path)))
|
||||
(setq path (cdr path)))
|
||||
(while (and path (< (length output) (- max-length 4)))
|
||||
(setq output (concat (car path) "/" output))
|
||||
(setq path (cdr path)))
|
||||
(when path
|
||||
(setq output (concat ".../" output)))
|
||||
output))
|
||||
|
||||
|
||||
;;;###autoload
|
||||
(when load-file-name
|
||||
(add-to-list 'custom-theme-load-path
|
||||
(file-name-as-directory (file-name-directory load-file-name))))
|
||||
|
||||
(provide-theme 'tronesque)
|
||||
;;; tronesque-theme.el ends here
|
||||
Loading…
Add table
Add a link
Reference in a new issue