Added am/pm to format string

daypack-dev · Apr 12, 2024 · 0f61638 · 0f61638
1 parent 08da22c
commit 0f61638
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/timedesc/printers.ml b/timedesc/printers.ml
@@ -149,6 +149,18 @@ module Format_string_parsers = struct
            else if hour > 12 then hour - 12 else hour
          in
          return (pad_int padding hour));
+        (string "am/pm:"
+         *> commit
+         *> case
+         >>= fun case1 ->
+         case
+         >>= fun case2 ->
+         let c1, c2 =
+           if hour < 12 then ('a', 'm')
+           else ('p', 'm')
+         in
+         return (Printf.sprintf "%c%c"
+                   (map_char_to_case case1 c1) (map_char_to_case case2 c2)));
         (string "min:"
          *> commit
          *> padding