My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1open Cmdliner
2
3let main _env xdg profile =
4 Logs.app (fun m -> m "Starting example application");
5
6 (* Show XDG paths *)
7 let config_dir = Xdge.config_dir xdg in
8 Logs.info (fun m -> m "Config dir: %a" Eio.Path.pp config_dir);
9
10 let cache_dir = Xdge.cache_dir xdg in
11 Logs.info (fun m -> m "Cache dir: %a" Eio.Path.pp cache_dir);
12
13 let data_dir = Xdge.data_dir xdg in
14 Logs.info (fun m -> m "Data dir: %a" Eio.Path.pp data_dir);
15
16 (* Show profile info *)
17 Logs.info (fun m -> m "Profile keys: %a"
18 Fmt.(list ~sep:comma string)
19 (Keyeio.Profile.keys profile));
20
21 0
22
23let () =
24 let info = Cmd.info "eiocmd-example"
25 ~version:"0.1.0"
26 ~doc:"Example application using eiocmd"
27 in
28 let cmd = Eiocmd.run
29 ~info
30 ~app_name:"eiocmd-example"
31 ~service:"example"
32 Term.(const main)
33 in
34 exit (Cmd.eval' cmd)