My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** Immiche - Immich API client library *)
2
3open Printf
4
5(** {1 Types} *)
6
7type t = {
8 base_url: string;
9 api_key: string;
10 requests_session: Requests.t;
11}
12
13type person = {
14 id: string;
15 name: string;
16 birth_date: string option;
17 thumbnail_path: string;
18 is_hidden: bool;
19 unknown: Jsont.json;
20}
21
22(** {1 Client Creation} *)
23
24let create ~requests_session ~base_url ~api_key : t =
25 (* Set API key header on the session *)
26 let requests_session = Requests.set_default_header requests_session "x-api-key" api_key in
27 { base_url; api_key; requests_session }
28
29(** {1 JSON Codecs} *)
30
31(* Jsont codec for person *)
32let person_jsont =
33 let make id name birth_date thumbnail_path is_hidden unknown =
34 { id; name; birth_date; thumbnail_path; is_hidden; unknown }
35 in
36 let id p = p.id in
37 let name p = p.name in
38 let birth_date p = p.birth_date in
39 let thumbnail_path p = p.thumbnail_path in
40 let is_hidden p = p.is_hidden in
41 let unknown p = p.unknown in
42 Jsont.Object.map ~kind:"Person" make
43 |> Jsont.Object.mem "id" Jsont.string ~enc:id
44 |> Jsont.Object.mem "name" Jsont.string ~enc:name
45 |> Jsont.Object.opt_mem "birthDate" Jsont.string ~enc:birth_date
46 |> Jsont.Object.mem "thumbnailPath" Jsont.string ~enc:thumbnail_path
47 |> Jsont.Object.mem "isHidden" Jsont.bool ~enc:is_hidden
48 |> Jsont.Object.keep_unknown Jsont.json_mems ~enc:unknown
49 |> Jsont.Object.finish
50
51type people_response = {
52 total: int;
53 visible: int;
54 people: person list;
55 unknown: Jsont.json;
56}
57
58(* Jsont codec for people_response *)
59let people_response_jsont =
60 let make total visible people unknown =
61 { total; visible; people; unknown }
62 in
63 let total r = r.total in
64 let visible r = r.visible in
65 let people r = r.people in
66 let unknown r = r.unknown in
67 Jsont.Object.map ~kind:"PeopleResponse" make
68 |> Jsont.Object.mem "total" Jsont.int ~enc:total
69 |> Jsont.Object.mem "visible" Jsont.int ~enc:visible
70 |> Jsont.Object.mem "people" (Jsont.list person_jsont) ~enc:people
71 |> Jsont.Object.keep_unknown Jsont.json_mems ~enc:unknown
72 |> Jsont.Object.finish
73
74(** {1 API Functions} *)
75
76let fetch_people { base_url; requests_session; _ } =
77 let open Requests_json_api in
78 let url = base_url / "api/people" in
79 get_json_exn requests_session url people_response_jsont
80
81let fetch_person { base_url; requests_session; _ } ~person_id =
82 let open Requests_json_api in
83 let url = base_url / "api/people" / person_id in
84 get_json_exn requests_session url person_jsont
85
86let download_thumbnail { base_url; requests_session; _ } ~fs ~person_id ~output_path =
87 try
88 let open Requests_json_api in
89 let url = base_url / "api/people" / person_id / "thumbnail" in
90
91 match get_result requests_session url with
92 | Error (status, _body) ->
93 Error (`Msg (sprintf "HTTP error: %d" status))
94 | Ok img_data ->
95 (* Ensure output directory exists *)
96 let dir = Filename.dirname output_path in
97 if not (Sys.file_exists dir) then
98 Unix.mkdir dir 0o755;
99
100 (* Write the image data to file *)
101 let path = Eio.Path.(fs / output_path) in
102 Eio.Path.save ~create:(`Or_truncate 0o644) path img_data;
103
104 Ok ()
105 with
106 | Failure msg -> Error (`Msg msg)
107 | exn -> Error (`Msg (Printexc.to_string exn))
108
109let search_person { base_url; requests_session; _ } ~name =
110 let open Requests_json_api in
111 let encoded_name = Uri.pct_encode name in
112 let url = sprintf "%s/api/search/person?name=%s" base_url encoded_name in
113 get_json_exn requests_session url (Jsont.list person_jsont)