22 lines
621 B
Clojure
Executable File
22 lines
621 B
Clojure
Executable File
#!/usr/bin/env bb
|
|
|
|
(require '[clojure.tools.cli :refer [parse-opts]])
|
|
|
|
(def cli-options
|
|
[["-p" "--port PORT" "Port number"
|
|
:default 5555
|
|
:parse-fn #(Integer/parseInt %)
|
|
:validate [#(< 0 % 0x10000) "Must be a number between 0 and 65536"]]])
|
|
|
|
(def options (:options (parse-opts *command-line-args* cli-options)))
|
|
(def port (:port options))
|
|
|
|
(def ip (->> (shell/sh "adb" "shell" "ip addr")
|
|
:out
|
|
(re-find #"inet (\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/.* scope global")
|
|
last))
|
|
|
|
(shell/sh "adb" "tcpip" (str port))
|
|
(def result (shell/sh "adb" "connect" (str ip ":" port)))
|
|
(println (:out result))
|