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

help.markup: Store $url as urls.

db4
John Benediktsson 2011-03-07 15:03:48 -08:00
parent 43bd99804c
commit 8f5bd796a1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,8 +5,8 @@ combinators combinators.smart definitions definitions.icons effects
fry generic hashtables help.stylesheet help.topics io io.styles fry generic hashtables help.stylesheet help.topics io io.styles
kernel make math namespaces parser present prettyprint kernel make math namespaces parser present prettyprint
prettyprint.stylesheet quotations see sequences sets slots prettyprint.stylesheet quotations see sequences sets slots
sorting splitting strings vectors vocabs vocabs.loader words sorting splitting strings urls vectors vocabs vocabs.loader
words.symbol ; words words.symbol ;
FROM: prettyprint.sections => with-pprint ; FROM: prettyprint.sections => with-pprint ;
FROM: namespaces => set ; FROM: namespaces => set ;
IN: help.markup IN: help.markup
@ -76,9 +76,9 @@ ALIAS: $slot $snippet
[ strong-style get print-element* ] ($span) ; [ strong-style get print-element* ] ($span) ;
: $url ( children -- ) : $url ( children -- )
[ first dup >url [
dup first href associate url-style get assoc-union dup present href associate url-style get assoc-union
print-element* [ write-object ] with-style
] ($span) ; ] ($span) ;
: $nl ( children -- ) : $nl ( children -- )