Author: Ralf Treinen <treinen@debian.org>
Description: removed vendored highlight js library.
  The file odoc/support_files.ml is patched so that, instead of
  creating a copy of the support files, creates symbolic links.

Index: ocaml-odoc/src/odoc/dune
===================================================================
--- ocaml-odoc.orig/src/odoc/dune	2020-04-23 19:36:22.436878628 +0200
+++ ocaml-odoc/src/odoc/dune	2020-04-23 19:36:22.436878628 +0200
@@ -14,29 +14,8 @@
 
 (documentation)
 
-(rule
- (targets css_file.ml)
- (deps (:css etc/odoc.css))
- (action
-  (with-stdout-to %{targets}
-   (progn
-    (echo "let content = {css|")
-    (cat %{css})
-    (echo "|css}")))))
-
-(rule
- (targets highlight_js.ml)
- (deps (:js ../vendor/highlight.pack.js))
- (action
-  (with-stdout-to %{targets}
-   (progn
-    (echo "let content = {js|")
-    (cat %{js})
-    (echo "|js}")))))
-
 ; Install theme files for odig.
 (install
  (section share)
  (files
-  (etc/odoc.css as odoc-theme/default/odoc.css)
-  (../vendor/highlight.pack.js as odoc-theme/default/highlight.pack.js)))
+  (etc/odoc.css as odoc-theme/default/odoc.css)))
Index: ocaml-odoc/src/odoc/support_files.ml
===================================================================
--- ocaml-odoc.orig/src/odoc/support_files.ml	2020-04-23 19:36:22.436878628 +0200
+++ ocaml-odoc/src/odoc/support_files.ml	2020-04-23 19:38:38.729590833 +0200
@@ -1,23 +1,19 @@
 let iter_files f ?(without_theme = false) output_directory =
-  let file name content =
+  let file name target =
     let name =
       Fs.File.create ~directory:output_directory ~name
       |> Fs.File.to_string
     in
-    f name content
+    f name target
   in
 
   if not without_theme then begin
-    file "odoc.css" Css_file.content
+    file "odoc.css" "/usr/share/odoc/odoc-theme/default/odoc.css"
   end;
-  file "highlight.pack.js" Highlight_js.content
+  file "highlight.pack.js" "/usr/share/javascript/highlight.js/highlight.min.js"
 
 let write =
-  iter_files begin fun name content ->
-    let channel = open_out name in
-    output_string channel content;
-    close_out channel
-  end
+  iter_files (fun name target -> Unix.symlink target name)
 
 let print_filenames =
-  iter_files (fun name _content -> print_endline name)
+  iter_files (fun name _target -> print_endline name)
