fonts.syntax: not sure what this does, moving to unmaintained for now.

diff --git a/extra/fonts/syntax/authors.txt b/extra/fonts/syntax/authors.txt
deleted file mode 100644 (file)
index ce0899f..0000000
--- a/extra/fonts/syntax/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Sam Anklesaria
\ No newline at end of file

diff --git a/extra/fonts/syntax/summary.txt b/extra/fonts/syntax/summary.txt
deleted file mode 100644 (file)
index 35dcf4e..0000000
--- a/extra/fonts/syntax/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Syntax for modifying gadget fonts
\ No newline at end of file

diff --git a/extra/fonts/syntax/syntax-docs.factor b/extra/fonts/syntax/syntax-docs.factor
deleted file mode 100644 (file)
index 768f0b7..0000000
--- a/extra/fonts/syntax/syntax-docs.factor
+++ /dev/null
@@ -1,6 +0,0 @@
-USING: help.syntax help.markup ;
-IN: fonts.syntax
-
-HELP: FONT:
-{ $syntax "\"testing\" <label> FONT: 18 serif bold ... ;" }
-{ $description "Used after a gadget to change font settings.  Attributes can be in any order: the first number is set as the size, the style attributes like bold and italic will set the bold? and italic? slots, and font-names like serif or monospace will set the name slot." } ;

diff --git a/extra/fonts/syntax/syntax.factor b/extra/fonts/syntax/syntax.factor
deleted file mode 100644 (file)
index 34ccbc8..0000000
--- a/extra/fonts/syntax/syntax.factor
+++ /dev/null
@@ -1,16 +0,0 @@
-USING: accessors arrays variants combinators io.styles
-kernel math parser sequences fry ;
-IN: fonts.syntax
-
-VARIANT: fontname serif monospace ;
-
-: install ( object quot -- quot/? ) over [ curry ] [ 2drop [ ] ] if ;
-
-: >>name* ( object fontname -- object ) name>> >>name ;
-
-SYNTAX: FONT: \ ; parse-until {
-    [ [ number? ] find nip [ >>size ] install ]
-    [ [ italic = ] find nip [ >>italic? ] install ]
-    [ [ bold = ] find nip [ >>bold? ] install ]
-    [ [ fontname? ] find nip [ >>name* ] install ]
-} cleave 4array concat '[ dup font>> @ drop ] append! ;

diff --git a/unmaintained/fonts/syntax/authors.txt b/unmaintained/fonts/syntax/authors.txt
new file mode 100644 (file)
index 0000000..ce0899f
--- /dev/null
+++ b/unmaintained/fonts/syntax/authors.txt
@@ -0,0 +1 @@
+Sam Anklesaria
\ No newline at end of file

diff --git a/unmaintained/fonts/syntax/summary.txt b/unmaintained/fonts/syntax/summary.txt
new file mode 100644 (file)
index 0000000..35dcf4e
--- /dev/null
+++ b/unmaintained/fonts/syntax/summary.txt
@@ -0,0 +1 @@
+Syntax for modifying gadget fonts
\ No newline at end of file

diff --git a/unmaintained/fonts/syntax/syntax-docs.factor b/unmaintained/fonts/syntax/syntax-docs.factor
new file mode 100644 (file)
index 0000000..768f0b7
--- /dev/null
+++ b/unmaintained/fonts/syntax/syntax-docs.factor
@@ -0,0 +1,6 @@
+USING: help.syntax help.markup ;
+IN: fonts.syntax
+
+HELP: FONT:
+{ $syntax "\"testing\" <label> FONT: 18 serif bold ... ;" }
+{ $description "Used after a gadget to change font settings.  Attributes can be in any order: the first number is set as the size, the style attributes like bold and italic will set the bold? and italic? slots, and font-names like serif or monospace will set the name slot." } ;

diff --git a/unmaintained/fonts/syntax/syntax.factor b/unmaintained/fonts/syntax/syntax.factor
new file mode 100644 (file)
index 0000000..34ccbc8
--- /dev/null
+++ b/unmaintained/fonts/syntax/syntax.factor
@@ -0,0 +1,16 @@
+USING: accessors arrays variants combinators io.styles
+kernel math parser sequences fry ;
+IN: fonts.syntax
+
+VARIANT: fontname serif monospace ;
+
+: install ( object quot -- quot/? ) over [ curry ] [ 2drop [ ] ] if ;
+
+: >>name* ( object fontname -- object ) name>> >>name ;
+
+SYNTAX: FONT: \ ; parse-until {
+    [ [ number? ] find nip [ >>size ] install ]
+    [ [ italic = ] find nip [ >>italic? ] install ]
+    [ [ bold = ] find nip [ >>bold? ] install ]
+    [ [ fontname? ] find nip [ >>name* ] install ]
+} cleave 4array concat '[ dup font>> @ drop ] append! ;