flags: move to unicode.flags

diff --git a/extra/flags/authors.txt b/extra/flags/authors.txt
deleted file mode 100644 (file)
index e091bb8..0000000
--- a/extra/flags/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-John Benediktsson

diff --git a/extra/flags/flags-tests.factor b/extra/flags/flags-tests.factor
deleted file mode 100644 (file)
index cb54572..0000000
--- a/extra/flags/flags-tests.factor
+++ /dev/null
@@ -1,3 +0,0 @@
-USING: flags tools.test ;
-
-{ "🇺🇸" } [ "us" unicode-flag ] unit-test

diff --git a/extra/flags/flags.factor b/extra/flags/flags.factor
deleted file mode 100644 (file)
index 0c7a462..0000000
--- a/extra/flags/flags.factor
+++ /dev/null
@@ -1,35 +0,0 @@
-USING: ascii assocs sequences ;
-
-IN: flags
-
-CONSTANT: flag-codes H{
-    { CHAR: A CHAR: 🇦 }
-    { CHAR: B CHAR: 🇧 }
-    { CHAR: C CHAR: 🇨 }
-    { CHAR: D CHAR: 🇩 }
-    { CHAR: E CHAR: 🇪 }
-    { CHAR: F CHAR: 🇫 }
-    { CHAR: G CHAR: 🇬 }
-    { CHAR: H CHAR: 🇭 }
-    { CHAR: I CHAR: 🇮 }
-    { CHAR: J CHAR: 🇯 }
-    { CHAR: K CHAR: 🇰 }
-    { CHAR: L CHAR: 🇱 }
-    { CHAR: M CHAR: 🇲 }
-    { CHAR: N CHAR: 🇳 }
-    { CHAR: O CHAR: 🇴 }
-    { CHAR: P CHAR: 🇵 }
-    { CHAR: Q CHAR: 🇶 }
-    { CHAR: R CHAR: 🇷 }
-    { CHAR: S CHAR: 🇸 }
-    { CHAR: T CHAR: 🇹 }
-    { CHAR: U CHAR: 🇺 }
-    { CHAR: V CHAR: 🇻 }
-    { CHAR: W CHAR: 🇼 }
-    { CHAR: X CHAR: 🇽 }
-    { CHAR: Y CHAR: 🇾 }
-    { CHAR: Z CHAR: 🇿 }
-}
-
-: unicode-flag ( country-code -- flag )
-    >upper [ flag-codes at ] map ;

diff --git a/extra/flags/summary.txt b/extra/flags/summary.txt
deleted file mode 100644 (file)
index c40abf8..0000000
--- a/extra/flags/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Unicode country flags

diff --git a/extra/unicode/flags/authors.txt b/extra/unicode/flags/authors.txt
new file mode 100644 (file)
index 0000000..e091bb8
--- /dev/null
+++ b/extra/unicode/flags/authors.txt
@@ -0,0 +1 @@
+John Benediktsson

diff --git a/extra/unicode/flags/flags-tests.factor b/extra/unicode/flags/flags-tests.factor
new file mode 100644 (file)
index 0000000..cb54572
--- /dev/null
+++ b/extra/unicode/flags/flags-tests.factor
@@ -0,0 +1,3 @@
+USING: flags tools.test ;
+
+{ "🇺🇸" } [ "us" unicode-flag ] unit-test

diff --git a/extra/unicode/flags/flags.factor b/extra/unicode/flags/flags.factor
new file mode 100644 (file)
index 0000000..5dc523b
--- /dev/null
+++ b/extra/unicode/flags/flags.factor
@@ -0,0 +1,35 @@
+USING: ascii assocs sequences ;
+
+IN: unicode.flags
+
+CONSTANT: flag-codes H{
+    { CHAR: A CHAR: 🇦 }
+    { CHAR: B CHAR: 🇧 }
+    { CHAR: C CHAR: 🇨 }
+    { CHAR: D CHAR: 🇩 }
+    { CHAR: E CHAR: 🇪 }
+    { CHAR: F CHAR: 🇫 }
+    { CHAR: G CHAR: 🇬 }
+    { CHAR: H CHAR: 🇭 }
+    { CHAR: I CHAR: 🇮 }
+    { CHAR: J CHAR: 🇯 }
+    { CHAR: K CHAR: 🇰 }
+    { CHAR: L CHAR: 🇱 }
+    { CHAR: M CHAR: 🇲 }
+    { CHAR: N CHAR: 🇳 }
+    { CHAR: O CHAR: 🇴 }
+    { CHAR: P CHAR: 🇵 }
+    { CHAR: Q CHAR: 🇶 }
+    { CHAR: R CHAR: 🇷 }
+    { CHAR: S CHAR: 🇸 }
+    { CHAR: T CHAR: 🇹 }
+    { CHAR: U CHAR: 🇺 }
+    { CHAR: V CHAR: 🇻 }
+    { CHAR: W CHAR: 🇼 }
+    { CHAR: X CHAR: 🇽 }
+    { CHAR: Y CHAR: 🇾 }
+    { CHAR: Z CHAR: 🇿 }
+}
+
+: unicode-flag ( country-code -- flag )
+    >upper [ flag-codes at ] map ;

diff --git a/extra/unicode/flags/summary.txt b/extra/unicode/flags/summary.txt
new file mode 100644 (file)
index 0000000..c40abf8
--- /dev/null
+++ b/extra/unicode/flags/summary.txt
@@ -0,0 +1 @@
+Unicode country flags