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

help: fix some html navigation styles.

db4
John Benediktsson 2015-08-16 11:38:38 -07:00
parent 81cbf71d27
commit ace299b5c7
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/help/help.factor
View File

@ -110,11 +110,13 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
[ prefix 1array ] dip prefix , ;
: ($navigation-links) ( topic -- )
[
[ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ]
[ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ]
bi
] { } make [ ($navigation-table) ] unless-empty ;
help-path-style get [
[
[ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ]
[ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ]
bi
] { } make [ ($navigation-table) ] unless-empty
] with-style ;
: $title ( topic -- )
title-style get [

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

@ -90,7 +90,12 @@ M: pathname url-of
[ drop help-stylesheet ]
[
[ help-navbar ]
[ [ print-topic ] with-html-writer ]
[
[
title-style get
{ { page-color COLOR: FactorLightTan } } assoc-union
title-style [ print-topic ] with-variable
] with-html-writer ]
bi* append
] tri
simple-page ;