(@up    device pick :device-kind-prev)
(@down  device pick :device-kind-next)
(@enter device add  :device-kind)