 (set-background-color "black")
 (set-cursor-color "yellow")
 (set-mouse-color "white")
-(global-font-lock-mode t)
-(setq font-lock-maximum-decoration t)
 (mouse-avoidance-mode 'cat-and-mouse)
 (blink-cursor-mode 1)
 (setq blink-cursor-blinks 0)
 (setq ring-bell-function (lambda() ()))
 (when (display-graphic-p)
   (global-unset-key "\C-z"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; fonts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(global-font-lock-mode t)
+(setq font-lock-maximum-decoration t)
+(defun my/syntax-color-hex-values()
+  "Syntax color text of the form #FF1100 in a buffer.
+Cf. `http://ergoemacs.org/emacs/emacs_CSS_colors.html'."
+  (interactive)
+  (font-lock-add-keywords
+   nil
+   '(("#[AaBbCcDdEeFf[:digit:]]\\{6\\}"
+      (0 (put-text-property
+          (match-beginning 0)
+          (match-end 0)
+          'face (list :background (match-string-no-properties 0))))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; key-bindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (global-unset-key (kbd "<f1>"))

            (define-key emacs-lisp-mode-map (kbd "\C-c RET")
              (lambda()(interactive)
                (byte-compile-file (buffer-file-name))))
            ))
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
(require 'lisp-extra-font-lock)

            (define-key conf-mode-map "\C-c\C-c" 'comment-region)
            (define-key conf-mode-map "\C-c\C-u" 'uncomment-region)
            ))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; html-mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'html-mode-hook 'my/syntax-color-hex-values)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; css-mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-hook 'css-mode-hook 'my/syntax-color-hex-values)

;; init.el ends here
