From 517553b69e0c0fe95d05551d5bdde8109c013b88 Mon Sep 17 00:00:00 2001
From: Rick Hennigan <richardh@wolfram.com>
Date: Thu, 7 Oct 2021 13:42:20 -0400
Subject: [PATCH] stub for RelativeTimeString

---
 RelativeTimeString/Definition.wl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 RelativeTimeString/Definition.wl

diff --git a/RelativeTimeString/Definition.wl b/RelativeTimeString/Definition.wl
new file mode 100644
index 0000000..ce775fb
--- /dev/null
+++ b/RelativeTimeString/Definition.wl
@@ -0,0 +1,20 @@
+RelativeTimeString // ClearAll;
+
+RelativeTimeString // Attributes = { Listable };
+
+RelativeTimeString[ date1_? DateObjectQ, date2_? DateObjectQ ] :=
+    Module[ { diff, post, nice },
+        diff = date2 - date1;
+        post = If[ TrueQ @ Positive @ diff, " ago", " from now" ];
+        nice = Round @ ResourceFunction[ "SecondsToQuantity" ][ Abs @ diff ];
+        If[ QuantityMagnitude @ nice === 0,
+            "now",
+            StringJoin[
+                TextString[ nice /. r_Rational :> RuleCondition @ Round @ r ],
+                post
+            ]
+        ]
+    ];
+
+RelativeTimeString[ date_? DateObjectQ ] :=
+    RelativeTimeString[ date, DateObject[ Now, date[ "Granularity" ] ] ];
\ No newline at end of file