adb.lisp 799 B

1234567891011121314151617181920212223242526272829
  1. (in-package :stumpwm)
  2. (defcommand adb-key-up () ()
  3. (run-shell-command "adb shell input keyevent 19"))
  4. (defcommand adb-key-down () ()
  5. (run-shell-command "adb shell input keyevent 20"))
  6. (defcommand adb-key-left () ()
  7. (run-shell-command "adb shell input keyevent 21"))
  8. (defcommand adb-key-right () ()
  9. (run-shell-command "adb shell input keyevent 22"))
  10. (defcommand adb-key-back () ()
  11. (run-shell-command "adb shell input keyevent 4"))
  12. (defcommand adb-key-enter () ()
  13. (run-shell-command "adb shell input keyevent 66"))
  14. (defcommand adb-key-volume-up () ()
  15. (run-shell-command "adb shell input keyevent 24"))
  16. (defcommand adb-key-volume-down () ()
  17. (run-shell-command "adb shell input keyevent 25"))
  18. (defcommand adb-key-power () ()
  19. (run-shell-command "adb shell input keyevent 26"))