+2

sortal/bin/sortal_cli.ml

··· 42 43 let list_cmd = make_term Sortal.Cmd.list_info (Term.const Sortal.Cmd.list_cmd) in 44 let show_cmd = make_term Sortal.Cmd.show_info Term.(const Sortal.Cmd.show_cmd $ Sortal.Cmd.handle_arg) in 0 45 let search_cmd = make_term Sortal.Cmd.search_info Term.(const Sortal.Cmd.search_cmd $ Sortal.Cmd.query_arg) in 46 let stats_cmd = make_term Sortal.Cmd.stats_info Term.(const (fun () -> Sortal.Cmd.stats_cmd ()) $ const ()) in 47 let sync_cmd = make_term Sortal.Cmd.sync_info Term.(const (fun () -> Sortal.Cmd.sync_cmd ()) $ const ()) in ··· 230 let cmd = Cmd.group info ~default:default_term [ 231 list_cmd; 232 show_cmd; 0 233 search_cmd; 234 stats_cmd; 235 sync_cmd;

··· 42 43 let list_cmd = make_term Sortal.Cmd.list_info (Term.const Sortal.Cmd.list_cmd) in 44 let show_cmd = make_term Sortal.Cmd.show_info Term.(const Sortal.Cmd.show_cmd $ Sortal.Cmd.handle_arg) in 45 + let thumbnail_cmd = make_term Sortal.Cmd.thumbnail_info Term.(const Sortal.Cmd.thumbnail_cmd $ Sortal.Cmd.handle_arg) in 46 let search_cmd = make_term Sortal.Cmd.search_info Term.(const Sortal.Cmd.search_cmd $ Sortal.Cmd.query_arg) in 47 let stats_cmd = make_term Sortal.Cmd.stats_info Term.(const (fun () -> Sortal.Cmd.stats_cmd ()) $ const ()) in 48 let sync_cmd = make_term Sortal.Cmd.sync_info Term.(const (fun () -> Sortal.Cmd.sync_cmd ()) $ const ()) in ··· 231 let cmd = Cmd.group info ~default:default_term [ 232 list_cmd; 233 show_cmd; 234 + thumbnail_cmd; 235 search_cmd; 236 stats_cmd; 237 sync_cmd;

+1

sortal/lib/core/sortal.ml

··· 19 let delete = Store.delete 20 let list = Store.list 21 let thumbnail_path = Store.thumbnail_path 0 22 let find_by_name = Store.find_by_name 23 let find_by_name_opt = Store.find_by_name_opt 24 let search_all = Store.search_all

··· 19 let delete = Store.delete 20 let list = Store.list 21 let thumbnail_path = Store.thumbnail_path 22 + let png_thumbnail_path = Store.png_thumbnail_path 23 let find_by_name = Store.find_by_name 24 let find_by_name_opt = Store.find_by_name_opt 25 let search_all = Store.search_all

+4

sortal/lib/core/sortal.mli

··· 98 See {!Store.thumbnail_path} for details. *) 99 val thumbnail_path : t -> Contact.t -> Eio.Fs.dir_ty Eio.Path.t option 100 0 0 0 0 101 (** [find_by_name t name] searches for contacts by name. 102 See {!Store.find_by_name} for details. *) 103 val find_by_name : t -> string -> Contact.t

··· 98 See {!Store.thumbnail_path} for details. *) 99 val thumbnail_path : t -> Contact.t -> Eio.Fs.dir_ty Eio.Path.t option 100 101 + (** [png_thumbnail_path t contact] returns the path to the PNG version of a contact's thumbnail. 102 + See {!Store.png_thumbnail_path} for details. *) 103 + val png_thumbnail_path : t -> Contact.t -> Eio.Fs.dir_ty Eio.Path.t option 104 + 105 (** [find_by_name t name] searches for contacts by name. 106 See {!Store.find_by_name} for details. *) 107 val find_by_name : t -> string -> Contact.t

+14

sortal/lib/core/sortal_cmd.ml

··· 42 0 43 | None -> Logs.err (fun m -> m "Contact not found: %s" handle); 1 44 0 0 0 0 0 0 0 0 0 0 0 0 0 45 let search_cmd query xdg = 46 let store = Sortal_store.create_from_xdg xdg in 47 match Sortal_store.search_all store query with ··· 314 (* Command info and args *) 315 let list_info = Cmd.info "list" ~doc:"List all contacts" 316 let show_info = Cmd.info "show" ~doc:"Show detailed information about a contact" 0 317 let search_info = Cmd.info "search" ~doc:"Search contacts by name" 318 let stats_info = Cmd.info "stats" ~doc:"Show statistics about the contact database" 319 let sync_info = Cmd.info "sync" ~doc:"Synchronize and normalize contact data"

··· 42 0 43 | None -> Logs.err (fun m -> m "Contact not found: %s" handle); 1 44 45 + let thumbnail_cmd handle xdg = 46 + let store = Sortal_store.create_from_xdg xdg in 47 + match Sortal_store.lookup store handle with 48 + | None -> Logs.err (fun m -> m "Contact not found: %s" handle); 1 49 + | Some c -> 50 + match Sortal_store.thumbnail_path store c with 51 + | Some path -> 52 + Printf.printf "%s\n" (Eio.Path.native_exn path); 53 + 0 54 + | None -> 55 + Logs.err (fun m -> m "No thumbnail for contact: %s" handle); 56 + 1 57 + 58 let search_cmd query xdg = 59 let store = Sortal_store.create_from_xdg xdg in 60 match Sortal_store.search_all store query with ··· 327 (* Command info and args *) 328 let list_info = Cmd.info "list" ~doc:"List all contacts" 329 let show_info = Cmd.info "show" ~doc:"Show detailed information about a contact" 330 + let thumbnail_info = Cmd.info "thumbnail" ~doc:"Print the thumbnail file path for a contact" 331 let search_info = Cmd.info "search" ~doc:"Search contacts by name" 332 let stats_info = Cmd.info "stats" ~doc:"Show statistics about the contact database" 333 let sync_info = Cmd.info "sync" ~doc:"Synchronize and normalize contact data"

+11

sortal/lib/core/sortal_cmd.mli

··· 23 @param handle The contact handle to display *) 24 val show_cmd : string -> (Xdge.t -> int) 25 0 0 0 0 0 0 0 0 26 (** [search_cmd query] creates a command to search contacts by name. 27 28 @param query The search query string *) ··· 120 121 (** [show_info] is the command info for the show command. *) 122 val show_info : Cmdliner.Cmd.info 0 0 0 123 124 (** [search_info] is the command info for the search command. *) 125 val search_info : Cmdliner.Cmd.info

··· 23 @param handle The contact handle to display *) 24 val show_cmd : string -> (Xdge.t -> int) 25 26 + (** [thumbnail_cmd handle] prints the thumbnail file path for a contact. 27 + 28 + Returns exit code 0 and prints the path if the contact has a thumbnail, 29 + or exit code 1 if the contact is not found or has no thumbnail. 30 + 31 + @param handle The contact handle to look up *) 32 + val thumbnail_cmd : string -> (Xdge.t -> int) 33 + 34 (** [search_cmd query] creates a command to search contacts by name. 35 36 @param query The search query string *) ··· 128 129 (** [show_info] is the command info for the show command. *) 130 val show_info : Cmdliner.Cmd.info 131 + 132 + (** [thumbnail_info] is the command info for the thumbnail command. *) 133 + val thumbnail_info : Cmdliner.Cmd.info 134 135 (** [search_info] is the command info for the search command. *) 136 val search_info : Cmdliner.Cmd.info