steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.markup: allow $url to have display text that's not just the url.

factor-shell
John Benediktsson 2017-10-23 16:44:59 -07:00
parent 702f0686b1
commit 1006b4afc4
2 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/markup/markup.factor
View File

@ -77,7 +77,7 @@ ALIAS: $slot $snippet
[ strong-style get print-element* ] ($span) ; [ strong-style get print-element* ] ($span) ;
: $url ( children -- ) : $url ( children -- )
first dup >url [ [ ?second ] [ first ] bi over [ nip dup ] unless >url [
dup present href associate url-style get assoc-union dup present href associate url-style get assoc-union
[ write-object ] with-style [ write-object ] with-style
] ($span) ; ] ($span) ;

12
extra/unicode/control-pictures/control-pictures-docs.factor
View File

@ -1,16 +1,8 @@
! Copyright (C) 2017 Pi. ! Copyright (C) 2017 Pi.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: assocs hashtables help.markup help.stylesheet help.syntax USING: help.markup help.syntax strings ;
help.topics io.styles kernel namespaces present sequences
strings urls ;
IN: unicode.control-pictures 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 HELP: control-pictures
{ $values { $values
{ "string" string } { "string" string }
@ -18,7 +10,7 @@ HELP: control-pictures
{ $description "Transforms C0 control characters into their corresponding Control Picture block codepoints." } ; { $description "Transforms C0 control characters into their corresponding Control Picture block codepoints." } ;
ARTICLE: "unicode.control-pictures" "Control Pictures" 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 " { $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." "The " { $vocab-link "unicode.control-pictures" } " vocabulary provides a utility word " { $link control-pictures } " for transforming characters in the nonprintable " { $url "http://www.unicode.org/charts/PDF/U0000.pdf" "ASCII C0 block" } " to their representations in the " { $url "http://www.unicode.org/charts/PDF/U2400.pdf" "Control Pictures" } " block. It has no effect on any other characters."
; ;
ABOUT: "unicode.control-pictures" ABOUT: "unicode.control-pictures"