From 78c421e19e35a0aebf0d0babd045f3cb79ddd819 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 28 Jan 2022 17:45:17 -0600 Subject: [PATCH] unicode.flags: add some more flags and a way to view the codepoints for fun I'm all flagged out for now --- extra/unicode/flags/flags.factor | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/extra/unicode/flags/flags.factor b/extra/unicode/flags/flags.factor index 530248215d..5cd4ffb13f 100644 --- 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! ; -- 2.34.1