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

added user-global dir for git

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

2
config.org
View File

@ -46,6 +46,8 @@ Keep the .emacs.d clean by moving user files into separate directories.
(defvar PATH_USER_LOCAL (expand-file-name "~/.emacs.d/user-local/")) (defvar PATH_USER_LOCAL (expand-file-name "~/.emacs.d/user-local/"))
(defvar PATH_USER_GLOBAL (expand-file-name "~/.emacs.d/user-global/")) (defvar PATH_USER_GLOBAL (expand-file-name "~/.emacs.d/user-global/"))
(setq bookmark-default-file (concat PATH_USER_LOCAL "bookmarks")) ;"~/.emacs.d/user-dir/bookmarks") (setq bookmark-default-file (concat PATH_USER_LOCAL "bookmarks")) ;"~/.emacs.d/user-dir/bookmarks")
(setq abbrev-file-name (concat PATH_USER_GLOBAL "abbrev_defs"))
(setq save-abbrevs 'silently) ; don't bother me with asking if new abbrevs should be saved
#+END_SRC #+END_SRC

148
user-global/abbrev_defs
View File

@ -0,0 +1,148 @@
;;-*-coding: utf-8;-*-
(define-abbrev-table 'Buffer-menu-mode-abbrev-table '())
(define-abbrev-table 'Custom-mode-abbrev-table '())
(define-abbrev-table 'Info-edit-mode-abbrev-table '())
(define-abbrev-table 'Rd-mode-abbrev-table '())
(define-abbrev-table 'awk-mode-abbrev-table '())
(define-abbrev-table 'beancount-mode-abbrev-table '())
(define-abbrev-table 'bibtex-mode-abbrev-table '())
(define-abbrev-table 'bookmark-bmenu-mode-abbrev-table '())
(define-abbrev-table 'bookmark-edit-annotation-mode-abbrev-table '())
(define-abbrev-table 'c++-mode-abbrev-table '())
(define-abbrev-table 'c-mode-abbrev-table '())
(define-abbrev-table 'calc-trail-mode-abbrev-table '())
(define-abbrev-table 'calendar-mode-abbrev-table '())
(define-abbrev-table 'comint-mode-abbrev-table '())
(define-abbrev-table 'completion-list-mode-abbrev-table '())
(define-abbrev-table 'data-debug-mode-abbrev-table '())
(define-abbrev-table 'diary-fancy-display-mode-abbrev-table '())
(define-abbrev-table 'diary-mode-abbrev-table '())
(define-abbrev-table 'diff-mode-abbrev-table '())
(define-abbrev-table 'dig-mode-abbrev-table '())
(define-abbrev-table 'edit-abbrevs-mode-abbrev-table '())
(define-abbrev-table 'elisp-byte-code-mode-abbrev-table '())
(define-abbrev-table 'emacs-lisp-mode-abbrev-table '())
(define-abbrev-table 'eshell-mode-abbrev-table '())
(define-abbrev-table 'ess-julia-mode-abbrev-table '())
(define-abbrev-table 'evil-command-window-mode-abbrev-table '())
(define-abbrev-table 'evil-list-view-mode-abbrev-table '())
(define-abbrev-table 'flycheck-error-list-mode-abbrev-table '())
(define-abbrev-table 'fundamental-mode-abbrev-table '())
(define-abbrev-table 'global-abbrev-table
'(
("bg" "background" nil 3)
))
(define-abbrev-table 'gnus-group-mode-abbrev-table '())
(define-abbrev-table 'help-mode-abbrev-table '())
(define-abbrev-table 'ibuffer-mode-abbrev-table '())
(define-abbrev-table 'idl-mode-abbrev-table '())
(define-abbrev-table 'inferior-julia-mode-abbrev-table '())
(define-abbrev-table 'inferior-python-mode-abbrev-table '())
(define-abbrev-table 'ivy-occur-grep-mode-abbrev-table '())
(define-abbrev-table 'ivy-occur-mode-abbrev-table '())
(define-abbrev-table 'java-mode-abbrev-table '())
(define-abbrev-table 'julia-mode-abbrev-table '())
(define-abbrev-table 'lisp-mode-abbrev-table '())
(define-abbrev-table 'message-mode-abbrev-table '())
(define-abbrev-table 'messages-buffer-mode-abbrev-table '())
(define-abbrev-table 'notmuch-hello-mode-abbrev-table '())
(define-abbrev-table 'notmuch-message-mode-abbrev-table '())
(define-abbrev-table 'notmuch-search-mode-abbrev-table '())
(define-abbrev-table 'notmuch-show-mode-abbrev-table '())
(define-abbrev-table 'notmuch-tree-mode-abbrev-table '())
(define-abbrev-table 'objc-mode-abbrev-table '())
(define-abbrev-table 'occur-edit-mode-abbrev-table '())
(define-abbrev-table 'occur-mode-abbrev-table '())
(define-abbrev-table 'org-mode-abbrev-table '())
(define-abbrev-table 'outline-mode-abbrev-table '())
(define-abbrev-table 'package-menu-mode-abbrev-table '())
(define-abbrev-table 'pdf-occur-buffer-mode-abbrev-table '())
(define-abbrev-table 'pike-mode-abbrev-table '())
(define-abbrev-table 'process-menu-mode-abbrev-table '())
(define-abbrev-table 'prog-mode-abbrev-table '())
(define-abbrev-table 'python-mode-abbrev-table '())
(define-abbrev-table 'python-mode-skeleton-abbrev-table '())
(define-abbrev-table 'select-tags-table-mode-abbrev-table '())
(define-abbrev-table 'shell-mode-abbrev-table '())
(define-abbrev-table 'smime-mode-abbrev-table '())
(define-abbrev-table 'snippet-mode-abbrev-table '())
(define-abbrev-table 'special-mode-abbrev-table '())
(define-abbrev-table 'tablist-mode-abbrev-table '())
(define-abbrev-table 'tabulated-list-mode-abbrev-table '())
(define-abbrev-table 'text-mode-abbrev-table '())
(define-abbrev-table 'vc-git-log-edit-mode-abbrev-table '())
(define-abbrev-table 'vc-git-log-view-mode-abbrev-table '())
(define-abbrev-table 'vc-git-region-history-mode-abbrev-table '())
(define-abbrev-table 'xref--xref-buffer-mode-abbrev-table '())

8
user-global/snippets/python-mode/if
View File

@ -0,0 +1,8 @@
# -*- mode: snippet -*-
# name: if
# key: if
# group : control structure
# --
if ${1:cond}:
$0

4
user-global/themes/.directory
View File

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

94
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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
user-global/themes/solarized-theme.el
View File

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

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

121
user-global/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
user-global/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
user-global/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
user-global/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
user-global/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