From 4b8b2a633ef86132673395fc8bb747f7a5e764a1 Mon Sep 17 00:00:00 2001
From: Vlasta Vesely <vlastavesely@protonmail.ch>
Date: Thu, 29 Oct 2020 10:01:48 +0100
Subject: [PATCH] velthuis: encode long uppercase letters properly

---
 tests/velthuis.c | 2 ++
 velthuis.c       | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/tests/velthuis.c b/tests/velthuis.c
index 30bc71f..6c0c037 100644
--- a/tests/velthuis.c
+++ b/tests/velthuis.c
@@ -16,6 +16,8 @@ START_TEST(test_encode_punctation)
 	test_encoding("yoga.h", "yogaḥ");
 
 	test_encoding("tantra\"saastram", "tantraśāstram");
+
+	test_encoding("Aa AA - II Ii - .RR .Rr", "Ā Ā - Ī Ī - Ṝ Ṝ");
 }
 END_TEST
 
diff --git a/velthuis.c b/velthuis.c
index 58e1924..3e12037 100644
--- a/velthuis.c
+++ b/velthuis.c
@@ -16,6 +16,10 @@ struct encoder_tuple {
 };
 
 static const struct encoder_tuple table[] = {
+	{"Aa",  "\u0100"},  {"Ii",  "\u012a"},
+	{"Uu",  "\u016a"},  {".Rr", "\u1e5c"},
+	{".Ll", "\u1e38"},
+
 	{"aa",  "\u0101"},  {"AA",  "\u0100"},
 	{"ii",  "\u012b"},  {"II",  "\u012a"},
 	{"uu",  "\u016b"},  {"UU",  "\u016a"},