keep real tag name

a5b85c5d · Artemiy · dea11196 · a5b85c5d
Commit a5b85c5d authored Nov 04, 2021 by Artemiy
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

src/blog.ml src/blog.ml +5 -0

No files found.
--- a/src/blog.ml
+++ b/src/blog.ml
@@ -425,6 +425,11 @@ let given_tag tag =
          article.tags )
      articles_by_date
  in
+  let tag =
+    List.find
+      (fun t -> String.equal (normalize_tag t) tag)
+      (List.hd articles_with_tag).tags
+  in
  Format.asprintf {|<h1 id="page-title">Articles tagged with %s</h1>%s%a@.|} tag
    links_to_home_pages pp_blog_posts articles_with_tag