Encore un thème pour EMACS
Edit
Petit oubli au niveau de la couleur des fonctions. Maintenant corrigé.
Au vu des commentaires de mon dernier billet, j’ai décidé de faire un nouveau thème pour EMACS, cette fois ci dans des tons pastel afin d’être plus doux et reposant pour les séances de codes prolongées.
Alors pour éviter un long discours stérile, voici ce que ça donne:
Et le code qui va bien:
(eval-when-compile (require 'color-theme)) (defun color-theme-etenil-pastel () "Etenil's dark side theme." (interactive) (color-theme-install '(color-theme-etenil-pastel ((foreground-color . "#cccccc") (background-color . "#111111") (background-mode . dark)) (default ((t (nil)))) (region ((t (:background "#444" :italic t)))) (underline ((t (:underline t)))) (modeline ((t (:foreground "#cccccc" :background "#333")))) (modeline-buffer-id ((t (:foreground "#cccccc" :background "#333")))) (modeline-mousable ((t (:foreground "#cccccc" :background "#333")))) (modeline-mousable-minor-mode ((t (:foreground "white" :background "#333" :bold t)))) (italic ((t (:italic t)))) (bold-italic ((t (:bold t :italic t)))) (font-lock-comment-face ((t (:foreground "#555555")))) (font-lock-variable-name-face ((t (:foreground "#6688CC")))) (font-lock-string-face ((t (:foreground "#CC6688")))) (font-lock-keyword-face ((t (:foreground "#88CC66")))) (font-lock-builtin-face ((t (:foreground "#88CC66")))) (font-lock-constant-face ((t (:foreground "#CC6666" :bold t)))) (font-lock-function-name-face ((t (:foreground "#CCCC66" :italic t)))) (font-lock-type-face ((t (:foreground "#66CCCC" :underline t)))) ; ERC (erc-current-nick-face ((t (:foreground "#CCCC66")))) (erc-my-nick-face ((t (:foreground "#CCCC66")))) (erc-default-face ((t (:foreground "#CCCCCC")))) (erc-keyword-face ((t (:foreground "#88CC66")))) (erc-input-face ((t (:foreground "#6688CC")))) (erc-notice-face ((t (:foreground "#555")))) (erc-timestamp-face ((t (:foreground "#88CC66")))) (erc-underline-face ((t (:foreground "c5af75")))) (erc-error-face ((t (:foreground "#CC6688")))) ; Others... (text-cursor ((t (:background "CCCC66" :foreground "#444")))) (bold ((t (:bold)))))))
J’attends vos commentaires avec impatience!
Le tout est sous CC-by.