Serbian exception handling

1 files changed, 13 insertions, 1 deletions

diff --git a/tex/context/third/transliterator/trans_tables_sr.lua b/tex/context/third/transliterator/trans_tables_sr.lua
index 84319b0..0a601e3 100644
--- a/tex/context/third/transliterator/trans_tables_sr.lua
+++ b/tex/context/third/transliterator/trans_tables_sr.lua
@@ -91,6 +91,16 @@ if not translit.done_serbian then
     translit.sr_tocy_lower = translit.make_add_dict(__inverse_tab(translit.sr_tolt_lower))
     translit.sr_tocy_upper = translit.make_add_dict(__inverse_tab(translit.sr_tolt_upper))
 
+    translit.serbian_exceptions = {
+        ["nadživeti"] = "надживети",
+        ["Nadživeti"] = "Надживети",
+    }
+
+    local P = lpeg.P
+    for lat, _ in next, translit.serbian_exceptions do
+        translit.p_serbian_exceptions = translit.p_serbian_exceptions and translit.p_serbian_exceptions + P(lat) or P(lat)
+    end
+
     translit.done_serbian = true
 end
 
@@ -98,10 +108,12 @@ end
 --                              End Of Tables                                --
 --===========================================================================--
 
+
 local t = translit
 local function sr (mode, text)
     local P, R, Cs = lpeg.P, lpeg.R, lpeg.Cs
     local utfchar  = translit.utfchar
+    local _p_sre   = translit.p_serbian_exceptions / translit.serbian_exceptions
 
     local trl_sr   = translit.make_add_dict{}
     trl_sr         = t[mode.."_upper"] + t[mode.."_lower"]
@@ -109,7 +121,7 @@ local function sr (mode, text)
     -- transliteration from latin script requires macro handling … 
     local _p_macro = P[[\]] * R("az", "AZ")^1
     local _p_sr    = translit.addrules (trl_sr, _p_sr)
-    local p_sr     = Cs((_p_macro + (_p_sr / trl_sr) + utfchar)^0)
+    local p_sr     = Cs((_p_macro + _p_sre + (_p_sr / trl_sr) + utfchar)^0)
 
     return p_sr:match(text)
 end