;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/terror-3/color-names.el

(require 'cl-lib)

(let ((colors '("none" "black" "blue" "green" "yellow" "red" "white" "brown")))

  (defun color-number (name)
    (cl-position name colors) )

  (declare-function color-number nil)

  (defun color-name (num)
    (nth num colors) )

  (declare-function color-name nil)

  (defun color-number-and-name (num)
    (let((col (nth num colors)))
      (format "%s/%s" num col) ))

  (declare-function color-number-and-name nil) )

(provide 'ev3-color-names)