(pingus-controller
 (standard-keyboard
  (sdl:keyboard)
 )

  (standard-pointer
    (sdl:mouse-pointer)
  )

  (standard-scroller
    (core:axis-scroller
      (x-axis (sdl:joystick-axis (device 1) (axis 0)))
      (y-axis (sdl:joystick-axis (device 1) (axis 1)))
	)
  )

  (primary-button
;; Maps to A button
    (sdl:mouse-button (button 1))
  )

  (secondary-button
;; Maps to B button
    (sdl:mouse-button (button 2))
  )

  (pause-button
;; Maps to + button
   (sdl:keyboard-button (key "5"))
  )

  (fast-forward-button
;; Maps to - button
   (sdl:keyboard-button (key "4"))
  )

;;  (armageddon-button
;;   (sdl:keyboard-button (key "a")))

  (escape-button
;; Maps to home button
   (sdl:keyboard-button (key "6"))
  )

  (action-up-button
;; Maps to 1 button  
   (sdl:keyboard-button (key "2"))
  )
  
  (action-down-button
;; Maps to 2 button
   (sdl:keyboard-button (key "3"))
  )
)

;; EOF ;;
