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

help.stylesheet: provide a mechanism to adjust the help fonts.

db4
John Benediktsson 2012-08-07 08:36:16 -07:00
parent 463e9dafb2
commit 7e616a4d55
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: colors colors.constants io.styles namespaces ; USING: assocs colors colors.constants fry io.styles kernel
math namespaces sequences ;
IN: help.stylesheet IN: help.stylesheet
SYMBOL: default-span-style SYMBOL: default-span-style
@ -124,3 +125,12 @@ H{ { table-gap { 10 2 } } } list-style set-global
SYMBOL: bullet SYMBOL: bullet
"• " bullet set-global "• " bullet set-global
: adjust-help-font-size ( delta -- )
[
font-size
{
default-span-style title-style heading-style
subsection-style snippet-style code-char-style
}
] dip '[ get-global [ _ + ] change-at ] with each ;