Add datetime formats to dist

ak-coram · Jul 18, 2023 · 001e239 · 001e239
1 parent d9791a6
commit 001e239
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/chronogram-cldr-parser.lisp b/chronogram-cldr-parser.lisp
@@ -97,7 +97,7 @@
                         (narrow . ,(funcall parse-era-narrow calendar))
                         (wide . ,(funcall parse-era-names calendar))))))
 
-       ;; Date and time formats
+       ;; Date, time and datetime formats
        (parse-date-format
          (lambda (format)
            `((pattern . ,(plump:text (clss-select-first "pattern"
@@ -114,6 +114,14 @@
          (gen-parse-fn "timeFormats > timeFormatLength"
                        parse-time-format
                        :intern-type t))
+       (parse-datetime-format
+         (lambda (format)
+           `((pattern . ,(plump:text (clss-select-first "pattern"
+                                                        format))))))
+       (parse-datetime-formats
+         (gen-parse-fn "dateTimeFormats > dateTimeFormatLength"
+                       parse-datetime-format
+                       :intern-type t))
 
        ;; Calendar
        (parse-calendar
@@ -132,7 +140,9 @@
                          (date-formats . ,(funcall parse-date-formats
                                                    calendar))
                          (time-formats . ,(funcall parse-time-formats
-                                                   calendar)))))
+                                                   calendar))
+                         (datetime-formats . ,(funcall parse-datetime-formats
+                                                       calendar)))))
           :intern-type t)))
   (defun parse-cldr (contents)
     (let* ((root (plump:parse contents))