dotfiles/scripts/playtwitch

#!/usr/bin/env scriptisto

(*
  scriptisto-begin
  script_src: playtwitch.ml
  build_cmd: dune build playtwitch.exe
  target_bin: ./_build/default/playtwitch.exe
  files:
   - path: dune
     content: (executable (name playtwitch) (libraries clap))
  scriptisto-end
*)

Clap.description "play a twitch stream using streamlink";
let stream_name = Clap.mandatory_string ~placeholder:"stream_name" () in
let quality = Clap.default_string ~placeholder:"quality" "best" in
Clap.close ();

let stream_name = "https://twitch.tv/" ^ stream_name in

let exit =
  String.concat " " [ "streamlink"; stream_name; quality ] |> Sys.command
in
if exit != 0 then Stdlib.print_endline "streamlink crashed :("