lem-colors.lisp

(in-package :lem-user)

(define-command list-colors-display () ()
  (let* ((buffer (get-buffer-create "*colors*"))
         (p (buffer-point buffer)))
    (switch-to-buffer buffer)
    (erase-buffer buffer)
    (dolist (color (reverse lem.term::*colors*))
      (let ((attribute (make-attribute (lem.term::color-name color) nil)))
        (with-point ((s p))
          (insert-string p (lem.term::color-name color))
          (move-to-column p (+ 20 (point-charpos s)) t)
          (put-text-property s p :attribute attribute)))
      (insert-string p "  ")
      (let ((attribute (make-attribute (lem.term::color-name color) nil :reverse-p t)))
        (with-point ((s p))
          (insert-string p (lem.term::color-name color))
          (move-to-column p (+ 20 (point-charpos s)) t)
          (put-text-property s p :attribute attribute))
        (insert-string p "  ")
        (insert-string p (format nil "#~2,'0X~2,'0X~2,'0X"
                                 (lem.term::color-r color)
                                 (lem.term::color-g color)
                                 (lem.term::color-b color)))
        (insert-character p #\newline)))
    (buffer-start p)))