Improve documentation by linking to Unicode charts for the relevant blocks

diff --git a/extra/unicode/control-pictures/control-pictures-docs.factor b/extra/unicode/control-pictures/control-pictures-docs.factor
index f294ff19d5b748f2de653dafe2596f36ada0501c..7567444e3ae2cd66191d59c1de545ae5b2c81b5d 100644 (file)
--- a/extra/unicode/control-pictures/control-pictures-docs.factor
+++ b/extra/unicode/control-pictures/control-pictures-docs.factor
@@ -1,8 +1,16 @@
 ! Copyright (C) 2017 Pi.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.syntax help.topics strings ;
+USING: assocs hashtables help.markup help.stylesheet help.syntax
+help.topics io.styles kernel namespaces present sequences
+strings urls ;
 IN: unicode.control-pictures
 
+: $url-to ( children -- )
+    first2 >url [
+        dup present href associate url-style get assoc-union
+        [ write-object ] with-style
+    ] ($span) ;
+
 HELP: control-pictures
 { $values
     { "string" string }
@@ -10,7 +18,7 @@ HELP: control-pictures
 { $description "Transforms C0 control characters into their corresponding Control Picture block codepoints." } ;
 
 ARTICLE: "unicode.control-pictures" "Control Pictures"
-"The " { $vocab-link "unicode.control-pictures" } " vocabulary provides a utility word " { $link control-pictures } " for transforming characters in the nonprintable ASCII C0 block to their representations in the Control Pictures block. It has no effect on any other characters."
+"The " { $vocab-link "unicode.control-pictures" } " vocabulary provides a utility word " { $link control-pictures } " for transforming characters in the nonprintable " { $url-to "ASCII C0 block" "http://www.unicode.org/charts/PDF/U0000.pdf" } " to their representations in the " { $url-to "Control Pictures" "http://www.unicode.org/charts/PDF/U2400.pdf" } " block. It has no effect on any other characters."
 ;
 
 ABOUT: "unicode.control-pictures"