157 lines
		
	
	
		
			3.6 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			157 lines
		
	
	
		
			3.6 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 ui.theme ;
 | |
| 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 ;
 | |
| 
 | |
| : font-size-span ( -- n )
 | |
|     13/12 default-font-size * >integer ;
 | |
| 
 | |
| SYMBOL: default-span-style
 | |
| H{
 | |
|     { font-name $ default-sans-serif-font-name }
 | |
|     { font-size $ font-size-span }
 | |
|     { foreground $ text-color }
 | |
|     { 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 $ link-color }
 | |
|     { 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 $ title-color }
 | |
|     { 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 } }
 | |
| } 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 $ heading-color }
 | |
| } 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 $ snippet-color }
 | |
| } 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 $ code-background-color }
 | |
|     { inset { 5 5 } }
 | |
|     { wrap-margin f }
 | |
| } code-style set-global
 | |
| 
 | |
| SYMBOL: output-style
 | |
| H{
 | |
|     { font-style bold }
 | |
|     { foreground $ output-color }
 | |
| } output-style set-global
 | |
| 
 | |
| SYMBOL: url-style
 | |
| H{
 | |
|     { font-name $ default-monospace-font-name }
 | |
|     { foreground $ link-color }
 | |
| } url-style set-global
 | |
| 
 | |
| SYMBOL: warning-style
 | |
| H{
 | |
|     { page-color $ warning-background-color }
 | |
|     { border-color $ warning-border-color }
 | |
|     { inset { 5 5 } }
 | |
|     { wrap-margin $ wrap-margin-full }
 | |
| } warning-style set-global
 | |
| 
 | |
| SYMBOL: deprecated-style
 | |
| H{
 | |
|     { page-color $ warning-background-color }
 | |
|     { border-color $ warning-border-color }
 | |
|     { 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 $ table-border-color }
 | |
| } 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 ;
 |