maxamundsen/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update sublime, emac

Browse Source
This commit is contained in:
Max Amundsen
2026-01-05 13:05:43 -05:00
parent a3c66044ec
commit 3e83361c0a
24 changed files with 4466 additions and 1610 deletions
Download Patch File Download Diff File Expand all files Collapse all files

512
.emacs.d/themes/acme-theme.el
View File

@@ -1,512 +0,0 @@
;;; acme-theme.el --- A color theme based on Acme & Sam from Plan 9 -*- lexical-binding: t; -*-
;; Copyright (C) 2020 Ian Yi-En Pan
;; Author: Ian Y.E. Pan
;; URL: https://github.com/ianpan870102/acme-emacs-theme
;; Version: 1.0.0
;; This program 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 of the License, or
;; (at your option) any later version.
;; This program 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.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; A color theme for Emacs based on Acme & Sam from Plan 9
;;; Credits:
;; This theme was modified from John Louis Del Rosario's plan9-theme.el
;;; Code:
(defgroup acme-theme nil
"Options for acme theme."
:group 'faces)
(defcustom acme-theme-black-fg nil
"If non-nil, foreground will be pure black instead of the default dark grey."
:group 'acme-theme
:type 'boolean)
(deftheme acme "A color theme based on Acme & Sam")
;;; Color palette
(let ((class '((class color) (min-colors 89)))
(bg "#FFFFE8") ; default bg
(bg-alt "#EFEFD8")
(bg-dark "#E5E5D0")
(fg (if acme-theme-black-fg "#000000" "#444444")) ; default fg
(fg-alt "#B8B09A")
(fg-dark "#988D6D")
(fg-light "#CCCCB7")
(highlight "#E8EB98")
(highlight-alt "#E8EBC8")
;; Standardized palette
(acme-cyan "#007777")
(acme-cyan-light "#A8EFEB")
(acme-red "#880000")
(acme-red-light "#F8E8E8")
(acme-yellow "#888838")
(acme-yellow-light "#F8FCE8")
(acme-green "#005500")
(acme-green-alt "#006600")
(acme-green-light "#E8FCE8")
(acme-blue "#1054AF")
(acme-blue-light "#E1FAFF")
(acme-purple "#555599")
(acme-purple-light "#FFEAFF"))
;;; Theme Faces
(custom-theme-set-faces
'acme
;;;; Built-in
;;;;; basic coloring
`(button ((t (:underline t))))
`(link ((t (:foreground "#0066cc":weight normal))))
`(highlight ((t (:inherit link :underline t)))) ; link hover
`(link-visited ((t (:foreground ,acme-purple :underline t :weight normal))))
`(default ((t (:foreground ,fg :background ,bg))))
`(cursor ((t (:foreground ,bg :background ,fg))))
`(escape-glyph ((t (:foreground ,acme-cyan-light :bold nil))))
`(fringe ((t (:foreground ,fg :background ,bg))))
`(line-number ((t (:foreground ,fg :background ,bg-alt))))
`(line-number-current-line ((t (:foreground ,fg :background ,bg-alt))))
`(header-line ((t (:foreground ,fg :background ,acme-blue-light :box t))))
`(success ((t (:foreground ,acme-green :weight normal))))
`(warning ((t (:foreground ,acme-red :weight normal))))
`(error ((t (:foreground ,acme-red :bold t))))
;;;;; compilation
`(compilation-column-face ((t (:foreground ,acme-yellow :background ,acme-yellow-light))))
`(compilation-column-number ((t (:foreground ,acme-yellow :background ,acme-yellow-light))))
`(compilation-error-face ((t (:foreground ,acme-red :weight normal :underline t))))
`(compilation-face ((t (:foreground ,fg))))
`(compilation-info-face ((t (:foreground ,acme-blue))))
`(compilation-info ((t (:foreground ,acme-blue :underline t))))
`(compilation-line-face ((t (:foreground ,acme-purple))))
`(compilation-line-number ((t (:foreground ,acme-yellow :background ,acme-yellow-light))))
`(compilation-message-face ((t (:foreground ,acme-blue))))
`(compilation-warning-face ((t (:foreground ,acme-yellow :weight normal :underline t))))
`(compilation-mode-line-exit ((t (:foreground ,acme-cyan :weight normal))))
`(compilation-mode-line-fail ((t (:foreground ,acme-red :weight normal))))
`(compilation-mode-line-run ((t (:foreground ,acme-purple :weight normal))))
;;;;; grep
`(grep-context-face ((t (:foreground ,fg-alt))))
`(grep-error-face ((t (:foreground ,acme-red :weight normal :underline t))))
`(grep-hit-face ((t (:foreground ,acme-purple :weight normal))))
`(grep-match-face ((t (:foreground ,acme-cyan :weight normal))))
`(match ((t (:background ,acme-cyan :foreground ,acme-cyan-light))))
;;;;; ag
`(ag-hit-face ((t (:foreground ,acme-green :weight normal))))
`(ag-match-face ((t (:foreground ,acme-cyan :background ,acme-cyan-light :weight normal))))
;;;;; isearch
`(isearch ((t (:foreground ,fg :weight normal :background ,acme-cyan-light))))
`(isearch-fail ((t (:foreground ,fg :weight normal :background ,acme-red))))
`(lazy-highlight ((t (:foreground ,fg :weight normal :background ,acme-blue-light))))
`(menu ((t (:foreground ,bg :background ,fg))))
`(minibuffer-prompt ((t (:foreground ,fg :weight normal))))
`(region ((,class (:foreground ,fg :background ,highlight :extend nil))))
`(secondary-selection ((t (:background ,acme-green-light))))
`(trailing-whitespace ((t (:background ,acme-red-light))))
`(vertical-border ((t (:foreground ,acme-cyan))))
;;;;; font lock
`(font-lock-builtin-face ((t (:foreground ,fg :weight normal))))
`(font-lock-function-name-face ((t (:foreground ,fg :weight normal))))
`(font-lock-string-face ((t (:foreground ,acme-red))))
`(font-lock-keyword-face ((t (:foreground ,acme-blue :weight bold)))) ; if, else, for, while, return...
`(font-lock-type-face ((t (:foreground ,fg :weight bold)))) ; int, float, string, void...
`(font-lock-constant-face ((t (:foreground ,fg :weight bold)))) ; NULL, nullptr, true, false...
`(font-lock-variable-name-face ((t (:foreground ,fg :weight normal))))
`(font-lock-comment-face ((t (:foreground ,acme-green :italic nil))))
`(font-lock-comment-delimiter-face ((t (:foreground ,acme-green :italic nil))))
`(font-lock-doc-face ((t (:foreground ,acme-yellow :italic nil))))
`(font-lock-negation-char-face ((t (:foreground ,acme-red :weight normal))))
`(font-lock-preprocessor-face ((t (:foreground ,acme-red :weight normal))))
`(font-lock-regexp-grouping-construct ((t (:foreground ,acme-purple :weight normal))))
`(font-lock-regexp-grouping-backslash ((t (:foreground ,acme-purple :weight normal))))
`(font-lock-warning-face ((t (:foreground ,acme-red :weight normal))))
;;;;; table
`(table-cell ((t (:background ,bg-alt))))
;;;;; ledger
`(ledger-font-directive-face ((t (:foreground ,acme-cyan))))
`(ledger-font-periodic-xact-face ((t (:inherit ledger-font-directive-face))))
`(ledger-font-posting-account-face ((t (:foreground ,acme-blue))))
`(ledger-font-posting-amount-face ((t (:foreground ,acme-red))))
`(ledger-font-posting-date-face ((t (:foreground ,acme-red :weight normal))))
`(ledger-font-payee-uncleared-face ((t (:foreground ,acme-purple))))
`(ledger-font-payee-cleared-face ((t (:foreground ,fg))))
`(ledger-font-payee-pending-face ((t (:foreground ,acme-yellow))))
`(ledger-font-xact-highlight-face ((t (:background ,bg-alt))))
;;;; Third-party
;;;;; anzu
`(anzu-mode-line ((t (:foreground ,acme-yellow :background ,acme-yellow-light :weight normal))))
;;;;; clojure-mode
`(clojure-interop-method-face ((t (:inherit font-lock-function-name-face))))
;;;;; clojure-test-mode
`(clojure-test-failure-face ((t (:foreground ,acme-red :weight normal :underline t))))
`(clojure-test-error-face ((t (:foreground ,acme-red :weight normal :underline t))))
`(clojure-test-success-face ((t (:foreground ,acme-green :weight normal :underline t))))
;;;;; diff
`(diff-added ((,class (:foreground ,fg :background ,acme-green-light))
(t (:foreground ,fg :background ,acme-green-light))))
`(diff-changed ((t (:foreground ,acme-yellow))))
`(diff-context ((t (:foreground ,fg))))
`(diff-removed ((,class (:foreground ,fg :background ,acme-red-light))
(t (:foreground ,fg :background ,acme-red-light))))
`(diff-refine-added ((t :inherit diff-added :background ,acme-green-light :weight bold :underline t)))
`(diff-refine-change ((t :inherit diff-changed :weight normal)))
`(diff-refine-removed ((t :inherit diff-removed :background ,acme-red-light :weight bold :underline t)))
`(diff-header ((,class (:foreground ,fg :weight normal))
(t (:foreground ,acme-purple-light :weight normal))))
`(diff-file-header ((,class (:foreground ,fg :background ,acme-cyan-light :weight normal))
(t (:foreground ,fg :background ,acme-cyan-light :weight normal))))
`(diff-hunk-header ((,class (:foreground ,acme-green :weight normal))
(t (:foreground ,acme-green :weight normal))))
;;;;; dired/dired+/dired-subtree
`(dired-directory ((t (:foreground ,acme-blue :weight bold))))
`(diredp-display-msg ((t (:foreground ,acme-blue))))
`(diredp-compressed-file-suffix ((t (:foreground ,acme-purple))))
`(diredp-date-time ((t (:foreground ,acme-green))))
`(diredp-deletion ((t (:foreground ,acme-red))))
`(diredp-deletion-file-name ((t (:foreground ,acme-red))))
`(diredp-dir-heading ((t (:foreground ,acme-blue :background ,acme-blue-light :weight bold))))
`(diredp-dir-priv ((t (:foreground ,acme-blue))))
`(diredp-exec-priv ((t (:foreground ,acme-yellow))))
`(diredp-executable-tag ((t (:foreground ,acme-yellow))))
`(diredp-file-name ((t (:foreground ,fg))))
`(diredp-file-suffix ((t (:foreground ,acme-yellow))))
`(diredp-flag-mark ((t (:foreground ,acme-cyan))))
`(diredp-flag-mark-line ((t (:foreground ,acme-cyan))))
`(diredp-ignored-file-name ((t (:foreground ,fg-light))))
`(diredp-link-priv ((t (:foreground ,acme-purple))))
`(diredp-mode-line-flagged ((t (:foreground ,acme-yellow))))
`(diredp-mode-line-marked ((t (:foreground ,acme-yellow))))
`(diredp-no-priv ((t (:foreground ,fg))))
`(diredp-number ((t (:foreground ,acme-blue))))
`(diredp-other-priv ((t (:foreground ,fg))))
`(diredp-rare-priv ((t (:foreground ,fg))))
`(diredp-read-priv ((t (:foreground ,fg))))
`(diredp-symlink ((t (:foreground ,fg :background ,acme-blue-light))))
`(diredp-write-priv ((t (:foreground ,fg))))
`(diredp-dir-name ((t (:foreground ,acme-blue :weight bold))))
`(dired-subtree-depth-1-face ((t (:background ,bg))))
`(dired-subtree-depth-2-face ((t (:background ,bg))))
`(dired-subtree-depth-3-face ((t (:background ,bg))))
;;;;; elfeed
`(elfeed-search-date-face ((t (:foreground ,acme-blue))))
`(elfeed-search-title-face ((t (:foreground ,fg))))
`(elfeed-search-unread-title-face ((t (:foreground ,fg))))
`(elfeed-search-feed-face ((t (:foreground ,acme-green))))
`(elfeed-search-tag-face ((t (:foreground ,acme-red))))
`(elfeed-search-unread-count-face ((t (:foreground ,fg))))
;;;;; erc
`(erc-default-face ((t (:foreground ,fg))))
`(erc-header-line ((t (:inherit header-line))))
`(erc-action-face ((t (:inherit erc-default-face))))
`(erc-bold-face ((t (:inherit erc-default-face :weight normal))))
`(erc-underline-face ((t (:underline t))))
`(erc-error-face ((t (:inherit font-lock-warning-face))))
`(erc-prompt-face ((t (:foreground ,acme-green :background ,acme-green-light :weight normal))))
`(erc-timestamp-face ((t (:foreground ,acme-green :background ,acme-green-light))))
`(erc-direct-msg-face ((t (:inherit erc-default))))
`(erc-notice-face ((t (:foreground ,fg-light))))
`(erc-highlight-face ((t (:background ,highlight))))
`(erc-input-face ((t (:foreground ,fg :background ,bg-alt))))
`(erc-current-nick-face ((t (:foreground ,fg :background ,acme-cyan-light :weight normal
:box (:line-width 1 :style released-button)))))
`(erc-nick-default-face ((t (:weight normal :background ,bg-alt))))
`(erc-my-nick-face ((t (:foreground ,fg :background ,acme-cyan-light :weight normal
:box (:line-width 1 :style released-button)))))
`(erc-nick-msg-face ((t (:inherit erc-default))))
`(erc-fool-face ((t (:inherit erc-default))))
`(erc-pal-face ((t (:foreground ,acme-purple :weight normal))))
`(erc-dangerous-host-face ((t (:inherit font-lock-warning-face))))
`(erc-keyword-face ((t (:foreground ,acme-yellow :weight normal))))
;;;;; evil
`(evil-search-highlight-persist-highlight-face ((t (:inherit lazy-highlight))))
;;;;; flx
`(flx-highlight-face ((t (:foreground ,acme-yellow :background ,acme-green-light
:weight normal :underline t))))
;;;;; company
`(company-tooltip ((t (:background ,acme-blue-light))))
`(company-tooltip-selection ((t (:background ,acme-cyan-light))))
`(company-tooltip-common ((t (:foreground ,acme-blue :bold t))))
`(company-tooltip-annotation ((t (:foreground ,acme-yellow :italic t)))) ; parameter hints etc.
`(company-scrollbar-fg ((t (:background ,acme-cyan))))
`(company-scrollbar-bg ((t (:background ,acme-cyan-light))))
`(company-preview-common ((t (:foreground ,fg :background ,acme-cyan-light))))
;;;;; highlight-symbol
`(highlight-symbol-face ((t (:background ,bg-alt))))
;;;;; highlight-numbers
`(highlight-numbers-number ((t (:foreground ,acme-blue))))
;;;;; highlight-operators
`(highlight-operators-face ((t (:foreground ,fg))))
;;;;; hl-todo
`(hl-todo ((t (:inverse-video t))))
;;;;; hl-line-mode
`(hl-line ((,class (:background ,bg-alt))))
;;;;; hl-sexp
`(hl-sexp-face ((,class (:background ,bg-alt))))
;;;;; ido-mode
`(ido-first-match ((t (:foreground ,fg :weight normal))))
`(ido-only-match ((t (:foreground ,fg :weight normal))))
`(ido-subdir ((t (:foreground ,acme-blue))))
`(ido-indicator ((t (:foreground ,acme-yellow))))
;;;;; ido-vertical
`(ido-vertical-first-match-face ((t (:foreground ,fg :background ,acme-cyan-light :weight normal))))
`(ido-vertical-only-match-face ((t (:foreground ,acme-red :background ,acme-red-light :weight normal))))
`(ido-vertical-match-face ((t (:foreground ,fg :background ,acme-green-light
:weight normal :underline t))))
;;;;; indent-guide
`(indent-guide-face ((t (:foreground ,highlight))))
;;;;; ivy
`(ivy-current-match ((t (:background ,acme-blue-light :underline t :extend t))))
`(ivy-minibuffer-match-face-1 ((t (:background ,bg-alt))))
`(ivy-minibuffer-match-face-2 ((t (:background ,acme-cyan-light))))
`(ivy-minibuffer-match-face-3 ((t (:background ,acme-purple-light))))
`(ivy-minibuffer-match-face-3 ((t (:background ,acme-blue-light))))
;;;;; js2-mode
`(js2-warning ((t (:underline ,acme-yellow))))
`(js2-error ((t (:foreground ,acme-red :weight normal))))
`(js2-jsdoc-tag ((t (:foreground ,acme-purple))))
`(js2-jsdoc-type ((t (:foreground ,acme-blue))))
`(js2-jsdoc-value ((t (:foreground ,acme-cyan))))
`(js2-function-param ((t (:foreground ,fg))))
`(js2-external-variable ((t (:foreground ,acme-cyan))))
;;;;; linum-mode
`(linum ((t (:foreground ,fg-light))))
;;;;; lsp-mode
`(lsp-face-highlight-textual ((t (:background ,bg-dark))))
`(lsp-face-highlight-read ((t (:background ,acme-purple-light))))
`(lsp-face-highlight-write ((t (:background ,acme-green-light))))
;;;;; magit
`(magit-section-heading ((t (:foreground ,acme-cyan :background ,acme-blue-light
:weight normal :underline t))))
`(magit-section-highlight ((t (:background ,bg-alt))))
`(magit-section-heading-selection ((t (:background ,highlight))))
`(magit-filename ((t (:foreground ,fg))))
`(magit-hash ((t (:foreground ,acme-yellow :weight normal))))
`(magit-tag ((t (:foreground ,acme-purple :weight normal))))
`(magit-refname ((t (:foreground ,acme-purple :weight normal))))
`(magit-head ((t (:foreground ,acme-green :weight normal))))
`(magit-branch-local ((t (:foreground ,acme-blue :background ,acme-blue-light
:weight normal))))
`(magit-branch-remote ((t (:foreground ,acme-green :background ,acme-green-light
:weight normal))))
`(magit-branch-current ((t (:foreground ,acme-cyan :background ,acme-cyan-light
:weight normal
:box (:line-width 1 :color ,acme-cyan)))))
`(magit-diff-file-heading ((t (:foreground ,fg :weight normal))))
`(magit-diff-file-heading-highlight ((t (:background ,bg-alt))))
`(magit-diff-file-heading-selection ((t (:foreground ,acme-red :background ,highlight))))
`(magit-diff-hunk-heading ((t (:foreground ,acme-blue :background ,acme-blue-light :weight normal :underline t))))
`(magit-diff-hunk-heading-highlight ((t (:background ,acme-cyan-light))))
`(magit-diff-added ((t (:foreground ,acme-green :background ,acme-green-light))))
`(magit-diff-removed ((t (:foreground ,acme-red :background ,acme-red-light))))
`(magit-diff-context ((t (:foreground ,fg-dark :background nil))))
`(magit-diff-added-highlight ((t (:foreground ,acme-green :background ,acme-green-light))))
`(magit-diff-removed-highlight ((t (:foreground ,acme-red :background ,acme-red-light))))
`(magit-diff-context-highlight ((t (:foreground ,fg-dark :background ,bg-alt))))
`(magit-diffstat-added ((t (:foreground ,acme-green :background ,acme-green-light :weight normal))))
`(magit-diffstat-removed ((t (:foreground ,acme-red :background ,acme-red-light :weight normal))))
`(magit-log-author ((t (:foreground ,acme-blue :weight normal))))
`(magit-log-date ((t (:foreground ,acme-purple :weight normal))))
`(magit-log-graph ((t (:foreground ,acme-red :weight normal))))
`(magit-blame-heading ((t (:foreground ,fg-dark :background ,bg-alt))))
;;;;; paren-face
`(parenthesis ((t (:foreground "#CCCCB7"))))
;;;;; project-explorer
`(pe/file-face ((t (:foreground ,fg))))
`(pe/directory-face ((t (:foreground ,acme-blue :weight normal))))
;;;;; rainbow-delimiters
`(rainbow-delimiters-depth-1-face ((t (:foreground ,acme-green))))
`(rainbow-delimiters-depth-2-face ((t (:foreground ,acme-blue))))
`(rainbow-delimiters-depth-3-face ((t (:foreground ,acme-red))))
;;;;; show-paren
`(show-paren-mismatch ((t (:foreground ,acme-yellow :background ,acme-red :weight normal))))
`(show-paren-match ((t (:foreground ,fg :background ,acme-cyan-light :weight normal))))
;;;;; mode-line/sml-mode-line
`(mode-line ((,class (:foreground ,fg :background ,acme-blue-light :box t))))
`(mode-line-inactive ((t (:foreground ,fg :background ,bg-dark :box t))))
`(mode-line-buffer-id ((t (:foreground ,fg :weight bold)))) ; associated buffer/file name
`(sml/global ((t (:foreground ,fg))))
`(sml/modes ((t (:foreground ,acme-green :background ,acme-green-light))))
`(sml/filename ((t (:foreground ,acme-red))))
`(sml/folder ((t (:foreground ,fg))))
`(sml/prefix ((t (:foreground ,fg))))
`(sml/read-only ((t (:foreground ,fg))))
`(sml/modified ((t (:foreground ,acme-red :weight normal))))
`(sml/outside-modified ((t (:background ,acme-red :foreground ,acme-red-light :weight normal))))
`(sml/line-number ((t (:foreground ,fg :weight normal))))
`(sml/col-number ((t (:foreground ,fg :weight normal))))
`(sml/vc ((t (:foreground ,fg :weight normal))))
`(sml/vc-edited ((t (:foreground ,acme-red :weight normal))))
`(sml/git ((t (:foreground ,fg :weight normal))))
;;;;; sh
`(sh-heredoc-face ((t (:foreground ,acme-purple))))
;;;;; web-mode
`(web-mode-builtin-face ((t (:inherit ,font-lock-builtin-face))))
`(web-mode-comment-face ((t (:inherit ,font-lock-comment-face))))
`(web-mode-constant-face ((t (:inherit ,font-lock-constant-face))))
`(web-mode-doctype-face ((t (:inherit ,font-lock-comment-face))))
`(web-mode-folded-face ((t (:underline t))))
`(web-mode-function-name-face ((t (:foreground ,fg :weight normal))))
`(web-mode-html-attr-name-face ((t (:foreground ,fg))))
`(web-mode-html-attr-value-face ((t (:inherit ,font-lock-string-face))))
`(web-mode-html-tag-face ((t (:foreground ,acme-blue))))
`(web-mode-keyword-face ((t (:inherit ,font-lock-keyword-face))))
`(web-mode-preprocessor-face ((t (:inherit ,font-lock-preprocessor-face))))
`(web-mode-string-face ((t (:inherit ,font-lock-string-face))))
`(web-mode-type-face ((t (:inherit ,font-lock-type-face))))
`(web-mode-variable-name-face ((t (:inherit ,font-lock-variable-name-face))))
`(web-mode-server-background-face ((t (:background ,acme-green-light))))
`(web-mode-server-comment-face ((t (:inherit web-mode-comment-face))))
`(web-mode-server-string-face ((t (:foreground ,acme-red))))
`(web-mode-symbol-face ((t (:inherit font-lock-constant-face))))
`(web-mode-warning-face ((t (:inherit font-lock-warning-face))))
`(web-mode-whitespaces-face ((t (:background ,acme-red-light))))
`(web-mode-block-face ((t (:background ,acme-green-light))))
`(web-mode-current-element-highlight-face ((t (:foreground ,fg :background ,acme-blue-light))))
`(web-mode-json-key-face ((,class (:inherit font-lock-string-face))))
`(web-mode-json-context-face ((,class (:inherit font-lock-string-face :bold t))))
;;;;; which-func-mode
`(which-func ((t (:foreground ,acme-purple :background ,acme-purple-light))))
;;;;; yascroll
`(yascroll:thumb-text-area ((t (:background ,highlight))))
`(yascroll:thumb-fringe ((t (:background ,bg :foreground ,bg
:box (:line-width 1 :style released-button)))))
;;;;; Org
`(org-level-1 ((t (:background ,acme-blue-light :foreground ,acme-blue :weight bold :overline t))))
`(org-level-2 ((t (:background ,acme-blue-light :foreground ,acme-cyan :weight bold :overline t))))
`(org-level-3 ((t (:background ,acme-blue-light :foreground ,acme-blue :weight bold :overline t))))
`(org-level-4 ((t (:background ,acme-blue-light :foreground ,acme-cyan))))
`(org-level-5 ((t (:background ,acme-blue-light :foreground ,acme-blue))))
`(org-level-6 ((t (:background ,acme-blue-light :foreground ,acme-cyan))))
`(org-level-7 ((t (:background ,acme-blue-light :foreground ,acme-blue))))
`(org-level-8 ((t (:background ,acme-blue-light :foreground ,acme-cyan))))
`(org-document-title ((t (:height 1.2 :foreground ,acme-blue :weight bold :underline t)))) ; #TITLE
`(org-meta-line ((t (:foreground ,acme-green))))
`(org-document-info ((t (:foreground ,acme-cyan :weight normal))))
`(org-document-info-keyword ((t (:foreground ,acme-cyan))))
`(org-todo ((t (:foreground ,acme-yellow :background ,bg-alt :weight normal :box (:line-width 1 :style released-button)))))
`(org-done ((t (:foreground ,acme-green :background ,acme-green-light :weight normal :box (:style released-button)))))
`(org-date ((t (:foreground ,acme-purple))))
`(org-table ((t (:foreground ,acme-purple))))
`(org-formula ((t (:foreground ,acme-blue :background ,bg-alt))))
`(org-code ((t (:foreground ,acme-red :background ,bg-alt))))
`(org-verbatim ((t (:foreground ,fg :background ,bg-alt :underline t))))
`(org-special-keyword ((t (:foreground ,acme-cyan))))
`(org-agenda-date ((t (:foreground ,acme-cyan))))
`(org-agenda-structure ((t (:foreground ,acme-purple))))
`(org-block ((t (:foreground ,fg :background ,bg-alt :extend t))))
`(org-block-background ((t (:background ,bg-alt :extend t))))
`(org-block-begin-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t :extend t))))
`(org-block-end-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t :extend t))))
;;;;; origami
`(origami-fold-replacement-face ((t (:foreground ,acme-red :background ,acme-red-light
:box (:line-width -1)))))
;;;;; git-gutter
`(git-gutter:added ((t (:background ,acme-green-alt :foreground ,acme-green-alt :weight normal))))
`(git-gutter:deleted ((t (:background ,acme-red :foreground ,acme-red :weight normal))))
`(git-gutter:modified ((t (:background ,acme-yellow :foreground ,acme-yellow :weight normal))))
`(git-gutter-fr:added ((t (:background ,acme-green-alt :foreground ,acme-green-alt :weight normal))))
`(git-gutter-fr:deleted ((t (:background ,acme-red :foreground ,acme-red :weight normal))))
`(git-gutter-fr:modified ((t (:background ,acme-yellow :foreground ,acme-yellow :weight normal))))
;;;;; diff-hl
`(diff-hl-insert ((t (:background ,acme-green-alt :foreground ,acme-green-alt))))
`(diff-hl-delete ((t (:background ,acme-red :foreground ,acme-red))))
`(diff-hl-change ((t (:background ,acme-yellow :foreground ,acme-yellow))))
;;;;; mu4e, mail
`(mu4e-header-highlight-face ((t (:background ,highlight))))
`(mu4e-unread-face ((t (:foreground ,acme-blue :weight normal))))
`(mu4e-flagged-face ((t (:foreground ,acme-red :background ,acme-red-light :weight normal))))
`(mu4e-compose-separator-face ((t (:foreground ,acme-green))))
`(mu4e-header-value-face ((t (:foreground ,fg))))
`(message-header-name ((t (:foreground ,acme-purple :weight normal))))
`(message-header-to ((t (:foreground ,acme-blue))))
`(message-header-subject ((t (:foreground ,acme-blue))))
`(message-header-other ((t (:foreground ,acme-blue))))
`(message-cited-text ((t (:inherit font-lock-comment-face))))
;;;;; term-mode (vterm too)
`(term ((,class (:foreground ,fg :background ,bg))))
`(term-color-black ((,class (:foreground ,fg :background ,fg))))
`(term-color-blue ((,class (:foreground ,acme-blue :background ,acme-blue))))
`(term-color-red ((,class (:foreground ,acme-red :background ,acme-red))))
`(term-color-green ((,class (:foreground ,acme-green :background ,acme-green))))
`(term-color-yellow ((,class (:foreground ,acme-yellow :background ,acme-yellow))))
`(term-color-magenta ((,class (:foreground ,acme-purple :background ,acme-purple))))
`(term-color-cyan ((,class (:foreground ,acme-cyan :background ,acme-cyan))))
`(term-color-white ((,class (:foreground ,fg :background ,fg))))
;;;;; fill-column-indicator
`(fci-rule-color ((t (:foreground ,highlight-alt))))
`(fill-column-indicator ((t (:foreground ,highlight-alt))))))
;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'acme)
(provide 'acme-theme)
;;; acme-theme.el ends here

24
.emacs.d/themes/bedroom-theme.el
View File

@@ -11,18 +11,18 @@
(custom-theme-set-faces
'bedroom
;; Basic faces
'(default ((t (:foreground "#DADEE5" :background "#141B2B"))))
'(default ((t (:foreground "#DADEE5" :background "#142B29"))))
'(cursor ((t (:background "lightgreen"))))
'(region ((t (:background "#15285A"))))
'(region ((t (:background "#1F4A3A"))))
'(hl-line ((t (:background "#000000"))))
'(highlight ((t (:background "#15285A"))))
'(mode-line ((t (:background "#1E3050" :foreground "#DADEE5"))))
'(mode-line-inactive ((t (:background "#182438" :foreground "#6A7A8A"))))
'(highlight ((t (:background "#1F4A3A"))))
'(mode-line ((t (:background "#1E4A3A" :foreground "#DADEE5"))))
'(mode-line-inactive ((t (:background "#183524" :foreground "#6A8A7A"))))
'(vertical-border ((t (:foreground "#505050"))))
'(fringe ((t (:background "#141B2B"))))
'(window-divider ((t (:foreground "#3A4255"))))
'(window-divider-first-pixel ((t (:foreground "#141B2B"))))
'(window-divider-last-pixel ((t (:foreground "#3A4255"))))
'(fringe ((t (:background "#142B29"))))
'(window-divider ((t (:foreground "#3A5542"))))
'(window-divider-first-pixel ((t (:foreground "#142B29"))))
'(window-divider-last-pixel ((t (:foreground "#3A5542"))))
'(tab-line ((t (:background "#505050" :foreground "#DADEE5"))))
'(tab-line-tab ((t (:background "#505050" :foreground "#DADEE5"))))
'(tab-line-tab-current ((t (:background "#505050" :foreground "#DADEE5"))))
@@ -40,12 +40,12 @@
'(font-lock-warning-face ((t (:foreground "#FC2D07"))))
;; Dired
'(dired-directory ((t (:foreground "#5FAFD7" :weight bold))))
'(dired-directory ((t (:foreground "#5FD7AF" :weight bold))))
'(dired-symlink ((t (:foreground "#87919D"))))
;; Custom/widget faces
'(custom-group-tag ((t (:underline t :foreground "lightblue"))))
'(custom-variable-tag ((t (:underline t :foreground "lightblue"))))
'(custom-group-tag ((t (:underline t :foreground "lightgreen"))))
'(custom-variable-tag ((t (:underline t :foreground "lightgreen"))))
'(widget-field ((t (:foreground "white"))))
'(widget-single-line-field ((t (:background "darkgray")))))

208
.emacs.d/themes/classic-theme.el Normal file
View File

@@ -0,0 +1,208 @@
;;; classic-theme.el --- classic theme
;; Copyright (C) 2000 by Frederic Giroud
;; Copyright (C) 2013 by Syohei YOSHIDA
;; Author: Syohei YOSHIDA <syohex@gmail.com>
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program 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 of the License, or
;; (at your option) any later version.
;; This program 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.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of classic theme from `color-themes'
;;; Code:
(deftheme classic
"classic theme")
(custom-theme-set-faces
'classic
'(default ((t (:background "darkslategrey" :foreground "AntiqueWhite"))))
;; avoid ugly random fringe color
'(fringe ((t (:background "darkslategrey"))))
'(mouse ((t (:foreground "Grey"))))
'(cursor ((t (:background "Red"))))
'(border ((t (:foreground "black"))))
'(gnus-cite-attribution-face ((t (:lforeground "lemon chiffon" :bold t))))
'(gnus-cite-face-1 ((t (:foreground "LightSalmon"))))
'(gnus-cite-face-2 ((t (:foreground "Khaki"))))
'(gnus-cite-face-3 ((t (:foreground "Coral"))))
'(gnus-cite-face-4 ((t (:foreground "yellow green"))))
'(gnus-cite-face-5 ((t (:foreground "dark khaki"))))
'(gnus-cite-face-6 ((t (:foreground "bisque"))))
'(gnus-cite-face-7 ((t (:foreground "peru"))))
'(gnus-cite-face-8 ((t (:foreground "light coral"))))
'(gnus-cite-face-9 ((t (:foreground "plum"))))
'(gnus-emphasis-bold ((t (:bold t))))
'(gnus-emphasis-bold-italic ((t (:italic t :bold t))))
'(gnus-emphasis-highlight-words ((t (:background "black" :foreground "yellow"))))
'(gnus-emphasis-italic ((t (:italic t))))
'(gnus-emphasis-underline ((t (:underline t))))
'(gnus-emphasis-underline-bold ((t (:bold t :underline t))))
'(gnus-emphasis-underline-bold-italic ((t (:italic t :bold t :underline t))))
'(gnus-emphasis-underline-italic ((t (:italic t :underline t))))
'(gnus-group-mail-1-empty-face ((t (:foreground "White"))))
'(gnus-group-mail-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-mail-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-mail-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-mail-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-mail-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-mail-low-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-mail-low-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-1-empty-face ((t (:foreground "White"))))
'(gnus-group-news-1-face ((t (:bold t :foreground "White"))))
'(gnus-group-news-2-empty-face ((t (:foreground "light cyan"))))
'(gnus-group-news-2-face ((t (:bold t :foreground "light cyan"))))
'(gnus-group-news-3-empty-face ((t (:foreground "LightBlue"))))
'(gnus-group-news-3-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-group-news-4-empty-face ((t (:foreground "Aquamarine"))))
'(gnus-group-news-4-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-group-news-5-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-5-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-6-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-6-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-group-news-low-empty-face ((t (:foreground "MediumAquamarine"))))
'(gnus-group-news-low-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-content-face ((t (:foreground "LightSkyBlue3"))))
'(gnus-header-from-face ((t (:bold t :foreground "light cyan"))))
'(gnus-header-name-face ((t (:bold t :foreground "LightBlue"))))
'(gnus-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(gnus-signature-face ((t (:foreground "Grey"))))
'(gnus-splash-face ((t (:foreground "ForestGreen"))))
'(gnus-summary-cancelled-face ((t (:background "Black" :foreground "Yellow"))))
'(gnus-summary-high-ancient-face ((t (:bold t :foreground "MediumAquamarine"))))
'(gnus-summary-high-read-face ((t (:bold t :foreground "Aquamarine"))))
'(gnus-summary-high-ticked-face ((t (:bold t :foreground "LightSalmon"))))
'(gnus-summary-high-unread-face ((t (:bold t :foreground "beige"))))
'(gnus-summary-low-ancient-face ((t (:foreground "DimGray"))))
'(gnus-summary-low-read-face ((t (:foreground "slate gray"))))
'(gnus-summary-low-ticked-face ((t (:foreground "Pink"))))
'(gnus-summary-low-unread-face ((t (:foreground "LightGray"))))
'(gnus-summary-normal-ancient-face ((t (:foreground "MediumAquamarine"))))
'(gnus-summary-normal-read-face ((t (:foreground "Aquamarine"))))
'(gnus-summary-normal-ticked-face ((t (:foreground "LightSalmon"))))
'(gnus-summary-normal-unread-face ((t (nil))))
'(gnus-summary-selected-face ((t (:background "DarkSlateBlue"))))
'(message-cited-text-face ((t (:foreground "LightSalmon"))))
'(message-header-cc-face ((t (:foreground "light cyan"))))
'(message-header-name-face ((t (:foreground "LightBlue"))))
'(message-header-newsgroups-face ((t (:bold t :foreground "MediumAquamarine"))))
'(message-header-other-face ((t (:foreground "MediumAquamarine"))))
'(message-header-subject-face ((t (:bold t :foreground "light cyan"))))
'(message-header-to-face ((t (:bold t :foreground "light cyan"))))
'(message-header-xheader-face ((t (:foreground "MediumAquamarine"))))
'(message-separator-face ((t (:foreground "chocolate"))))
'(apropos-keybinding-face ((t (:underline t))))
'(apropos-label-face ((t (:italic t))))
'(apropos-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(apropos-property-face ((t (:italic t :bold t :foreground "beige"))))
'(apropos-symbol-face ((t (:underline t :foreground "DodgerBlue1"))))
'(goto-address-mail-face ((t (:bold t :foreground "light cyan"))))
'(goto-address-mail-mouse-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(goto-address-url-face ((t (:underline t :foreground "DodgerBlue1"))))
'(goto-address-url-mouse-face ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(list-matching-lines-face ((t (:bold t))))
'(view-highlight-face ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(bold ((t (:bold t))))
'(bold-italic ((t (:italic t :bold t :foreground "beige"))))
'(calendar-today-face ((t (:underline t))))
'(cperl-array-face ((t (:foreground "Yellow"))))
'(cperl-hash-face ((t (:foreground "White"))))
'(cperl-nonoverridable-face ((t (:foreground "SkyBlue"))))
'(custom-button-face ((t (:underline t :foreground "MediumSlateBlue"))))
'(custom-documentation-face ((t (:foreground "Grey"))))
'(custom-group-tag-face ((t (:foreground "MediumAquamarine"))))
'(custom-state-face ((t (:foreground "LightSalmon"))))
'(custom-variable-tag-face ((t (:foreground "Aquamarine"))))
'(diary-face ((t (:foreground "IndianRed"))))
'(erc-action-face ((t (:bold t))))
'(erc-bold-face ((t (:bold t))))
'(erc-default-face ((t (nil))))
'(erc-direct-msg-face ((t (:foreground "LightSalmon"))))
'(erc-error-face ((t (:bold t :foreground "IndianRed"))))
'(erc-input-face ((t (:foreground "Beige"))))
'(erc-inverse-face ((t (:background "wheat" :foreground "darkslategrey"))))
'(erc-notice-face ((t (:foreground "MediumAquamarine"))))
'(erc-pal-face ((t (:foreground "pale green"))))
'(erc-prompt-face ((t (:foreground "MediumAquamarine"))))
'(erc-underline-face ((t (:underline t))))
'(eshell-ls-archive-face ((t (:bold t :foreground "IndianRed"))))
'(eshell-ls-backup-face ((t (:foreground "Grey"))))
'(eshell-ls-clutter-face ((t (:foreground "DimGray"))))
'(eshell-ls-directory-face ((t (:bold t :foreground "MediumSlateBlue"))))
'(eshell-ls-executable-face ((t (:foreground "Coral"))))
'(eshell-ls-missing-face ((t (:foreground "black"))))
'(eshell-ls-picture-face ((t (:foreground "Violet"))))
'(eshell-ls-product-face ((t (:foreground "LightSalmon"))))
'(eshell-ls-readonly-face ((t (:foreground "Aquamarine"))))
'(eshell-ls-special-face ((t (:foreground "Gold"))))
'(eshell-ls-symlink-face ((t (:foreground "White"))))
'(eshell-ls-unreadable-face ((t (:foreground "DimGray"))))
'(eshell-prompt-face ((t (:foreground "MediumAquamarine"))))
'(font-lock-builtin-face ((t (:bold t :foreground "PaleGreen"))))
'(font-lock-comment-face ((t (:foreground "tomato3"))))
'(font-lock-constant-face ((t (:foreground "Aquamarine"))))
'(font-lock-doc-string-face ((t (:foreground "LightSalmon3"))))
'(font-lock-function-name-face ((t (:foreground "SteelBlue1"))))
'(font-lock-keyword-face ((t (:foreground "cyan1"))))
'(font-lock-reference-face ((t (:foreground "LightSalmon2"))))
'(font-lock-string-face ((t (:foreground "LightSalmon3"))))
'(font-lock-type-face ((t (:foreground "PaleGreen3"))))
'(font-lock-variable-name-face ((t (:foreground "khaki1"))))
'(font-lock-warning-face ((t (:bold t :foreground "IndianRed"))))
'(font-lock-preprocessor-face ((t (:foreground "SkyBlue3"))))
'(widget-field-face ((t (:background "DarkCyan"))))
'(custom-group-tag-face ((t(:foreground "brown" :underline t))))
'(custom-state-face ((t (:foreground "khaki"))))
'(highlight ((t (:background "PaleGreen" :foreground "DarkGreen"))))
'(highline-face ((t (:background "SeaGreen"))))
'(holiday-face ((t (:background "DimGray"))))
'(info-menu-5 ((t (:underline t))))
'(info-node ((t (:underline t :bold t :foreground "DodgerBlue1"))))
'(info-xref ((t (:underline t :foreground "DodgerBlue1"))))
'(isearch ((t (:foreground "red" :background "CornflowerBlue"))))
'(italic ((t (:italic t))))
'(mode-line ((t (:background "LightSlateGray" :foreground "AntiqueWhite"))))
'(mode-line-buffer-id ((t (:background "LightSlateGray" :foreground "DarkBlue"))))
'(mode-line-mousable ((t (:background "LightSlateGray" :foreground "firebrick"))))
'(mode-line-mousable-minor-mode ((t (:background "LightSlateGray" :foreground "wheat"))))
'(region ((t (:background "dark cyan" :foreground "cyan"))))
'(secondary-selection ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(show-paren-match-face ((t (:background "Aquamarine" :foreground "SlateBlue"))))
'(show-paren-mismatch-face ((t (:background "Red" :foreground "White"))))
'(underline ((t (:underline t))))
'(widget-field-face ((t (:foreground "LightBlue"))))
'(widget-inactive-face ((t (:foreground "DimGray"))))
'(widget-single-line-field-face ((t (:foreground "LightBlue"))))
'(woman-bold-face ((t (:bold t))))
'(woman-italic-face ((t (:foreground "beige"))))
'(woman-unknown-face ((t (:foreground "LightSalmon")))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'classic)
;;; classic-theme.el ends here

82
.emacs.d/themes/cobalt-theme.el Normal file
View File

@@ -0,0 +1,82 @@
;;; cobalt-theme.el --- cobalt theme
;; Copyright (C) 2012 by Nick Ewing
;; Copyright (C) 2014 by Syohei YOSHIDA
;; Author: Nick Ewing
;; URL: https://github.com/emacs-jp/replace-colorthemes
;; Version: 0.01
;; This program 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 of the License, or
;; (at your option) any later version.
;; This program 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.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Port of cobalt theme from `color-themes'
;;; Code:
(deftheme cobalt
"cobalt theme")
(custom-theme-set-faces
'cobalt
'(default ((t (:background "#09223F" :foreground "#F8F8F8"))))
'(cursor ((t (:background "#A7A7A7"))))
'(border ((t (:foreground "black"))))
'(buffers-tab ((t (:background "#09223F" :foreground "white"))))
'(font-lock-builtin-face ((t (:foreground "#40FFB9"))))
'(font-lock-comment-face ((t (:foreground "#008AFF"))))
'(font-lock-constant-face ((t (:foreground "#FF518C"))))
'(font-lock-doc-face ((t (:foreground "#008AFF"))))
'(font-lock-function-name-face ((t (:foreground "#FFDD00"))))
'(font-lock-keyword-face ((t (:foreground "#FA9E18"))))
'(font-lock-preprocessor-face ((t (:foreground "#8090A2"))))
'(font-lock-reference-face ((t (:foreground "#CCCCCC"))))
'(font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
'(font-lock-regexp-grouping-construct ((t (:foreground "red"))))
'(font-lock-string-face ((t (:foreground "#42D915"))))
'(font-lock-type-face ((t (:foreground "#FFEF79"))))
'(font-lock-variable-name-face ((t (:foreground "#CCCCCC"))))
'(font-lock-warning-face ((t (:foreground "Pink"))))
'(hl-line ((t (:background "#00162A"))))
'(linum ((t (:background "#111111" :foreground "#888888"
:underline nil))))
'(gui-element ((t (:background "#303030" :foreground "black"))))
'(region ((t (:background "#444444"))))
'(highlight ((t (:background "#26425D"))))
'(show-paren-match ((t (:background "#26425D"))))
'(show-paren-mismatch ((t (:background "#FF0000"))))
'(ecb-default-highlight-face ((t (:background "#26425D"))))
'(minibuffer-prompt ((t (:foreground "#008AFF"))))
'(mode-line ((t (:background "#111111" :foreground "#888888"))))
'(modeline-inactive ((t (:background "#222222" :foreground "#888888"))))
'(italic ((t (nil))))
'(left-margin ((t (nil))))
'(toolbar ((t (nil))))
'(ido-subdir ((t (:foreground "#008AFF"))))
'(ido-only-match ((t (:foreground "#42D915"))))
'(mumamo-background-chunk-major ((t (:background nil))))
'(mumamo-background-chunk-submode1 ((t (:background nil))))
'(underline ((nil (:underline nil)))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'cobalt)
;;; cobalt-theme.el ends here

158
.emacs.d/themes/eclipse-theme.el Normal file
View File

@@ -0,0 +1,158 @@
;;; eclipse-theme.el --- Theme based on Eclipse circa 2010
;; Copyright (C) 2015 Oleh Krehel
;; Author: Oleh Krehel <ohwoeowho@gmail.com>
;; URL: https://github.com/abo-abo/eclipse-theme
;; Version: 0.1.0
;; Keywords: themes
;; This file is not part of GNU Emacs
;; 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 program 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.
;; For a full copy of the GNU General Public License
;; see <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; This theme assumes light background. To load it, use:
;;
;; (require 'eclipse-theme)
;;; Code:
(deftheme eclipse
"Color theme from Eclipse.")
(let ((class '((class color) (min-colors 88) (background light)))
(eclipse-bg "#ffffff")
(eclipse-fg "#000000")
(eclipse-const "#110099")
(eclipse-comment "#3F7F5F")
(eclipse-error "#FF0000")
(eclipse-builtin "#7F0055")
(eclipse-string "#2A00FF")
(eclipse-blue-3 "#758BC6")
(eclipse-region "#f9b593")
(eclipse-shadow "grey50"))
(apply 'custom-theme-set-faces 'eclipse
(mapcar
(lambda (x) `(,(car x) ((,class ,(cdr x)))))
`((default :foreground ,eclipse-fg :background ,eclipse-bg)
(cursor :background ,eclipse-fg)
(shadow :foreground ,eclipse-shadow)
(success :foreground ,eclipse-error)
(error :foreground ,eclipse-error :weight bold)
(warning :foreground "DarkOrange" :weight bold)
(compilation-warning :underline t :inherit warning)
(compilation-error :underline t :inherit error)
(compilation-info :underline t :foreground ,eclipse-const)
(highlight :background "darkseagreen2")
(fringe :background ,eclipse-bg)
(region :background ,eclipse-region :foreground ,eclipse-bg :extend t)
(secondary-selection :background "#333366" :foreground "#f6f3e8")
(whitespace-indentation :background "LightYellow" :foreground "lightgray")
(term)
;; (font-lock-negation-char-face :foreground "#e8e2b7")
(font-lock-builtin-face :foreground ,eclipse-builtin :bold t)
(font-lock-comment-face :foreground ,eclipse-comment :slant normal)
(font-lock-comment-delimiter-face :foreground ,eclipse-comment :slant normal)
(font-lock-constant-face :foreground ,eclipse-const)
(font-lock-doc-face :foreground ,eclipse-string)
(font-lock-doc-string-face :foreground ,eclipse-string)
(font-lock-function-name-face :foreground ,eclipse-fg :bold t)
(font-lock-keyword-face :foreground ,eclipse-builtin :weight bold)
(font-lock-preprocessor-face :foreground ,eclipse-builtin :bold t)
(font-lock-regexp-grouping-backslash :foreground ,eclipse-builtin)
(font-lock-regexp-grouping-construct :foreground ,eclipse-builtin)
(font-lock-string-face :foreground ,eclipse-string)
(font-lock-type-face :foreground ,eclipse-fg :underline t :slant italic)
(font-lock-variable-name-face :foreground ,eclipse-fg)
(font-lock-warning-face :foreground ,eclipse-error)
(font-lock-doxygen-face :foreground "SaddleBrown" :background "#f7f7f7")
(org-code :foreground ,eclipse-builtin :weight bold)
(org-verbatim :foreground ,eclipse-const)
(org-level-1 :weight bold :foreground "black")
(org-level-2 :foreground ,eclipse-builtin)
(org-level-3 :foreground "#123555")
(org-level-4 :slant normal :foreground "#E3258D")
(org-level-5 :slant normal :foreground "#0077CC")
(org-level-6 :slant italic :foreground "#EA6300")
(org-level-7 :slant italic :foreground "#2EAE2C")
(org-level-8 :slant italic :foreground "#FD8008")
(org-block-begin-line :foreground ,eclipse-const)
(org-block-end-line :foreground ,eclipse-const)
(org-scheduled-previously :foreground ,eclipse-comment)
(ido-subdir :weight bold)
(mode-line :foreground "black" :background "#f9b593" :box nil)
(mode-line-inactive :foreground "grey20" :background "grey90" :box nil)
(minibuffer-prompt :foreground "medium blue")
(hl-line :background "#e5e4e2" :extend t)
;; defaults
(mode-line-buffer-id)
(show-paren-match :background "turquoise")
(isearch :background "magenta3" :foreground "lightskyblue1")
(link :foreground "RoyalBlue3" :underline t)
;; other packages
(helm-locate-finish :foreground ,eclipse-const)
(aw-mode-line-face :foreground ,eclipse-string)
(swiper-match-face-1 :background "#FEEA89")
(swiper-match-face-2 :background "#fb7905")
(swiper-match-face-3 :background "#F9A35A")
(swiper-match-face-4 :background "#F15C79")
(swiper-line-face :background "#f3d3d3")
(hydra-face-red :foreground "#cc0000" :bold t)
(hydra-face-blue :foreground "RoyalBlue3" :bold t)
(powerline-active1 :background "grey22" :foreground "white" :inherit mode-line)
(powerline-active2 :background "grey40" :foreground "white" :inherit mode-line)
(powerline-inactive1 :background "grey22" :foreground "white" :inherit mode-line-inactive)
(powerline-inactive2 :background "grey40" :foreground "white" :inherit mode-line-inactive)
(diff-added :background "#ddffdd")
(diff-removed :background "#ffdddd")
(magit-tag :background "LemonChiffon1" :foreground "goldenrod4")
(magit-section-heading :inherit header-line)
(magit-section-highlight :weight bold)
(magit-diff-context :foreground "grey20" :extend t)
(magit-diff-context-highlight :weight bold :foreground "grey20" :extend t)
(magit-diff-added :inherit diff-added :extend t)
(magit-diff-added-highlight :inherit diff-added :weight bold :extend t)
(magit-diff-removed :inherit diff-removed :extend t)
(magit-diff-removed-highlight :inherit diff-removed :weight bold :extend t)
(magit-diff-file-heading)
(magit-diff-file-heading-highlight :weight bold)
(magit-diff-file-heading-selection :foreground "red")
(magit-diff-hunk-heading :inherit diff-hunk-header :extend t)
(magit-diff-hunk-heading-highlight :inherit diff-hunk-header :weight bold :extend t)
(magit-hash :foreground "firebrick")
(magit-branch-remote :background "Grey85" :foreground "OliveDrab4" :box t)
(magit-branch-local :background "Grey85" :foreground "LightSkyBlue4" :box t)
(mu4e-modeline-face :foreground "white")
(ivy-highlight-face)
(ivy-posframe :background "#eeeeee" :foreground "#000000")
(wgrep-face :foreground ,eclipse-comment)
(cider-instrumented-face)))))
(custom-theme-set-variables
'eclipse
'(ansi-color-names-vector ["#242424" "#e5786d" "#95e454" "#cae682"
"#8ac6f2" "#333366" "#ccaa8f" "#f6f3e8"]))
;;;###autoload
(and load-file-name
(boundp 'custom-theme-load-path)
(add-to-list 'custom-theme-load-path
(file-name-as-directory
(file-name-directory load-file-name))))
(provide 'eclipse-theme)
;;; eclipse-theme.el ends here

438
.emacs.d/themes/jetbrains-darcula-theme.el Normal file
View File

@@ -0,0 +1,438 @@
;;; jetbrains-darcula-theme.el --- A complete port of the default JetBrains Darcula theme -*- lexical-binding: t; -*-
;; Copyright (C) 2020 , Ian Y.E. Pan
;; Author: Ian Y.E. Pan
;; URL: https://github.com/ianpan870102/jetbrains-darcula-emacs-theme
;; Version: 1.0.0
;; This program 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 of the License, or
;; (at your option) any later version.
;; This program 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.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; This file is not part of Emacs.
;;; Commentary:
;; A complete port of the default JetBrains Darcula theme for Emacs
;;; Code:
(deftheme jetbrains-darcula)
(let ((class '((class color) (min-colors 89)))
(fg0 "#8997a6")
(fg1 "#a9b7c6") ; default fg
(fg2 "#cccccc")
(fg3 "#e8e8e8")
(fg4 "#fafafa")
(bg0 "#111111")
(bg1 "#2b2b2b") ; default bg
(bg2 "#303030")
(bg3 "#313335") ; hl-line
(bg4 "#383c3f")
(bg5 "#515757") ; tab-bar active tab
(bg-hl "#214283")
(jb-r "#ac0909")
(jb-g "#36a546")
(jb-y "#f1eb7f")
(key2 "#c57825")
(key3 "#d0d0ff")
(accent "#ffffff")
(mode-line-bg "#3c3f41")
(mode-line-bg-dark "#2c2f31")
(line-num "#606366")
(builtin "#c57825")
(keyword "#c57825")
(const "#9676ac")
(comment "#8e9292")
(doc "#5e8759")
(func "#ffc66d")
(str "#5e8759")
(type "#c57825")
(var "#9676ac")
(warning "#990000")
;; standardized palette
(jb-yellow "#ffc66d")
(jb-bluegreen "#318495")
(jb-magenta "#9676ac")
(jb-orange "#c57825")
(jb-red "#8c0909")
(jb-blue "#7ca8c6")
(jb-green "#5e8759"))
(custom-theme-set-faces
'jetbrains-darcula
`(default ((,class (:background ,bg1 :foreground ,fg1))))
`(font-lock-builtin-face ((,class (:foreground ,builtin))))
`(font-lock-comment-face ((,class (:foreground ,comment :italic t))))
`(font-lock-negation-char-face ((,class (:foreground ,const))))
`(font-lock-reference-face ((,class (:foreground ,const))))
`(font-lock-constant-face ((,class (:foreground ,const))))
`(font-lock-doc-face ((,class (:foreground ,doc))))
`(font-lock-function-name-face ((,class (:foreground ,func :bold nil))))
`(font-lock-keyword-face ((,class (:bold nil :foreground ,keyword))))
`(font-lock-string-face ((,class (:foreground ,str))))
`(font-lock-type-face ((,class (:foreground ,type ))))
`(font-lock-variable-name-face ((,class (:foreground ,var))))
`(font-lock-warning-face ((,class (:foreground ,jb-red :background ,bg2))))
`(region ((,class (:background ,bg-hl :extend nil))))
`(secondary-selection ((,class (:inherit region))))
`(highlight ((,class (:foreground ,bg3 :background ,fg3))))
`(hl-line ((,class (:background ,bg3))))
`(fringe ((,class (:background ,bg1 :foreground ,fg4))))
`(cursor ((,class (:background "white"))))
`(show-paren-match-face ((,class (:background ,warning))))
`(show-paren-match ((t (:foreground "yellow" :background ,bg4 :bold t))))
`(show-paren-mismatch ((t (:background ,warning))))
`(isearch ((t (:foreground ,accent :background ,jb-green))))
`(isearch-fail ((t (:foreground ,accent :background ,jb-red))))
`(lazy-highlight ((t (:foreground ,accent :background ,jb-y))))
`(vertical-border ((,class (:foreground ,bg3))))
`(minibuffer-prompt ((,class (:foreground ,fg2 :weight normal))))
`(default-italic ((,class (:italic t))))
`(link ((,class (:foreground ,jb-blue :underline t))))
`(error ((,class (:foreground ,jb-orange))))
`(warning ((,class (:foreground ,jb-magenta))))
`(success ((,class (:foreground ,jb-bluegreen))))
`(dired-directory ((t (:inherit (font-lock-keyword-face)))))
`(line-number ((,class (:foreground ,line-num :background ,bg3))))
`(line-number-current-line ((,class (:foreground ,fg1 :background ,bg3))))
`(mode-line ((,class (:bold nil :foreground ,fg4 :background ,mode-line-bg))))
`(mode-line-inactive ((,class (:bold nil :foreground ,fg1 :background ,mode-line-bg-dark))))
`(mode-line-buffer-id ((,class (:bold nil :foreground ,accent :background nil))))
`(mode-line-highlight ((,class (:foreground ,keyword :box nil :weight normal))))
`(mode-line-emphasis ((,class (:foreground ,fg1))))
`(company-tooltip ((t (:foreground ,fg2 :background ,bg4))))
`(company-preview-common ((t (:foreground unspecified :background ,bg4))))
`(company-scrollbar-bg ((t (:background ,bg4))))
`(company-scrollbar-fg ((t (:background ,bg0))))
`(company-tooltip-common ((t (:foreground "#926297" :bold t))))
`(company-tooltip-selection ((t (:background ,bg-hl))))
`(company-tooltip-annotation ((t (:foreground ,doc)))) ; parameter hints etc.
`(org-document-title ((,class (:foreground ,jb-orange :height 1.2 :bold t))))
`(org-level-1 ((,class (:bold nil :foreground ,jb-orange :height 1.1))))
`(org-level-2 ((,class (:bold nil :foreground ,jb-magenta))))
`(org-level-3 ((,class (:bold nil :foreground ,jb-green))))
`(org-level-4 ((,class (:bold nil :foreground ,jb-bluegreen))))
`(org-code ((,class (:foreground ,fg2))))
`(org-hide ((,class (:foreground ,fg4))))
`(org-date ((,class (:underline t :foreground ,jb-green) )))
`(org-footnote ((,class (:underline t :foreground ,fg4))))
`(org-link ((,class (:underline t :foreground ,type ))))
`(org-special-keyword ((,class (:foreground ,jb-green))))
`(org-block ((,class (:foreground ,fg2 :background ,bg0 :extend t))))
`(org-quote ((,class (:inherit org-block :slant italic))))
`(org-verse ((,class (:inherit org-block :slant italic))))
`(org-todo ((,class (:box (:line-width 1 :color ,fg3) :foreground ,keyword :bold nil))))
`(org-done ((,class (:box (:line-width 1 :color ,bg3) :bold nil :foreground ,bg4))))
`(org-warning ((,class (:underline t :foreground ,warning))))
`(org-agenda-structure ((,class (:weight normal :foreground ,fg3 :box (:color ,fg4) :background ,bg3))))
`(org-agenda-date ((,class (:foreground ,var :height 1.1 ))))
`(org-agenda-date-weekend ((,class (:weight normal :foreground ,fg4))))
`(org-agenda-date-today ((,class (:weight normal :foreground ,keyword :height 1.2))))
`(org-agenda-done ((,class (:foreground ,bg4))))
`(org-scheduled ((,class (:foreground ,type))))
`(org-scheduled-today ((,class (:foreground ,func :weight normal :height 1.2))))
`(org-ellipsis ((,class (:foreground ,builtin))))
`(org-verbatim ((,class (:foreground ,fg4))))
`(org-document-info-keyword ((,class (:foreground ,jb-green))))
`(org-sexp-date ((,class (:foreground ,fg4))))
`(font-latex-bold-face ((,class (:foreground ,type))))
`(font-latex-italic-face ((,class (:foreground ,key3 :italic t))))
`(font-latex-string-face ((,class (:foreground ,str))))
`(font-latex-match-reference-keywords ((,class (:foreground ,const))))
`(font-latex-match-variable-keywords ((,class (:foreground ,var))))
`(ido-only-match ((,class (:foreground ,keyword))))
`(ido-subdir ((,class (:weight normal :foreground ,fg0))))
`(ido-first-match ((,class (:foreground ,keyword :bold nil))))
`(gnus-header-content ((,class (:foreground ,keyword))))
`(gnus-header-from ((,class (:foreground ,var))))
`(gnus-header-name ((,class (:foreground ,type))))
`(gnus-header-subject ((,class (:foreground ,func :bold nil))))
`(mu4e-view-url-number-face ((,class (:foreground ,type))))
`(mu4e-cited-1-face ((,class (:foreground ,fg2))))
`(mu4e-cited-7-face ((,class (:foreground ,fg3))))
`(mu4e-header-marks-face ((,class (:foreground ,type))))
`(ffap ((,class (:foreground ,fg4))))
`(js2-private-function-call ((,class (:foreground ,const))))
`(js2-jsdoc-html-tag-delimiter ((,class (:foreground ,str))))
`(js2-jsdoc-html-tag-name ((,class (:foreground ,key2))))
`(js2-external-variable ((,class (:foreground ,type ))))
`(js2-function-param ((,class (:foreground ,const))))
`(js2-jsdoc-value ((,class (:foreground ,str))))
`(js2-private-member ((,class (:foreground ,fg3))))
`(js2-warning ((t (:underline ,warning))))
`(js2-error ((t (:foreground ,warning :weight normal))))
`(js2-jsdoc-tag ((t (:foreground ,var))))
`(js2-jsdoc-type ((t (:foreground ,var))))
`(js2-instance-member ((t (:foreground ,var))))
`(js2-object-property ((t (:foreground ,func))))
`(js2-magic-paren ((t (:foreground ,const))))
`(js2-function-call ((t (:foreground ,const))))
`(js2-keywords ((t (:foreground ,keyword))))
`(js3-warning-face ((,class (:underline ,keyword))))
`(js3-error-face ((,class (:underline ,warning))))
`(js3-external-variable-face ((,class (:foreground ,var))))
`(js3-function-param-face ((,class (:foreground ,key3))))
`(js3-jsdoc-tag-face ((,class (:foreground ,keyword))))
`(js3-instance-member-face ((,class (:foreground ,const))))
`(ac-completion-face ((,class (:underline t :foreground ,keyword))))
`(info-quoted-name ((,class (:foreground ,builtin))))
`(info-string ((,class (:foreground ,str))))
`(icompletep-determined ((,class :foreground ,builtin)))
`(slime-repl-inputed-output-face ((,class (:foreground ,type))))
`(trailing-whitespace ((,class :foreground nil :background ,warning)))
`(undo-tree-visualizer-current-face ((,class :foreground ,builtin)))
`(undo-tree-visualizer-default-face ((,class :foreground ,fg2)))
`(undo-tree-visualizer-unmodified-face ((,class :foreground ,var)))
`(undo-tree-visualizer-register-face ((,class :foreground ,type)))
`(rainbow-delimiters-depth-1-face ((,class :foreground "gold")))
`(rainbow-delimiters-depth-2-face ((,class :foreground "orchid")))
`(rainbow-delimiters-depth-3-face ((,class :foreground "LightSkyBlue")))
`(rainbow-delimiters-depth-4-face ((,class :foreground "gold")))
`(rainbow-delimiters-depth-5-face ((,class :foreground "orchid")))
`(rainbow-delimiters-depth-6-face ((,class :foreground "LightSkyBlue")))
`(rainbow-delimiters-depth-7-face ((,class :foreground "gold")))
`(rainbow-delimiters-depth-8-face ((,class :foreground "orchid")))
`(rainbow-delimiters-depth-9-face ((,class :foreground "LightSkyBlue")))
`(rainbow-delimiters-unmatched-face ((,class :foreground ,warning)))
;;;;; New magit faces (adpated from sanityinc-tomorrow themes)
`(magit-item-highlight ((,class :background ,bg3)))
`(magit-hunk-heading ((,class (:background ,bg3))))
`(magit-hunk-heading-highlight ((,class (:background ,bg3))))
`(magit-bisect-bad ((t (:foreground ,jb-red))))
`(magit-bisect-good ((t (:foreground ,jb-green))))
`(magit-bisect-skip ((t (:foreground ,jb-orange))))
`(magit-blame-date ((t (:foreground ,jb-red))))
`(magit-blame-heading ((t (:foreground ,jb-orange :background ,bg3 :extend t))))
`(magit-branch ((,class (:foreground ,jb-blue :weight normal))))
`(magit-branch-current ((t (:foreground ,jb-blue))))
`(magit-branch-local ((t (:foreground ,jb-bluegreen))))
`(magit-branch-remote ((t (:foreground ,jb-green))))
`(magit-cherry-equivalent ((t (:foreground ,jb-magenta))))
`(magit-cherry-unmatched ((t (:foreground ,jb-bluegreen))))
`(magit-diff-context-highlight ((,class (:background ,bg3 :foreground ,fg3))))
`(magit-diffstat-added ((t (:foreground ,jb-green))))
`(magit-diffstat-removed ((t (:foreground ,jb-orange))))
`(magit-dimmed ((t (:foreground ,comment))))
`(magit-filename ((t (:foreground ,jb-magenta))))
`(magit-hash ((t (:foreground ,comment))))
`(magit-header-line ((t (:inherit nil))))
`(magit-log-author ((t (:foreground ,jb-orange))))
`(magit-log-date ((t (:foreground ,jb-blue))))
`(magit-log-graph ((t (:foreground ,comment))))
`(magit-mode-line-process ((t (:foreground ,jb-orange))))
`(magit-mode-line-process-error ((t (:foreground ,jb-red))))
`(magit-process-ok ((t (:inherit success))))
`(magit-process-ng ((t (:inherit error))))
`(magit-reflog-amend ((t (:foreground ,jb-magenta))))
`(magit-reflog-checkout ((t (:foreground ,jb-blue))))
`(magit-reflog-cherry-pick ((t (:foreground ,jb-green))))
`(magit-reflog-commit ((t (:foreground ,jb-green))))
`(magit-reflog-merge ((t (:foreground ,jb-green))))
`(magit-reflog-other ((t (:foreground ,jb-bluegreen))))
`(magit-reflog-rebase ((t (:foreground ,jb-magenta))))
`(magit-reflog-remote ((t (:foreground ,jb-bluegreen))))
`(magit-reflog-reset ((t (:inherit error))))
`(magit-refname ((t (:foreground ,comment))))
`(magit-section-heading ((t (:foreground ,jb-magenta))))
`(magit-section-heading-selection ((t (:foreground ,jb-orange :extend t))))
`(magit-section-highlight ((t (:background ,bg3 :extend t))))
`(magit-sequence-drop ((t (:foreground ,jb-red))))
`(magit-sequence-head ((t (:foreground ,jb-blue))))
`(magit-sequence-part ((t (:foreground ,jb-orange))))
`(magit-sequence-stop ((t (:foreground ,jb-green))))
`(magit-signature-bad ((t (:inherit error))))
`(magit-signature-error ((t (:inherit error))))
`(magit-signature-expijb-red ((t (:foreground ,jb-orange))))
`(magit-signature-good ((t (:inherit success))))
`(magit-signature-revoked ((t (:foreground ,jb-magenta))))
`(magit-signature-untrusted ((t (:foreground ,jb-bluegreen))))
`(magit-tag ((t (:foreground ,jb-yellow))))
`(term ((,class (:foreground ,fg1 :background ,bg1))))
`(term-color-black ((,class (:foreground ,fg1 :background ,bg3))))
`(term-color-blue ((,class (:foreground ,jb-blue :background ,func))))
`(term-color-red ((,class (:foreground ,jb-red :background ,bg3))))
`(term-color-green ((,class (:foreground ,jb-green :background ,bg3))))
`(term-color-yellow ((,class (:foreground ,jb-yellow :background ,var))))
`(term-color-magenta ((,class (:foreground ,jb-orange :background ,builtin))))
`(term-color-cyan ((,class (:foreground ,jb-bluegreen :background ,str))))
`(term-color-white ((,class (:foreground ,fg2 :background ,fg2))))
`(helm-header ((,class (:foreground ,fg2 :background ,bg1 :underline nil :box nil))))
`(helm-source-header ((,class (:foreground ,keyword :background ,bg1 :underline nil :weight normal))))
`(helm-selection ((,class (:background ,bg2 :underline nil))))
`(helm-selection-line ((,class (:background ,bg2))))
`(helm-visible-mark ((,class (:foreground ,bg1 :background ,bg3))))
`(helm-candidate-number ((,class (:foreground ,bg1 :background ,fg1))))
`(helm-separator ((,class (:foreground ,type :background ,bg1))))
`(helm-time-zone-current ((,class (:foreground ,builtin :background ,bg1))))
`(helm-time-zone-home ((,class (:foreground ,type :background ,bg1))))
`(helm-buffer-not-saved ((,class (:foreground ,type :background ,bg1))))
`(helm-buffer-process ((,class (:foreground ,builtin :background ,bg1))))
`(helm-buffer-saved-out ((,class (:foreground ,fg1 :background ,bg1))))
`(helm-buffer-size ((,class (:foreground ,fg1 :background ,bg1))))
`(helm-ff-directory ((,class (:foreground ,func :background ,bg1 :weight normal))))
`(helm-ff-file ((,class (:foreground ,fg1 :background ,bg1 :weight normal))))
`(helm-ff-executable ((,class (:foreground ,key2 :background ,bg1 :weight normal))))
`(helm-ff-invalid-symlink ((,class (:foreground ,key3 :background ,bg1 :weight normal))))
`(helm-ff-symlink ((,class (:foreground ,keyword :background ,bg1 :weight normal))))
`(helm-ff-prefix ((,class (:foreground ,bg1 :background ,keyword :weight normal))))
`(helm-grep-cmd-line ((,class (:foreground ,fg1 :background ,bg1))))
`(helm-grep-file ((,class (:foreground ,fg1 :background ,bg1))))
`(helm-grep-finish ((,class (:foreground ,fg2 :background ,bg1))))
`(helm-grep-lineno ((,class (:foreground ,fg1 :background ,bg1))))
`(helm-grep-match ((,class (:foreground nil :background nil :inherit helm-match))))
`(helm-grep-running ((,class (:foreground ,func :background ,bg1))))
`(helm-moccur-buffer ((,class (:foreground ,func :background ,bg1))))
`(helm-source-go-package-godoc-description ((,class (:foreground ,str))))
`(helm-bookmark-w3m ((,class (:foreground ,type))))
`(web-mode-html-tag-bracket-face ((,class (:foreground ,jb-yellow))))
`(web-mode-html-tag-face ((,class (:foreground ,jb-yellow))))
`(web-mode-html-attr-name-face ((,class (:foreground ,var))))
`(web-mode-html-attr-value-face ((,class (:foreground ,str))))
`(web-mode-builtin-face ((,class (:inherit ,font-lock-builtin-face))))
`(web-mode-comment-face ((,class (:inherit ,font-lock-comment-face))))
`(web-mode-constant-face ((,class (:inherit ,font-lock-constant-face))))
`(web-mode-keyword-face ((,class (:inherit ,font-lock-keyword-face))))
`(web-mode-doctype-face ((,class (:inherit ,font-lock-doc-face))))
`(web-mode-function-name-face ((,class (:inherit ,font-lock-function-name-face))))
`(web-mode-string-face ((,class (:inherit ,font-lock-string-face))))
`(web-mode-type-face ((,class (:inherit ,font-lock-type-face))))
`(web-mode-warning-face ((,class (:inherit ,font-lock-warning-face))))
`(ediff-fine-diff-Ancestor ((t (:background "#885555"))))
`(ediff-fine-diff-A ((t (:background "#885555"))))
`(ediff-fine-diff-B ((t (:background "#558855"))))
`(ediff-fine-diff-C ((t (:background "#555588"))))
`(ediff-current-diff-Ancestor ((t (:background "#663333"))))
`(ediff-current-diff-A ((t (:background "#663333"))))
`(ediff-current-diff-B ((t (:background "#336633"))))
`(ediff-current-diff-C ((t (:background "#333366"))))
`(ediff-even-diff-Ancestor ((t (:background ,bg3))))
`(ediff-even-diff-A ((t (:background ,bg3))))
`(ediff-even-diff-B ((t (:background ,bg3))))
`(ediff-even-diff-C ((t (:background ,bg3))))
`(ediff-odd-diff-Ancestor ((t (:background ,bg3))))
`(ediff-odd-diff-A ((t (:background ,bg3))))
`(ediff-odd-diff-B ((t (:background ,bg3))))
`(ediff-odd-diff-C ((t (:background ,bg3))))
`(jde-java-font-lock-package-face ((t (:foreground ,var))))
`(jde-java-font-lock-public-face ((t (:foreground ,keyword))))
`(jde-java-font-lock-private-face ((t (:foreground ,keyword))))
`(jde-java-font-lock-constant-face ((t (:foreground ,const))))
`(jde-java-font-lock-modifier-face ((t (:foreground ,key3))))
`(jde-jave-font-lock-protected-face ((t (:foreground ,keyword))))
`(jde-java-font-lock-number-face ((t (:foreground ,var))))
`(centaur-tabs-default ((t (:background ,bg1 :foreground ,fg1))))
`(centaur-tabs-selected ((t (:background ,bg1 :foreground ,fg3 :box nil))))
`(centaur-tabs-unselected ((t (:background ,bg2 :foreground ,fg0 :box nil))))
`(centaur-tabs-selected-modified ((t (:background ,bg2 :foreground ,accent :box nil))))
`(centaur-tabs-unselected-modified ((t (:background ,bg2 :foreground ,fg4 :box nil))))
`(centaur-tabs-active-bar-face ((t (:background ,accent :box nil))))
`(centaur-tabs-modified-marker-selected ((t (:inherit 'centaur-tabs-selected-modified :foreground ,accent :box nil))))
`(centaur-tabs-modified-marker-unselected ((t (:inherit 'centaur-tabs-unselected-modified :foreground ,accent :box nil))))
`(solaire-default-face ((t (:inherit default :background ,bg2))))
`(solaire-minibuffer-face ((t (:inherit default :background ,bg2))))
`(solaire-hl-line-face ((t (:inherit hl-line :background ,bg3))))
`(solaire-org-hide-face ((t (:inherit org-hide :background ,bg2))))
`(ivy-confirm-face ((t (:inherit minibuffer-prompt :foreground ,keyword))))
`(ivy-current-match ((t (:background ,bg-hl :extend t))))
`(ivy-highlight-face ((t (:inherit font-lock-builtin-face))))
`(ivy-match-required-face ((t (:inherit minibuffer-prompt :foreground ,warning))))
`(ivy-minibuffer-match-face-1 ((t (:inherit isearch))))
`(ivy-minibuffer-match-face-2 ((t (:inherit ivy-minibuffer-match-face-1))))
`(ivy-minibuffer-match-face-3 ((t (:inherit ivy-minibuffer-match-face-2))))
`(ivy-minibuffer-match-face-4 ((t (:inherit ivy-minibuffer-match-face-2))))
`(ivy-minibuffer-match-highlight ((t (:inherit ivy-current-match))))
`(ivy-modified-buffer ((t (:inherit default :foreground ,var))))
`(ivy-virtual ((t (:inherit default :foreground ,doc))))
`(ivy-posframe ((t (:background "#252526"))))
`(counsel-key-binding ((t (:foreground ,var))))
`(swiper-match-face-1 ((t (:inherit ivy-minibuffer-match-face-1))))
`(swiper-match-face-2 ((t (:inherit ivy-minibuffer-match-face-2))))
`(swiper-match-face-3 ((t (:inherit ivy-minibuffer-match-face-3))))
`(swiper-match-face-4 ((t (:inherit ivy-minibuffer-match-face-4))))
`(swiper-line-face ((t (:foreground ,fg0 :background ,bg4 :extend t))))
`(git-gutter:added ((t (:background ,jb-g :foreground ,jb-g :weight normal))))
`(git-gutter:deleted ((t (:background ,jb-r :foreground ,jb-r :weight normal))))
`(git-gutter:modified ((t (:background ,jb-y :foreground ,jb-y :weight normal))))
`(git-gutter-fr:added ((t (:background ,jb-g :foreground ,jb-g :weight normal))))
`(git-gutter-fr:deleted ((t (:background ,jb-r :foreground ,jb-r :weight normal))))
`(git-gutter-fr:modified ((t (:background ,jb-y :foreground ,jb-y :weight normal))))
`(diff-hl-insert ((t (:background ,jb-g :foreground ,jb-g))))
`(diff-hl-delete ((t (:background ,jb-r :foreground ,jb-r))))
`(diff-hl-change ((t (:background ,jb-y :foreground ,jb-y))))
`(neo-dir-link-face ((t (:foreground "#cccccc" :family "Sans Serif"))))
`(neo-header-face ((t (:foreground "#cccccc" :family "Sans Serif"))))
`(neo-banner-face ((t (:foreground "#cccccc" :family "Sans Serif"))))
`(neo-root-dir-face ((t (:foreground "#cccccc" :family "Sans Serif"))))
`(neo-file-link-face ((t (:foreground "#aaaaaa" :family "Sans Serif"))))
`(neo-expand-btn-face ((t (:foreground "#aaaaaa"))))
`(sml/global ((t (:foreground ,fg1 :weight normal))))
`(sml/filename ((t (:foreground ,fg1 :weight normal))))
`(sml/prefix ((t (:foreground ,fg1 :weight normal))))
`(sml/read-only ((t (:foreground ,fg1 :weight normal))))
`(sml/modes ((t (:foreground ,fg1 :weight normal))))
`(sml/modified ((t (:foreground ,fg3 :weight normal))))
;; tab-bar-mode
`(tab-bar ((t (:background ,bg3))))
`(tab-bar-tab ((t (:foreground ,fg2 :background ,bg5 :box (:color ,bg4)))))
`(tab-bar-tab-inactive ((t (:foreground ,fg1 :background ,bg2 :box (:color ,bg4)))))
`(evil-ex-substitute-matches ((t (:foreground ,warning :weight normal :strike-through t))))
`(evil-ex-substitute-replacement ((t (:foreground ,jb-bluegreen :weight normal))))
`(hl-todo ((t (:inverse-video t))))
`(highlight-numbers-number ((t (:foreground ,jb-blue))))
`(highlight-operators-face ((t (:inherit default))))
`(highlight-symbol-face ((t (:background "#354a32"))))))
;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'jetbrains-darcula)
(provide 'jetbrains-darcula-theme)
;;; jetbrains-darcula-theme.el ends here

114
.emacs.d/themes/odersky-theme.el Normal file
View File

@@ -0,0 +1,114 @@
;; This program 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 of the License, or
;; (at your option) any later version.
;; This program 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.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; ---------------------------
;;
;; Oderskey: A dark color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme odersky "A dark color theme for Emacs")
(let ((*background* "#1E2326")
(*vborder* "#FF7E00")
(*gutter* "#3E3E3E")
(*comments* "#999999")
(*constant* "#F38630")
(*current-line* "#151515")
(*cursor-underscore* "#FFFAAA")
(*keywords* "#A7DBD8")
(*line-number* "#1E2326")
(*method-declaration* "#FFD2A7")
(*mode-line-bg* "#505C63")
(*mode-line-fg* "#E0E4CC")
(*mode-inactive-bg* "#2E3336")
(*mode-inactive-fg* "#F8F8F2")
(*normal* "#DEDEDE")
(*number* "#2EBF7E")
(*operators* "#69D2E7")
(*warning* "#FA6900")
(*regexp* "#FA6900")
(*string* "#E0E4CC")
(*variable* "#FA6900")
(*visual-selection* "#505C63"))
(custom-theme-set-faces
'odersky
`(bold ((t (:bold t))))
`(button ((t (:foreground, *keywords* :underline t))))
`(default ((t (:background, *background* :foreground, *normal*))))
`(header-line ((t (:background, *mode-line-bg* :foreground, *normal*)))) ;; info header
`(highlight ((t (:background, *current-line*))))
`(highlight-face ((t (:background, *current-line*))))
`(hl-line ((t (:background, *current-line* :underline t))))
`(info-xref ((t (:foreground, *keywords* :underline t))))
`(region ((t (:background, *visual-selection*))))
`(underline ((nil (:underline t))))
;; font-lock
`(font-lock-builtin-face ((t (:foreground, *operators*))))
`(font-lock-comment-delimiter-face ((t (:foreground, *comments*))))
`(font-lock-comment-face ((t (:foreground, *comments*))))
`(font-lock-constant-face ((t (:foreground, *constant*))))
`(font-lock-doc-face ((t (:foreground, *string*))))
`(font-lock-doc-string-face ((t (:foreground, *string*))))
`(font-lock-function-name-face ((t (:foreground, *method-declaration*))))
`(font-lock-keyword-face ((t (:foreground, *keywords*))))
`(font-lock-negation-char-face ((t (:foreground, *warning*))))
`(font-lock-number-face ((t (:foreground, *number*))))
`(font-lock-preprocessor-face ((t (:foreground, *keywords*))))
`(font-lock-reference-face ((t (:foreground, *constant*))))
`(font-lock-regexp-grouping-backslash ((t (:foreground, *regexp*))))
`(font-lock-regexp-grouping-construct ((t (:foreground, *regexp*))))
`(font-lock-string-face ((t (:foreground, *string*))))
`(font-lock-type-face ((t (:foreground, *operators*))))
`(font-lock-variable-name-face ((t (:foreground, *variable*))))
`(font-lock-warning-face ((t (:foreground, *warning*))))
;; GUI
`(fringe ((t (:background, *gutter*))))
`(linum ((t (:background, *line-number*))))
`(minibuffer-prompt ((t (:foreground, *variable*))))
`(mode-line ((t (:background, *mode-line-bg* :foreground, *mode-line-fg*))))
`(mode-line-inactive ((t (:background, *mode-inactive-bg* :foreground, *mode-inactive-fg*))))
`(cursor ((t (:background, *cursor-underscore*))))
`(text-cursor ((t (:background, *cursor-underscore*))))
`(vertical-border ((t (:foreground, *vborder*)))) ;; between splits
;; show-paren
`(show-paren-mismatch ((t (:background, *warning* :foreground, *normal* :weight bold))))
`(show-paren-match ((t (:background, *keywords* :foreground, *normal* :weight bold))))
;; search
`(isearch ((t (:background, *regexp* :foreground, *visual-selection*))))
`(isearch-fail ((t (:background, *warning*))))
`(lazy-highlight ((t (:background, *operators* :foreground, *visual-selection*))))
))
;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'odersky)
;; Local Variables:
;; no-byte-compile: t
;; End:

94
.emacs.d/themes/wilson-theme.el Normal file
View File

@@ -0,0 +1,94 @@
;; This program 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 of the License, or
;; (at your option) any later version.
;; This program 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.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;; ------------------------------------------------------
;;
;; Wilson: A theme based upon a dirty spitfire
;;
;; -------------------------------------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme wilson
"A theme based upon a dirty spitfire")
(let ((wilson-oilstained-eggshell "#6C6B59")
(wilson-flying-boots "#44443C")
(wilson-darker-flying-boots "#222222")
(wilson-spring-grass "#9BA657")
(wilson-stained-white "#BEBFB7")
(wilson-darker-stained-white "#A9AAA3")
(wilson-gray "#84857E")
(wilson-darker-gray "gray30")
(wilson-dark-gray "gray25")
(wilson-light-gray "gray20")
(wilson-lighter-gray "gray12")
(wilson-stained-orange "#B97E56")
(wilson-darker-stained-orange "#A56F4B")
(wilson-stained-yellow "#CFB980")
(wilson-darker-stained-yellow "#B9A572"))
(custom-theme-set-faces
'wilson
;; ----------------- Frame stuff --------------------
`(default ((t (:background ,wilson-darker-flying-boots :foreground ,wilson-stained-white))))
`(cursor ((t (:background ,wilson-stained-white))))
`(hl-line ((t (:background ,wilson-flying-boots))))
`(modeline ((t (:background ,wilson-stained-yellow :foreground ,wilson-flying-boots))))
`(mode-line-inactive ((t (:box nil :background ,wilson-light-gray :foreground ,wilson-stained-yellow))))
`(mode-line ((t (:box nil :foreground ,wilson-flying-boots :background ,wilson-stained-yellow))))
`(fringe ((t (:background ,wilson-darker-flying-boots))))
;; Dir-ed search prompt
`(minibuffer-prompt ((default (:foreground ,wilson-stained-orange))))
`(linum ((t (:background, wilson-darker-flying-boots :foreground, wilson-stained-white))))
;; Highlight region color
`(region ((t (:foreground ,wilson-darker-stained-white :background ,wilson-flying-boots))))
;; ---------------- Code Highlighting ---------------
;; Builtin
`(font-lock-builtin-face ((t (:foreground ,wilson-darker-stained-yellow))))
;; Constants
`(font-lock-constant-face ((t (:foreground ,wilson-stained-orange))))
;; Comments
`(font-lock-comment-face ((t (:foreground ,wilson-oilstained-eggshell))))
;; Function names
`(font-lock-function-name-face ((t (:foreground ,wilson-stained-yellow))))
;; Keywords
`(font-lock-keyword-face ((t (:foreground ,wilson-spring-grass))))
;; Strings
`(font-lock-string-face ((t (:foreground ,wilson-gray))))
;; Variables
`(font-lock-variable-name-face ((t (:foreground ,wilson-stained-yellow))))
`(font-lock-type-face ((t (:foreground ,wilson-darker-stained-orange))))
`(font-lock-warning-face ((t (:foreground ,wilson-darker-stained-orange :bold t))))
;; ---------------- Package Specific Stuff -----------
;; Powerline
`(powerline-active1 ((t (:background ,wilson-dark-gray :foreground ,wilson-stained-orange))))
`(powerline-active2 ((t (:background ,wilson-lighter-gray :foreground ,wilson-darker-stained-white))))
`(powerline-inactive1 ((t (:background ,wilson-darker-gray :foreground ,wilson-stained-white))))
`(powerline-inactive2 ((t (:background ,wilson-dark-gray :foreground ,wilson-darker-stained-white))))))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name)))
(when (not window-system)
(custom-set-faces '(default ((t (:background nil)))))))
(provide-theme 'wilson)
;; Local Variables:
;; no-byte-compile: t
;; End:

37
.emacs.d/themes/witness-nostalgia-theme.el Normal file
View File

@@ -0,0 +1,37 @@
;;; witness-nostalgia-theme.el --- Witness color theme -*- lexical-binding: t; -*-
;;; Commentary:
;; A dark teal color theme.
;;; Code:
(deftheme witness-nostalgia
"Witness nostalgia color theme - gray with green and yellow accents.")
(custom-theme-set-faces
'witness-nostalgia
;; Basic faces
'(default ((t (:foreground "#d3b58d" :background "#292929"))))
'(cursor ((t (:background "lightgreen"))))
'(region ((t (:background "blue"))))
'(highlight ((t (:foreground "navyblue" :background "darkseagreen2"))))
'(mode-line ((t (:inverse-video t))))
;; Font lock faces
'(font-lock-builtin-face ((t (:foreground "lightgreen"))))
'(font-lock-comment-face ((t (:foreground "#FFFF00"))))
'(font-lock-string-face ((t (:foreground "#BEBEBE"))))
'(font-lock-keyword-face ((t (:foreground "white"))))
'(font-lock-function-name-face ((t (:foreground "white"))))
'(font-lock-variable-name-face ((t (:foreground "#c8d4ec"))))
'(font-lock-warning-face ((t (:foreground "#504038"))))
;; Custom/widget faces
'(custom-group-tag ((t (:underline t :foreground "lightblue"))))
'(custom-variable-tag ((t (:underline t :foreground "lightblue"))))
'(widget-field ((t (:foreground "white"))))
'(widget-single-line-field ((t (:background "darkgray")))))
(provide-theme 'witness-nostalgia)
;;; witness-theme.el ends here