Sidebar: Use short title if present

ocaml · Nov 27, 2024 · e2a73b3 · e2a73b3
1 parent 9d693c3
commit e2a73b3
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/document/sidebar.ml b/src/document/sidebar.ml
@@ -101,7 +101,8 @@ end = struct
           in
           let content =
             match entry.kind with
-            | Page _ ->
+            | Page { short_title = Some st; _ } -> Comment.link_content st
+            | Page { short_title = None; _ } ->
                 let title =
                   let open Odoc_model in
                   match Comment.find_zero_heading entry.doc with