From a1668f891a36b887439afb098f016ef22535af42 Mon Sep 17 00:00:00 2001
From: Steffen <s.jost@fraport.de>
Date: Tue, 9 Jul 2024 17:06:33 +0200
Subject: [PATCH] fix(users): nameHtml no longer complains about differing case
 for surname and displayname

---
 src/Handler/Utils/Widgets.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Utils/Widgets.hs b/src/Handler/Utils/Widgets.hs
index 1845862c3..88423194e 100644
--- a/src/Handler/Utils/Widgets.hs
+++ b/src/Handler/Utils/Widgets.hs
@@ -93,7 +93,15 @@ nameHtml :: Text -> Text -> Html
 nameHtml displayName surname
   | null surname = toHtml displayName
   | otherwise = case reverse $ T.splitOn surname displayName of
-      [_notContained] -> [shamlet|$newline never
+      [_notContained]
+        | (suffix:prefixes) <- reverse $ T.splitOn (T.toTitle surname) (T.toTitle displayName) ->
+          let prefix = T.intercalate surname $ reverse prefixes
+          in [shamlet|$newline never
+                #{prefix}
+                <b .surname>#{surname}
+                #{suffix}
+              |]
+        | otherwise -> [shamlet|$newline never
                             #{displayName} (
                             <b .surname>#{surname}
                             )|]