whe.el

emacs support for the thrustmaster t-150 steering wheel
Log | Files | Refs | README

whe.el (348B)

      1 (defun wheel-starboard? ()
      2   "Are we headed starboard?"
      3   (> (wheel-axis 0) 0))
      4 
      5 (defun wheel-port? ()
      6   "Are we headed port?"
      7   (< (wheel-axis 0) 0))
      8 
      9 (cl-defmacro wheel-def (keyb &key starboard port none)
     10   `(general-def
     11 	 ,keyb (lambda () (interactive)
     12 	   (cond ((wheel-starboard?) (,starboard))
     13 			 ((wheel-port?) (,port))
     14 			 (t (,none))))))