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

4
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 , ; [ prefix 1array ] dip prefix , ;
: ($navigation-links) ( topic -- ) : ($navigation-links) ( topic -- )
help-path-style get [
[ [
[ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ] [ prev-article [ 1array \ $long-link "Prev:" ($navigation-link) ] when* ]
[ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ] [ next-article [ 1array \ $long-link "Next:" ($navigation-link) ] when* ]
bi bi
] { } make [ ($navigation-table) ] unless-empty ; ] { } make [ ($navigation-table) ] unless-empty
] with-style ;
: $title ( topic -- ) : $title ( topic -- )
title-style get [ title-style get [

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

@ -90,7 +90,12 @@ M: pathname url-of
[ drop help-stylesheet ] [ drop help-stylesheet ]
[ [
[ help-navbar ] [ 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 bi* append
] tri ] tri
simple-page ; simple-page ;