Formatting

Author: jonludlam

src/html/config.ml

@@ -12,8 +12,19 @@ type t = {
   content_only : bool;
 }
 
-let v ?theme_uri ?support_uri ~semantic_uris ~indent ~flat ~open_details ~omit_breadcrumbs ~omit_toc ~content_only () =
-  { theme_uri; support_uri; semantic_uris; indent; flat; open_details; omit_breadcrumbs; omit_toc; content_only }
+let v ?theme_uri ?support_uri ~semantic_uris ~indent ~flat ~open_details
+    ~omit_breadcrumbs ~omit_toc ~content_only () =
+  {
+    theme_uri;
+    support_uri;
+    semantic_uris;
+    indent;
+    flat;
+    open_details;
+    omit_breadcrumbs;
+    omit_toc;
+    content_only;
+  }
 
 let theme_uri config =
   match config.theme_uri with None -> Types.Relative None | Some uri -> uri
@@ -33,4 +44,4 @@ let omit_breadcrumbs config = config.omit_breadcrumbs
 
 let omit_toc config = config.omit_toc
 
-let content_only config = config.content_only
+let content_only config = config.content_only

src/html/tree.ml

@@ -130,7 +130,9 @@ let page_creator ~config ~url name header toc content =
         make_navigation ~up_url l
   in
 
-  let breadcrumbs = if Config.omit_breadcrumbs config then [] else gen_breadcrumbs () in
+  let breadcrumbs =
+    if Config.omit_breadcrumbs config then [] else gen_breadcrumbs ()
+  in
   let toc = if Config.omit_toc config then [] else html_of_toc toc in
   let body =
     breadcrumbs
@@ -140,15 +142,15 @@ let page_creator ~config ~url name header toc content =
   in
   let htmlpp_elt = Html.pp_elt ~indent:(Config.indent config) () in
   let htmlpp = Html.pp ~indent:(Config.indent config) () in
-  if Config.content_only config
-  then begin
-    let content ppf = htmlpp_elt ppf (Html.div ~a:[ Html.a_class [ "odoc" ] ] body) in
+  if Config.content_only config then
+    let content ppf =
+      htmlpp_elt ppf (Html.div ~a:[ Html.a_class [ "odoc" ] ] body)
+    in
     content
-  end else begin
+  else
     let html = Html.html head (Html.body ~a:[ Html.a_class [ "odoc" ] ] body) in
     let content ppf = htmlpp ppf html in
     content
-  end
 
 let make ~config ~url ~header ~toc title content children =
   let filename = Link.Path.as_filename ~is_flat:(Config.flat config) url in

src/odoc/bin/main.ml

@@ -517,25 +517,22 @@ module Odoc_html_args = struct
     Arg.(value & flag & info ~docs ~doc [ "flat" ])
 
   let omit_breadcrumbs =
-    let doc = 
-      "Don't emit the breadcrumbs navigation element"
-    in
-    Arg.(value & flag & info ~docs ~doc [ "omit-breadcrumbs"])
+    let doc = "Don't emit the breadcrumbs navigation element" in
+    Arg.(value & flag & info ~docs ~doc [ "omit-breadcrumbs" ])
 
   let omit_toc =
-    let doc = 
-      "Don't emit the table of contents div"
-    in
-    Arg.(value & flag & info ~docs ~doc [ "omit-toc"])
+    let doc = "Don't emit the table of contents div" in
+    Arg.(value & flag & info ~docs ~doc [ "omit-toc" ])
 
   let content_only =
-    let doc = 
+    let doc =
       "Only emit the content of the page, not the html, head and body elements"
     in
-    Arg.(value & flag & info ~docs ~doc [ "content-only"])
-  
+    Arg.(value & flag & info ~docs ~doc [ "content-only" ])
+
   let extra_args =
-    let config semantic_uris closed_details indent theme_uri support_uri flat omit_breadcrumbs omit_toc content_only =
+    let config semantic_uris closed_details indent theme_uri support_uri flat
+        omit_breadcrumbs omit_toc content_only =
       let open_details = not closed_details in
       Odoc_html.Config.v ~theme_uri ~support_uri ~semantic_uris ~indent ~flat
         ~open_details ~omit_breadcrumbs ~omit_toc ~content_only ()

src/odoc/html_fragment.ml

@@ -26,7 +26,8 @@ let from_mld ~xref_base_uri ~resolver ~output ~warnings_options input =
     let page = Odoc_document.Comment.to_ir resolved.content in
     let config =
       Odoc_html.Config.v ~semantic_uris:false ~indent:false ~flat:false
-        ~open_details:false ~omit_breadcrumbs:false ~omit_toc:false ~content_only:false ()
+        ~open_details:false ~omit_breadcrumbs:false ~omit_toc:false
+        ~content_only:false ()
     in
     let html = Odoc_html.Generator.doc ~config ~xref_base_uri page in
     let oc = open_out (Fs.File.to_string output) in

test/generators/dune

@@ -30,4 +30,3 @@
 
 (cram
  (deps %{bin:odoc}))
-