From 6a65560586876fa1d1d7509f00dd80186d7915a1 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Thu, 15 Dec 2016 11:49:17 -0800 Subject: [Emacs] Delete the custom theme. It now lives in it's own repository. --- emacs.d/lib/basic-theme.el | 59 ---------------------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 emacs.d/lib/basic-theme.el (limited to 'emacs.d/lib') diff --git a/emacs.d/lib/basic-theme.el b/emacs.d/lib/basic-theme.el deleted file mode 100644 index 66c8ad1..0000000 --- a/emacs.d/lib/basic-theme.el +++ /dev/null @@ -1,59 +0,0 @@ -;;; basic-theme.el --- Black and light yellow theme without syntax highlighting - -;;; Code: - -(deftheme basic) - -(defvar basic-faces - `(default - font-lock-builtin-face - font-lock-constant-face - font-lock-function-name-face - font-lock-keyword-face - font-lock-negation-char-face - font-lock-preprocessor-face - font-lock-regexp-grouping-backslash - font-lock-regexp-grouping-construct - font-lock-string-face - font-lock-type-face - font-lock-variable-name-face - font-lock-warning-face - fringe - sh-quoted-exec)) - -(let ((bg "#fdfaf5") - (fg "#000000") - (highlight "#fffaaa") - (modeline-fg "#ffffff") - (modeline-bg "#e0ebf5")) - - (apply 'custom-theme-set-faces 'basic - `(default ((t (:foreground ,fg :background ,bg)))) - `(cursor ((t (:background ,fg :foreground ,bg)))) - `(highlight ((t (:background ,highlight)))) - - `(whitespace-indentation ((t (:background "LightYellow" :foreground "lightgray")))) - - `(mode-line ((t (:foreground: ,fg :background ,modeline-bg)))) - `(mode-line-inactive ((t (:foreground "grey20" :background "grey90")))) - - `(show-paren-match ((t (:background "turquoise")))) - `(hl-line ((t (:background "grey90")))) - - `(font-lock-comment-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-comment-delimiter-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-doc-face ((t (:foreground ,fg :weight bold)))) - `(font-lock-doc-string-face ((t (:foreground ,fg :weight bold)))) - - `(region ((t (:background ,highlight :foreground ,fg)))) - - (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,fg))))) basic-faces))) - -;;;###autoload -(when load-file-name - (add-to-list 'custom-theme-load-path - (file-name-as-directory (file-name-directory load-file-name)))) - -(provide-theme 'basic) - -;;; basic-theme.el ends here -- cgit 1.4.1