factor/basis/help/stylesheet/stylesheet.factor

154 lines
3.5 KiB
Factor

! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs colors.constants fonts fry io.styles kernel literals
math namespaces sequences ;
IN: help.stylesheet
: wrap-margin-full ( -- n )
42 default-font-size * ;
: wrap-margin-table-content ( -- n )
29 default-font-size * ;
: font-size-subsection ( -- n )
7/6 default-font-size * >integer ;
: font-size-title ( -- n )
5/3 default-font-size * >integer ;
: font-size-heading ( -- n )
4/3 default-font-size * >integer ;
SYMBOL: default-span-style
H{
{ font-name $ default-sans-serif-font-name }
{ font-size $ default-font-size }
{ font-style plain }
} default-span-style set-global
SYMBOL: default-block-style
H{
{ wrap-margin $ wrap-margin-full }
} default-block-style set-global
SYMBOL: link-style
H{
{ foreground COLOR: DodgerBlue4 }
{ font-style bold }
} link-style set-global
SYMBOL: emphasis-style
H{ { font-style italic } } emphasis-style set-global
SYMBOL: strong-style
H{ { font-style bold } } strong-style set-global
SYMBOL: title-style
H{
{ font-name $ default-sans-serif-font-name }
{ font-size $ font-size-title }
{ font-style bold }
{ wrap-margin $ wrap-margin-full }
{ foreground COLOR: gray20 }
{ page-color COLOR: FactorLightTan }
{ inset { 5 5 } }
} title-style set-global
SYMBOL: help-path-style
H{
{ font-size $ default-font-size }
{ table-gap { 5 5 } }
{ table-border COLOR: FactorLightTan }
} help-path-style set-global
SYMBOL: heading-style
H{
{ font-name $ default-sans-serif-font-name }
{ font-size $ font-size-heading }
{ font-style bold }
{ foreground COLOR: FactorDarkSlateBlue }
} heading-style set-global
SYMBOL: subsection-style
H{
{ font-name $ default-sans-serif-font-name }
{ font-size $ font-size-subsection }
{ font-style bold }
} subsection-style set-global
SYMBOL: snippet-style
H{
{ font-name $ default-monospace-font-name }
{ font-size $ default-font-size }
{ foreground COLOR: DarkOrange4 }
} snippet-style set-global
SYMBOL: code-char-style
H{
{ font-name $ default-monospace-font-name }
{ font-size $ default-font-size }
} code-char-style set-global
SYMBOL: code-style
H{
{ page-color COLOR: FactorLightTan }
{ inset { 5 5 } }
{ wrap-margin f }
} code-style set-global
SYMBOL: output-style
H{
{ font-style bold }
{ foreground COLOR: DarkOrange4 }
} output-style set-global
SYMBOL: url-style
H{
{ font-name $ default-monospace-font-name }
{ foreground COLOR: DodgerBlue4 }
} url-style set-global
SYMBOL: warning-style
H{
{ page-color COLOR: gray90 }
{ border-color COLOR: red }
{ inset { 5 5 } }
{ wrap-margin $ wrap-margin-full }
} warning-style set-global
SYMBOL: deprecated-style
H{
{ page-color COLOR: gray90 }
{ border-color COLOR: red }
{ inset { 5 5 } }
{ wrap-margin $ wrap-margin-full }
} deprecated-style set-global
SYMBOL: table-content-style
H{
{ wrap-margin $ wrap-margin-table-content }
} table-content-style set-global
SYMBOL: table-style
H{
{ table-gap { 5 5 } }
{ table-border COLOR: FactorTan }
} table-style set-global
SYMBOL: list-style
H{ { table-gap { 10 2 } } } list-style set-global
SYMBOL: bullet
"• " bullet set-global
: adjust-help-font-size ( delta -- )
[
font-size
{
default-span-style title-style
help-path-style heading-style
subsection-style snippet-style
code-char-style
}
] dip '[ get-global [ _ + ] change-at ] with each ;