unicode.flags: adding country>flag and flag>country

diff --git a/extra/unicode/flags/flags.factor b/extra/unicode/flags/flags.factor
index 5cd4ffb13f13ee7975ba91b149aed898f1e39b55..e85db7b97e686285d0029cbf32367d98b1723bac 100644 (file)
--- a/extra/unicode/flags/flags.factor
+++ b/extra/unicode/flags/flags.factor
@@ -1,5 +1,5 @@
-USING: accessors assocs biassocs kernel lexer prettyprint
-sequences unicode ;
+USING: accessors assocs biassocs countries kernel lexer
+prettyprint sequences unicode ;
 
 IN: unicode.flags
 
@@ -38,6 +38,12 @@ MEMO: flag-codes ( -- biassoc ) H{
 : flag>unicode ( flag -- country-code )
     [ flag-codes to>> at ] map ;
 
+: country>flag ( country-name -- flag )
+    alpha-2 ?value-at drop unicode>flag ;
+
+: flag>country ( flag -- country-name )
+    flag>unicode alpha-2 ?at drop ;
+
 ! Random flags, England/Scotland/Wales, Refugee Nation Flag
 CONSTANT: extra-flags { "🏁" "🚩" "🎌" "🏴" "🏳" "🏳️‍🌈" "🏴‍☠️" "🏴󠁧󠁢󠁥󠁮󠁧󠁿" "🏴󠁧󠁢󠁳󠁣󠁴󠁿" "🏴󠁧󠁢󠁷󠁬󠁳󠁿" "🏳️‍🟧‍⬛️‍🟧" }