+17 -34

bin/opeertube.ml

··· 193 193 handle_api_error @@ fun () -> 194 194 Eio_main.run @@ fun env -> 195 195 Eio.Switch.run @@ fun sw -> 196 196 - let session = Requests.create ~sw env in 197 197 - let client = Peertube.Client.create ~session ~base_url in 196 196 + let client = Peertube.Client.create ~sw env ~base_url in 198 197 if all then begin 199 198 let videos = 200 199 Peertube.Client.fetch_all_channel_videos client ?max_pages ··· 226 225 handle_api_error @@ fun () -> 227 226 Eio_main.run @@ fun env -> 228 227 Eio.Switch.run @@ fun sw -> 229 229 - let session = Requests.create ~sw env in 230 230 - let client = Peertube.Client.create ~session ~base_url in 228 228 + let client = Peertube.Client.create ~sw env ~base_url in 231 229 let response = Peertube.Client.list_videos client ~count ~start () in 232 230 Fmt.pr "Showing %d of %d videos (offset %d)@.@." 233 231 (List.length (Peertube.Paginated.data response)) ··· 247 245 handle_api_error @@ fun () -> 248 246 Eio_main.run @@ fun env -> 249 247 Eio.Switch.run @@ fun sw -> 250 250 - let session = Requests.create ~sw env in 251 251 - let client = Peertube.Client.create ~session ~base_url in 248 248 + let client = Peertube.Client.create ~sw env ~base_url in 252 249 let response = Peertube.Client.search_videos client ~query ~count ~start () in 253 250 Fmt.pr "Found %d results for '%s' (showing %d, offset %d)@.@." 254 251 (Peertube.Paginated.total response) ··· 269 266 handle_api_error @@ fun () -> 270 267 Eio_main.run @@ fun env -> 271 268 Eio.Switch.run @@ fun sw -> 272 272 - let session = Requests.create ~sw env in 273 273 - let client = Peertube.Client.create ~session ~base_url in 269 269 + let client = Peertube.Client.create ~sw env ~base_url in 274 270 let video = Peertube.Client.fetch_video_details client ~uuid () in 275 271 print_video ~json video 276 272 ··· 285 281 handle_api_error @@ fun () -> 286 282 Eio_main.run @@ fun env -> 287 283 Eio.Switch.run @@ fun sw -> 288 288 - let session = Requests.create ~sw env in 289 289 - let client = Peertube.Client.create ~session ~base_url in 284 284 + let client = Peertube.Client.create ~sw env ~base_url in 290 285 let video = Peertube.Client.fetch_video_details client ~uuid () in 291 286 match 292 287 Peertube.Client.download_thumbnail client ~video ~output_path:output () ··· 310 305 handle_api_error @@ fun () -> 311 306 Eio_main.run @@ fun env -> 312 307 Eio.Switch.run @@ fun sw -> 313 313 - let session = Requests.create ~sw env in 314 314 - let client = Peertube.Client.create ~session ~base_url in 308 308 + let client = Peertube.Client.create ~sw env ~base_url in 315 309 let response = Peertube.Client.list_channels client ~count ~start () in 316 310 Fmt.pr "Showing %d of %d channels (offset %d)@.@." 317 311 (List.length (Peertube.Paginated.data response)) ··· 331 325 handle_api_error @@ fun () -> 332 326 Eio_main.run @@ fun env -> 333 327 Eio.Switch.run @@ fun sw -> 334 334 - let session = Requests.create ~sw env in 335 335 - let client = Peertube.Client.create ~session ~base_url in 328 328 + let client = Peertube.Client.create ~sw env ~base_url in 336 329 let response = 337 330 Peertube.Client.search_channels client ~query ~count ~start () 338 331 in ··· 355 348 handle_api_error @@ fun () -> 356 349 Eio_main.run @@ fun env -> 357 350 Eio.Switch.run @@ fun sw -> 358 358 - let session = Requests.create ~sw env in 359 359 - let client = Peertube.Client.create ~session ~base_url in 351 351 + let client = Peertube.Client.create ~sw env ~base_url in 360 352 let channel = Peertube.Client.get_channel client ~handle () in 361 353 print_channel ~json channel 362 354 ··· 378 370 handle_api_error @@ fun () -> 379 371 Eio_main.run @@ fun env -> 380 372 Eio.Switch.run @@ fun sw -> 381 381 - let session = Requests.create ~sw env in 382 382 - let client = Peertube.Client.create ~session ~base_url in 373 373 + let client = Peertube.Client.create ~sw env ~base_url in 383 374 let response = Peertube.Client.list_accounts client ~count ~start () in 384 375 Fmt.pr "Showing %d of %d accounts (offset %d)@.@." 385 376 (List.length (Peertube.Paginated.data response)) ··· 399 390 handle_api_error @@ fun () -> 400 391 Eio_main.run @@ fun env -> 401 392 Eio.Switch.run @@ fun sw -> 402 402 - let session = Requests.create ~sw env in 403 403 - let client = Peertube.Client.create ~session ~base_url in 393 393 + let client = Peertube.Client.create ~sw env ~base_url in 404 394 let account = Peertube.Client.get_account client ~handle () in 405 395 print_account ~json account 406 396 ··· 415 405 handle_api_error @@ fun () -> 416 406 Eio_main.run @@ fun env -> 417 407 Eio.Switch.run @@ fun sw -> 418 418 - let session = Requests.create ~sw env in 419 419 - let client = Peertube.Client.create ~session ~base_url in 408 408 + let client = Peertube.Client.create ~sw env ~base_url in 420 409 let response = 421 410 Peertube.Client.get_account_videos client ~count ~start ~handle () 422 411 in ··· 445 434 handle_api_error @@ fun () -> 446 435 Eio_main.run @@ fun env -> 447 436 Eio.Switch.run @@ fun sw -> 448 448 - let session = Requests.create ~sw env in 449 449 - let client = Peertube.Client.create ~session ~base_url in 437 437 + let client = Peertube.Client.create ~sw env ~base_url in 450 438 let response = Peertube.Client.list_playlists client ~count ~start () in 451 439 Fmt.pr "Showing %d of %d playlists (offset %d)@.@." 452 440 (List.length (Peertube.Paginated.data response)) ··· 466 454 handle_api_error @@ fun () -> 467 455 Eio_main.run @@ fun env -> 468 456 Eio.Switch.run @@ fun sw -> 469 469 - let session = Requests.create ~sw env in 470 470 - let client = Peertube.Client.create ~session ~base_url in 457 457 + let client = Peertube.Client.create ~sw env ~base_url in 471 458 let response = 472 459 Peertube.Client.search_playlists client ~query ~count ~start () 473 460 in ··· 490 477 handle_api_error @@ fun () -> 491 478 Eio_main.run @@ fun env -> 492 479 Eio.Switch.run @@ fun sw -> 493 493 - let session = Requests.create ~sw env in 494 494 - let client = Peertube.Client.create ~session ~base_url in 480 480 + let client = Peertube.Client.create ~sw env ~base_url in 495 481 let playlist = Peertube.Client.get_playlist client ~id () in 496 482 print_playlist ~json playlist 497 483 ··· 506 492 handle_api_error @@ fun () -> 507 493 Eio_main.run @@ fun env -> 508 494 Eio.Switch.run @@ fun sw -> 509 509 - let session = Requests.create ~sw env in 510 510 - let client = Peertube.Client.create ~session ~base_url in 495 495 + let client = Peertube.Client.create ~sw env ~base_url in 511 496 let response = 512 497 Peertube.Client.get_playlist_videos client ~count ~start ~id () 513 498 in ··· 549 534 handle_api_error @@ fun () -> 550 535 Eio_main.run @@ fun env -> 551 536 Eio.Switch.run @@ fun sw -> 552 552 - let session = Requests.create ~sw env in 553 553 - let client = Peertube.Client.create ~session ~base_url in 537 537 + let client = Peertube.Client.create ~sw env ~base_url in 554 538 let config = Peertube.Client.get_config client () in 555 539 if json then print_json Peertube.Server_config.jsont config 556 540 else begin ··· 578 562 handle_api_error @@ fun () -> 579 563 Eio_main.run @@ fun env -> 580 564 Eio.Switch.run @@ fun sw -> 581 581 - let session = Requests.create ~sw env in 582 582 - let client = Peertube.Client.create ~session ~base_url in 565 565 + let client = Peertube.Client.create ~sw env ~base_url in 583 566 let stats = Peertube.Client.get_stats client () in 584 567 if json then print_json Peertube.Server_stats.jsont stats 585 568 else begin

+18 -6

lib/peertube.mli

··· 14 14 let () = 15 15 Eio_main.run @@ fun env -> 16 16 Eio.Switch.run @@ fun sw -> 17 17 - let session = Requests.create ~sw env in 18 18 - let client = Client.create ~session ~base_url:"https://framatube.org" in 17 17 + let client = Client.create ~sw env ~base_url:"https://framatube.org" in 19 18 20 19 (* List recent videos *) 21 20 let videos = Client.list_videos client () in ··· 815 814 Functions raise {!Client.Api_error} on HTTP errors. 816 815 817 816 {[ 818 818 - let client = Client.create ~session ~base_url:"https://framatube.org" in 817 817 + let client = Client.create ~sw env ~base_url:"https://framatube.org" in 819 818 let videos = Client.list_videos client () in 820 819 ... 821 820 ]} *) ··· 828 827 Encapsulates the HTTP client and base URL for making API requests. In 829 828 future, this may also contain authentication credentials. *) 830 829 831 831 - val create : session:Requests.t -> base_url:string -> t 832 832 - (** [create ~session ~base_url] creates a new PeerTube API session. 830 830 + val create : 831 831 + ?session:Requests.t -> 832 832 + sw:Eio.Switch.t -> 833 833 + < clock : _ Eio.Time.clock 834 834 + ; net : _ Eio.Net.t 835 835 + ; fs : Eio.Fs.dir_ty Eio.Path.t 836 836 + ; .. > -> 837 837 + base_url:string -> 838 838 + t 839 839 + (** [create ?session ~sw env ~base_url] creates a new PeerTube API session. 833 840 834 834 - @param session HTTP client session from the Requests library 841 841 + If [session] is not provided, a new HTTP session is created using the 842 842 + given switch and environment. If [session] is provided, it is reused. 843 843 + 844 844 + @param session Optional existing HTTP client session to reuse 845 845 + @param sw Eio switch for resource management 846 846 + @param env Eio environment with clock, net, and fs capabilities 835 847 @param base_url 836 848 Base URL of the PeerTube instance (e.g., "https://framatube.org") *) 837 849

+6 -1

lib/peertube_client.ml

··· 3 3 type t = { session : Requests.t; base_url : string } 4 4 (** Session type encapsulating HTTP client and base URL. *) 5 5 6 6 - let create ~session ~base_url = { session; base_url } 6 6 + let create ?session ~sw env ~base_url = 7 7 + let session = match session with 8 8 + | Some s -> s 9 9 + | None -> Requests.create ~sw env 10 10 + in 11 11 + { session; base_url } 7 12 let base_url t = t.base_url 8 13 let http_session t = t.session 9 14 let log_src = Logs.Src.create "peertube" ~doc:"PeerTube API client"

+16 -3

lib/peertube_client.mli

··· 11 11 Encapsulates the HTTP client and base URL for making API requests. In 12 12 future, this may also contain authentication credentials. *) 13 13 14 14 - val create : session:Requests.t -> base_url:string -> t 15 15 - (** [create ~session ~base_url] creates a new PeerTube API session. 14 14 + val create : 15 15 + ?session:Requests.t -> 16 16 + sw:Eio.Switch.t -> 17 17 + < clock : _ Eio.Time.clock 18 18 + ; net : _ Eio.Net.t 19 19 + ; fs : Eio.Fs.dir_ty Eio.Path.t 20 20 + ; .. > -> 21 21 + base_url:string -> 22 22 + t 23 23 + (** [create ?session ~sw env ~base_url] creates a new PeerTube API session. 24 24 + 25 25 + If [session] is not provided, a new HTTP session is created using the 26 26 + given switch and environment. If [session] is provided, it is reused. 16 27 17 17 - @param session HTTP client session from the Requests library 28 28 + @param session Optional existing HTTP client session to reuse 29 29 + @param sw Eio switch for resource management 30 30 + @param env Eio environment with clock, net, and fs capabilities 18 31 @param base_url 19 32 Base URL of the PeerTube instance (e.g., "https://framatube.org") *) 20 33