commit b7bbf5ef67b96d0a1f2e309fb46f8c76f6af69bc · anil.recoil.org/slop

stack/immiche/bin/dune

···

       1
       +
       (executable

     

       2
       +
        (name immiche_cli)

     

       3
       +
        (public_name immiche)

     

       4
       +
        (libraries immiche requests eio_main keyeio eiocmd cmdliner))

+187

stack/immiche/bin/immiche_cli.ml

···

       1
       +
       open Cmdliner

     

       2
       +
       

     

       3
       +
       (** List people command *)

     

       4
       +
       let list_people env _xdg profile base_url limit hidden =

     

       5
       +
         Eio.Switch.run @@ fun sw ->

     

       6
       +
       

     

       7
       +
         let api_key = Keyeio.Profile.get_required profile ~key:"api_key" in

     

       8
       +
         let base_url =

     

       9
       +
           match base_url with

     

       10
       +
           | Some url -> url

     

       11
       +
           | None ->

     

       12
       +
               Keyeio.Profile.get profile ~key:"base_url"

     

       13
       +
               |> Option.value ~default:"https://photos.example.com"

     

       14
       +
         in

     

       15
       +
       

     

       16
       +
         try

     

       17
       +
           let requests_session = Requests.create ~sw env in

     

       18
       +
           let client = Immiche.create ~requests_session ~base_url ~api_key in

     

       19
       +
           let response = Immiche.fetch_people client in

     

       20
       +
       

     

       21
       +
           (* Filter by hidden status if requested *)

     

       22
       +
           let people =

     

       23
       +
             List.filter (fun (p : Immiche.person) ->

     

       24
       +
               match hidden with

     

       25
       +
               | Some true -> p.is_hidden

     

       26
       +
               | Some false -> not p.is_hidden

     

       27
       +
               | None -> true

     

       28
       +
             ) response.people

     

       29
       +
           in

     

       30
       +
       

     

       31
       +
           (* Limit number of results *)

     

       32
       +
           let people =

     

       33
       +
             match limit with

     

       34
       +
             | Some n -> List.filteri (fun i _ -> i < n) people

     

       35
       +
             | None -> people

     

       36
       +
           in

     

       37
       +
       

     

       38
       +
           Printf.printf "Found %d people (total: %d, visible: %d)\n\n"

     

       39
       +
             (List.length people) response.total response.visible;

     

       40
       +
       

     

       41
       +
           List.iteri (fun i (p : Immiche.person) ->

     

       42
       +
             Printf.printf "%d. %s\n" (i + 1) p.name;

     

       43
       +
             Printf.printf "   ID: %s\n" p.id;

     

       44
       +
             (match p.birth_date with

     

       45
       +
              | Some bd -> Printf.printf "   Birth date: %s\n" bd

     

       46
       +
              | None -> ());

     

       47
       +
             Printf.printf "   Thumbnail: %s\n" p.thumbnail_path;

     

       48
       +
             if p.is_hidden then Printf.printf "   [HIDDEN]\n";

     

       49
       +
             Printf.printf "\n"

     

       50
       +
           ) people;

     

       51
       +
           0

     

       52
       +
         with exn ->

     

       53
       +
           Printf.eprintf "Error: %s\n" (Printexc.to_string exn);

     

       54
       +
           1

     

       55
       +
       

     

       56
       +
       (** Get a single person by ID *)

     

       57
       +
       let get_person env _xdg profile base_url person_id =

     

       58
       +
         Eio.Switch.run @@ fun sw ->

     

       59
       +
       

     

       60
       +
         let api_key = Keyeio.Profile.get_required profile ~key:"api_key" in

     

       61
       +
         let base_url =

     

       62
       +
           match base_url with

     

       63
       +
           | Some url -> url

     

       64
       +
           | None ->

     

       65
       +
               Keyeio.Profile.get profile ~key:"base_url"

     

       66
       +
               |> Option.value ~default:"https://photos.example.com"

     

       67
       +
         in

     

       68
       +
       

     

       69
       +
         try

     

       70
       +
           let requests_session = Requests.create ~sw env in

     

       71
       +
           let client = Immiche.create ~requests_session ~base_url ~api_key in

     

       72
       +
           let person = Immiche.fetch_person client ~person_id in

     

       73
       +
       

     

       74
       +
           Printf.printf "Person: %s\n" person.name;

     

       75
       +
           Printf.printf "ID: %s\n" person.id;

     

       76
       +
           (match person.birth_date with

     

       77
       +
            | Some bd -> Printf.printf "Birth date: %s\n" bd

     

       78
       +
            | None -> ());

     

       79
       +
           Printf.printf "Thumbnail: %s\n" person.thumbnail_path;

     

       80
       +
           if person.is_hidden then Printf.printf "Status: HIDDEN\n";

     

       81
       +
           0

     

       82
       +
         with exn ->

     

       83
       +
           Printf.eprintf "Error: %s\n" (Printexc.to_string exn);

     

       84
       +
           1

     

       85
       +
       

     

       86
       +
       (** Search for people by name *)

     

       87
       +
       let search_people env _xdg profile base_url name =

     

       88
       +
         Eio.Switch.run @@ fun sw ->

     

       89
       +
       

     

       90
       +
         let api_key = Keyeio.Profile.get_required profile ~key:"api_key" in

     

       91
       +
         let base_url =

     

       92
       +
           match base_url with

     

       93
       +
           | Some url -> url

     

       94
       +
           | None ->

     

       95
       +
               Keyeio.Profile.get profile ~key:"base_url"

     

       96
       +
               |> Option.value ~default:"https://photos.example.com"

     

       97
       +
         in

     

       98
       +
       

     

       99
       +
         try

     

       100
       +
           let requests_session = Requests.create ~sw env in

     

       101
       +
           let client = Immiche.create ~requests_session ~base_url ~api_key in

     

       102
       +
           let people = Immiche.search_person client ~name in

     

       103
       +
       

     

       104
       +
           Printf.printf "Found %d people matching '%s'\n\n" (List.length people) name;

     

       105
       +
       

     

       106
       +
           List.iteri (fun i (p : Immiche.person) ->

     

       107
       +
             Printf.printf "%d. %s\n" (i + 1) p.name;

     

       108
       +
             Printf.printf "   ID: %s\n" p.id;

     

       109
       +
             (match p.birth_date with

     

       110
       +
              | Some bd -> Printf.printf "   Birth date: %s\n" bd

     

       111
       +
              | None -> ());

     

       112
       +
             Printf.printf "   Thumbnail: %s\n" p.thumbnail_path;

     

       113
       +
             if p.is_hidden then Printf.printf "   [HIDDEN]\n";

     

       114
       +
             Printf.printf "\n"

     

       115
       +
           ) people;

     

       116
       +
           0

     

       117
       +
         with exn ->

     

       118
       +
           Printf.eprintf "Error: %s\n" (Printexc.to_string exn);

     

       119
       +
           1

     

       120
       +
       

     

       121
       +
       (** Command-line arguments *)

     

       122
       +
       

     

       123
       +
       let base_url_arg =

     

       124
       +
         let doc = "Base URL of the Immich instance (overrides profile setting)" in

     

       125
       +
         Arg.(value & opt (some string) None & info ["u"; "url"] ~docv:"URL" ~doc)

     

       126
       +
       

     

       127
       +
       let limit_arg =

     

       128
       +
         let doc = "Maximum number of results to return" in

     

       129
       +
         Arg.(value & opt (some int) None & info ["l"; "limit"] ~docv:"N" ~doc)

     

       130
       +
       

     

       131
       +
       let hidden_arg =

     

       132
       +
         let doc = "Filter by hidden status (true/false)" in

     

       133
       +
         Arg.(value & opt (some bool) None & info ["hidden"] ~docv:"BOOL" ~doc)

     

       134
       +
       

     

       135
       +
       let person_id_arg =

     

       136
       +
         let doc = "ID of the person" in

     

       137
       +
         Arg.(required & pos 0 (some string) None & info [] ~docv:"PERSON_ID" ~doc)

     

       138
       +
       

     

       139
       +
       let name_arg =

     

       140
       +
         let doc = "Name to search for" in

     

       141
       +
         Arg.(required & pos 0 (some string) None & info [] ~docv:"NAME" ~doc)

     

       142
       +
       

     

       143
       +
       (** Commands *)

     

       144
       +
       

     

       145
       +
       let list_cmd =

     

       146
       +
         let doc = "List people from Immich" in

     

       147
       +
         Eiocmd.run

     

       148
       +
           ~info:(Cmd.info "list" ~doc)

     

       149
       +
           ~app_name:"immiche"

     

       150
       +
           ~service:"immich"

     

       151
       +
           Term.(const (fun base_url limit hidden env xdg profile ->

     

       152
       +
             list_people env xdg profile base_url limit hidden)

     

       153
       +
             $ base_url_arg $ limit_arg $ hidden_arg)

     

       154
       +
       

     

       155
       +
       let get_cmd =

     

       156
       +
         let doc = "Get a person by ID" in

     

       157
       +
         Eiocmd.run

     

       158
       +
           ~info:(Cmd.info "get" ~doc)

     

       159
       +
           ~app_name:"immiche"

     

       160
       +
           ~service:"immich"

     

       161
       +
           Term.(const (fun base_url person_id env xdg profile ->

     

       162
       +
             get_person env xdg profile base_url person_id)

     

       163
       +
             $ base_url_arg $ person_id_arg)

     

       164
       +
       

     

       165
       +
       let search_cmd =

     

       166
       +
         let doc = "Search for people by name" in

     

       167
       +
         Eiocmd.run

     

       168
       +
           ~info:(Cmd.info "search" ~doc)

     

       169
       +
           ~app_name:"immiche"

     

       170
       +
           ~service:"immich"

     

       171
       +
           Term.(const (fun base_url name env xdg profile ->

     

       172
       +
             search_people env xdg profile base_url name)

     

       173
       +
             $ base_url_arg $ name_arg)

     

       174
       +
       

     

       175
       +
       (** Main command *)

     

       176
       +
       

     

       177
       +
       let main_cmd =

     

       178
       +
         let doc = "Immich API client" in

     

       179
       +
         let man = [

     

       180
       +
           `S Manpage.s_description;

     

       181
       +
           `P "$(tname) is a command-line client for the Immich API.";

     

       182
       +
           `P "It allows you to list, search, and view people from your Immich instance.";

     

       183
       +
         ] in

     

       184
       +
         let info = Cmd.info "immiche" ~version:"0.1.0" ~doc ~man in

     

       185
       +
         Cmd.group info [list_cmd; get_cmd; search_cmd]

     

       186
       +
       

     

       187
       +
       let () = exit (Cmd.eval' main_cmd)

+1 -1

stack/immiche/dune

···

       1
        
       (library

     

       2
        
        (name immiche)

     

       3
        
        (public_name immiche)

     

       4
       -
        (libraries eio eio.core requests ezjsonm fmt ptime uri))

···

       1
        
       (library

     

       2
        
        (name immiche)

     

       3
        
        (public_name immiche)

     

       4
       +
        (libraries eio eio.core requests requests_json_api ezjsonm fmt ptime uri))

+22 -50

stack/immiche/immiche.ml

···

       68
        
       (** {1 API Functions} *)

     

       69
        
       

     

       70
        
       let fetch_people { base_url; requests_session; _ } =

     

       71
       -
         let url = sprintf "%s/api/people" base_url in

     

       72
       -
       

     

       73
       -
         let response = Requests.get requests_session url in

     

       74
       -
         let status = Requests.Response.status_code response in

     

       75
       -
       

     

       76
       -
         if status <> 200 then

     

       77
       -
           failwith (sprintf "HTTP error: %d" status)

     

       78
       -
         else

     

       79
       -
           let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       80
       -
           let json = Ezjsonm.from_string body_str in

     

       81
       -
           parse_people_response json

     

       82
        
       

     

       83
        
       let fetch_person { base_url; requests_session; _ } ~person_id =

     

       84
       -
         let url = sprintf "%s/api/people/%s" base_url person_id in

     

       85
       -
       

     

       86
       -
         let response = Requests.get requests_session url in

     

       87
       -
         let status = Requests.Response.status_code response in

     

       88
       -
       

     

       89
       -
         if status <> 200 then

     

       90
       -
           failwith (sprintf "HTTP error: %d" status)

     

       91
       -
         else

     

       92
       -
           let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       93
       -
           let json = Ezjsonm.from_string body_str in

     

       94
       -
           parse_person json

     

       95
        
       

     

       96
        
       let download_thumbnail { base_url; requests_session; _ } ~fs ~person_id ~output_path =

     

       97
        
         try

     

       98
       -
           let url = sprintf "%s/api/people/%s/thumbnail" base_url person_id in

     

       99
       -
       

     

       100
       -
           let response = Requests.get requests_session url in

     

       101
       -
           let status = Requests.Response.status_code response in

     

       102
       -
       

     

       103
       -
           if status <> 200 then

     

       104
       -
             Error (`Msg (sprintf "HTTP error: %d" status))

     

       105
       -
           else begin

     

       106
       -
             let img_data = Requests.Response.body response |> Eio.Flow.read_all in

     

       107
        
       

     

       108
       -
             (* Ensure output directory exists *)

     

       109
       -
             let dir = Filename.dirname output_path in

     

       110
       -
             if not (Sys.file_exists dir) then

     

       111
       -
               Unix.mkdir dir 0o755;

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       112
        
       

     

       113
       -
             (* Write the image data to file *)

     

       114
       -
             let path = Eio.Path.(fs / output_path) in

     

       115
       -
             Eio.Path.save ~create:(`Or_truncate 0o644) path img_data;

     

       116
        
       

     

       117
       -
             Ok ()

     

       118
       -
           end

     

       119
        
         with

     

       120
        
         | Failure msg -> Error (`Msg msg)

     

       121
        
         | exn -> Error (`Msg (Printexc.to_string exn))

     

       122
        
       

     

       123
        
       let search_person { base_url; requests_session; _ } ~name =

     

       0
        
       
     

       124
        
         let encoded_name = Uri.pct_encode name in

     

       125
        
         let url = sprintf "%s/api/search/person?name=%s" base_url encoded_name in

     

       126
       -
       

     

       127
       -
         let response = Requests.get requests_session url in

     

       128
       -
         let status = Requests.Response.status_code response in

     

       129
       -
       

     

       130
       -
         if status <> 200 then

     

       131
       -
           failwith (sprintf "HTTP error: %d" status)

     

       132
       -
         else

     

       133
       -
           let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       134
       -
           let json = Ezjsonm.from_string body_str in

     

       135
       -
           parse_person_list json

···

       68
        
       (** {1 API Functions} *)

     

       69
        
       

     

       70
        
       let fetch_people { base_url; requests_session; _ } =

     

       71
       +
         let open Requests_json_api in

     

       72
       +
         let url = base_url / "api/people" in

     

       73
       +
         get_json_exn requests_session url parse_people_response

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       74
        
       

     

       75
        
       let fetch_person { base_url; requests_session; _ } ~person_id =

     

       76
       +
         let open Requests_json_api in

     

       77
       +
         let url = base_url / "api/people" / person_id in

     

       78
       +
         get_json_exn requests_session url parse_person

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       79
        
       

     

       80
        
       let download_thumbnail { base_url; requests_session; _ } ~fs ~person_id ~output_path =

     

       81
        
         try

     

       82
       +
           let open Requests_json_api in

     

       83
       +
           let url = base_url / "api/people" / person_id / "thumbnail" in

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       84
        
       

     

       85
       +
           match get_result requests_session url with

     

       86
       +
           | Error (status, _body) ->

     

       87
       +
               Error (`Msg (sprintf "HTTP error: %d" status))

     

       88
       +
           | Ok img_data ->

     

       89
       +
               (* Ensure output directory exists *)

     

       90
       +
               let dir = Filename.dirname output_path in

     

       91
       +
               if not (Sys.file_exists dir) then

     

       92
       +
                 Unix.mkdir dir 0o755;

     

       93
        
       

     

       94
       +
               (* Write the image data to file *)

     

       95
       +
               let path = Eio.Path.(fs / output_path) in

     

       96
       +
               Eio.Path.save ~create:(`Or_truncate 0o644) path img_data;

     

       97
        
       

     

       98
       +
               Ok ()

     

       0
        
       
     

       99
        
         with

     

       100
        
         | Failure msg -> Error (`Msg msg)

     

       101
        
         | exn -> Error (`Msg (Printexc.to_string exn))

     

       102
        
       

     

       103
        
       let search_person { base_url; requests_session; _ } ~name =

     

       104
       +
         let open Requests_json_api in

     

       105
        
         let encoded_name = Uri.pct_encode name in

     

       106
        
         let url = sprintf "%s/api/search/person?name=%s" base_url encoded_name in

     

       107
       +
         get_json_exn requests_session url parse_person_list

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0

+1 -1

stack/karakeepe/dune

···

       1
        
       (library

     

       2
        
        (name karakeepe)

     

       3
        
        (public_name karakeepe)

     

       4
       -
        (libraries bushel eio eio.core requests ezjsonm fmt ptime uri logs logs.fmt))

···

       1
        
       (library

     

       2
        
        (name karakeepe)

     

       3
        
        (public_name karakeepe)

     

       4
       +
        (libraries bushel eio eio.core requests requests_json_api ezjsonm fmt ptime uri logs logs.fmt))

+33 -35

stack/karakeepe/karakeepe.ml

···

       274
        
       

     

       275
        
         try

     

       276
        
           let response = Requests.get client.http_client ~headers url in

     

       277
       -
           let status_code = Requests.Response.status_code response in

     

       278
       -
           if status_code = 200 then begin

     

       279
       -
             let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       280
       -
             Log.debug (fun m -> m "Received %d bytes of response data" (String.length body_str));

     

       281
       -
       

     

       282
       -
             try

     

       283
       -
               let json = J.from_string body_str in

     

       284
       -
               parse_bookmark_response json

     

       285
       -
             with e ->

     

       286
       -
               Log.err (fun m -> m "JSON parsing error: %s" (Printexc.to_string e));

     

       287
       -
               Log.debug (fun m -> m "Response body (first 200 chars): %s"

     

       288
       -
                 (if String.length body_str > 200 then String.sub body_str 0 200 ^ "..." else body_str));

     

       289
       -
               raise e

     

       290
       -
           end else begin

     

       291
       -
             Log.err (fun m -> m "HTTP error %d" status_code);

     

       292
       -
             failwith (Fmt.str "HTTP error: %d" status_code)

     

       293
       -
           end

     

       294
        
         with e ->

     

       295
        
           Log.err (fun m -> m "Network error: %s" (Printexc.to_string e));

     

       296
        
           raise e

     
···

       374
        
       

     

       375
        
       (** Fetch detailed information for a single bookmark by ID *)

     

       376
        
       let fetch_bookmark_details client bookmark_id =

     

       377
       -
         let url = Fmt.str "%s/api/v1/bookmarks/%s" client.base_url bookmark_id in

     

       0
        
       
     

       378
        
       

     

       379
        
         let headers = Requests.Headers.empty

     

       380
        
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       381
        
       

     

       382
        
         let response = Requests.get client.http_client ~headers url in

     

       383
       -
         let status_code = Requests.Response.status_code response in

     

       384
       -
         if status_code = 200 then begin

     

       385
       -
           let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       386
       -
           let json = J.from_string body_str in

     

       387
       -
           parse_bookmark json

     

       388
       -
         end else

     

       389
       -
           failwith (Fmt.str "HTTP error: %d" status_code)

     

       390
        
       

     

       391
        
       (** Get the asset URL for a given asset ID *)

     

       392
        
       let get_asset_url client asset_id =

     
···

       394
        
       

     

       395
        
       (** Fetch an asset from the Karakeep server as a binary string *)

     

       396
        
       let fetch_asset client asset_id =

     

       397
       -
         let url = Fmt.str "%s/api/assets/%s" client.base_url asset_id in

     

       0
        
       
     

       398
        
       

     

       399
        
         let headers = Requests.Headers.empty

     

       400
        
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       401
        
       

     

       402
        
         let response = Requests.get client.http_client ~headers url in

     

       403
       -
         let status_code = Requests.Response.status_code response in

     

       404
       -
         if status_code = 200 then

     

       405
       -
           Requests.Response.body response |> Eio.Flow.read_all

     

       406
       -
         else

     

       407
       -
           failwith (Fmt.str "Asset fetch error: %d" status_code)

     

       408
        
       

     

       409
        
       (** Create a new bookmark in Karakeep with optional tags *)

     

       410
        
       let create_bookmark client ~url ?title ?note ?tags ?(favourited=false) ?(archived=false) () =

     
···

       433
        
           |> Requests.Headers.set "Content-Type" "application/json"

     

       434
        
         in

     

       435
        
       

     

       436
       -
         let url_endpoint = Fmt.str "%s/api/v1/bookmarks" client.base_url in

     

       0
        
       
     

       437
        
         let body = Requests.Body.of_string Requests.Mime.json body_str in

     

       438
        
         let response = Requests.post client.http_client ~headers ~body url_endpoint in

     

       439
        
       

     

       440
        
         let status_code = Requests.Response.status_code response in

     

       441
        
         if status_code = 201 || status_code = 200 then begin

     

       442
       -
           let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       443
        
           let json = J.from_string body_str in

     

       444
        
           let bookmark = parse_bookmark json in

     

       445
        
       

     
···

       452
        
               let tags_body = `O [("tags", `A tag_objects)] in

     

       453
        
               let tags_body_str = J.to_string tags_body in

     

       454
        
       

     

       455
       -
               let tags_url = Fmt.str "%s/api/v1/bookmarks/%s/tags" client.base_url bookmark.id in

     

       456
        
               let tags_body = Requests.Body.of_string Requests.Mime.json tags_body_str in

     

       457
        
               let tags_response = Requests.post client.http_client ~headers ~body:tags_body tags_url in

     

       458
        
       

     
···

       463
        
                 bookmark

     

       464
        
           | _ -> bookmark

     

       465
        
         end else begin

     

       466
       -
           let error_body = Requests.Response.body response |> Eio.Flow.read_all in

     

       467
        
           failwith (Fmt.str "Failed to create bookmark. HTTP error: %d. Details: %s" status_code error_body)

     

       468
        
         end

     

       469

···

       274
        
       

     

       275
        
         try

     

       276
        
           let response = Requests.get client.http_client ~headers url in

     

       277
       +
           match Requests_json_api.check_ok response with

     

       278
       +
           | Ok body_str ->

     

       279
       +
               Log.debug (fun m -> m "Received %d bytes of response data" (String.length body_str));

     

       280
       +
               (try

     

       281
       +
                 let json = J.from_string body_str in

     

       282
       +
                 parse_bookmark_response json

     

       283
       +
               with e ->

     

       284
       +
                 Log.err (fun m -> m "JSON parsing error: %s" (Printexc.to_string e));

     

       285
       +
                 Log.debug (fun m -> m "Response body (first 200 chars): %s"

     

       286
       +
                   (if String.length body_str > 200 then String.sub body_str 0 200 ^ "..." else body_str));

     

       287
       +
                 raise e)

     

       288
       +
           | Error (status_code, _) ->

     

       289
       +
               Log.err (fun m -> m "HTTP error %d" status_code);

     

       290
       +
               failwith (Fmt.str "HTTP error: %d" status_code)

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       291
        
         with e ->

     

       292
        
           Log.err (fun m -> m "Network error: %s" (Printexc.to_string e));

     

       293
        
           raise e

     
···

       371
        
       

     

       372
        
       (** Fetch detailed information for a single bookmark by ID *)

     

       373
        
       let fetch_bookmark_details client bookmark_id =

     

       374
       +
         let open Requests_json_api in

     

       375
       +
         let url = client.base_url / "api/v1/bookmarks" / bookmark_id in

     

       376
        
       

     

       377
        
         let headers = Requests.Headers.empty

     

       378
        
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       379
        
       

     

       380
        
         let response = Requests.get client.http_client ~headers url in

     

       381
       +
         match check_ok response with

     

       382
       +
         | Ok body_str ->

     

       383
       +
             let json = J.from_string body_str in

     

       384
       +
             parse_bookmark json

     

       385
       +
         | Error (status_code, _) ->

     

       386
       +
             failwith (Fmt.str "HTTP error: %d" status_code)

     

       0
        
       
     

       387
        
       

     

       388
        
       (** Get the asset URL for a given asset ID *)

     

       389
        
       let get_asset_url client asset_id =

     
···

       391
        
       

     

       392
        
       (** Fetch an asset from the Karakeep server as a binary string *)

     

       393
        
       let fetch_asset client asset_id =

     

       394
       +
         let open Requests_json_api in

     

       395
       +
         let url = client.base_url / "api/assets" / asset_id in

     

       396
        
       

     

       397
        
         let headers = Requests.Headers.empty

     

       398
        
           |> Requests.Headers.set "Authorization" ("Bearer " ^ client.api_key) in

     

       399
        
       

     

       400
        
         let response = Requests.get client.http_client ~headers url in

     

       401
       +
         match check_ok response with

     

       402
       +
         | Ok body_str -> body_str

     

       403
       +
         | Error (status_code, _) ->

     

       404
       +
             failwith (Fmt.str "Asset fetch error: %d" status_code)

     

       0
        
       
     

       405
        
       

     

       406
        
       (** Create a new bookmark in Karakeep with optional tags *)

     

       407
        
       let create_bookmark client ~url ?title ?note ?tags ?(favourited=false) ?(archived=false) () =

     
···

       430
        
           |> Requests.Headers.set "Content-Type" "application/json"

     

       431
        
         in

     

       432
        
       

     

       433
       +
         let open Requests_json_api in

     

       434
       +
         let url_endpoint = client.base_url / "api/v1/bookmarks" in

     

       435
        
         let body = Requests.Body.of_string Requests.Mime.json body_str in

     

       436
        
         let response = Requests.post client.http_client ~headers ~body url_endpoint in

     

       437
        
       

     

       438
        
         let status_code = Requests.Response.status_code response in

     

       439
        
         if status_code = 201 || status_code = 200 then begin

     

       440
       +
           let body_str = read_body response in

     

       441
        
           let json = J.from_string body_str in

     

       442
        
           let bookmark = parse_bookmark json in

     

       443
        
       

     
···

       450
        
               let tags_body = `O [("tags", `A tag_objects)] in

     

       451
        
               let tags_body_str = J.to_string tags_body in

     

       452
        
       

     

       453
       +
               let tags_url = client.base_url / "api/v1/bookmarks" / bookmark.id / "tags" in

     

       454
        
               let tags_body = Requests.Body.of_string Requests.Mime.json tags_body_str in

     

       455
        
               let tags_response = Requests.post client.http_client ~headers ~body:tags_body tags_url in

     

       456
        
       

     
···

       461
        
                 bookmark

     

       462
        
           | _ -> bookmark

     

       463
        
         end else begin

     

       464
       +
           let error_body = read_body response in

     

       465
        
           failwith (Fmt.str "Failed to create bookmark. HTTP error: %d. Details: %s" status_code error_body)

     

       466
        
         end

     

       467

stack/peertubee/bin/dune

···

       1
       +
       (executable

     

       2
       +
        (name peertubee_cli)

     

       3
       +
        (public_name peertubee)

     

       4
       +
        (libraries peertubee requests eio_main keyeio eiocmd cmdliner))

+138

stack/peertubee/bin/peertubee_cli.ml

···

       1
       +
       open Cmdliner

     

       2
       +
       

     

       3
       +
       (** List channel videos command *)

     

       4
       +
       let list_videos env _xdg profile base_url channel limit =

     

       5
       +
         Eio.Switch.run @@ fun sw ->

     

       6
       +
       

     

       7
       +
         let base_url =

     

       8
       +
           match base_url with

     

       9
       +
           | Some url -> url

     

       10
       +
           | None ->

     

       11
       +
               Keyeio.Profile.get profile ~key:"base_url"

     

       12
       +
               |> Option.value ~default:"https://peertube.example.com"

     

       13
       +
         in

     

       14
       +
       

     

       15
       +
         try

     

       16
       +
           let requests_session = Requests.create ~sw env in

     

       17
       +
           let client = Peertubee.create ~requests_session ~base_url in

     

       18
       +
           let videos =

     

       19
       +
             match limit with

     

       20
       +
             | Some n -> Peertubee.fetch_all_channel_videos client ~page_size:n channel

     

       21
       +
             | None -> Peertubee.fetch_all_channel_videos client channel

     

       22
       +
           in

     

       23
       +
       

     

       24
       +
           Printf.printf "Found %d videos from channel '%s'\n\n" (List.length videos) channel;

     

       25
       +
       

     

       26
       +
           List.iteri (fun i (v : Peertubee.video) ->

     

       27
       +
             Printf.printf "%d. %s\n" (i + 1) v.name;

     

       28
       +
             Printf.printf "   UUID: %s\n" v.uuid;

     

       29
       +
             Printf.printf "   URL: %s\n" v.url;

     

       30
       +
             (match v.description with

     

       31
       +
              | Some desc ->

     

       32
       +
                  let desc_short =

     

       33
       +
                    if String.length desc > 100 then String.sub desc 0 100 ^ "..."

     

       34
       +
                    else desc

     

       35
       +
                  in

     

       36
       +
                  Printf.printf "   Description: %s\n" desc_short

     

       37
       +
              | None -> ());

     

       38
       +
             Printf.printf "   Published: %s\n" (Ptime.to_rfc3339 v.published_at);

     

       39
       +
             if v.tags <> [] then

     

       40
       +
               Printf.printf "   Tags: %s\n" (String.concat ", " v.tags);

     

       41
       +
             Printf.printf "\n"

     

       42
       +
           ) videos;

     

       43
       +
           0

     

       44
       +
         with exn ->

     

       45
       +
           Printf.eprintf "Error: %s\n" (Printexc.to_string exn);

     

       46
       +
           1

     

       47
       +
       

     

       48
       +
       (** Get a single video by UUID *)

     

       49
       +
       let get_video env _xdg profile base_url uuid =

     

       50
       +
         Eio.Switch.run @@ fun sw ->

     

       51
       +
       

     

       52
       +
         let base_url =

     

       53
       +
           match base_url with

     

       54
       +
           | Some url -> url

     

       55
       +
           | None ->

     

       56
       +
               Keyeio.Profile.get profile ~key:"base_url"

     

       57
       +
               |> Option.value ~default:"https://peertube.example.com"

     

       58
       +
         in

     

       59
       +
       

     

       60
       +
         try

     

       61
       +
           let requests_session = Requests.create ~sw env in

     

       62
       +
           let client = Peertubee.create ~requests_session ~base_url in

     

       63
       +
           let video = Peertubee.fetch_video_details client uuid in

     

       64
       +
       

     

       65
       +
           Printf.printf "Video: %s\n" video.name;

     

       66
       +
           Printf.printf "UUID: %s\n" video.uuid;

     

       67
       +
           Printf.printf "URL: %s\n" video.url;

     

       68
       +
           Printf.printf "Embed path: %s\n" video.embed_path;

     

       69
       +
           (match video.description with

     

       70
       +
            | Some desc -> Printf.printf "Description: %s\n" desc

     

       71
       +
            | None -> ());

     

       72
       +
           Printf.printf "Published: %s\n" (Ptime.to_rfc3339 video.published_at);

     

       73
       +
           (match video.originally_published_at with

     

       74
       +
            | Some t -> Printf.printf "Originally published: %s\n" (Ptime.to_rfc3339 t)

     

       75
       +
            | None -> ());

     

       76
       +
           if video.tags <> [] then

     

       77
       +
             Printf.printf "Tags: %s\n" (String.concat ", " video.tags);

     

       78
       +
           (match Peertubee.thumbnail_url client video with

     

       79
       +
            | Some url -> Printf.printf "Thumbnail: %s\n" url

     

       80
       +
            | None -> ());

     

       81
       +
           0

     

       82
       +
         with exn ->

     

       83
       +
           Printf.eprintf "Error: %s\n" (Printexc.to_string exn);

     

       84
       +
           1

     

       85
       +
       

     

       86
       +
       (** Command-line arguments *)

     

       87
       +
       

     

       88
       +
       let base_url_arg =

     

       89
       +
         let doc = "Base URL of the PeerTube instance (overrides profile setting)" in

     

       90
       +
         Arg.(value & opt (some string) None & info ["u"; "url"] ~docv:"URL" ~doc)

     

       91
       +
       

     

       92
       +
       let channel_arg =

     

       93
       +
         let doc = "Channel name to fetch videos from" in

     

       94
       +
         Arg.(required & pos 0 (some string) None & info [] ~docv:"CHANNEL" ~doc)

     

       95
       +
       

     

       96
       +
       let limit_arg =

     

       97
       +
         let doc = "Maximum number of videos to return" in

     

       98
       +
         Arg.(value & opt (some int) None & info ["l"; "limit"] ~docv:"N" ~doc)

     

       99
       +
       

     

       100
       +
       let uuid_arg =

     

       101
       +
         let doc = "UUID of the video" in

     

       102
       +
         Arg.(required & pos 0 (some string) None & info [] ~docv:"UUID" ~doc)

     

       103
       +
       

     

       104
       +
       (** Commands *)

     

       105
       +
       

     

       106
       +
       let list_cmd =

     

       107
       +
         let doc = "List videos from a PeerTube channel" in

     

       108
       +
         Eiocmd.run

     

       109
       +
           ~info:(Cmd.info "list" ~doc)

     

       110
       +
           ~app_name:"peertubee"

     

       111
       +
           ~service:"peertube"

     

       112
       +
           Term.(const (fun base_url channel limit env xdg profile ->

     

       113
       +
             list_videos env xdg profile base_url channel limit)

     

       114
       +
             $ base_url_arg $ channel_arg $ limit_arg)

     

       115
       +
       

     

       116
       +
       let get_cmd =

     

       117
       +
         let doc = "Get a video by UUID" in

     

       118
       +
         Eiocmd.run

     

       119
       +
           ~info:(Cmd.info "get" ~doc)

     

       120
       +
           ~app_name:"peertubee"

     

       121
       +
           ~service:"peertube"

     

       122
       +
           Term.(const (fun base_url uuid env xdg profile ->

     

       123
       +
             get_video env xdg profile base_url uuid)

     

       124
       +
             $ base_url_arg $ uuid_arg)

     

       125
       +
       

     

       126
       +
       (** Main command *)

     

       127
       +
       

     

       128
       +
       let main_cmd =

     

       129
       +
         let doc = "PeerTube API client" in

     

       130
       +
         let man = [

     

       131
       +
           `S Manpage.s_description;

     

       132
       +
           `P "$(tname) is a command-line client for the PeerTube API.";

     

       133
       +
           `P "It allows you to list and view videos from PeerTube instances.";

     

       134
       +
         ] in

     

       135
       +
         let info = Cmd.info "peertubee" ~version:"0.1.0" ~doc ~man in

     

       136
       +
         Cmd.group info [list_cmd; get_cmd]

     

       137
       +
       

     

       138
       +
       let () = exit (Cmd.eval' main_cmd)

+1 -1

stack/peertubee/dune

···

       1
        
       (library

     

       2
        
        (name peertubee)

     

       3
        
        (public_name peertubee)

     

       4
       -
        (libraries ezjsonm eio eio.core requests ptime fmt))

···

       1
        
       (library

     

       2
        
        (name peertubee)

     

       3
        
        (public_name peertubee)

     

       4
       +
        (libraries ezjsonm eio eio.core requests requests_json_api ptime fmt))

+17 -31

stack/peertubee/peertubee.ml

···

       102
        
           @param channel Channel name to fetch videos from

     

       103
        
           @return The video response *)

     

       104
        
       let fetch_channel_videos client ?(count=20) ?(start=0) channel =

     

       0
        
       
     

       105
        
         let url = Printf.sprintf "%s/api/v1/video-channels/%s/videos?count=%d&start=%d"

     

       106
        
                     client.base_url channel count start in

     

       107
       -
         let response = Requests.get client.requests_session url in

     

       108
       -
         let status_code = Requests.Response.status_code response in

     

       109
       -
         if status_code = 200 then

     

       110
       -
           let s = Requests.Response.body response |> Eio.Flow.read_all in

     

       111
       -
           let json = J.from_string s in

     

       112
       -
           parse_video_response json

     

       113
       -
         else

     

       114
       -
           failwith (Fmt.str "HTTP error: %d" status_code)

     

       115
        
       

     

       116
        
       (** Fetch all videos from a PeerTube instance channel using pagination

     

       117
        
           @param page_size Number of videos to fetch per page

     
···

       144
        
           @param uuid UUID of the video to fetch

     

       145
        
           @return The complete video details *)

     

       146
        
       let fetch_video_details client uuid =

     

       147
       -
         let url = Printf.sprintf "%s/api/v1/videos/%s" client.base_url uuid in

     

       148
       -
         let response = Requests.get client.requests_session url in

     

       149
       -
         let status_code = Requests.Response.status_code response in

     

       150
       -
         if status_code = 200 then

     

       151
       -
           let s = Requests.Response.body response |> Eio.Flow.read_all in

     

       152
       -
           let json = J.from_string s in

     

       153
       -
           (* Parse the single video details *)

     

       154
       -
           parse_video json

     

       155
       -
         else

     

       156
       -
           failwith (Fmt.str "HTTP error: %d" status_code)

     

       157
        
       

     

       158
        
       (** Convert a PeerTube video to Bushel.Video.t compatible structure *)

     

       159
        
       let to_bushel_video video =

     
···

       179
        
             Error (`Msg (Printf.sprintf "No thumbnail available for video %s" video.uuid))

     

       180
        
         | Some url ->

     

       181
        
             try

     

       182
       -
               let response = Requests.get client.requests_session url in

     

       183
       -
               let status_code = Requests.Response.status_code response in

     

       184
       -
               if status_code = 200 then

     

       185
       -
                 let body_str = Requests.Response.body response |> Eio.Flow.read_all in

     

       186
       -
                 try

     

       187
       -
                   let output_eio_path = Eio.Path.(fs / output_path) in

     

       188
       -
                   Eio.Path.save ~create:(`Or_truncate 0o644) output_eio_path body_str;

     

       189
       -
                   Ok ()

     

       190
       -
                 with exn ->

     

       191
       -
                   Error (`Msg (Printf.sprintf "Failed to write thumbnail: %s"

     

       192
       -
                     (Printexc.to_string exn)))

     

       193
       -
               else

     

       194
       -
                 Error (`Msg (Printf.sprintf "HTTP error downloading thumbnail: %d" status_code))

     

       195
        
             with exn ->

     

       196
        
               Error (`Msg (Printf.sprintf "Failed to download thumbnail: %s"

     

       197
        
                 (Printexc.to_string exn)))

···

       102
        
           @param channel Channel name to fetch videos from

     

       103
        
           @return The video response *)

     

       104
        
       let fetch_channel_videos client ?(count=20) ?(start=0) channel =

     

       105
       +
         let open Requests_json_api in

     

       106
        
         let url = Printf.sprintf "%s/api/v1/video-channels/%s/videos?count=%d&start=%d"

     

       107
        
                     client.base_url channel count start in

     

       108
       +
         get_json_exn client.requests_session url parse_video_response

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       109
        
       

     

       110
        
       (** Fetch all videos from a PeerTube instance channel using pagination

     

       111
        
           @param page_size Number of videos to fetch per page

     
···

       138
        
           @param uuid UUID of the video to fetch

     

       139
        
           @return The complete video details *)

     

       140
        
       let fetch_video_details client uuid =

     

       141
       +
         let open Requests_json_api in

     

       142
       +
         let url = client.base_url / "api/v1/videos" / uuid in

     

       143
       +
         get_json_exn client.requests_session url parse_video

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       144
        
       

     

       145
        
       (** Convert a PeerTube video to Bushel.Video.t compatible structure *)

     

       146
        
       let to_bushel_video video =

     
···

       166
        
             Error (`Msg (Printf.sprintf "No thumbnail available for video %s" video.uuid))

     

       167
        
         | Some url ->

     

       168
        
             try

     

       169
       +
               let open Requests_json_api in

     

       170
       +
               match get_result client.requests_session url with

     

       171
       +
               | Error (status_code, _body) ->

     

       172
       +
                   Error (`Msg (Printf.sprintf "HTTP error downloading thumbnail: %d" status_code))

     

       173
       +
               | Ok body_str ->

     

       174
       +
                   try

     

       175
       +
                     let output_eio_path = Eio.Path.(fs / output_path) in

     

       176
       +
                     Eio.Path.save ~create:(`Or_truncate 0o644) output_eio_path body_str;

     

       177
       +
                     Ok ()

     

       178
       +
                   with exn ->

     

       179
       +
                     Error (`Msg (Printf.sprintf "Failed to write thumbnail: %s"

     

       180
       +
                       (Printexc.to_string exn)))

     

       0
        
       
     

       181
        
             with exn ->

     

       182
        
               Error (`Msg (Printf.sprintf "Failed to download thumbnail: %s"

     

       183
        
                 (Printexc.to_string exn)))

stack/requests/lib/dune

+20

stack/requests_json_api/dune-project

···

       1
       +
       (lang dune 3.0)

     

       2
       +
       (name requests_json_api)

     

       3
       +
       

     

       4
       +
       (generate_opam_files true)

     

       5
       +
       

     

       6
       +
       (source (github yourusername/requests_json_api))

     

       7
       +
       (license MIT)

     

       8
       +
       (authors "Your Name")

     

       9
       +
       (maintainers "Your Name")

     

       10
       +
       

     

       11
       +
       (package

     

       12
       +
        (name requests_json_api)

     

       13
       +
        (synopsis "JSON API helpers for the Requests HTTP client library")

     

       14
       +
        (description "Convenient combinators for working with JSON APIs using the Requests library")

     

       15
       +
        (depends

     

       16
       +
         (ocaml (>= 5.0))

     

       17
       +
         dune

     

       18
       +
         requests

     

       19
       +
         eio

     

       20
       +
         ezjsonm))

stack/requests_json_api/lib/dune

···

       1
       +
       (library

     

       2
       +
        (public_name requests_json_api)

     

       3
       +
        (name requests_json_api)

     

       4
       +
        (libraries requests eio ezjsonm))

+121

stack/requests_json_api/lib/requests_json_api.ml

···

       1
       +
       (** JSON API Helpers for Requests *)

     

       2
       +
       

     

       3
       +
       (** {1 Response Helpers} *)

     

       4
       +
       

     

       5
       +
       let read_body response = Requests.Response.body response |> Eio.Flow.read_all

     

       6
       +
       

     

       7
       +
       let status response = Requests.Response.status_code response

     

       8
       +
       

     

       9
       +
       let is_ok response = status response = 200

     

       10
       +
       

     

       11
       +
       let is_2xx response =

     

       12
       +
         let s = status response in

     

       13
       +
         s >= 200 && s < 300

     

       14
       +
       

     

       15
       +
       let check_2xx response =

     

       16
       +
         let status = status response in

     

       17
       +
         let body = read_body response in

     

       18
       +
         if status >= 200 && status < 300 then Ok body

     

       19
       +
         else Error (status, body)

     

       20
       +
       

     

       21
       +
       let check_ok response =

     

       22
       +
         let status = status response in

     

       23
       +
         let body = read_body response in

     

       24
       +
         if status = 200 then Ok body

     

       25
       +
         else Error (status, body)

     

       26
       +
       

     

       27
       +
       (** {1 Request Helpers with Status Checking} *)

     

       28
       +
       

     

       29
       +
       let get_ok session url =

     

       30
       +
         let response = Requests.get session url in

     

       31
       +
         if not (is_ok response) then

     

       32
       +
           failwith (Printf.sprintf "HTTP %d" (status response));

     

       33
       +
         read_body response

     

       34
       +
       

     

       35
       +
       let get_2xx session url =

     

       36
       +
         let response = Requests.get session url in

     

       37
       +
         if not (is_2xx response) then

     

       38
       +
           failwith (Printf.sprintf "HTTP %d" (status response));

     

       39
       +
         read_body response

     

       40
       +
       

     

       41
       +
       let get_result session url =

     

       42
       +
         try

     

       43
       +
           let response = Requests.get session url in

     

       44
       +
           check_2xx response

     

       45
       +
         with exn ->

     

       46
       +
           Error (0, Printexc.to_string exn)

     

       47
       +
       

     

       48
       +
       (** {1 JSON Helpers} *)

     

       49
       +
       

     

       50
       +
       let parse_json parser body_str =

     

       51
       +
         Ezjsonm.from_string body_str |> parser

     

       52
       +
       

     

       53
       +
       let parse_json_result parser body_str =

     

       54
       +
         try Ok (parse_json parser body_str)

     

       55
       +
         with exn -> Error (Printexc.to_string exn)

     

       56
       +
       

     

       57
       +
       let get_json_exn session url parser =

     

       58
       +
         get_2xx session url |> parse_json parser

     

       59
       +
       

     

       60
       +
       let get_json session url parser =

     

       61
       +
         match get_result session url with

     

       62
       +
         | Ok body ->

     

       63
       +
             (match parse_json_result parser body with

     

       64
       +
              | Ok result -> Ok result

     

       65
       +
              | Error msg -> Error (`Json_error msg))

     

       66
       +
         | Error (status, body) -> Error (`Http (status, body))

     

       67
       +
       

     

       68
       +
       let post_json session url json_value =

     

       69
       +
         let body_str = Ezjsonm.value_to_string json_value in

     

       70
       +
         let body = Requests.Body.of_string Requests.Mime.json body_str in

     

       71
       +
         Requests.post session url ~body

     

       72
       +
       

     

       73
       +
       let post_json_exn session url json_value =

     

       74
       +
         let response = post_json session url json_value in

     

       75
       +
         if not (is_2xx response) then

     

       76
       +
           failwith (Printf.sprintf "HTTP %d" (status response));

     

       77
       +
         read_body response

     

       78
       +
       

     

       79
       +
       let post_json_result session url json_value =

     

       80
       +
         try

     

       81
       +
           let response = post_json session url json_value in

     

       82
       +
           check_2xx response

     

       83
       +
         with exn ->

     

       84
       +
           Error (0, Printexc.to_string exn)

     

       85
       +
       

     

       86
       +
       (** {1 URL Helpers} *)

     

       87
       +
       

     

       88
       +
       let ( / ) base path =

     

       89
       +
         (* Handle trailing slash in base and leading slash in path *)

     

       90
       +
         let base = if String.ends_with ~suffix:"/" base then String.sub base 0 (String.length base - 1) else base in

     

       91
       +
         let path = if String.starts_with ~prefix:"/" path then String.sub path 1 (String.length path - 1) else path in

     

       92
       +
         base ^ "/" ^ path

     

       93
       +
       

     

       94
       +
       let make_url = ( / )

     

       95
       +
       

     

       96
       +
       (** {1 Let Syntax for Composition} *)

     

       97
       +
       

     

       98
       +
       module Syntax = struct

     

       99
       +
         let ( let* ) x f = Result.bind x f

     

       100
       +
         let ( let+ ) x f = Result.map f x

     

       101
       +
         let ( and* ) a b = match a, b with

     

       102
       +
           | Ok a, Ok b -> Ok (a, b)

     

       103
       +
           | Error e, _ | _, Error e -> Error e

     

       104
       +
         let ( and+ ) = ( and* )

     

       105
       +
       end

     

       106
       +
       

     

       107
       +
       (** {1 Convenience Combinators} *)

     

       108
       +
       

     

       109
       +
       let or_fail = function

     

       110
       +
         | Ok x -> x

     

       111
       +
         | Error (`Http (code, msg)) ->

     

       112
       +
             failwith (Printf.sprintf "HTTP %d: %s" code msg)

     

       113
       +
         | Error (`Json_error msg) ->

     

       114
       +
             failwith (Printf.sprintf "JSON error: %s" msg)

     

       115
       +
       

     

       116
       +
       let or_fail_with prefix = function

     

       117
       +
         | Ok x -> x

     

       118
       +
         | Error (`Http (code, msg)) ->

     

       119
       +
             failwith (Printf.sprintf "%s: HTTP %d: %s" prefix code msg)

     

       120
       +
         | Error (`Json_error msg) ->

     

       121
       +
             failwith (Printf.sprintf "%s: JSON error: %s" prefix msg)

+115

stack/requests_json_api/lib/requests_json_api.mli

···

       1
       +
       (** JSON API Helpers for Requests

     

       2
       +
       

     

       3
       +
           This module provides convenient combinators for working with JSON APIs,

     

       4
       +
           reducing boilerplate code for common patterns like:

     

       5
       +
           - Making requests and checking status codes

     

       6
       +
           - Reading response bodies as strings

     

       7
       +
           - Parsing JSON responses

     

       8
       +
           - Building URLs from base + path

     

       9
       +
           - Creating JSON request bodies

     

       10
       +
       

     

       11
       +
           {2 Example Usage}

     

       12
       +
       

     

       13
       +
           {[

     

       14
       +
             open Requests_json_api

     

       15
       +
       

     

       16
       +
             let fetch_users session =

     

       17
       +
               get_json_exn session (base_url / "users") parse_users

     

       18
       +
           ]}

     

       19
       +
       *)

     

       20
       +
       

     

       21
       +
       (** {1 Response Helpers} *)

     

       22
       +
       

     

       23
       +
       val read_body : Requests.Response.t -> string

     

       24
       +
       (** Read response body as a string. Equivalent to:

     

       25
       +
           [Requests.Response.body response |> Eio.Flow.read_all] *)

     

       26
       +
       

     

       27
       +
       val status : Requests.Response.t -> int

     

       28
       +
       (** Get status code. Alias for [Requests.Response.status_code] *)

     

       29
       +
       

     

       30
       +
       val is_ok : Requests.Response.t -> bool

     

       31
       +
       (** Check if status is exactly 200 *)

     

       32
       +
       

     

       33
       +
       val is_2xx : Requests.Response.t -> bool

     

       34
       +
       (** Check if status is in 200-299 range *)

     

       35
       +
       

     

       36
       +
       val check_2xx : Requests.Response.t -> (string, int * string) result

     

       37
       +
       (** Check if response is 2xx and return body, or error with (status, body) *)

     

       38
       +
       

     

       39
       +
       val check_ok : Requests.Response.t -> (string, int * string) result

     

       40
       +
       (** Check if response is 200 and return body, or error with (status, body) *)

     

       41
       +
       

     

       42
       +
       (** {1 Request Helpers with Status Checking} *)

     

       43
       +
       

     

       44
       +
       val get_ok : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> string

     

       45
       +
       (** [get_ok session url] makes a GET request and returns the body as string.

     

       46
       +
           Raises [Failure] if status is not 200. *)

     

       47
       +
       

     

       48
       +
       val get_2xx : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> string

     

       49
       +
       (** Like [get_ok] but accepts any 2xx status code.

     

       50
       +
           Raises [Failure] on non-2xx status. *)

     

       51
       +
       

     

       52
       +
       val get_result : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> (string, int * string) result

     

       53
       +
       (** [get_result session url] makes a GET request and returns Result.

     

       54
       +
           [Ok body] on 2xx, [Error (status, body)] otherwise. *)

     

       55
       +
       

     

       56
       +
       (** {1 JSON Helpers} *)

     

       57
       +
       

     

       58
       +
       val parse_json : (Ezjsonm.value -> 'a) -> string -> 'a

     

       59
       +
       (** [parse_json parser body_str] parses JSON string and applies parser.

     

       60
       +
           Raises exception on parse error. *)

     

       61
       +
       

     

       62
       +
       val parse_json_result : (Ezjsonm.value -> 'a) -> string -> ('a, string) result

     

       63
       +
       (** Like [parse_json] but returns Result on parse error. *)

     

       64
       +
       

     

       65
       +
       val get_json_exn : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> (Ezjsonm.value -> 'a) -> 'a

     

       66
       +
       (** [get_json_exn session url parser] does GET request, checks status is 2xx,

     

       67
       +
           reads body, parses JSON, and applies parser. Raises on any error. *)

     

       68
       +
       

     

       69
       +
       val get_json : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> (Ezjsonm.value -> 'a) ->

     

       70
       +
         ('a, [> `Http of int * string | `Json_error of string]) result

     

       71
       +
       (** Like [get_json_exn] but returns Result instead of raising. *)

     

       72
       +
       

     

       73
       +
       val post_json : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> Ezjsonm.value -> Requests.Response.t

     

       74
       +
       (** [post_json session url json_value] creates JSON body and POSTs it. *)

     

       75
       +
       

     

       76
       +
       val post_json_exn : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> Ezjsonm.value -> string

     

       77
       +
       (** Like [post_json] but checks status is 2xx and returns body. Raises on error. *)

     

       78
       +
       

     

       79
       +
       val post_json_result : (_ Eio.Time.clock, _ Eio.Net.t) Requests.t -> string -> Ezjsonm.value ->

     

       80
       +
         (string, int * string) result

     

       81
       +
       (** Like [post_json_exn] but returns Result. *)

     

       82
       +
       

     

       83
       +
       (** {1 URL Helpers} *)

     

       84
       +
       

     

       85
       +
       val ( / ) : string -> string -> string

     

       86
       +
       (** [base_url / path] joins base URL and path, handling trailing/leading slashes.

     

       87
       +
           Example: ["https://api.com" / "users" / "123"] *)

     

       88
       +
       

     

       89
       +
       val make_url : string -> string -> string

     

       90
       +
       (** [make_url base_url path] is the function form of [/]. *)

     

       91
       +
       

     

       92
       +
       (** {1 Let Syntax for Composition} *)

     

       93
       +
       

     

       94
       +
       module Syntax : sig

     

       95
       +
         val ( let* ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result

     

       96
       +
         (** Result bind operator for chaining operations *)

     

       97
       +
       

     

       98
       +
         val ( let+ ) : ('a, 'e) result -> ('a -> 'b) -> ('b, 'e) result

     

       99
       +
         (** Result map operator *)

     

       100
       +
       

     

       101
       +
         val ( and* ) : ('a, 'e) result -> ('b, 'e) result -> ('a * 'b, 'e) result

     

       102
       +
         (** Result product for parallel operations *)

     

       103
       +
       

     

       104
       +
         val ( and+ ) : ('a, 'e) result -> ('b, 'e) result -> ('a * 'b, 'e) result

     

       105
       +
         (** Result product for parallel operations (alias) *)

     

       106
       +
       end

     

       107
       +
       

     

       108
       +
       (** {1 Convenience Combinators} *)

     

       109
       +
       

     

       110
       +
       val or_fail : ('a, [< `Http of int * string | `Json_error of string]) result -> 'a

     

       111
       +
       (** [or_fail result] unwraps a result or raises [Failure] with error message.

     

       112
       +
           Useful for converting Result-based APIs to exception-based. *)

     

       113
       +
       

     

       114
       +
       val or_fail_with : string -> ('a, [< `Http of int * string | `Json_error of string]) result -> 'a

     

       115
       +
       (** Like [or_fail] but with custom error prefix. *)

+33

stack/requests_json_api/requests_json_api.opam

···

       1
       +
       # This file is generated by dune, edit dune-project instead

     

       2
       +
       opam-version: "2.0"

     

       3
       +
       synopsis: "JSON API helpers for the Requests HTTP client library"

     

       4
       +
       description:

     

       5
       +
         "Convenient combinators for working with JSON APIs using the Requests library"

     

       6
       +
       maintainer: ["Your Name"]

     

       7
       +
       authors: ["Your Name"]

     

       8
       +
       license: "MIT"

     

       9
       +
       homepage: "https://github.com/yourusername/requests_json_api"

     

       10
       +
       bug-reports: "https://github.com/yourusername/requests_json_api/issues"

     

       11
       +
       depends: [

     

       12
       +
         "ocaml" {>= "5.0"}

     

       13
       +
         "dune" {>= "3.0"}

     

       14
       +
         "requests"

     

       15
       +
         "eio"

     

       16
       +
         "ezjsonm"

     

       17
       +
         "odoc" {with-doc}

     

       18
       +
       ]

     

       19
       +
       build: [

     

       20
       +
         ["dune" "subst"] {dev}

     

       21
       +
         [

     

       22
       +
           "dune"

     

       23
       +
           "build"

     

       24
       +
           "-p"

     

       25
       +
           name

     

       26
       +
           "-j"

     

       27
       +
           jobs

     

       28
       +
           "@install"

     

       29
       +
           "@runtest" {with-test}

     

       30
       +
           "@doc" {with-doc}

     

       31
       +
         ]

     

       32
       +
       ]

     

       33
       +
       dev-repo: "git+https://github.com/yourusername/requests_json_api.git"

+1 -1

stack/typesense-cliente/dune

···

       1
        
       (library

     

       2
        
        (public_name typesense-cliente)

     

       3
        
        (name typesense_cliente)

     

       4
       -
        (libraries eio requests ezjsonm fmt uri ptime))

···

       1
        
       (library

     

       2
        
        (public_name typesense-cliente)

     

       3
        
        (name typesense_cliente)

     

       4
       +
        (libraries eio requests requests_json_api ezjsonm fmt uri ptime))

+20 -30

stack/typesense-cliente/typesense_cliente.ml

···

       35
        
       

     

       36
        
       (** Make HTTP request to Typesense API *)

     

       37
        
       let make_request client ?(meth=`GET) ?(body="") path =

     

       0
        
       
     

       38
        
         let uri = Uri.of_string (client.config.endpoint ^ path) in

     

       39
        
         let body = if body = "" then None else Some (Requests.Body.of_string Requests.Mime.json body) in

     

       40
        
       

     
···

       45
        
             (Uri.to_string uri)

     

       46
        
           in

     

       47
        
       

     

       48
       -
           let status = Requests.Response.status_code response in

     

       49
       -
           let body_flow = Requests.Response.body response in

     

       50
       -
           let body_str = Eio.Flow.read_all body_flow in

     

       51
       -
       

     

       52
       -
           if status >= 200 && status < 300 then

     

       53
       -
             Ok body_str

     

       54
       -
           else

     

       55
       -
             Error (Http_error (status, body_str))

     

       56
        
         with exn ->

     

       57
        
           Error (Connection_error (Printexc.to_string exn))

     

       58
        
       

     
···

       132
        
       

     

       133
        
         match make_request client path with

     

       134
        
         | Ok response_str ->

     

       135
       -
           (try

     

       136
       -
             let json = Ezjsonm.from_string response_str in

     

       137
       -
             let search_response = parse_search_response collection_name json in

     

       138
       -
             Ok search_response

     

       139
       -
           with exn ->

     

       140
       -
             Error (Json_error (Printexc.to_string exn)))

     

       141
        
         | Error err -> Error err

     

       142
        
       

     

       143
        
       (** Helper function to drop n elements from list *)

     
···

       206
        
       

     

       207
        
         match make_request client ~meth:`POST ~body "/multi_search" with

     

       208
        
         | Ok response_str ->

     

       209
       -
           (try

     

       210
       -
             let json = Ezjsonm.from_string response_str in

     

       211
       -
             let multisearch_resp = parse_multisearch_response json in

     

       212
       -
             Ok multisearch_resp

     

       213
       -
           with exn ->

     

       214
       -
             Error (Json_error (Printexc.to_string exn)))

     

       215
        
         | Error err -> Error err

     

       216
        
       

     

       217
        
       (** Combine multisearch results into single result set *)

     
···

       236
        
       

     

       237
        
       (** List all collections *)

     

       238
        
       let list_collections client =

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       239
        
         match make_request client "/collections" with

     

       240
        
         | Ok response_str ->

     

       241
       -
           (try

     

       242
       -
             let json = Ezjsonm.from_string response_str in

     

       243
       -
             let collections = Ezjsonm.get_list (fun c ->

     

       244
       -
               let name = Ezjsonm.get_dict c |> List.assoc "name" |> Ezjsonm.get_string in

     

       245
       -
               let num_docs = Ezjsonm.get_dict c |> List.assoc "num_documents" |> Ezjsonm.get_int in

     

       246
       -
               (name, num_docs)

     

       247
       -
             ) json in

     

       248
       -
             Ok collections

     

       249
       -
           with exn ->

     

       250
       -
             Error (Json_error (Printexc.to_string exn)))

     

       251
        
         | Error err -> Error err

     

       252
        
       

     

       253
        
       (** Pretty printer utilities *)

···

       35
        
       

     

       36
        
       (** Make HTTP request to Typesense API *)

     

       37
        
       let make_request client ?(meth=`GET) ?(body="") path =

     

       38
       +
         let open Requests_json_api in

     

       39
        
         let uri = Uri.of_string (client.config.endpoint ^ path) in

     

       40
        
         let body = if body = "" then None else Some (Requests.Body.of_string Requests.Mime.json body) in

     

       41
        
       

     
···

       46
        
             (Uri.to_string uri)

     

       47
        
           in

     

       48
        
       

     

       49
       +
           match check_2xx response with

     

       50
       +
           | Ok body_str -> Ok body_str

     

       51
       +
           | Error (status, body_str) -> Error (Http_error (status, body_str))

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       52
        
         with exn ->

     

       53
        
           Error (Connection_error (Printexc.to_string exn))

     

       54
        
       

     
···

       128
        
       

     

       129
        
         match make_request client path with

     

       130
        
         | Ok response_str ->

     

       131
       +
             (match Requests_json_api.parse_json_result (parse_search_response collection_name) response_str with

     

       132
       +
              | Ok search_response -> Ok search_response

     

       133
       +
              | Error msg -> Error (Json_error msg))

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       134
        
         | Error err -> Error err

     

       135
        
       

     

       136
        
       (** Helper function to drop n elements from list *)

     
···

       199
        
       

     

       200
        
         match make_request client ~meth:`POST ~body "/multi_search" with

     

       201
        
         | Ok response_str ->

     

       202
       +
             (match Requests_json_api.parse_json_result parse_multisearch_response response_str with

     

       203
       +
              | Ok multisearch_resp -> Ok multisearch_resp

     

       204
       +
              | Error msg -> Error (Json_error msg))

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       205
        
         | Error err -> Error err

     

       206
        
       

     

       207
        
       (** Combine multisearch results into single result set *)

     
···

       226
        
       

     

       227
        
       (** List all collections *)

     

       228
        
       let list_collections client =

     

       229
       +
         let parse_collections json =

     

       230
       +
           Ezjsonm.get_list (fun c ->

     

       231
       +
             let name = Ezjsonm.get_dict c |> List.assoc "name" |> Ezjsonm.get_string in

     

       232
       +
             let num_docs = Ezjsonm.get_dict c |> List.assoc "num_documents" |> Ezjsonm.get_int in

     

       233
       +
             (name, num_docs)

     

       234
       +
           ) json

     

       235
       +
         in

     

       236
        
         match make_request client "/collections" with

     

       237
        
         | Ok response_str ->

     

       238
       +
             (match Requests_json_api.parse_json_result parse_collections response_str with

     

       239
       +
              | Ok collections -> Ok collections

     

       240
       +
              | Error msg -> Error (Json_error msg))

     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       0
        
       
     

       241
        
         | Error err -> Error err

     

       242
        
       

     

       243
        
       (** Pretty printer utilities *)