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

(require 'ev3-base)
(require 'ev3-leds)
(require 'ev3-motor-speed)
(require 'ev3-motor)
(require 'file-write-to)

(defvar touch-file nil)

(defun touch-get ()
  (file-to-integer touch-file) )

(defun touch-down-p ()
  (= 1 (touch-get)) )

(let ((boost))

  (defun ev3-touch-boost ()
    (interactive)
    (if (touch-down-p)
        (unless boost
          (setq boost t)
          (ev3-speed-up)
          (ev3-led-random)
          (set-motor-m 525) )
      (when boost
        (setq boost nil)
        (stop-motor-m) )))

  (declare-function ev3-touch-boost nil) )

(provide 'ev3-touch)