open Irc_client_lwt.Io
module C = Irc_client_lwt.Client


let string_opt_to_string = function
  | None -> "None"
  | Some s -> Printf.sprintf "Some %s" s

let string_list_to_string string_list =
  Printf.sprintf "[%s]" (String.concat "; " string_list)

let callback input =
  let open Irc_message in
  match input with
  | Message {prefix=prefix; command=command; params=params; trail=trail} ->
    (
      Lwt_io.printf "Got message: prefix=%s; command=%s; params=%s; trail=%s\n"
        (string_opt_to_string prefix)
        command
        (string_list_to_string params)
        (string_opt_to_string trail)
    )
  | Parse_error (raw, error) ->
    Lwt_io.printf "Failed to parse \"%s\" because: %s" raw error

let lwt_main =
  let server = "193.219.128.49" in (* "chat.freenode.net" *)
  let chan = "#cheeseburger" in

  C.connect ~server ~port:6667 ~username:"cheesebot"
    ~mode:0 ~realname:"CheeseBot" ~nick:"cheesebot" ~password:"cheese"
  >>= (fun connection ->
    Lwt_io.printl "Connected"
    >>= (fun () -> C.send_join ~connection ~channel:chan)
    >>= (fun () -> C.send_privmsg ~connection ~target:chan ~message:"hi")
    >>= (fun () -> C.listen ~connection ~callback)
    >>= (fun () -> C.send_quit ~connection))

let () =
  Lwt_main.run lwt_main