34 lines
802 B
Plaintext
34 lines
802 B
Plaintext
(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 "⇒ ")))
|