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

(require 'ev3-color)
(require 'ev3-color-names)
(require 'ev3-color-value)
(require 'ev3-motor-rotate)
(require 'ev3-motor-stop)
(require 'ev3-motor-straight)

(let ((col-def (color-number "none")))

  (defun color-on-color-p (&optional col)
    (or col (setq col col-def))
    (= col (color-get-color)) )

  (declare-function color-on-color-p nil)

  (defun color-stop-on-color (&optional col time)
    (or col (setq col col-def))
    (or time (setq time 50))
    (when (color-on-color-p col)
      (when (moving-forward-p)
        (ev3-stop) )
      (dotimes (_ 3)
        (when (color-on-color-p col)
          (ev3-reverse-inc)
          (sleep-for 0 (* 75 time)) ) )
      (ev3-stop)
      (ev3-rotate-right) ))

  (declare-function color-stop-on-color nil) )

(provide 'ev3-color-stop-on-color)