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

cleaned themes-dir, added smart-mode-line

master
Marc Pohling 7 years ago
parent
d7a3d3b6ae
commit
3e2fb10415
23 changed files with 17 additions and 3776 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 17
      config.org
  2. 4
      themes/.directory
  3. 94
      themes/brin-theme.el
  4. 98
      themes/dorsey-theme.el
  5. 89
      themes/fogus-theme.el
  6. 111
      themes/graham-theme.el
  7. 82
      themes/granger-theme.el
  8. 90
      themes/hickey-theme.el
  9. 92
      themes/junio-theme.el
  10. 113
      themes/mccarthy-theme.el
  11. 114
      themes/odersky-theme.el
  12. 144
      themes/ritchie-theme.el
  13. 7
      themes/solarized-dark-theme.el
  14. 7
      themes/solarized-light-theme.el
  15. 35
      themes/solarized-theme-autoloads.el
  16. 73
      themes/solarized-theme-utils.el
  17. 2
      themes/solarized-theme.el
  18. 2249
      themes/solarized.el
  19. 121
      themes/spolsky-theme.el
  20. 120
      themes/sublime-themes-autoloads.el
  21. 5
      themes/sublime-themes-pkg.el
  22. 32
      themes/sublime-themes.el
  23. 94
      themes/wilson-theme.el

17
config.org
View File

@ -178,6 +178,23 @@ Various stuff
#+end_src #+end_src
* Mode Line
Change the default mode line to something prettier
#+BEGIN_SRC emacs-lisp
(use-package smart-mode-line
:ensure t
:config
(progn
; (sml/setup)
(tool-bar-mode -1)
(setq sml/theme 'respectful)
; (setq sml/name-width 40)
; (setq sml/mode-width 'full)
(set-face-attribute 'mode-line nil
:box nil)
(sml/setup)))
#+END_SRC
* List buffers * List buffers
Ibuffer is the improved version of list-buffers. Ibuffer is the improved version of list-buffers.
Make ibuffer the default buffer lister. [[http://ergoemacs.org/emacs/emacs_buffer_management.html][Source]] Make ibuffer the default buffer lister. [[http://ergoemacs.org/emacs/emacs_buffer_management.html][Source]]

4
themes/.directory
View File

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

94
themes/brin-theme.el
View File

@ -1,94 +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/>.
;; *****************************************************************************************
;;
;; 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

@ -1,98 +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/>.
;; ---------------------------
;;
;; 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

@ -1,89 +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/>.
;; ---------------------------
;;
;; 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

@ -1,111 +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/>.
;; ---------------------------
;;
;; 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

@ -1,82 +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/>.
;; *****************************************************************************************
;;
;; 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

@ -1,90 +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/>.
;; ---------------------------
;;
;; 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

@ -1,92 +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/>.
;; ---------------------------
;;
;; 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

@ -1,113 +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/>.
;; ---------------------------
;;
;; 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

@ -1,114 +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/>.
;; ---------------------------
;;
;; 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

@ -1,144 +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/>.
;; ---------------------------
;;
;; 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

@ -1,7 +0,0 @@
(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

@ -1,7 +0,0 @@
(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

@ -1,35 +0,0 @@
;;; 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

@ -1,73 +0,0 @@
;;; 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

@ -1,2 +0,0 @@
(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

@ -1,121 +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/>.
;; ---------------------------
;;
;; 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

@ -1,120 +0,0 @@
;;; 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

@ -1,5 +0,0 @@
(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

@ -1,32 +0,0 @@
;;; 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

@ -1,94 +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/>.
;; ------------------------------------------------------
;;
;; 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