Merge pull request #1 from rhennigan/feature/just-testing

Test pull request, please ignore
rhennigan · Oct 7, 2021 · db6cc6d · db6cc6d
2 parents 2bc60b1 + 517553b
commit db6cc6d
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/RelativeTimeString/Definition.wl 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" ] ] ];