Render all book links (#540)

Some of the books have multiple links, it would be nice to display them
all

Author: Leonidas-from-XIV

src/ocamlorg_frontend/pages/books.eml

@@ -24,17 +24,18 @@ let render_books books =
                 <% ); %>
                 <div class="font-semibold text-base mb-6 uppercase"><%s item.authors |> String.concat ", " %></div>
                 <div class="prose prose-orange mb-6"><%s! item.body_html %></div>
-                <% let link = List.hd item.links in %>
-                <a href="<%s link.uri %>">
-                    <button class="btn btn-secondary">
-                        <span><%s link.description %></span>
-                        <svg xmlns="http://www.w3.org/2000/svg" class="h-4 w-4" fill="none" viewBox="0 0 24 24"
-                            stroke="currentColor">
-                            <path stroke-linecap="round" stroke-linejoin="round" stroke-width="2"
-                                d="M9 5l7 7-7 7" />
-                        </svg>
-                    </button>
-                </a>
+                <% item.links |> List.iter (fun (link : Ood.Book.link) -> %>
+                    <a href="<%s link.uri %>">
+                        <button class="btn btn-secondary">
+                            <span><%s link.description %></span>
+                            <svg xmlns="http://www.w3.org/2000/svg" class="h-4 w-4" fill="none" viewBox="0 0 24 24"
+                                stroke="currentColor">
+                                <path stroke-linecap="round" stroke-linejoin="round" stroke-width="2"
+                                    d="M9 5l7 7-7 7" />
+                            </svg>
+                        </button>
+                    </a>
+                <% ); %>
             </div>
         </div>
         <% ); %>
@@ -90,4 +91,4 @@ Layout.render
             </div>
         </div>
     </div>
-</div>
+</div>