Init

1 files changed, 148 insertions, 0 deletions

diff --git a/emacs/themes/acme-theme.el b/emacs/themes/acme-theme.el
new file mode 100644
index 0000000..ad5baab
--- /dev/null
+++ b/emacs/themes/acme-theme.el
@@ -0,0 +1,148 @@
+;; acme-theme.el -- A theme inspired by the classic colours of the ACME editor.
+;; Copyright (C) 2014 , Tslil Clingman
+
+;; Version: 0.1
+;; Package-Requires: ((emacs "24"))
+
+;; 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.
+
+(deftheme acme
+  "A theme inspired by the classic colours of the ACME editor.")
+
+(let ((bg-yellow "#FFFFCA")
+      (bg-blue "#DAEFEF")
+      
+      (lazy "#D1D1C0")
+      (mud "#99994C")
+      
+      (yellow "#EAEA9E")
+      (blue "#268BD2")
+      (red "#AA0000")
+      (purple "#8888CC")
+      (green "#508050")
+      (link "#D05000"))
+  (custom-theme-set-faces
+   'acme
+   
+   `(default ((t (:background ,bg-yellow :foreground "black"))))
+   '(cursor ((t (:background "black"))))
+   '(escape-glyph ((t (:foreground "black"))))
+   '(minibuffer-prompt ((t (:foreground "black" :weight bold))))
+   '(highlight ((t (:foreground "grey30"))))
+   `(region ((t (:background ,yellow :foreground "black"))))
+   `(secondary-selection ((t (:background ,red))))
+   '(trailing-whitespace ((t (:background "grey"))))
+   
+   '(font-lock-builtin-face ((t (:foreground "black" :slant normal))))
+   '(font-lock-comment-delimiter-face ((default (:inherit (font-lock-comment-face)))))
+   '(font-lock-comment-face ((t (:foreground "black" :slant italic
+                                             :font "Hack"))))
+   '(font-lock-constant-face ((t (:foreground "black"))))
+   '(font-lock-doc-face ((t (:foreground "black" :slant italic
+                                         :font "Hack"))))
+   '(font-lock-function-name-face ((t (:foreground "black" :weight bold))))
+   '(font-lock-keyword-face ((t (:foreground "black" :weight bold))))
+   '(font-lock-negation-char-face ((t (:foreground "black"))))
+   '(font-lock-preprocessor-face ((t (:inherit (font-lock-builtin-face)))))
+   '(font-lock-string-face ((t (:foreground "black"))))
+   '(font-lock-type-face ((t (:foreground "black" :underline t))))
+   '(font-lock-variable-name-face ((t (:foreground "black"))))
+   '(font-lock-warning-face ((t (:foreground "black"))))
+   
+   '(button ((t (:inherit (link)))))
+   `(link ((t (:underline (:color foreground-color :style line)
+                          :foreground ,link))))
+   '(link-visited ((default (:inherit (link)))
+                   (((class color) (background light)) (:foreground "magenta4"))
+                   (((class color) (background dark)) (:foreground "violet"))))
+   
+   `(fringe ((t (:background ,bg-yellow :foreground "black"))))
+   '(header-line ((default (:inherit (mode-line))) (((type tty)) (:underline (:color foreground-color :style line) :inverse-video nil)) (((class color grayscale) (background light)) (:box nil :foreground "grey20" :background "grey90")) (((class color grayscale) (background dark)) (:box nil :foreground "grey90" :background "grey20")) (((class mono) (background light)) (:underline (:color foreground-color :style line) :box nil :inverse-video nil :foreground "black" :background "white")) (((class mono) (background dark)) (:underline (:color foreground-color :style line) :box nil :inverse-video nil :foreground "white" :background "black"))))
+   '(tooltip ((((class color))
+               (:inherit (variable-pitch) :foreground "black" :background "lightyellow"))
+              (t (:inherit (variable-pitch)))))
+   
+   `(mode-line ((t (:background ,bg-blue :foreground "black" :box 2))))
+   '(mode-line-buffer-id ((t (:foreground "black" :weight bold))))
+   '(mode-line-emphasis ((t (:foreground "black"))))
+   '(mode-line-highlight ((t (:weight bold :box nil :foreground "black"))))
+   `(mode-line-inactive ((t (:background ,bg-blue :foreground "#393939" :weight normal :box t))))
+
+   `(isearch ((t (:background ,yellow))))
+   `(isearch-fail ((t (:background ,red))))
+   `(lazy-highlight ((t (:foreground "black" :weight bold :background ,bg-blue))))
+   `(match ((t (:background ,yellow))))
+   '(next-error ((t (:inherit (region)))))
+   '(query-replace ((t (:inherit (isearch)))))
+   '(table-cell  ((t (:inherit (default)))))
+   
+   `(show-paren-match ((t (:weight bold :background ,purple))))
+   `(show-paren-mismatch ((t (:background ,red))))
+   `(sp-show-pair-match-face ((t (:weight bold :background ,purple))))
+   `(sp-show-pair-mismatch-face ((t (:background ,red))))
+
+   '(ivy-modified-buffer ((t (:underline t :inherit (default)))))
+   
+   `(company-echo-common ((t (:foreground "black" :background ,bg-blue :weight bold))))
+   `(company-scrollbar-bg ((t (:background "grey"))))
+   `(company-scrollbar-fg ((t (:background ,green))))
+   `(company-tooltip ((t (:foreground "black" :background ,bg-blue))))
+   `(company-tooltip-search ((t (:foreground "black" :background ,yellow))))
+   `(company-tooltip-annotation ((t (:foreground "black" :background "grey" :slant italic))))
+   `(company-tooltip-common ((t (:foreground "black" :weight bold))))
+   `(company-tooltip-common-selection ((t (:foreground "black" :background ,yellow :weight bold))))
+   `(company-tooltip-selection ((t (:background ,yellow :foreground "black"))))
+
+   '(font-latex-bold-face ((t (:weight bold))))
+   '(font-latex-italic-face ((t (:slant italic))))
+   `(font-latex-math-face ((t (:foreground "black"
+                                           :box (:line-width 2 :color ,lazy
+                                                             :style pressed-button)
+                                           :foreground "black"))))
+   '(font-latex-string-face ((t (:foreground "black"))))
+   '(font-latex-verbatim-face ((t (:foreground "black"))))
+   '(font-latex-sedate-face ((t (:foreground "black"))))
+   '(font-latex-warning-face ((t (:foreground "black"))))
+   '(font-latex-sectioning-5-face ((t (:foreground "black" :weight normal))))
+
+   `(shm-current-face ((t (:background ,bg-blue))))
+   '(shm-quarantine-face ((t nil)))
+
+   `(avy-goto-char-timer-face ((t (:background ,bg-blue))))
+   `(avy-lead-face ((t (:background ,yellow))))
+   `(avy-lead-face-0 ((t (:background ,green))))
+   `(avy-lead-face-1 ((t (:background ,red))))
+   `(avy-lead-face-2 ((t (:background ,purple))))
+
+   '(company-coq-comment-h1-face ((t (:height 1.8 :slant italic
+                                              :inherit (default)))))
+   '(company-coq-comment-h2-face ((t (:height 1.4 :slant italic
+                                              :inherit (default)))))
+   '(company-coq-comment-h3-face ((t (:height 1.2 :slant italic
+                                              :inherit (default)))))
+   '(company-coq-coqdoc-h1-face ((t (:weight bold :inverse-video t))))
+   '(company-coq-coqdoc-h2-face ((t (:weight bold :underline t))))
+   '(company-coq-coqdoc-h3-face ((t (:underline t))))
+   '(company-coq-coqdoc-h4-face ((t (:inherit (default)))))
+
+   '(company-coq-features/code-folding-bullet-face
+     ((t (:foreground "black" :weight bold))))
+   
+   `(coq-solve-tactics-face ((t (:foreground "black" :underline t))))
+   `(proof-tactics-name-face ((t (:foreground "black" :weight bold))))
+   ))
+
+(provide-theme 'acme)