emacs theme

julietta-theme.el

;;; Code:

(deftheme julietta
  "julietta theme")

(let ((julietta-fg "#c6a57b")
      (julietta-bg-1 "#101010")
      (julietta-bg "#151515")
      (julietta-bg+1 "#202020")
      (julietta-bg+2 "#505050")
      (julietta-bg+3 "#808080")
      (julietta-red+1 "#8d4a4a")
      (julietta-red "#953331")
      (julietta-red-1 "#953331")
      (julietta-orange "#ff8939")
      (julietta-yellow "#6D9CBE")
      (julietta-yellow-1 "#909737")
      (julietta-green-1 "#546a29")
      (julietta-green "#546a29")
      (julietta-green+1 "#7e9960")
      (julietta-cyan "#34676f")
      (julietta-blue+1 "#5c737c")
      (julietta-blue "#3c96c8")
      (julietta-blue-1 "#385e6b")
      (julietta-magenta "#7f355e")
      (julietta-deeppink "#e61e64")
      (julietta-doc "#d282aa")
      (julietta-const "#3c96c8")
      (julietta-literal "#af64be")
      (julietta-builtin "#6D9CBE")
      (julietta-var-name-face "#A5C261"))

  (custom-theme-set-faces
   'julietta

    ;;; color-theme mapping
   `(default ((t (:background ,julietta-bg :foreground ,julietta-fg))))
   `(cursor ((t (:background  ,julietta-orange))))

   ;;; define some reusable julietta faces that we can inherit from afterwards
   `(julietta-strong-1-face ((t (:foreground ,julietta-yellow :weight bold))))
   `(julietta-strong-2-face ((t (:foreground ,julietta-orange :weight bold))))
   `(julietta-warning-face ((t (:foreground ,julietta-yellow-1 :weight bold :underline t))))
   `(julietta-error-face ((t (:foreground ,julietta-red-1 :weight bold :underline t))))

    ;;; font lock
   `(font-lock-builtin-face ((t (:foreground ,julietta-builtin))))
   `(font-lock-comment-face ((t (:foreground ,julietta-bg+3))))
   `(font-lock-comment-delimiter-face ((t (:foreground ,julietta-bg+2))))
   `(font-lock-constant-face ((t (:foreground ,julietta-const))))
   `(font-lock-doc-face ((t (:foreground ,julietta-doc))))
   `(font-lock-doc-string-face ((t (:foreground ,julietta-blue+1))))
   `(font-lock-function-face ((t (:foreground ,julietta-blue))))
   `(font-lock-function-name-face ((t (:foreground ,julietta-blue))))
   `(font-lock-keyword-face ((t (:foreground, julietta-deeppink))))
   `(font-lock-negation-char-face ((t (:foreground ,julietta-fg))))
   `(font-lock-preprocessor-face ((t (:foreground ,julietta-blue))))
   `(font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
   `(font-lock-string-face ((t (:foreground ,julietta-red))))
   `(font-lock-type-face ((t (:foreground ,julietta-yellow))))
   `(font-lock-variable-name-face ((t (:foreground ,julietta-var-name-face))))
   `(font-lock-warning-face ((t (:inherit julietta-warning-face))))

   ;;; external

   (eval-after-load 'term
     `(setq ansi-term-color-vector
            (vector 'unspecified ,julietta-bg
                    ,julietta-red ,julietta-green
                    ,julietta-yellow ,julietta-blue+1
                    ,julietta-magenta ,julietta-cyan
                    ;; dirty fix
                    "white")))))

;;;###autoload
(when load-file-name
  (add-to-list 'custom-theme-load-path
               (file-name-as-directory (file-name-directory load-file-name))))

(provide-theme 'julietta)

;;; julietta-theme.el ends here