Re: Faces?

[Emanuel Berg]

> (defun test-all-faces ()
>   "Print a test string in every color, normal and bright."
>   (interactive)
>   (forward-line 1)
>   (let ((str "this is what it looks like"))
>     (dolist (bold '(nil t))
>       (dolist (color '("black" "red" "green" "yellow" "blue"
>                        "magenta" "cyan" "white") )
>         (insert-colored-text
>          (format "%s in %s (that is %sbold)\n" str color
>                  (if bold "" "not "))
>          color bold) ))))
>
> ;; test all colors:
> ;; (test-all-faces) ; <- eval me

This is what it looks like ... in 6.1K!

  https://dataswamp.org/~incal/pimgs/emacs-faces.png

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal