From 955eb32a13c96261f4b8fff88e3762da4cb6186b Mon Sep 17 00:00:00 2001
From: Enno <Konfekt@users.noreply.github.com>
Date: Sun, 19 May 2024 07:04:18 +0200
Subject: [PATCH 1/3] add some localizations

rudimentary support en, de, pt, es, fr, it, ... for the time being, hopefully without any clashes
---
 titlecase | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/titlecase b/titlecase
index dbb3699..b43534c 100755
--- a/titlecase
+++ b/titlecase
@@ -1,8 +1,20 @@
 #!/usr/bin/perl
 use 5.008001; use strict; use warnings; use utf8;
 
-our @SMALL_WORD
+# Added localizations to https://github.com/ap/titlecase
+our @SMALL_WORD_EN
 	= qw/ (?<!q&)a an and as at(?!&t) but by en for if in of on or the to v[.]? via vs[.]? /;
+our @SMALL_WORD_DE
+   = qw/ (?<!q&)und oder aber als bei mit nach von zu im in aus auf für mit bis über unter vor zum zur durch ohne gegen um an dem den des /;
+our @SMALL_WORD_PT
+   = qw/ (?<!q&)a as ao aos com como da das de do dos e em na nas no nos o os por um uma uns umas /;
+our @SMALL_WORD_ES
+		= qw/ (?<!q&)y e o u ni a as os las los de del al en con por para sobre entre sin hacia tras desde durante mediante según/;
+our @SMALL_WORD_FR
+		= qw/ (?<!q&)à au aux avec chez dans de des du en et pour par sur vers sous /;
+our @SMALL_WORD_IT
+		= qw/ (?<!q&)a al alla alle con da dal dall' delle dei degli del di in per su /;
+our @SMALL_WORD = ( @SMALL_WORD_EN, @SMALL_WORD_PT, @SMALL_WORD_DE, @SMALL_WORD_ES, @SMALL_WORD_FR, @SMALL_WORD_IT );
 
 my $apos = q/ (?: ['’] [[:lower:]]* )? /;
 

From b8afd2d52e55221064f9297903868952b8ada06e Mon Sep 17 00:00:00 2001
From: Enno <Konfekt@users.noreply.github.com>
Date: Sun, 19 May 2024 19:13:45 +0200
Subject: [PATCH 2/3] remove nonsense checks

---
 titlecase | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/titlecase b/titlecase
index b43534c..ecfb16f 100755
--- a/titlecase
+++ b/titlecase
@@ -5,15 +5,15 @@ use 5.008001; use strict; use warnings; use utf8;
 our @SMALL_WORD_EN
 	= qw/ (?<!q&)a an and as at(?!&t) but by en for if in of on or the to v[.]? via vs[.]? /;
 our @SMALL_WORD_DE
-   = qw/ (?<!q&)und oder aber als bei mit nach von zu im in aus auf für mit bis über unter vor zum zur durch ohne gegen um an dem den des /;
+   = qw/ und oder aber als bei mit nach von zu im in aus auf für mit bis über unter vor zum zur durch ohne gegen um an dem den des /;
 our @SMALL_WORD_PT
-   = qw/ (?<!q&)a as ao aos com como da das de do dos e em na nas no nos o os por um uma uns umas /;
+   = qw/ a as ao aos com como da das de do dos e em na nas no nos o os por um uma uns umas /;
 our @SMALL_WORD_ES
-		= qw/ (?<!q&)y e o u ni a as os las los de del al en con por para sobre entre sin hacia tras desde durante mediante según/;
+		= qw/ y e o u ni a as os las los de del al en con por para sobre entre sin hacia tras desde durante mediante según/;
 our @SMALL_WORD_FR
-		= qw/ (?<!q&)à au aux avec chez dans de des du en et pour par sur vers sous /;
+		= qw/ à au aux avec chez dans de des du en et pour par sur vers sous /;
 our @SMALL_WORD_IT
-		= qw/ (?<!q&)a al alla alle con da dal dall' delle dei degli del di in per su /;
+		= qw/ a al alla alle con da dal dall' delle dei degli del di in per su /;
 our @SMALL_WORD = ( @SMALL_WORD_EN, @SMALL_WORD_PT, @SMALL_WORD_DE, @SMALL_WORD_ES, @SMALL_WORD_FR, @SMALL_WORD_IT );
 
 my $apos = q/ (?: ['’] [[:lower:]]* )? /;

From 7fc7f3063d446d0479a7904e3216da1faa5fdff8 Mon Sep 17 00:00:00 2001
From: Enno <Konfekt@users.noreply.github.com>
Date: Sun, 19 May 2024 22:43:33 +0200
Subject: [PATCH 3/3] complete and group articles and preopositions

---
 titlecase | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/titlecase b/titlecase
index ecfb16f..4631a3a 100755
--- a/titlecase
+++ b/titlecase
@@ -5,15 +5,15 @@ use 5.008001; use strict; use warnings; use utf8;
 our @SMALL_WORD_EN
 	= qw/ (?<!q&)a an and as at(?!&t) but by en for if in of on or the to v[.]? via vs[.]? /;
 our @SMALL_WORD_DE
-   = qw/ und oder aber als bei mit nach von zu im in aus auf für mit bis über unter vor zum zur durch ohne gegen um an dem den des /;
+   = qw/ der das die dem den des ein eine einem einen einer eines und oder aber als bei mit nach von vom zu in im ins aus auf aufs für mit bis über übers überm übern unter unterm untern unters vor vorm vorn vors zum zur durch durchs ohne gegen um an am ans /;
 our @SMALL_WORD_PT
-   = qw/ a as ao aos com como da das de do dos e em na nas no nos o os por um uma uns umas /;
+   = qw/ a as o os um uma uns umas à às ao aos como da das de do dos e na nas no nospelo pela pelos pelas em com sem até após como ante por para sob sobre per entre/;
 our @SMALL_WORD_ES
-		= qw/ y e o u ni a as os las los de del al en con por para sobre entre sin hacia tras desde durante mediante según/;
+    = qw/ el la las los un una unos unas y e o u ni a as os de del al en con por para sobre entre sin hacia tras bajo ante tras hasta según desde durante mediante según /;
 our @SMALL_WORD_FR
-		= qw/ à au aux avec chez dans de des du en et pour par sur vers sous /;
+    = qw/ le la les un une à au aux avec chez dans de des du en et pour par sur vers sous sans hors près lors dès via contre/;
 our @SMALL_WORD_IT
-		= qw/ a al alla alle con da dal dall' delle dei degli del di in per su /;
+    = qw/ la il l' lo le i gli uno una a al all' alla alle da dal dall' dagli dalli dalle delle dei degli del di in nel nell' nelle nei negli per su con tra fra senza sotto dopo verso /;
 our @SMALL_WORD = ( @SMALL_WORD_EN, @SMALL_WORD_PT, @SMALL_WORD_DE, @SMALL_WORD_ES, @SMALL_WORD_FR, @SMALL_WORD_IT );
 
 my $apos = q/ (?: ['’] [[:lower:]]* )? /;