add update support to cli

bin/standard-site/cli/cmd_document.ml

···
 (* Format datetime for AT Protocol (RFC 3339 with millisecond precision and UTC Z suffix) *)
 let now_rfc3339 () = Ptime.to_rfc3339 ~tz_offset_s:0 ~frac_s:3 (Ptime_clock.now ())
 
+(* Normalize a datetime string to AT Protocol format *)
+let normalize_datetime s =
+  match Ptime.of_rfc3339 s with
+  | Ok (t, _, _) -> Ptime.to_rfc3339 ~tz_offset_s:0 ~frac_s:3 t
+  | Error _ -> s (* If parsing fails, return original and let server validate *)
+
 (* Helper to load session and create API *)
 let with_api env f =
   Eio.Switch.run @@ fun sw ->
···
 
 (* Update command *)
 
+let update_rkey_arg =
+  let doc = "Record key of the document. If not provided, use --path to find the document." in
+  Arg.(value & pos 0 (some string) None & info [] ~docv:"RKEY" ~doc)
+
+let update_path_arg =
+  let doc = "URL path to find the document by (e.g., /notes/my-post). Used to look up the document if RKEY is not provided, or to update the path if RKEY is provided." in
+  Arg.(value & opt (some string) None & info [ "path"; "p" ] ~docv:"PATH" ~doc)
+
 let update_action ~rkey ~title ~site ~path ~description ~content ~tags ~bsky_post env =
   with_api env @@ fun api ->
   let did = Standard_site.Api.get_did api in
-  (* First get the existing document to preserve published_at *)
-  match Standard_site.Api.get_document api ~did ~rkey with
-  | None ->
-      Fmt.epr "Document not found: %s@." rkey;
-      exit 1
-  | Some existing ->
-      let site =
-        match site with
-        | Some s -> resolve_site_uri ~did s
-        | None -> existing.site
-      in
-      let tags =
-        Option.map (String.split_on_char ',') tags
-        |> Option.map (List.map String.trim)
-      in
-      let bsky_post_ref =
-        match bsky_post with
-        | Some url -> Some (Standard_site.Api.resolve_bsky_post api url)
-        | None -> existing.bsky_post_ref
-      in
-      let updated_at = now_rfc3339 () in
-      Standard_site.Api.update_document api ~rkey ~site
-        ~title:(Option.value ~default:existing.title title)
-        ~published_at:existing.published_at
-        ?path:(if Option.is_some path then path else existing.path)
-        ?description:
-          (if Option.is_some description then description
-           else existing.description)
-        ?text_content:
-          (if Option.is_some content then content else existing.text_content)
-        ?tags:(if Option.is_some tags then tags else existing.tags)
-        ?bsky_post_ref
-        ~updated_at ();
-      Fmt.pr "Updated document: %s@." rkey
+  (* Track whether we looked up by path (to preserve path vs update it) *)
+  let looked_up_by_path = Option.is_none rkey in
+  (* Find the document - either by rkey or by path *)
+  let rkey, existing =
+    match rkey with
+    | Some rkey -> (
+        match Standard_site.Api.get_document api ~did ~rkey with
+        | None ->
+            Fmt.epr "Document not found: %s@." rkey;
+            exit 1
+        | Some doc -> (rkey, doc))
+    | None -> (
+        (* Look up by path *)
+        match path with
+        | None ->
+            Fmt.epr "Error: Either RKEY or --path must be provided.@.";
+            exit 1
+        | Some search_path ->
+            let docs = Standard_site.Api.list_documents api ~did () in
+            let matching =
+              List.find_opt
+                (fun (_, (d : Document.main)) -> d.path = Some search_path)
+                docs
+            in
+            match matching with
+            | None ->
+                Fmt.epr "No document found with path: %s@." search_path;
+                exit 1
+            | Some (rkey, doc) -> (rkey, doc))
+  in
+  let site =
+    match site with
+    | Some s -> resolve_site_uri ~did s
+    | None -> existing.site
+  in
+  let tags =
+    Option.map (String.split_on_char ',') tags
+    |> Option.map (List.map String.trim)
+  in
+  let bsky_post_ref =
+    match bsky_post with
+    | Some url -> Some (Standard_site.Api.resolve_bsky_post api url)
+    | None -> existing.bsky_post_ref
+  in
+  let updated_at = now_rfc3339 () in
+  (* When looking up by path, preserve existing path; otherwise use new path if provided *)
+  let new_path =
+    if looked_up_by_path then existing.path
+    else if Option.is_some path then path
+    else existing.path
+  in
+  Standard_site.Api.update_document api ~rkey ~site
+    ~title:(Option.value ~default:existing.title title)
+    ~published_at:(normalize_datetime existing.published_at)
+    ?path:new_path
+    ?description:
+      (if Option.is_some description then description else existing.description)
+    ?text_content:
+      (if Option.is_some content then content else existing.text_content)
+    ?tags:(if Option.is_some tags then tags else existing.tags)
+    ?bsky_post_ref ~updated_at ();
+  Fmt.pr "Updated document: %s@." rkey
 
 let update_title_arg =
   let doc = "New document title." in
···
   Arg.(value & opt (some string) None & info [ "site"; "s" ] ~docv:"SITE" ~doc)
 
 let update_cmd =
-  let doc = "Update an existing document." in
+  let doc = "Update an existing document. Specify RKEY as a positional argument, or use --path to find the document by its URL path." in
   let info = Cmd.info "update" ~doc in
   let update' rkey title site path description content tags bsky_post =
     Eio_main.run @@ fun env ->
···
   in
   Cmd.v info
     Term.(
-      const update' $ rkey_arg $ update_title_arg $ update_site_arg $ path_arg
-      $ description_arg $ content_arg $ tags_arg $ bsky_post_arg)
+      const update' $ update_rkey_arg $ update_title_arg $ update_site_arg
+      $ update_path_arg $ description_arg $ content_arg $ tags_arg $ bsky_post_arg)
 
 (* Delete command *)
 

bin/standard-site/cli/cmd_publication.ml

···
   Cmd.v info
     Term.(const create' $ name_arg $ url_arg $ description_arg $ rkey_arg)
 
+(* Update command *)
+
+let update_rkey_arg =
+  let doc = "Record key of publication to update." in
+  Arg.(required & pos 0 (some string) None & info [] ~docv:"RKEY" ~doc)
+
+let update_name_arg =
+  let doc = "New publication name." in
+  Arg.(value & opt (some string) None & info [ "name"; "n" ] ~docv:"NAME" ~doc)
+
+let update_url_arg =
+  let doc = "New publication base URL." in
+  Arg.(value & opt (some string) None & info [ "url" ] ~docv:"URL" ~doc)
+
+let update_action ~rkey ~name ~url ~description env =
+  with_api env @@ fun api ->
+  let did = Standard_site.Api.get_did api in
+  (* First get the existing publication to preserve unchanged fields *)
+  match Standard_site.Api.get_publication api ~did ~rkey with
+  | None ->
+      Fmt.epr "Publication not found: %s@." rkey;
+      exit 1
+  | Some existing ->
+      Standard_site.Api.update_publication api ~rkey
+        ~name:(Option.value ~default:existing.name name)
+        ~url:(Option.value ~default:existing.url url)
+        ?description:
+          (if Option.is_some description then description
+           else existing.description)
+        ();
+      Fmt.pr "Updated publication: %s@." rkey
+
+let update_cmd =
+  let doc = "Update an existing publication." in
+  let info = Cmd.info "update" ~doc in
+  let update' rkey name url description =
+    Eio_main.run @@ fun env -> update_action ~rkey ~name ~url ~description env
+  in
+  Cmd.v info
+    Term.(const update' $ update_rkey_arg $ update_name_arg $ update_url_arg $ description_arg)
+
 (* Delete command *)
 
 let delete_rkey_arg =
···
 let cmd =
   let doc = "Publication commands." in
   let info = Cmd.info "publication" ~doc in
-  Cmd.group info [ list_cmd; create_cmd; delete_cmd; uri_cmd ]
+  Cmd.group info [ list_cmd; create_cmd; update_cmd; delete_cmd; uri_cmd ]

bin/standard-site/lib/standard_site_api.ml

···
   | rkey :: _ -> rkey
   | [] -> resp.uri
 
+let update_publication t ~rkey ~name ~url ?description () =
+  let client = Xrpc_auth.Client.get_client t in
+  let did = get_did t in
+  let record : Standard.Publication.main =
+    {
+      name;
+      url;
+      description;
+      icon = None;
+      basic_theme = None;
+      preferences = None;
+    }
+  in
+  let input : Atproto.Repo.PutRecord.input =
+    {
+      repo = did;
+      collection = "site.standard.publication";
+      rkey;
+      validate = Some false;
+      record = encode_to_json Standard.Publication.main_jsont record;
+      swap_record = None;
+      swap_commit = None;
+    }
+  in
+  let _ =
+    Xrpc.Client.procedure client ~nsid:"com.atproto.repo.putRecord" ~params:[]
+      ~input:(Some Atproto.Repo.PutRecord.input_jsont) ~input_data:(Some input)
+      ~decoder:Atproto.Repo.PutRecord.output_jsont
+  in
+  ()
+
 let delete_publication t ~rkey =
   let client = Xrpc_auth.Client.get_client t in
   let did = get_did t in

bin/standard-site/lib/standard_site_api.mli

···
 (** [create_publication api ~name ~url ?description ?rkey ()] creates a new
     publication. Returns the rkey. *)
 
+val update_publication :
+  t ->
+  rkey:string ->
+  name:string ->
+  url:string ->
+  ?description:string ->
+  unit ->
+  unit
+(** [update_publication api ~rkey ~name ~url ?description ()] updates an
+    existing publication. *)
+
 val delete_publication : t -> rkey:string -> unit
 (** [delete_publication api ~rkey] deletes a publication. *)