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
kernel make math namespaces parser present prettyprint
prettyprint.stylesheet quotations see sequences sets slots
sorting splitting strings vectors vocabs vocabs.loader words
words.symbol ;
sorting splitting strings urls vectors vocabs vocabs.loader
words words.symbol ;
FROM: prettyprint.sections => with-pprint ;
FROM: namespaces => set ;
IN: help.markup
@ -76,9 +76,9 @@ ALIAS: $slot $snippet
[ strong-style get print-element* ] ($span) ;
: $url ( children -- )
[
dup first href associate url-style get assoc-union
print-element*
first dup >url [
dup present href associate url-style get assoc-union
[ write-object ] with-style
] ($span) ;
: $nl ( children -- )