Simple format directives to print in colors:

On Ultralisp.

(format t "Hello ~/cyan/, are you a ~/green/ or ~/red/?" "you" "lisper" "not")

=>

Instead of (with cl-ansi-text):

(use-package :cl-ansi-text)
(format t "Hello ~a, are you a ~a or ~a?" (cyan "you") (green "lisper") (red "not"))
;; or
;; (format t "Hello ~a, are you a ~a or ~a?" (cl-ansi-text:cyan "you") (cl-ansi-text:green "lisper") (cl-ansi-text:red "not"))

Bold and italic modifiers

Like all format directives, these can accept the : and @ modifiers. : will be for :talic and @ for b@ld.

"~:/blue/"
"~@/blue/"

There are also numerical parameters that we don't use.

It is possible to call the color functions directly, their signature is stream arg colon-p at-sign-p &rest params:

(blue t "hello" nil nil)

Install

(use-package :format-colors)
;; or import from :format-colors the symbols :red :blue :yellow :green :cyan :black :white :magenta.

That's all. Let's see how it goes.

LLGPL

---

ps: to enable colors in Slime, one solution is M-x slime-repl-ansi-on (in MELPA).

(with-eval-after-load 'slime-repl
  (require 'slime-repl-ansi-color))
(add-hook 'slime-repl-mode-hook 'slime-repl-ansi-color-mode)