Add DateTime.TimeWithSeconds format

unisonweb · Jul 24, 2023 · 1dd1b3a · 1dd1b3a
1 parent 092d7c8
commit 1dd1b3a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/UI/DateTime.elm b/src/UI/DateTime.elm
@@ -1,3 +1,6 @@
+-- Include ui/FormatDateTime.js in the bundle to be able to call DateTime.view
+
+
 module UI.DateTime exposing
     ( DateTime
     , DateTimeFormat(..)
@@ -23,6 +26,7 @@ type DateTimeFormat
     = ShortDate
     | LongDate
     | Distance
+    | TimeWithSeconds
 
 
 fromPosix : Posix -> DateTime
@@ -47,6 +51,9 @@ toISO8601 (DateTime t) =
     Iso8601.fromTime t
 
 
+{-| Note: requires the web component ui/FormatDateTime.js to
+be part of the bundle
+-}
 view : DateTimeFormat -> DateTime -> Html msg
 view format d =
     let
@@ -60,6 +67,9 @@ view format d =
 
                 Distance ->
                     "distance"
+
+                TimeWithSeconds ->
+                    "timeWithSeconds"
     in
     node "format-date-time"
         [ attribute "format" (formatToString format) ]

diff --git a/src/UI/FormatDateTime.js b/src/UI/FormatDateTime.js
@@ -12,6 +12,7 @@ import { format, formatDistance, parseISO } from "date-fns";
 const FORMATS = {
   shortDate: (d) => format(d, "MMM d, yyyy"),
   longDate: (d) => format(d, "MMMM d, yyyy"),
+  timeWithSeconds: (d) => format(d, "HH:MM:SS"),
   distance: (d) => formatDistance(d, new Date()),
 };