marc
/
config_emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

added themes and new elisp modules

master
Marc Pohling 6 years ago
parent
b84f2f595c
commit
e462bdf20e
35 changed files with 3939 additions and 20 deletions
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 1
      elisp/base.el
  2. 34
      elisp/lang-latex.el
  3. 9
      elisp/lang-python.el
  4. 3
      elisp/plugin-counsel.el
  5. 6
      elisp/plugin-flycheck.el
  6. 11
      elisp/plugin-neotree.el
  7. 32
      elisp/plugin-org.el
  8. 8
      elisp/plugin-smartparens.el
  9. 9
      elisp/plugin-spaceline.el
  10. 35
      elisp/plugin-treemacs.el
  11. 7
      elisp/plugin-which-key.el
  12. 11
      elisp/plugin-yasnippet.el
  13. 17
      init.el
  14. 4
      themes/.directory
  15. 94
      themes/brin-theme.el
  16. 98
      themes/dorsey-theme.el
  17. 89
      themes/fogus-theme.el
  18. 111
      themes/graham-theme.el
  19. 82
      themes/granger-theme.el
  20. 90
      themes/hickey-theme.el
  21. 92
      themes/junio-theme.el
  22. 113
      themes/mccarthy-theme.el
  23. 114
      themes/odersky-theme.el
  24. 144
      themes/ritchie-theme.el
  25. 7
      themes/solarized-dark-theme.el
  26. 7
      themes/solarized-light-theme.el
  27. 35
      themes/solarized-theme-autoloads.el
  28. 73
      themes/solarized-theme-utils.el
  29. 2
      themes/solarized-theme.el
  30. 2249
      themes/solarized.el
  31. 121
      themes/spolsky-theme.el
  32. 120
      themes/sublime-themes-autoloads.el
  33. 5
      themes/sublime-themes-pkg.el
  34. 32
      themes/sublime-themes.el
  35. 94
      themes/wilson-theme.el

1
elisp/base.el
View File

@ -37,6 +37,7 @@
(setq inhibit-startup-message t) ;; keine Startnachricht
(setq inhibit-splash-screen t) ;; kein Splashscreen
(setq initial-scratch-message nil) ;; keine Scratchmessage
(scroll-bar-mode -1) ;; keine Scrollbar
(setq initial-buffer-choice PATH_START) ;; Dateibrowser öffnen
(add-to-list 'default-frame-alist '(fullscreen . maximized)) ;; Vollbild beim Start

34
elisp/lang-latex.el
View File

@ -0,0 +1,34 @@
;; derzeit für update des previews notwendig:
;; im preview-buffer g drücken (revert-buffer-from-file)
;; für Ausgabe via pdftools statt docView
;; benötigt Paket pdf-tools und texlive (in Linux installieren)
(use-package pdf-tools
:ensure t
:config
;; (pdf-tools-install)
(setq TeX-view-program-selection '((output-pdf "pdf-tools")))
(setq TeX-view-program-list '(("pdf-tools" "Tex-pdf-tools-sync-view")))
)
;; Achtung, hierfür derzeit (2017-10) patch in latex-preview-pane.el notwendig
;; gilt ab Emacs 25.1 (doc-view-revert-buffer wurde ab 24.5.1 geändert
;; siehe auch https://github.com/jsinglet/latex-preview-pane/issues/37
;; für Funktion latex-preview-pane-update-p()
;; --- (doc-view-revert-buffer nil t
;; +++ (revert-buffer-nil t 'preserve-modes)
;; anschließend Datei M-x byte-compile-file
(use-package latex-preview-pane
:ensure t)
(setq auto-mode-alist
(append '(("\\.tex$" . latex-mode)) auto-mode-alist))
;; eine von beiden funktioniert
(add-hook 'LaTeX-mode-hook 'latex-preview-pane-mode)
(add-hook 'latex-mode-hook 'latex-preview-pane-mode)
;; notwendig, da linum-mode nicht kompatibel und Fehlermeldung hervorruft
(add-hook 'pdf-view-mode-hook (lambda() (linum-mode -1)))
(provide 'lang-latex)

9
elisp/lang-python.el
View File

@ -7,7 +7,15 @@
;; enthalten sein!
;; ##############
;; Python-Code ausführen:
;; C-C C-z open python shell
;; C-C C-c run content of buffer in opened shell
;; C-C C-r run selected region in python shell
;; virtualenv für python muss installiert sein
;; Fedora: # dnf install python3-virtualenv
;;
;; Benutzung
;; venv-workon: virtualenv aussuchen und setzen
;; venv-deactivate: deaktiviert virtualenv
@ -48,6 +56,7 @@
;; (add-hook 'focus-in-hook #'auto-virtualenvwrapper-activate))
(use-package py-autopep8
:ensure t
:config
(add-hook 'python-mode-hook 'py-autopep8-enable-on-save))

3
elisp/plugin-counsel.el
View File

@ -7,7 +7,7 @@
(use-package ivy
:ensure t
:diminish
(ify-mode . "") ;; does not display ivy in the modeline
(ivy-mode . "") ;; does not display ivy in the modeline
:init
(ivy-mode 1) ;; ivy wird global beim Start aktiviert
:bind
@ -26,6 +26,7 @@
("C-c h v" . counsel-describe-variable)
("M-i" . counsel-imenu)))
;; swiper benötigt ivy
(use-package swiper
:ensure t
:bind

6
elisp/plugin-flycheck.el
View File

@ -1,5 +1,11 @@
;;; plugin-flycheck --- Summary
;;; Commentary:
;;; Code:
(use-package flycheck
:ensure t
:init (global-flycheck-mode))
(provide 'plugin-flycheck)
;;; plugin-flycheck ends here

11
elisp/plugin-neotree.el
View File

@ -1,3 +1,5 @@
;;; plugin-neotree --- Summary
;;; Commentary:
;; Shortcuts (only in neotree-buffer)
;; n next line
;; p previous line
@ -11,15 +13,18 @@
;; C-c C-c change root directory
;; C-c C-p copy file or directory
;;; Code:
(use-package neotree
:ensure t
:bind
("<f8>" . neotree-toggle)
:config
(setq neo-theme 'nerd
neo-smart-open t ;; neotree window springt zur Position des offenen Buffers
neo-dont-be-alone t ;; neotree nach öffnen nicht einziges Fenster
(setq-default neo-theme 'nerd
neo-smart-open t ;; neotree window springt zur Position des offenen Buffers
neo-dont-be-alone t ;; neotree nach öffnen nicht einziges Fenster
)
)
(provide 'plugin-neotree)
;;; plugin-neotree ends here

32
elisp/plugin-org.el
View File

@ -1,3 +1,5 @@
;;; Code:
(defvar PATH_ORG_FILES "~/Archiv/Dokumente/Org/")
(defvar PATH_ORG_JOURNAL "~/Archiv/Dokumente/Journal/")
@ -11,19 +13,29 @@
("C-c a" . org-agenda)
("C-c c" . org-capture))
:config
(setq org-log-done t) ;; ???
(setq org-agenda-span 21) ;; Agendaview für 21 Tage
(setq org-agenda-include-diary t) ;; berücksichtigt den Emacs-Kalender
;; der Jahrestage, wiederkehrende Termine etc. berücksichtigt
(setq org-default-notes-file (concat PATH_ORG_FILES "notes.org")) ;; Standardpfad für Notizen
(setq org-agenda-files (list PATH_ORG_FILES ;; Pfade für org-Files
(setq org-log-done t) ;; ???
(setq org-agenda-span 21) ;; Agendaview für 21 Tage
(setq org-agenda-include-diary t) ;; berücksichtigt den Emacs-Kalender
;; der Jahrestage, wiederkehrende Termine etc. berücksichtigt
(setq org-default-notes-file (concat PATH_ORG_FILES "notes.org")) ;; Standardpfad für Notizen
(setq org-agenda-files (list PATH_ORG_FILES ;; Pfade für org-Files
PATH_ORG_JOURNAL))
(setq org-agenda-file-regexp "\\.org\\|[0-9]+") ;; sucht alle Dateien mit Endung .*, .org
;; oder Dateien, die nur aus Zahlen bestehen
(add-to-list 'auto-mode-alist '("\\.org$^[~]'\\|[0-9]+^[~]" . org-mode))) ;; org-mode automatisch aktiviert, wenn .org-File geladen wird
(setq org-agenda-file-regexp "\\.org\\|[0-9]+") ;; sucht alle Dateien mit Endung .*, .org
;; oder Dateien, die nur aus Zahlen bestehen
(add-to-list 'auto-mode-alist '("\\.org$^[~]'\\|[0-9]+^[~]" . org-mode))) ;; org-mode automatisch aktiviert,
;; wenn .org-File geladen wird
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; org-journal
;;
;; Anleitung
;; C-c C-j neuen Eintrag erstellen
;; C-u C-c C-j heutigen Eintrag öffnen, ohne neuen zu erstellen
;; In Calendar view:
;; j Eintrag anschauen
;; C-j Eintrag anschauen, aber nicht reinwechseln
;; i j neuen Eintrag erstellen
;; [ bzw ] zum vorherigen bzw. nächsten Eintrag wechseln
(use-package org-journal
:ensure t
@ -32,3 +44,5 @@
(provide 'plugin-org)
;;; plugin-org.el ends here

8
elisp/plugin-smartparens.el
View File

@ -1,3 +1,9 @@
;;; plugin-smartparens --- Summary
;;; Commentary:
;;; Code:
(use-package smartparens
:ensure t
:diminish smartparens-mode
@ -9,3 +15,5 @@
(require 'smartparens-config))
(provide 'plugin-smartparens)
;;; plugin-smartparens ends here

9
elisp/plugin-spaceline.el
View File

@ -0,0 +1,9 @@
;; https://github.com/TheBB/spaceline
(use-package spaceline-config
:ensure spaceline
:config
(spaceline-emacs-theme)
)
(provide 'plugin-spaceline)

35
elisp/plugin-treemacs.el
View File

@ -0,0 +1,35 @@
;; für quickhelp in treemacs: ? (helpful hydra)
(use-package treemacs
:ensure t
:defer t
:config
(setq treemacs-follow-after-init t
treemacs-width 35
treemacs-indentation 2
treemacs-git-integration t
treemacs-collapse-dirs 3
treemacs-silent-refresh nil
treemacs-change-root-without-asking nil
treemacs-sorting 'alphabetic-desc
treemacs-show-hidden-files t
treemacs-never-persist nil
treemacs-is-never-other-window nil
treemacs-goto-tag-strategy 'refetch-index
treemacs-follow-mode t
treemacs-filewatch-mode t)
:bind
("<f8>" . treemacs-toggle)
)
(use-package treemacs-projectile
:ensure t
:defer t
:config
(setq treemacs-header-function #'treemacs-projectile-create-header)
:bind*
(("M-m fP" . treemacs-projectile)
("M-m fp" . treemacs-projectile-toggle))
)
(provide 'plugin-treemacs)

7
elisp/plugin-which-key.el
View File

@ -1,3 +1,8 @@
;;; plugin-which-keys --- Summary
;;; Commentary:
;;; Code:
(use-package which-key
:ensure t
:diminish which-key-mode
@ -8,3 +13,5 @@
(setq which-key-idle-delay 0.5))
(provide 'plugin-which-key)
;;; plugin-which-key ends here

11
elisp/plugin-yasnippet.el
View File

@ -1,8 +1,17 @@
;;; plugin-yasnippet --- Summary
;;; Commentary:
;;; Code:
(use-package yasnippet
:ensure t
:diminish yas
:config
(yas/global-mode 1)
(yas-global-mode)
(add-to-list 'yas-snippet-dirs (concat user-emacs-directory "snippets")))
(provide 'plugin-yasnippet)
;;; plugin-yasnippet ends here

17
init.el
View File

@ -1,8 +1,8 @@
;;; init --- Summary
;;; Commentary:
;;; Code:
;; Added by Package.el. This must come before configurations of
;; installed packages. Don't delete this line. If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)
(setq shell-file-name "/bin/bash") ;;test für python und jedi
(setq debug-on-error t) ;; Debug-Meldung, wenn Fehler durch init.el auftritt
@ -23,10 +23,15 @@
(require 'plugin-flycheck) ; Syntaxcheck
(require 'plugin-smartparens)
(require 'plugin-yasnippet)
(require 'plugin-neotree)
;(require 'plugin-neotree)
(require 'plugin-projectile)
(require 'plugin-treemacs) ;nach projectile, da treemacs auch treemacs-projectile lädt
(require 'plugin-spaceline)
(require 'plugin-magit)
(require 'lang-python)
(require 'lang-latex)
;;; init ends here
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
@ -34,7 +39,7 @@
;; If there is more than one, they won't work right.
'(package-selected-packages
(quote
(company-jedi elpy yasnippet which-key use-package smartparens projectile org-journal neotree material-theme magit flycheck counsel company-statistics company-quickhelp company-dict))))
(pdf-tools yasnippet which-key use-package tablist smartparens projectile org-journal neotree material-theme magit flycheck counsel company-statistics company-quickhelp company-jedi company-dict auto-virtualenvwrapper))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.

4
themes/.directory
View File

@ -0,0 +1,4 @@
[Dolphin]
Timestamp=2017,3,18,11,51,5
Version=3
ViewMode=2

94
themes/brin-theme.el
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/>.
;; *****************************************************************************************
;;
;; Brin :- An Emacs port of the Space Grey ST2 theme
;;
;; *****************************************************************************************
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme brin "Space Grey theme for Emacs")
(custom-theme-set-variables
'brin
'(linum-format " %5i "))
(let ((background "#2b303b")
(gutters "#343d46")
(gutter-fg "#65737e")
(gutters-active "#4f5b66")
(builtin "#d08770")
(foreground "#c0c5ce")
(invisibles "#65737e")
(lineHighlight "#343d46")
(selection "#4f5b66")
(text "#c0c5ce")
(comments "#65737e")
(punctuation "#c0c5ce")
(delimiters "#c0c5ce")
(operators "#c0c5ce")
(keywords "#b48ead")
(variables "#bf616a")
(functions "#8fa1b3")
(methods "#8fa1b3")
(strings "#a3be8c")
(constants "#d08770")
(white "#ffffff"))
(custom-theme-set-faces
'brin
;; Default colors
;; *****************************************************************************************
`(default ((t (:foreground ,text :background ,background))))
`(region ((t (:background ,selection ))))
`(cursor ((t (:background ,white ))))
`(fringe ((t (:background ,background :foreground ,white))))
`(linum ((t (:background ,background :foreground ,gutter-fg))))
`(mode-line ((t (:foreground ,white :background ,gutters-active ))))
`(mode-line-inactive ((t (:foreground ,gutter-fg :background ,gutters ))))
;; Font lock faces
;; *****************************************************************************************
`(font-lock-keyword-face ((t (:foreground ,keywords))))
`(font-lock-type-face ((t (:foreground ,punctuation))))
`(font-lock-constant-face ((t (:foreground ,constants))))
`(font-lock-variable-name-face ((t (:foreground ,variables))))
`(font-lock-builtin-face ((t (:foreground ,builtin))))
`(font-lock-string-face ((t (:foreground ,strings))))
`(font-lock-comment-face ((t (:foreground ,comments))))
`(font-lock-comment-delimiter-face ((t (:foreground ,delimiters))))
`(font-lock-function-name-face ((t (:foreground ,functions))))
`(font-lock-doc-string-face ((t (:foreground ,strings)))))
;; *****************************************************************************************
)
;;;###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 'brin)
;; Local Variables:
;; no-byte-compile: t
;; End:

98
themes/dorsey-theme.el
View File

@ -0,0 +1,98 @@
;; 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/>.
;; ---------------------------
;;
;; Dorsey: A dark grunge color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme dorsey
"A dark grunge color theme")
(custom-theme-set-variables
'dorsey
'(linum-format " %7i "))
(let ((dorsey-background "#252727")
(dorsey-darker-background "#212121")
(dorsey-rich-black "#161A1F")
(dorsey-mid-gray "#666666")
(dorsey-light-gray "#999999")
(dorsey-foreground "#FFFFFF")
(dorsey-light-blue "#9FB3C2")
(dorsey-bluegray "#4F5A63")
(dorsey-blue-green "#8AB8A2")
(dorsey-yellow "#C7AF3F")
(dorsey-light-yellow "#FFE792")
(dorsey-yellow-white "#FAFFDB")
(*mode-line-bg* "#CCCCCC")
(*mode-inactive-bg* "#222")
(*mode-line-fg* "#333333")
(*mode-inactive-fg* "#FFF"))
(custom-theme-set-faces
'dorsey
;; ----------------- Frame stuff --------------------
`(default ((t (:background ,dorsey-darker-background :foreground ,dorsey-foreground))))
`(cursor ((t (:background ,dorsey-foreground))))
`(hl-line ((t (:background ,dorsey-darker-background))))
`(mode-line ((t (:background, *mode-line-bg* :foreground, *mode-line-fg*))))
`(mode-line-inactive ((t (:background, *mode-inactive-bg* :foreground, *mode-inactive-fg*))))
`(mode-line ((t (:box nil :foreground ,dorsey-mid-gray :background ,dorsey-foreground))))
`(fringe ((t (:background ,dorsey-darker-background))))
;; Dir-ed search prompt
`(minibuffer-prompt ((default (:foreground ,dorsey-foreground))))
;; Highlight region color
`(region ((t (:foreground ,dorsey-light-yellow :background ,dorsey-rich-black))))
;; ---------------- Code Highlighting ---------------
;; Builtin
`(font-lock-builtin-face ((t (:foreground ,dorsey-yellow))))
;; Constants
`(font-lock-constant-face ((t (:foreground ,dorsey-light-gray))))
;; Comments
`(font-lock-comment-face ((t (:foreground ,dorsey-bluegray))))
;; Function names
`(font-lock-function-name-face ((t (:foreground ,dorsey-yellow))))
;; Keywords
`(font-lock-keyword-face ((t (:foreground ,dorsey-light-blue))))
;; Strings
`(font-lock-string-face ((t (:foreground ,dorsey-yellow-white))))
;; Variables
`(font-lock-variable-name-face ((t (:foreground ,dorsey-blue-green))))
`(font-lock-type-face ((t (:foreground ,dorsey-foreground))))
`(font-lock-warning-face ((t (:foreground ,dorsey-foreground :bold t))))
;; ---------------- Package Specific Stuff -----------
;; Powerline
`(powerline-active1 ((t (:background "gray30" :foreground ,dorsey-rich-black))))
`(powerline-active2 ((t (:background "gray35" :foreground ,dorsey-rich-black))))
`(powerline-inactive1 ((t (:background "gray10" :foreground ,dorsey-mid-gray))))
`(powerline-inactive2 ((t (:background "gray15" :foreground ,dorsey-mid-gray))))))
;;;###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 'dorsey)
;; Local Variables:
;; no-byte-compile: t
;; End:

89
themes/fogus-theme.el
View File

@ -0,0 +1,89 @@
;; 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/>.
;; ---------------------------
;;
;; Fogus: An icy dark blue color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme fogus
"A bluecolor theme")
(let ((fogus-background "#14191F")
(fogus-foreground "#AEC2E0")
(fogus-mid-gray "#666666")
(fogus-darker-gray "#14191f")
(fogus-white "#FFFFFF")
(fogus-off-white "#F8F8F0")
(fogus-yellow-white "#FFE792")
(fogus-light-gray-blue "#d0dfe6")
(fogus-lightest-blue "#effbff")
(fogus-lighter-blue "#748aa6")
(fogus-light-blue "#6ee2ff")
(fogus-blue "#324357")
(fogus-dark-blue "#183c66")
(fogus-darker-blue "#1b232c")
(fogus-green "#95cc5e"))
(custom-theme-set-faces
'fogus
;; ----------------- Frame stuff --------------------
`(default ((t (:background ,fogus-background :foreground ,fogus-foreground))))
`(cursor ((t (:background ,fogus-off-white))))
`(hl-line ((t (:background ,fogus-mid-gray))))
`(modeline ((t (:background ,fogus-dark-blue :foreground ,fogus-white))))
`(mode-line-inactive ((t (:box nil :background ,fogus-mid-gray :foreground ,fogus-light-gray-blue))))
`(mode-line ((t (:box nil :foreground ,fogus-white :background ,fogus-dark-blue))))
`(fringe ((t (:background ,fogus-darker-gray))))
;; Dir-ed search prompt
`(minibuffer-prompt ((default (:foreground ,fogus-white))))
;; Highlight region color
`(region ((t (:foreground ,fogus-yellow-white :background ,fogus-darker-blue))))
;; ---------------- Code Highlighting ---------------
;; Builtin
`(font-lock-builtin-face ((t (:foreground ,fogus-light-blue))))
;; Comments
`(font-lock-comment-face ((t (:foreground ,fogus-blue))))
;; Function names
`(font-lock-function-name-face ((t (:foreground ,fogus-lightest-blue))))
;; Keywords
`(font-lock-keyword-face ((t (:foreground ,fogus-lighter-blue))))
;; Strings
`(font-lock-string-face ((t (:foreground ,fogus-light-blue))))
;; Variables
`(font-lock-variable-name-face ((t (:foreground ,fogus-light-gray-blue))))
`(font-lock-type-face ((t (:foreground ,fogus-green))))
`(font-lock-warning-face ((t (:foreground ,fogus-white :bold t))))
;; ---------------- Package Specific Stuff -----------
;; Powerline
`(powerline-active1 ((t (:background ,fogus-off-white :foreground ,fogus-background))))))
;;;###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 'fogus)
;; Local Variables:
;; no-byte-compile: t
;; End:

111
themes/graham-theme.el
View File

@ -0,0 +1,111 @@
;; 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/>.
;; ---------------------------
;;
;; Graham: A dark color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme graham "A dark color theme for Emacs")
(let ((*background* "#161A1F")
(*comments* "#615953")
(*constant* "#F38630")
(*current-line* "#151515")
(*cursor-underscore* "#FFFAAA")
(*keywords* "#FFA927")
(*line-number* "#061A1F")
(*method-declaration* "#FFD2A7")
(*mode-line-bg* "#CCCCCC")
(*mode-inactive-bg* "#222")
(*mode-line-fg* "#333333")
(*mode-inactive-fg* "#FFF")
(*normal* "#DEDEDE")
(*number* "#FC580C")
(*operators* "#F38630")
(*warning* "#FF6C60")
(*regexp* "#E9C")
(*string* "#615953")
(*variable* "#C6C5FE")
(*visual-selection* "#1D1F21"))
(custom-theme-set-faces
'graham
`(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, *background*))))
`(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, *background*)))) ;; 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 'graham)
;; Local Variables:
;; no-byte-compile: t
;; End:

82
themes/granger-theme.el
View File

@ -0,0 +1,82 @@
;; 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/>.
;; *****************************************************************************************
;;
;; Granger: Color theme based on light table
;;
;; *****************************************************************************************
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme granger "Light table theme for Emacs")
(custom-theme-set-variables
'granger
'(linum-format " %7i "))
(let ((background "#111013")
(selection "#11253A"))
(custom-theme-set-faces
'granger
;; Default colors
;; *****************************************************************************************
`(default ((t (:foreground "#ABAEB3" :background ,background))))
`(region ((t (:background ,selection ))))
`(cursor ((t (:background "#ffffff" ))))
`(fringe ((t (:background "#2f2f2f" :foreground "#ffffff"))))
`(linum ((t (:background ,background :foreground "#2f2f2f"))))
`(minibuffer-prompt ((t (:foreground "#9489C4" :weight bold))))
`(minibuffer-message ((t (:foreground "#ffffff" ))))
`(mode-line ((t (:foreground "#FFFFFF" :background "#484879" ))))
`(mode-line-inactive ((t (:foreground "#777777" :background "#303030" ))))
;; Font lock faces
;; *****************************************************************************************
`(font-lock-keyword-face ((t (:foreground "#3ca380"))))
`(font-lock-type-face ((t (:foreground "#484879"))))
`(font-lock-constant-face ((t (:foreground "#3F5C70"))))
`(font-lock-variable-name-face ((t (:foreground "#547B96"))))
`(font-lock-builtin-face ((t (:foreground "#6767AE"))))
`(font-lock-string-face ((t (:foreground "#699ABC"))))
`(font-lock-comment-face ((t (:foreground "#496b83"))))
`(font-lock-comment-delimiter-face ((t (:foreground "#666688"))))
`(font-lock-function-name-face ((t (:foreground "#3ca380"))))
`(font-lock-doc-string-face ((t (:foreground "#496B83")))))
;; Helm
;; *****************************************************************************************
`(helm-selection ((t (:background selection :underline nil))))
`(helm-selection-line ((t (:background 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 'granger)
;; Local Variables:
;; no-byte-compile: t
;; End:

90
themes/hickey-theme.el
View File

@ -0,0 +1,90 @@
;; 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/>.
;; ---------------------------
;;
;; Hickey: A dark color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme hickey "A dark colour theme")
(let ((hickey-background "#1D2021")
(hickey-foreground "#F8F8F2")
(hickey-dark-gray "#333333")
(hickey-mid-gray "#555555")
(hickey-light-gray "#666666")
(hickey-lightest-gray "#999999")
(hickey-comment-slate "#505C63")
(hickey-orange "#F38630")
(hickey-light-slate "#465459")
(hickey-dark-slate "#161A1F")
(hickey-light-blue "#A7DBD8")
(hickey-strong-green "#AEE239")
(hickey-subtle-blue "#A7DBD8")
(hickey-dirty-white "#F8F8F0")
(hickey-lighter-orange "#FD971F"))
(custom-theme-set-faces
'hickey
;; ----------------- Frame stuff --------------------
`(default ((t (:background ,hickey-background :foreground ,hickey-foreground))))
`(cursor ((t (:background ,hickey-lightest-gray))))
`(hl-line ((t (:background ,hickey-light-gray))))
`(modeline ((t (:foreground ,hickey-lightest-gray :background ,hickey-mid-gray))))
`(mode-line-inactive ((t (:box nil :foreground ,hickey-light-gray :background ,hickey-dark-gray))))
`(mode-line ((t (:box nil :foreground ,hickey-background :background ,hickey-light-blue))))
`(fringe ((t (:background ,hickey-background))))
;; Highlight region color
`(region ((t (:foreground ,hickey-light-slate :background ,hickey-dark-slate))))
;; Dir-ed search prompt
`(minibuffer-prompt ((default (:foreground ,hickey-light-blue))))
;; ---------------- Code Highlighting ---------------
;; Builtins
`(font-lock-builtin-face ((t (:foreground ,hickey-orange))))
;; Constants
`(font-lock-constant-face ((t (:foreground ,hickey-strong-green))))
;; Comments
`(font-lock-comment-face ((t (:foreground ,hickey-comment-slate))))
;; Function names
`(font-lock-function-name-face ((t (:foreground ,hickey-strong-green))))
;; Keywords
`(font-lock-keyword-face ((t (:foreground ,hickey-subtle-blue))))
;; Strings
`(font-lock-string-face ((t (:foreground ,hickey-dirty-white))))
;; Variables
`(font-lock-variable-name-face ((t (:foreground ,hickey-lighter-orange))))
`(font-lock-type-face ((t (:foreground ,hickey-lightest-gray))))
`(font-lock-warning-face ((t (:foreground ,hickey-lightest-gray :bold t))))
;; ---------------- Package Specific Stuff -----------
;; Powerline
`(powerline-active1 ((t (:background ,hickey-dirty-white :foreground ,hickey-background))))))
;;;###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 'hickey)
;; Local Variables:
;; no-byte-compile: t
;; End:

92
themes/junio-theme.el
View File

@ -0,0 +1,92 @@
;; 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/>.
;; ---------------------------
;;
;; Junio: A vivid theme like chocolates
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme junio "A vivid theme like chocolates")
(let ((junio-background "#120312")
(junio-foreground "#C5C5B8")
(junio-comment-slate "#637579")
(junio-black "#000000")
(junio-constant "#6F8FCC")
(junio-mid-gray "#555555")
(junio-light-gray "#BCBCBC")
(junio-type "#EF5C5F")
(junio-green "#8fbfdc")
(junio-cursor "#F0F040")
(junio-dark-slate "#403D3D")
(junio-key "#FFA070")
(junio-func "#8AAFFA")
(junio-yellow "#E6DB74")
(junio-string "#868B44")
(junio-sky-blue "#A197BF")
(junio-mode "#A1BAA1")
(junio-mode-back "#1A1A1A")
(junio-warn-red "#EE0000"))
(custom-theme-set-faces
'junio
;; ----------------- Frame stuff --------------------
`(default ((t (:background ,junio-background :foreground ,junio-foreground))))
`(cursor ((t (:background ,junio-cursor))))
`(hl-line ((t (:background ,junio-black))))
`(mode-line-inactive ((t (:box nil :foreground ,junio-mid-gray :background ,junio-black))))
`(mode-line ((t (:box nil :bold t :foreground ,junio-mode :background ,junio-mode-back))))
`(fringe ((t (:background ,junio-background))))
;; Highlight region color
`(region ((t (:foreground ,junio-yellow :background ,junio-dark-slate))))
;; Dir-ed search prompt
`(minibuffer-prompt ((default (:foreground ,junio-foreground))))
;; ---------------- Code Highlighting ---------------
;; Builtins
`(font-lock-builtin-face ((t (:foreground ,junio-green))))
;; Constants
`(font-lock-constant-face ((t (:foreground ,junio-constant))))
;; Comments
`(font-lock-comment-face ((t (:foreground ,junio-comment-slate))))
;; Function names
`(font-lock-function-name-face ((t (:foreground ,junio-func))))
;; Keywords
`(font-lock-keyword-face ((t (:foreground ,junio-key))))
;; Strings
`(font-lock-string-face ((t (:foreground ,junio-string))))
;; Variables
`(font-lock-variable-name-face ((t (:foreground ,junio-sky-blue))))
`(font-lock-type-face ((t (:foreground ,junio-type))))
`(font-lock-warning-face ((t (:foreground ,junio-warn-red :background ,junio-light-gray :bold t))))
;; ---------------- Package Specific Stuff -----------
;; Powerline
`(powerline-active1 ((t (:background ,junio-yellow :foreground ,junio-background))))))
;;;###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 'junio)
;; Local Variables:
;; no-byte-compile: t
;; End:

113
themes/mccarthy-theme.el
View File

@ -0,0 +1,113 @@
;; 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/>.
;; ---------------------------
;;
;; McCarthy: A light color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme mccarthy "A dark color theme for Emacs")
(let ((*background* "#f6f7f8")
(*comments* "#2c5115")
(*constant* "#008080")
(*current-line* "#1b1e2b")
(*cursor-underscore* "#0e1f5b")
(*keywords* "#3B5998")
(*line-number* "#EEE")
(*method-declaration* "#1b1e2b")
(*mode-line-bg* "#555")
(*mode-inactive-bg* "#999")
(*mode-line-fg* "#EEE")
(*normal* "#555")
(*number* "#5b93fc")
(*operators* "#2c3140")
(*warning* "#3b5998")
(*regexp* "#E9C")
(*string* "#555")
(*variable* "#D14")
(*visual-selection* "#CCC")
(*header-line-bg* "#0087af"))
(custom-theme-set-faces
'mccarthy
`(bold ((t (:bold t))))
`(button ((t (:foreground, *keywords* :underline t))))
`(default ((t (:background, *background* :foreground, *normal*))))
;; Colour of header lines in Proced, info, Buffer list etc...
`(header-line ((t (:background, *header-line-bg* :foreground, *background*))))
`(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, *background*))))
`(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, *background*))))
`(cursor ((t (:background, *cursor-underscore*))))
`(text-cursor ((t (:background, *cursor-underscore*))))
`(vertical-border ((t (:foreground, *background*)))) ;; 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, *header-line-bg* :foreground, *background*))))
`(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 'mccarthy)
;; Local Variables:
;; no-byte-compile: t
;; End:

114
themes/odersky-theme.el
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:

144
themes/ritchie-theme.el
View File

@ -0,0 +1,144 @@
;; 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/>.
;; ---------------------------
;;
;; Ritchie: A light color theme, named after Dennis Ritchie, creator
;; of the C language, co-creator of the Unix OS, among other things.
;;
;; ----------------------------
;;; Code:
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme ritchie "Uncertain amount of shades of blue.")
(defvar ritchie-colours-alist
nil
"Colours for the Ritchie theme")
(setq ritchie-colours-alist
'((the-colour . "#0087af")
(dark-cyan . "#008B8B")
(white . "#ffffff")
(dark-red . "#8B0000")
(powder-blue . "#B0E0E6")
(black . "#343434")
(light-cyan . "#B0E0E6")
(dodger-blue . "#104E8B")
(royal-blue . "#4169E1")
(dark-slate-blue . "#483D8B")
(gainsboro . "#DCDCDC")
(medium-blue . "#0000CD")))
(defun ritchie-colour (name)
"Shortcut to get a colour for ``ritchie-colours-alist'' by NAME."
(cdr (assoc name ritchie-colours-alist)))
(let* ((*background* (ritchie-colour 'white))
(*normal* (ritchie-colour 'black))
(*comments* (ritchie-colour 'dodger-blue))
(*constant* (ritchie-colour 'medium-blue))
(*current-line* (ritchie-colour 'powder-blue))
(*current-line-fg* *normal*)
(*cursor-underscore* (ritchie-colour 'black))
(*keywords* (ritchie-colour 'dark-slate-blue))
(*line-number* *background*)
(*line-number-fg* (ritchie-colour 'gainsboro))
(*method-declaration* *keywords*)
(*mode-line-bg* (ritchie-colour 'dark-cyan))
(*mode-line-fg* *background*)
(*mode-inactive-bg* (ritchie-colour 'light-cyan))
(*mode-inactive-fg* *normal*)
(*number* *normal*)
(*operators* *normal*)
(*warning* "#3b5998")
(*regexp* "#E9C")
(*string* *normal*)
(*variable* *method-declaration*)
(*visual-selection* (ritchie-colour 'the-colour))
(*visual-selection-fg* *background*)
(*header-line-bg* *visual-selection*))
(custom-theme-set-faces
'ritchie
`(bold ((t (:bold t))))
`(button ((t (:foreground, *keywords* :underline t))))
`(default ((t (:background, *background* :foreground, *normal*))))
;; Colour of header lines in Proced, info, Buffer list etc...
`(header-line ((t (:background, *header-line-bg* :foreground, *background*))))
`(highlight ((t (:background, *current-line* :foreground, *current-line-fg*))))
`(highlight-face ((t (:background, *current-line*))))
`(hl-line ((t (:background, *current-line* :underline nil
:foreground ,*current-line-fg*))))
`(info-xref ((t (:foreground, *keywords* :underline t))))
`(region ((t (:background, *visual-selection* :foreground ,*visual-selection-fg*))))
`(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, *background*))))
`(linum ((t (:background, *line-number* :foreground ,*line-number-fg*))))
`(minibuffer-prompt ((t (:foreground, *variable*))))
`(mode-line ((t (:background, *mode-line-bg* :foreground, *mode-line-fg* :box nil))))
`(mode-line-inactive ((t (:background, *mode-inactive-bg*
:foreground, *mode-inactive-fg* :box nil))))
`(cursor ((t (:background, *cursor-underscore*))))
`(text-cursor ((t (:background, *cursor-underscore*))))
`(vertical-border ((t (:foreground, *background*)))) ;; 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, *header-line-bg* :foreground, *background*))))
`(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 'ritchie)
;; Local Variables:
;; no-byte-compile: t
;; End:

7
themes/solarized-dark-theme.el
View File

@ -0,0 +1,7 @@
(require 'solarized)
(deftheme solarized-dark "The dark variant of the Solarized colour theme")
(create-solarized-theme 'dark 'solarized-dark)
(provide-theme 'solarized-dark)

7
themes/solarized-light-theme.el
View File

@ -0,0 +1,7 @@
(require 'solarized)
(deftheme solarized-light "The light variant of the Solarized colour theme")
(create-solarized-theme 'light 'solarized-light)
(provide-theme 'solarized-light)

35
themes/solarized-theme-autoloads.el
View File

@ -0,0 +1,35 @@
;;; solarized-theme-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "solarized" "solarized.el" (22733 25201 472094
;;;;;; 413000))
;;; Generated autoloads from solarized.el
(autoload 'solarized-color-blend "solarized" "\
Blends COLOR1 onto COLOR2 with ALPHA.
COLOR1 and COLOR2 should be color names (e.g. \"white\") or RGB
triplet strings (e.g. \"#ff12ec\").
Alpha should be a float between 0 and 1.
\(fn COLOR1 COLOR2 ALPHA)" nil nil)
(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))))
;;;***
;;;### (autoloads nil nil ("solarized-dark-theme.el" "solarized-light-theme.el"
;;;;;; "solarized-theme-pkg.el" "solarized-theme-utils.el" "solarized-theme.el")
;;;;;; (22733 25201 809029 126000))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:
;;; solarized-theme-autoloads.el ends here

73
themes/solarized-theme-utils.el
View File

@ -0,0 +1,73 @@
;;; solarized-theme-utils.el --- Utilities for solarized theme development
;; Copyright (C) 2012 Thomas Frössman
;; Author: Thomas Frössman <thomasf@jossystem.se>
;; URL: http://github.com/bbatsov/solarized-emacs
;; 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:
;;
;; Development utilities, these are not needed for normal theme usage
;;
;;;; Code:
(require 'cl-lib)
(require 'solarized)
(defun solarized-import-faces (&optional regexp already-defined)
"Imports current effective face definitions by regular expression
in the format of solarized-theme.el."
(interactive (list (read-regexp "List faces matching regexp")))
(let*
((all-faces (zerop (length regexp)))
(faces
(delq nil
(mapcar (lambda (face)
(let ((s (symbol-name face)))
(when (or all-faces (string-match regexp s))
face)))
(sort (face-list) #'string-lessp)))))
(mapc (lambda(face)
(when (or (not (get face 'theme-face)) already-defined)
(insert (format
"`(%s ((,class %s)))%s
"
face
(let (result)
(dolist (entry face-attribute-name-alist result)
(let* ((attribute (car entry))
(value (face-attribute face attribute)))
(unless (eq value 'unspecified)
(setq result
(nconc (list attribute
(cond
((cl-member attribute
'(":background"
":foreground")
:test 'string=)
(format "\"%s\"" value))
(t value))) result))))))
(if (get face 'theme-face)
(format " ;; Already set by current theme!")
"")))))
faces)))
;; Local Variables:
;; byte-compile-warnings: (not cl-functions)
;; indent-tabs-mode: nil
;; End:
(provide 'solarized-theme-utils)
;;; solarized-theme-utils.el ends here

2
themes/solarized-theme.el
View File

@ -0,0 +1,2 @@
(require 'solarized)
(provide 'solarized-theme)

2249
themes/solarized.el
File diff suppressed because it is too large
View File

121
themes/spolsky-theme.el
View File

@ -0,0 +1,121 @@
;; 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/>.
;; ---------------------------
;;
;; Spolsky : A dark color theme
;;
;; ----------------------------
(unless (>= emacs-major-version 24)
(error "requires Emacs 24 or later."))
(deftheme spolsky "A dark color theme for Emacs based on Sublime Text 2")
(custom-theme-set-variables
'spolsky
'(linum-format " %7i "))
(let ((*background* "#161A1F")
(*comments* "#8C8C8C")
(*constant* "#FF80F4")
(*current-line* "#151515")
(*cursor-underscore* "#EEDC82")
(*keywords* "#F92672")
;; Sidebar line numbers
(*line-number* "#161A1F")
(*line-fg* "#666")
(*type-face* "#66D9EF")
(*method-declaration* "#A6E22E")
(*mode-line-bg* "#333")
(*mode-inactive-bg* "#222")
(*mode-line-fg* "#EEDC82")
(*mode-inactive-fg* "#555")
(*normal* "#DEDEDE")
(*number* "#FC580C")
(*operators* "#FF80F4")
(*warning* "#FF6C60")
(*regexp* "#A63A62")
(*string* "#EEDC82")
(*variable* "#FD971F")
(*visual-selection* "#555"))
(custom-theme-set-faces
'spolsky
`(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, *type-face*))))
`(font-lock-variable-name-face ((t (:foreground, *variable*))))
`(font-lock-warning-face ((t (:foreground, *warning*))))
;; GUI
`(fringe ((t (:background, *background*))))
`(linum ((t (:background, *line-number* :foreground, *line-fg*))))
`(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, *background*)))) ;; 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 'spolsky)
;; Local Variables:
;; no-byte-compile: t
;; End:

120
themes/sublime-themes-autoloads.el
View File

@ -0,0 +1,120 @@
;;; sublime-themes-autoloads.el --- automatically extracted autoloads
;;
;;; Code:
(add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
;;;### (autoloads nil "brin-theme" "brin-theme.el" (22730 61809 150012
;;;;;; 2000))
;;; Generated autoloads from brin-theme.el
(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))))
;;;***
;;;### (autoloads nil "dorsey-theme" "dorsey-theme.el" (22730 61809
;;;;;; 290012 2000))
;;; Generated autoloads from dorsey-theme.el
(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)))))))
;;;***
;;;### (autoloads nil "fogus-theme" "fogus-theme.el" (22730 61809
;;;;;; 40012 2000))
;;; Generated autoloads from fogus-theme.el
(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)))))))
;;;***
;;;### (autoloads nil "graham-theme" "graham-theme.el" (22730 61809
;;;;;; 340012 1000))
;;; Generated autoloads from graham-theme.el
(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))))
;;;***
;;;### (autoloads nil "granger-theme" "granger-theme.el" (22730 61809
;;;;;; 440012 1000))
;;; Generated autoloads from granger-theme.el
(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))))
;;;***
;;;### (autoloads nil "hickey-theme" "hickey-theme.el" (22730 61809
;;;;;; 540012 1000))
;;; Generated autoloads from hickey-theme.el
(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)))))))
;;;***
;;;### (autoloads nil "junio-theme" "junio-theme.el" (22730 61808
;;;;;; 890012 3000))
;;; Generated autoloads from junio-theme.el
(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)))))))
;;;***
;;;### (autoloads nil "mccarthy-theme" "mccarthy-theme.el" (22730
;;;;;; 61809 190012 2000))
;;; Generated autoloads from mccarthy-theme.el
(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))))
;;;***
;;;### (autoloads nil "odersky-theme" "odersky-theme.el" (22730 61808
;;;;;; 950012 3000))
;;; Generated autoloads from odersky-theme.el
(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))))
;;;***
;;;### (autoloads nil "ritchie-theme" "ritchie-theme.el" (22730 61808
;;;;;; 990012 3000))
;;; Generated autoloads from ritchie-theme.el
(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))))
;;;***
;;;### (autoloads nil "spolsky-theme" "spolsky-theme.el" (22730 61809
;;;;;; 490012 1000))
;;; Generated autoloads from spolsky-theme.el
(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))))
;;;***
;;;### (autoloads nil "sublime-themes" "sublime-themes.el" (22730
;;;;;; 61809 380012 1000))
;;; Generated autoloads from sublime-themes.el
(when (boundp 'custom-theme-load-path) (add-to-list 'custom-theme-load-path (file-name-as-directory (file-name-directory load-file-name))))
;;;***
;;;### (autoloads nil "wilson-theme" "wilson-theme.el" (22730 61809
;;;;;; 90012 2000))
;;; Generated autoloads from wilson-theme.el
(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)))))))
;;;***
;;;### (autoloads nil nil ("sublime-themes-pkg.el") (22730 61809
;;;;;; 666718 651000))
;;;***
;; Local Variables:
;; version-control: never
;; no-byte-compile: t
;; no-update-autoloads: t
;; End:
;;; sublime-themes-autoloads.el ends here

5
themes/sublime-themes-pkg.el
View File

@ -0,0 +1,5 @@
(define-package "sublime-themes" "20160111.122" "A collection of themes based on Sublime Text" 'nil :keywords
'("faces"))
;; Local Variables:
;; no-byte-compile: t
;; End:

32
themes/sublime-themes.el
View File

@ -0,0 +1,32 @@
;;; sublime-themes.el --- A collection of themes based on Sublime Text
;; Copyright (C) 2013 Owain Lewis
;; Author: Owain Lewis <owain@owainlewis.com>
;; Keywords: faces
;; 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:
;;; Code:
;;;###autoload
(when (boundp 'custom-theme-load-path)
(add-to-list 'custom-theme-load-path
(file-name-as-directory
(file-name-directory load-file-name))))
(provide 'sublime-themes)
;;; sublime-themes.el ends here

94
themes/wilson-theme.el
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:
Write Preview
Loading…
Cancel
Save