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

(require 'ev3-ir)
(require 'ev3-motor-stop)

(defun ev3-remote-kill-on-press ()
  (let ((rem (ir-get-remote)))
    (when (cl-find-if (lambda (e) (not (zerop e))) rem)
        (ev3-stop)
        (kill-emacs) )))

(provide 'ev3-ir-remote)