From 95f35ad2a9b402aa28e4c64f860f87e04d9cf0a3 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 27 Sep 2024 13:45:18 +0100
Subject: [PATCH] Adds -title

---
 cpdfcommand.ml | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index faa9760..2e23acd 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -552,7 +552,8 @@ type args =
    mutable verify_single : string option;
    mutable draw_struct_tree : bool;
    mutable subformat : Cpdfua.subformat option;
-   mutable indent : float option}
+   mutable indent : float option;
+   mutable title : string option}
 
 let args =
   {op = None;
@@ -690,7 +691,8 @@ let args =
    verify_single = None;
    draw_struct_tree = false;
    subformat = None;
-   indent = None}
+   indent = None;
+   title = None}
 
 (* Do not reset original_filename or cpdflin or was_encrypted or
 was_decrypted_with_owner or recrypt or producer or creator or path_to_* or
@@ -816,7 +818,8 @@ let reset_arguments () =
   args.verify_single <- None;
   args.draw_struct_tree <- false;
   args.subformat <- None;
-  args.indent <- None
+  args.indent <- None;
+  args.title <- None
 
 (* Prefer a) the one given with -cpdflin b) a local cpdflin, c) otherwise assume
 installed at a system place *)
@@ -2825,6 +2828,9 @@ let specs =
    ("-subformat",
      Arg.String setsubformat,
      " Set subformat");
+   ("-title",
+     Arg.String (fun s -> args.title <- Some s),
+     " Set PDF/UA title");
    ("-composition",
      Arg.Unit (setop (Composition false)),
      " Show composition of PDF");