···

       
663
       
663
       
 
       
let info_cmd =

     

       
664
       
664
       
 
       
  let doc = "Display detailed information about a post by ID" in

     

       
665
       
665
       
 
       
  let id_arg =

     

       
666
       
666
       
-
       
    let doc = "Post ID or partial ID to search for" in

     

       
666
       
666
       
+
       
    let doc = "Exact post ID to display" in

     

       
667
       
667
       
 
       
    Arg.(required & pos 0 (some string) None & info [] ~docv:"ID" ~doc)

     

       
668
       
668
       
 
       
  in

     

       
669
       
669
       
 
       
  let verbose_flag =

     
···

       
681
       
681
       
 
       
      match River_store.find_entry_by_id store ~id with

     

       
682
       
682
       
 
       
      | None ->

     

       
683
       
683
       
 
       
          Fmt.pr "%a@." Fmt.(styled `Red string) (Printf.sprintf "No post found with ID: %s" id);

     

       
684
       
684
       
+
       
          Fmt.pr "%a@." Fmt.(styled `Faint string) "Hint: Use 'river-cli list' to see available posts and their IDs";

     

       
684
       
685
       
 
       
          1

     

       
685
       
686
       
 
       
      | Some entry ->

     

       
686
       
687
       
 
       
          (* Print header *)

     

       
687
       
688
       
 
       
          Fmt.pr "@.";

     

       
688
       
689
       
 
       
          Fmt.pr "%a@." Fmt.(styled `Bold string)

     

       
689
       
690
       
 
       
            (String.make 70 '=');

     

       
690
       
690
       
-
       
          Fmt.pr "  %a@." Fmt.(styled `Bold (styled (`Fg `Blue) string)) entry.title;

     

       
691
       
691
       
+
       
          Fmt.pr "  %a@." Fmt.(styled `Bold (styled (`Fg `Blue) string)) entry.River_store.title;

     

       
691
       
692
       
 
       
          Fmt.pr "%a@.@." Fmt.(styled `Bold string)

     

       
692
       
693
       
 
       
            (String.make 70 '=');

     

       
693
       
694
       
 
       


     

···

       
390
       
390
       
 
       
            let json_str = Eio.Buf_read.(parse_exn take_all) source ~max_size:Int.max_int in

     

       
391
       
391
       
 
       
            let json = Yojson.Safe.from_string json_str in

     

       
392
       
392
       
 
       
            let entry = entry_of_json json in

     

       
393
       
393
       
-
       
            (* Check if atom_id matches exactly or contains the search id *)

     

       
394
       
394
       
-
       
            let contains_substring s substr =

     

       
395
       
395
       
-
       
              try

     

       
396
       
396
       
-
       
                let _ = Str.search_forward (Str.regexp_string substr) s 0 in

     

       
397
       
397
       
-
       
                true

     

       
398
       
398
       
-
       
              with Not_found -> false

     

       
399
       
399
       
-
       
            in

     

       
400
       
400
       
-
       
            if entry.atom_id = id || String.starts_with ~prefix:id entry.atom_id ||

     

       
401
       
401
       
-
       
               contains_substring entry.atom_id id then

     

       
393
       
393
       
+
       
            (* Exact ID match only *)

     

       
394
       
394
       
+
       
            if entry.atom_id = id then

     

       
402
       
395
       
 
       
              Some entry

     

       
403
       
396
       
 
       
            else

     

       
404
       
397
       
 
       
              None