dot

config files
git clone git://git.seahorse.sh/dot.git
Log | Files | Refs | README | LICENSE

local-theme.el (5876B)


      1 ;;; local-theme.el --- local theme
      2 
      3 (deftheme local "local theme")
      4 
      5 (let ((class '((class color) (min-colors 89)))
      6       (local-fg "#c3ded9")
      7       (local-bg (if (display-graphic-p) "#252525" nil))
      8       (local-blue-0 "#3a3f5a")
      9       (local-region "#8fafd7")
     10       (local-green-0 "#a1bf78")
     11       (local-green-1 "#85A7A5")
     12       (local-green-2 "#75b5aa")
     13       (local-grey-0 "#888888")
     14       (local-grey-1 "#363636")
     15       (local-grey-2 "#444444")
     16       (local-orange-0 "#E5C078")
     17       (local-orange-1 "#f4bf75")
     18       (local-purple-0 "#8197bf")
     19       (local-red-0 "#CC6666")
     20       (local-red-1 "#af5f5f")
     21       (local-red-2 "#d75f5f")
     22       (local-red-3 "#ff73fd")
     23       (local-yellow-0 "#E5C078")
     24       (local-yellow-1 "#d8bb65")
     25       (local-hl-line "#111"))
     26 
     27       (custom-theme-set-faces
     28        'local
     29        `(default ((,class (:foreground ,local-fg :background ,local-bg))))
     30        `(diredp-date-time ((,class (:foreground ,local-fg))))
     31        `(dired-directory ((,class (:foreground ,local-blue-0))))
     32        `(diredp-deletion ((,class (:foreground ,local-red-0 :background ,local-bg))))
     33        `(diredp-dir-heading ((,class (:foreground ,local-yellow-0 :background ,local-bg))))
     34        `(diredp-dir-name ((,class (:foreground ,local-green-1 :background ,local-bg))))
     35        `(diredp-dir-priv ((,class (:foreground ,local-green-1 :background ,local-bg))))
     36        `(diredp-exec-priv ((,class (:foreground ,local-fg :background ,local-bg))))
     37        `(diredp-file-name ((,class (:foreground ,local-fg))))
     38        `(diredp-file-suffix ((,class (:foreground ,local-fg))))
     39        `(diredp-link-priv ((,class (:foreground ,local-fg))))
     40        `(diredp-number ((,class (:foreground ,local-fg))))
     41        `(diredp-no-priv ((,class (:foreground ,local-fg :background ,local-bg))))
     42        `(diredp-rare-priv ((,class (:foreground ,local-red-0 :background ,local-bg))))
     43        `(diredp-read-priv ((,class (:foreground ,local-fg :background ,local-bg))))
     44        `(diredp-symlink ((,class (:foreground ,local-red-3))))
     45        `(diredp-write-priv ((,class (:foreground ,local-fg :background ,local-bg))))
     46        `(font-lock-builtin-face ((,class (:foreground ,local-blue-0))))
     47        `(font-lock-comment-face ((,class (:slant italic :foreground ,local-grey-0))))
     48        `(font-lock-constant-face ((,class (:foreground ,local-orange-1))))
     49        `(font-lock-doc-face ((,class (:foreground ,local-green-0))))
     50        `(font-lock-function-name-face ((,class (:foreground ,local-fg))))
     51        `(font-lock-keyword-face ((,class (:foreground ,local-purple-0))))
     52        `(font-lock-preprocessor-face ((,class (:foreground ,local-green-1))))
     53        `(font-lock-string-face ((,class (:foreground ,local-green-0))))
     54        `(font-lock-type-face ((,class (:foreground ,local-orange-0))))
     55        `(font-lock-variable-name-face ((,class (:foreground ,local-fg))))
     56        `(font-lock-warning-face ((,class (:foreground ,local-red-1))))
     57        `(font-lock-regexp-grouping-construct ((t (:foreground ,local-yellow-0 :bold t))))
     58        `(font-lock-regexp-grouping-backslash ((t (:foreground ,local-red-0 :bold t))))
     59        `(fringe ((,class (:foreground ,local-fg :background ,local-bg))))
     60        `(parenthesis ((,class (:foreground ,local-grey-2))))
     61        `(header-line ((,class (:foreground ,local-fg))))
     62        `(highlight ((,class (:foreground ,local-yellow-1))))
     63        `(highlight-indentation-face ((,class (:background ,local-grey-1))))
     64        `(highlight-indentation-current-column-face ((,class (:background ,local-grey-1))))
     65        `(hl-line ((,class (:background ,local-hl-line))))
     66        `(isearch ((,class (:foreground ,local-fg :background ,local-red-1))))
     67        `(isearch-fail ((,class (:background ,local-red-1))))
     68        `(lazy-highlight ((,class (:foreground ,local-red-1 :background nil))))
     69        `(match ((,class (:background ,local-red-1))))
     70        `(minibuffer-prompt ((,class (:foreground ,local-fg))))
     71        `(mode-line ((,class (:foreground ,local-fg :background nil))))
     72        `(mode-line-inactive ((,class (:foreground ,local-grey-1 :background nil))))
     73        `(org-checkbox ((,class (:foreground ,local-green-1))))
     74        `(org-date ((,class (:foreground ,local-grey-0))))
     75        `(org-document-info-keyword ((,class (:foreground ,local-yellow-0))))
     76        `(org-document-title ((,class (:foreground ,local-yellow-0))))
     77        `(org-verbatim ((,class (:foreground ,local-blue-0))))
     78        `(org-code ((,class (:foreground ,local-purple-0))))
     79        `(org-done ((,class (:foreground ,local-green-2))))
     80        `(org-level-1 ((,class (:foreground ,local-yellow-1))))
     81        `(org-level-2 ((,class (:foreground ,local-yellow-0))))
     82        `(org-level-3 ((,class (:foreground ,local-green-1))))
     83        `(org-level-4 ((,class (:foreground ,local-orange-0))))
     84        `(org-level-5 ((,class (:foreground ,local-red-2))))
     85        `(org-level-6 ((,class (:foreground ,local-red-0))))
     86        `(org-level-7 ((,class (:foreground ,local-blue-0))))
     87        `(org-level-8 ((,class (:foreground ,local-yellow-1))))
     88        `(org-link ((,class (:foreground ,local-blue-0))))
     89        `(org-meta-line ((,class (:foreground ,local-grey-0))))
     90        `(org-special-keyword ((,class (:foreground ,local-purple-0))))
     91        `(org-todo ((,class (:foreground ,local-red-3))))
     92        `(region ((,class (:foreground ,local-bg :background ,local-region))))
     93        `(trailing-whitespace ((,class (:background ,local-red-1))))
     94        `(vertical-border ((,class (:foreground ,local-blue-0 :foreground ,local-blue-0))))
     95        `(warning ((,class (:foreground ,local-orange-0))))
     96        `(whitespace-trailing ((,class (:background ,local-red-1))))))
     97 
     98 ;;;###autoload
     99 (when load-file-name
    100   (add-to-list 'custom-theme-load-path
    101                (file-name-as-directory (file-name-directory load-file-name))))
    102 
    103 (provide-theme 'local)
    104 
    105 ;; Local Variables:
    106 ;; no-byte-compile: t
    107 ;; End:
    108 ;;; local-theme.el ends here