From 48a3efe64226a4d321607ce858d1c241c64a6305 Mon Sep 17 00:00:00 2001
From: Alex Jordan <alex.jordan@pcc.edu>
Date: Wed, 20 Sep 2023 13:38:39 -0700
Subject: [PATCH] add they're/(s)he's and they've/(s)he's contractions

---
 macros/misc/randomPerson.pl | 44 +++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/macros/misc/randomPerson.pl b/macros/misc/randomPerson.pl
index f1429107b6..fe84ea8269 100644
--- a/macros/misc/randomPerson.pl
+++ b/macros/misc/randomPerson.pl
@@ -796,4 +796,48 @@ sub Were {
 	return shift->verb('Were', 'Was');
 }
 
+=head3 C<theyre> or C<Theyre>
+
+Returns the correct contraction for the pronoun with to be, with captilization.  For example
+
+    $p->theyre;
+
+or
+
+    $p->Theyre;
+
+=cut
+
+sub theyre {
+	my $self = shift;
+	return $self->they . "'" . $self->verb('re', 's');
+}
+
+sub Theyre {
+	my $self = shift;
+	return $self->They . "'" . $self->verb('re', 's');
+}
+
+=head3 C<theyve> or C<Theyve>
+
+Returns the correct contraction for the pronoun with to have, with captilization.  For example
+
+    $p->theyve;
+
+or
+
+    $p->Theyve;
+
+=cut
+
+sub theyve {
+	my $self = shift;
+	return $self->they . "'" . $self->verb('ve', 's');
+}
+
+sub Theyve {
+	my $self = shift;
+	return $self->They . "'" . $self->verb('ve', 's');
+}
+
 1;