lanonna/pam/bin/httpclient.ml

open Pyops
open Pytypes
open Batteries

type http_actor = {requests: pyobject; url: pyobject; headers: pyobject}

let reminder_of_issue : Api.issue -> Datatypes.reminder option = function
  | {due_date=None; _} -> None
  | {url=url; title=title; due_date=Some due_date; body=_} -> Some {url=url; title=title; due_date=due_date}

let init base64password =
  let _ = Py.initialize () in
  let requests = Py.import "requests" in
  let url = Py.String.of_string Api.url in
  let headers =
    Api.headers base64password
    |> List.map (fun (k, v) -> (k, Py.String.of_string v))
    |> Py.Dict.of_bindings_string in

  {requests=requests; url=url; headers=headers}

let make_get_request {requests; url; headers} =
  let get = Py.Module.get_function_with_keywords requests "get" in
  let resp = get [|url|] [("headers", headers)] in
  let jsontext =
    resp.@$("text")
    |> Py.String.to_string
  in
  Api.issues_of_json jsontext
  |> Result.map (Datatypes.forgejo_issues % List.filter_map reminder_of_issue)
  |> Result.map_error Datatypes.forgejo_error (*TODO: maybe not really a forgejo error, more like internal *)