Add language and territory to output

ak-coram · Jul 18, 2023 · 284986d · 284986d
1 parent 95bfba8
commit 284986d
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/chronogram-cldr-parser.lisp b/chronogram-cldr-parser.lisp
@@ -108,7 +108,17 @@
                            (eras . ,(funcall parse-eras calendar))))
                        :intern-type t)))
   (defun parse-cldr (contents)
-    (let ((root (plump:parse contents)))
-      (list (cons 'calendars (funcall parse-calendar root))))))
+    (let* ((root (plump:parse contents))
+           (language (plump:get-attribute (clss-select-first "ldml > identity > language" root)
+                                          "type"))
+           (territory-node (clss-select-first "ldml > identity > territory" root))
+           (territory (when territory-node
+                        (plump:get-attribute territory-node "type")))
+           (calendars (funcall parse-calendar root)))
+      `((language . ,language)
+        ,@(when territory
+            `((territory . ,territory)))
+        ,@(when calendars
+            `((calendars . ,calendars)))))))
 
-;; (parse-cldr (uiop:read-file-string "cldr/common/main/hu.xml"))
+;; (parse-cldr (uiop:read-file-string "cldr-staging/production/common/main/en_GB.xml"))