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

help.markup: make $example render slightly nicer

db4
Slava Pestov 2010-02-18 01:18:48 +13:00
parent a64d6e27ec
commit da7cd4186a
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,8 +129,8 @@ ALIAS: $slot $snippet
"Examples" $heading print-element ; "Examples" $heading print-element ;
: $example ( element -- ) : $example ( element -- )
1 cut* swap "\n" join dup <input> [ 1 cut* [ "\n" join ] bi@ over <input> [
input-style get format nl print-element [ print ] [ output-style get format ] bi*
] ($code) ; ] ($code) ;
: $unchecked-example ( element -- ) : $unchecked-example ( element -- )

7
basis/help/stylesheet/stylesheet.factor
View File

@ -80,8 +80,11 @@ H{
{ wrap-margin f } { wrap-margin f }
} code-style set-global } code-style set-global
SYMBOL: input-style SYMBOL: output-style
H{ { font-style bold } } input-style set-global H{
{ font-style bold }
{ foreground COLOR: dark-red }
} output-style set-global
SYMBOL: url-style SYMBOL: url-style
H{ H{