From a8ba89c8b48bb66c4e40c33170f737bad93e17df Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Paul-Elliot=20Angl=C3=A8s=20d=27Auriac?= <peada@free.fr>
Date: Wed, 6 Sep 2023 10:17:38 +0200
Subject: [PATCH] Consider extension constructor as constructors in css

---
 src/document/generator.ml                     |  4 +++-
 test/generators/html/Labels.html              |  2 +-
 test/generators/html/Ocamlary-ExtMod.html     |  2 +-
 .../html/Ocamlary-module-type-TypeExt.html    |  2 +-
 .../Ocamlary-module-type-TypeExtPruned.html   |  2 +-
 test/generators/html/Ocamlary.html            | 24 +++++++++----------
 test/generators/html/Type.html                |  6 ++---
 7 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/src/document/generator.ml b/src/document/generator.ml
index 84983cd4f7..df67f386b7 100644
--- a/src/document/generator.ml
+++ b/src/document/generator.ml
@@ -615,7 +615,9 @@ module Make (Syntax : SYNTAX) = struct
       | Error e -> failwith (Url.Error.to_string e)
       | Ok url ->
           let anchor = Some url in
-          let attrs = [ "def"; Url.Anchor.string_of_kind url.kind ] in
+          let attrs =
+            [ "def"; "variant"; Url.Anchor.string_of_kind url.kind ]
+          in
           let code =
             O.documentedSrc (O.txt "| ") @ constructor id t.args t.res
           in
diff --git a/test/generators/html/Labels.html b/test/generators/html/Labels.html
index f01fe5dffe..ee1fc3d2c4 100644
--- a/test/generators/html/Labels.html
+++ b/test/generators/html/Labels.html
@@ -118,7 +118,7 @@ <h2 id="L2"><a href="#L2" class="anchor"></a>Attached to nothing</h2>
       </span>
      </code>
      <ol>
-      <li id="extension-X" class="def extension anchored">
+      <li id="extension-X" class="def variant extension anchored">
        <a href="#extension-X" class="anchor"></a>
        <code><span>| </span><span><span class="extension">X</span></span>
        </code>
diff --git a/test/generators/html/Ocamlary-ExtMod.html b/test/generators/html/Ocamlary-ExtMod.html
index cbaaaff393..329c03d8b2 100644
--- a/test/generators/html/Ocamlary-ExtMod.html
+++ b/test/generators/html/Ocamlary-ExtMod.html
@@ -32,7 +32,7 @@ <h1>Module <code><span>Ocamlary.ExtMod</span></code></h1>
       </span>
      </code>
      <ol>
-      <li id="extension-Leisureforce" class="def extension anchored">
+      <li id="extension-Leisureforce" class="def variant extension anchored">
        <a href="#extension-Leisureforce" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">Leisureforce</span></span>
diff --git a/test/generators/html/Ocamlary-module-type-TypeExt.html b/test/generators/html/Ocamlary-module-type-TypeExt.html
index d9d810d0b1..983aaa3415 100644
--- a/test/generators/html/Ocamlary-module-type-TypeExt.html
+++ b/test/generators/html/Ocamlary-module-type-TypeExt.html
@@ -31,7 +31,7 @@ <h1>Module type <code><span>Ocamlary.TypeExt</span></code></h1>
       </span>
      </code>
      <ol>
-      <li id="extension-C" class="def extension anchored">
+      <li id="extension-C" class="def variant extension anchored">
        <a href="#extension-C" class="anchor"></a>
        <code><span>| </span><span><span class="extension">C</span></span>
        </code>
diff --git a/test/generators/html/Ocamlary-module-type-TypeExtPruned.html b/test/generators/html/Ocamlary-module-type-TypeExtPruned.html
index f221161313..39f785509d 100644
--- a/test/generators/html/Ocamlary-module-type-TypeExtPruned.html
+++ b/test/generators/html/Ocamlary-module-type-TypeExtPruned.html
@@ -24,7 +24,7 @@ <h1>Module type <code><span>Ocamlary.TypeExtPruned</span></code></h1>
       </span>
      </code>
      <ol>
-      <li id="extension-C" class="def extension anchored">
+      <li id="extension-C" class="def variant extension anchored">
        <a href="#extension-C" class="anchor"></a>
        <code><span>| </span><span><span class="extension">C</span></span>
        </code>
diff --git a/test/generators/html/Ocamlary.html b/test/generators/html/Ocamlary.html
index fabbacbb40..4d24b672fd 100644
--- a/test/generators/html/Ocamlary.html
+++ b/test/generators/html/Ocamlary.html
@@ -1797,7 +1797,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ExtA" class="def extension anchored">
+      <li id="extension-ExtA" class="def variant extension anchored">
        <a href="#extension-ExtA" class="anchor"></a>
        <code><span>| </span><span><span class="extension">ExtA</span></span>
        </code>
@@ -1813,7 +1813,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ExtB" class="def extension anchored">
+      <li id="extension-ExtB" class="def variant extension anchored">
        <a href="#extension-ExtB" class="anchor"></a>
        <code><span>| </span><span><span class="extension">ExtB</span></span>
        </code>
@@ -1829,7 +1829,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ExtC" class="def extension anchored">
+      <li id="extension-ExtC" class="def variant extension anchored">
        <a href="#extension-ExtC" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">ExtC</span> 
@@ -1837,7 +1837,7 @@ <h4 id="advanced-type-stuff">
         </span>
        </code>
       </li>
-      <li id="extension-ExtD" class="def extension anchored">
+      <li id="extension-ExtD" class="def variant extension anchored">
        <a href="#extension-ExtD" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">ExtD</span> 
@@ -1856,7 +1856,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ExtE" class="def extension anchored">
+      <li id="extension-ExtE" class="def variant extension anchored">
        <a href="#extension-ExtE" class="anchor"></a>
        <code><span>| </span><span><span class="extension">ExtE</span></span>
        </code>
@@ -1872,7 +1872,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ExtF" class="def extension anchored">
+      <li id="extension-ExtF" class="def variant extension anchored">
        <a href="#extension-ExtF" class="anchor"></a>
        <code><span>| </span><span><span class="extension">ExtF</span></span>
        </code>
@@ -1898,7 +1898,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-Foo" class="def extension anchored">
+      <li id="extension-Foo" class="def variant extension anchored">
        <a href="#extension-Foo" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">Foo</span> 
@@ -1906,7 +1906,7 @@ <h4 id="advanced-type-stuff">
         </span>
        </code>
       </li>
-      <li id="extension-Bar" class="def extension anchored">
+      <li id="extension-Bar" class="def variant extension anchored">
        <a href="#extension-Bar" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">Bar</span> 
@@ -1930,7 +1930,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-Quux" class="def extension anchored">
+      <li id="extension-Quux" class="def variant extension anchored">
        <a href="#extension-Quux" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">Quux</span> 
@@ -1966,7 +1966,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ZzzTop0" class="def extension anchored">
+      <li id="extension-ZzzTop0" class="def variant extension anchored">
        <a href="#extension-ZzzTop0" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">ZzzTop0</span></span>
@@ -1987,7 +1987,7 @@ <h4 id="advanced-type-stuff">
       </span>
      </code>
      <ol>
-      <li id="extension-ZzzTop" class="def extension anchored">
+      <li id="extension-ZzzTop" class="def variant extension anchored">
        <a href="#extension-ZzzTop" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">ZzzTop</span> 
@@ -2931,7 +2931,7 @@ <h2 id="new-reference-syntax">
       </span>
      </code>
      <ol>
-      <li id="extension-C" class="def extension anchored">
+      <li id="extension-C" class="def variant extension anchored">
        <a href="#extension-C" class="anchor"></a>
        <code><span>| </span><span><span class="extension">C</span></span>
        </code>
diff --git a/test/generators/html/Type.html b/test/generators/html/Type.html
index 4e82317917..18601bebdc 100644
--- a/test/generators/html/Type.html
+++ b/test/generators/html/Type.html
@@ -753,7 +753,7 @@ <h1>Module <code><span>Type</span></code></h1>
       </span>
      </code>
      <ol>
-      <li id="extension-Extension" class="def extension anchored">
+      <li id="extension-Extension" class="def variant extension anchored">
        <a href="#extension-Extension" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">Extension</span></span>
@@ -764,8 +764,8 @@ <h1>Module <code><span>Type</span></code></h1>
         </p><span class="comment-delim">*)</span>
        </div>
       </li>
-      <li id="extension-Another_extension" class="def extension anchored">
-       <a href="#extension-Another_extension" class="anchor"></a>
+      <li id="extension-Another_extension" class="def variant extension
+       anchored"><a href="#extension-Another_extension" class="anchor"></a>
        <code><span>| </span>
         <span><span class="extension">Another_extension</span></span>
        </code>