fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tidying up

This commit is contained in:
John Whitington 2023-06-20 15:31:19 +01:00
parent 6f345c4b80
commit f7afbb614f
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Changes
View File

@ -23,7 +23,6 @@ o Preserve /GoTo actions in bookmarks when merging
o UTF8 option for JSON output o UTF8 option for JSON output
o -info now shows object stream, /ID data, page mode and layout o -info now shows object stream, /ID data, page mode and layout
o More options for viewer preference control o More options for viewer preference control
o Export some PNGs directly, rather than via an external program
o More default colours, by using the CSS colour list o More default colours, by using the CSS colour list
Fixes: Fixes:

5
cpdfannot.ml
View File

@ -55,14 +55,11 @@ let rewrite_destinations f pdf annot =
end end
| None -> annot | None -> annot
(* We exclude the same annotations as the XFDF spec does *) (* We exclude the same annotations as the XFDF spec does. *)
let excluded pdf annot = let excluded pdf annot =
match Pdf.lookup_direct pdf "/Subtype" annot with match Pdf.lookup_direct pdf "/Subtype" annot with
| Some (Pdf.Name ("/Movie" | "/Widget" | "/Screen" | "/PrinterMark" | "/TrapNet")) -> true | Some (Pdf.Name ("/Movie" | "/Widget" | "/Screen" | "/PrinterMark" | "/TrapNet")) -> true
| _ -> false | _ -> false
(* Printf.printf "Skipping %s\n" n; true
| Some (Pdf.Name x) ->
Printf.printf "Including %s\n" x; false*)
let extra = ref [] let extra = ref []