unicode.flags: add some more flags and a way to view the codepoints for fun

I'm all flagged out for now

diff --git a/extra/unicode/flags/flags.factor b/extra/unicode/flags/flags.factor
index 530248215d7bf1ccfd204654d26a417c52e17bee..5cd4ffb13f13ee7975ba91b149aed898f1e39b55 100644 (file)
--- a/extra/unicode/flags/flags.factor
+++ b/extra/unicode/flags/flags.factor
@@ -1,4 +1,5 @@
-USING: accessors ascii assocs biassocs lexer sequences ;
+USING: accessors assocs biassocs kernel lexer prettyprint
+sequences unicode ;
 
 IN: unicode.flags
 
@@ -37,4 +38,13 @@ MEMO: flag-codes ( -- biassoc ) H{
 : flag>unicode ( flag -- country-code )
     [ flag-codes to>> at ] map ;
 
+! Random flags, England/Scotland/Wales, Refugee Nation Flag
+CONSTANT: extra-flags { "🏁" "🚩" "🎌" "🏴" "🏳" "🏳️‍🌈" "🏴‍☠️" "🏴󠁧󠁢󠁥󠁮󠁧󠁿" "🏴󠁧󠁢󠁳󠁣󠁴󠁿" "🏴󠁧󠁢󠁷󠁬󠁳󠁿" "🏳️‍🟧‍⬛️‍🟧" }
+
+: explain-extra-flags ( -- )
+    extra-flags [
+        dup . [ dup char>name ] { } map>assoc .
+    ] each ;
+
+
 SYNTAX: FLAG: scan-token unicode>flag suffix! ;