;;; basic-theme.el --- Black and light yellow theme without syntax highlighting

;;; Code:

(deftheme basic)

(defvar basic-faces
  `(default
    font-lock-builtin-face
    font-lock-function-name-face
    font-lock-keyword-face
    font-lock-negation-char-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
    sh-quoted-exec
    fringe))

(let ((bg           "#FFFFE8")
      (black        "#000")
      (white        "#fff")
      (cyan-light   "#e6fafa")
      (highlight    "#e8eb98"))
  (apply 'custom-theme-set-faces 'basic
         `(default ((t (:foreground ,black :background ,bg))))
         `(mode-line ((t (:background ,cyan-light :box (:line-width 1)))))
         `(mode-line-inactive ((t (:background ,cyan-light :box (:line-width -1 :style pressed-button)))))
         `(cursor ((t (:background ,black :foreground ,white))))
         `(font-lock-comment-face ((t (:foreground ,black :weight bold))))
         `(font-lock-comment-delimiter-face ((t (:foreground ,black :weight bold))))
         `(font-lock-doc-face ((t (:foreground ,black :weight bold))))
         `(region ((t (:background ,highlight))))
         `(highlight ((t (:background ,highlight))))
         (mapcar (lambda (n) `(,n ((t (:background ,bg :foreground ,black))))) 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