stack/keyeio/example/keyeio_example.ml at main

anil.recoil.org / slop
fork
My agentic slop goes here. Not intended for anyone else!
fork
slop / stack / keyeio / example / keyeio_example.ml
at main 185 lines 6.3 kB view raw
wrap content
anil.recoil.org sync 5mo ago
a7b2a919
  1(** Example demonstrating keyeio library usage *)
  2
  3open Cmdliner
  4
  5(** Example 1: Basic usage with single service *)
  6let basic_example (_xdg, _xdg_cmd) profile =
  7  Fmt.pr "=== Basic Example ===@.";
  8  Fmt.pr "Service: %s@." (Keyeio.Profile.service profile);
  9  Fmt.pr "Profile: %s@." (Keyeio.Profile.name profile);
 10
 11  (* Get required API key *)
 12  let api_key = Keyeio.Profile.get_required profile ~key:"api_key" in
 13  Fmt.pr "API Key loaded: %s@." (String.sub api_key 0 (min 10 (String.length api_key)) ^ "...");
 14
 15  (* Get optional base URL *)
 16  (match Keyeio.Profile.get profile ~key:"base_url" with
 17  | Some url -> Fmt.pr "Base URL: %s@." url
 18  | None -> Fmt.pr "No base URL configured@.");
 19
 20  (* List all available keys *)
 21  let keys = Keyeio.Profile.keys profile in
 22  Fmt.pr "Available keys: %a@." Fmt.(list ~sep:comma string) keys;
 23
 24  (* Pretty print the profile *)
 25  Fmt.pr "@.Profile details:@.%a@." Keyeio.Profile.pp profile;
 26  0
 27
 28(** Example 2: List all services *)
 29let list_services_example (xdg, _xdg_cmd) =
 30  Fmt.pr "=== List Services Example ===@.";
 31
 32  let keyeio = Keyeio.create xdg in
 33
 34  match Keyeio.list_services keyeio with
 35  | Ok services ->
 36      if services = [] then
 37        Fmt.pr "No services configured yet@."
 38      else begin
 39        Fmt.pr "Available services:@.";
 40        List.iter (fun svc -> Fmt.pr "  - %s@." svc) services
 41      end;
 42      0
 43  | Error (`Msg msg) ->
 44      Fmt.epr "Error listing services: %s@." msg;
 45      1
 46
 47(** Example 3: Load service and list profiles *)
 48let list_profiles_example (xdg, _xdg_cmd) service_name =
 49  Fmt.pr "=== List Profiles Example ===@.";
 50
 51  let keyeio = Keyeio.create xdg in
 52
 53  match Keyeio.load_service keyeio ~service:service_name with
 54  | Ok service ->
 55      Fmt.pr "Service: %s@." (Keyeio.Service.name service);
 56
 57      let profiles = Keyeio.Service.profile_names service in
 58      Fmt.pr "Available profiles:@.";
 59      List.iter (fun name ->
 60        Fmt.pr "  - %s" name;
 61        match Keyeio.Service.get_profile service name with
 62        | Some prof ->
 63            let keys = Keyeio.Profile.keys prof in
 64            Fmt.pr " (keys: %a)" Fmt.(list ~sep:comma string) keys
 65        | None -> ()
 66      ) profiles;
 67      Fmt.pr "@.";
 68
 69      (* Pretty print the service *)
 70      Fmt.pr "@.Service details:@.%a@." Keyeio.Service.pp service;
 71      0
 72  | Error (`Msg msg) ->
 73      Fmt.epr "Error loading service '%s': %s@." service_name msg;
 74      1
 75
 76(** Example 4: Simulated API client using loaded credentials *)
 77let api_client_example (_xdg, _xdg_cmd) profile =
 78  Fmt.pr "=== API Client Example ===@.";
 79
 80  (* Simulate creating an API client with loaded credentials *)
 81  let api_key = Keyeio.Profile.get_required profile ~key:"api_key" in
 82  let base_url = Keyeio.Profile.get profile ~key:"base_url"
 83    |> Option.value ~default:"https://api.example.com" in
 84
 85  Fmt.pr "Creating API client for %s@." (Keyeio.Profile.service profile);
 86  Fmt.pr "  Base URL: %s@." base_url;
 87  Fmt.pr "  Profile: %s@." (Keyeio.Profile.name profile);
 88  Fmt.pr "  Authenticated: yes@.";
 89
 90  (* Simulate making an API call *)
 91  Fmt.pr "@.Simulating API request...@.";
 92  Fmt.pr "GET %s/api/status@." base_url;
 93  Fmt.pr "Authorization: Bearer %s@." (String.sub api_key 0 (min 8 (String.length api_key)) ^ "...");
 94  Fmt.pr "@.Response: 200 OK@.";
 95  0
 96
 97(** Main command dispatcher *)
 98let () =
 99  Eio_main.run @@ fun env ->
100
101  (* Common terms *)
102  let xdg_term = Xdge.Cmd.term "keyeio-example" env#fs () in
103
104  (* Command: basic - Basic usage example *)
105  let basic_cmd =
106    let profile_term = Keyeio.Cmd.term
107      ~app_name:"keyeio-example"
108      ~fs:env#fs
109      ~service:"immiche"
110      () in
111    let info = Cmd.info "basic" ~doc:"Basic keyeio usage example" in
112    Cmd.v info Term.(const basic_example $ xdg_term $ profile_term)
113  in
114
115  (* Command: list - List all services *)
116  let list_cmd =
117    let info = Cmd.info "list" ~doc:"List all configured services" in
118    Cmd.v info Term.(const list_services_example $ xdg_term)
119  in
120
121  (* Command: profiles - List profiles for a service *)
122  let profiles_cmd =
123    let service_arg =
124      let doc = "Service name to inspect" in
125      Arg.(required & pos 0 (some string) None & info [] ~docv:"SERVICE" ~doc)
126    in
127    let info = Cmd.info "profiles" ~doc:"List profiles for a service" in
128    Cmd.v info Term.(const list_profiles_example $ xdg_term $ service_arg)
129  in
130
131  (* Command: client - API client simulation *)
132  let client_cmd =
133    let profile_term = Keyeio.Cmd.term
134      ~app_name:"keyeio-example"
135      ~fs:env#fs
136      ~service:"immiche"
137      ~profile:"default"
138      () in
139    let info = Cmd.info "client" ~doc:"Simulate API client with credentials" in
140    Cmd.v info Term.(const api_client_example $ xdg_term $ profile_term)
141  in
142
143  (* Command: init - Create a keyfile *)
144  let init_cmd =
145    let default_data = [
146      ("api_key", None);  (* Will prompt if not provided *)
147      ("base_url", Some "https://immich.example.com")  (* Has default *)
148    ] in
149    let init_term = Keyeio.Cmd.create_term
150      ~app_name:"keyeio-example"
151      ~fs:env#fs
152      ~service:"immiche"
153      ~default_data
154      ()
155    in
156    let info = Cmd.info "init" ~doc:"Create keyeio credentials" in
157    Cmd.v info init_term
158  in
159
160  (* Main command group *)
161  let main_cmd =
162    let info = Cmd.info "keyeio-example"
163      ~version:"0.1.0"
164      ~doc:"Examples demonstrating keyeio library usage"
165      ~man:[
166        `S Manpage.s_description;
167        `P "This program demonstrates various usage patterns for the keyeio library.";
168        `P "Keyeio provides secure API key storage using XDG directories with support for multiple profiles per service.";
169        `S "EXAMPLES";
170        `P "List all configured services:";
171        `Pre "  $(b,keyeio-example list)";
172        `P "Show profiles for a service:";
173        `Pre "  $(b,keyeio-example profiles immiche)";
174        `P "Basic usage with default profile:";
175        `Pre "  $(b,keyeio-example basic)";
176        `P "Use a specific profile:";
177        `Pre "  $(b,keyeio-example basic --profile production)";
178        `P "Simulate an API client:";
179        `Pre "  $(b,keyeio-example client --profile staging)";
180      ]
181    in
182    Cmd.group info [init_cmd; basic_cmd; list_cmd; profiles_cmd; client_cmd]
183  in
184
185  exit (Cmd.eval' main_cmd)
Configure Feed

Configure Feed
