(defvar *colors* (make-hash-table))

(mapcar (lambda (pair) (setf (gethash (car pair) *colors*) (cadr pair)))
  '((:black 30)
    (:red 31)
    (:green 32)
    (:yellow 33)
    (:blue 34)
    (:magenta 35)
    (:cyan 36)
    (:white 37)
    (:reset 0)
    (:none 0)
    (:bold 1)
    (:italic 3)
    (:underline 4)
    (:blink-slow 5)
    (:blink-rapid 6)
    (:bg-black 40)
    (:bg-red 41)
    (:bg-green 42)
    (:bg-yellow 43)
    (:bg-blue 44)
    (:bg-magenta 45)
    (:bg-cyan 46)
    (:bg-white 47)))

(defun colorize (color var)
  (format nil "~a[~dm~a~a[0m" (code-char 27) (gethash color *colors*) var (code-char 27)))

(setf *prompt* (colorize :bold (colorize :blue "λ ")))
(setf *prompt2* (colorize :bold (colorize :blue "λ₂ ")))
(setf *ret*    (colorize :bold (colorize :red "⇒ ")))
(setf *pygmentize* nil)