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

Merge branch 'ui' of git://github.com/klazuka/factor

Slava Pestov 2009-09-14 16:14:41 -05:00
parent eadf1bc9d5 7170e0cbfb
commit 2669e9cc34
4 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/colors/constants/factor-colors.txt
View File

@ -1,6 +1,6 @@
! Factor UI theme colors ! Factor UI theme colors
243 242 234 FactorLightLightTan 243 242 234 FactorLightTan
227 226 219 FactorLightTan 227 226 219 FactorTan
172 167 147 FactorDarkTan 172 167 147 FactorDarkTan
81 91 105 FactorLightSlateBlue 81 91 105 FactorLightSlateBlue
55 62 72 FactorDarkSlateBlue 55 62 72 FactorDarkSlateBlue

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

@ -1,6 +1,6 @@
! 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 literals namespaces ; USING: colors colors.constants io.styles namespaces ;
IN: help.stylesheet IN: help.stylesheet
SYMBOL: default-span-style SYMBOL: default-span-style
@ -34,7 +34,7 @@ H{
{ font-style bold } { font-style bold }
{ wrap-margin 500 } { wrap-margin 500 }
{ foreground COLOR: gray20 } { foreground COLOR: gray20 }
{ page-color COLOR: FactorLightLightTan } { page-color COLOR: FactorLightTan }
{ inset { 5 5 } } { inset { 5 5 } }
} title-style set-global } title-style set-global
@ -42,7 +42,7 @@ SYMBOL: help-path-style
H{ H{
{ font-size 10 } { font-size 10 }
{ table-gap { 5 5 } } { table-gap { 5 5 } }
{ table-border $ transparent } { table-border COLOR: FactorLightTan }
} help-path-style set-global } help-path-style set-global
SYMBOL: heading-style SYMBOL: heading-style
@ -75,7 +75,7 @@ H{
SYMBOL: code-style SYMBOL: code-style
H{ H{
{ page-color COLOR: FactorLightLightTan } { page-color COLOR: FactorLightTan }
{ inset { 5 5 } } { inset { 5 5 } }
{ wrap-margin f } { wrap-margin f }
} code-style set-global } code-style set-global
@ -113,7 +113,7 @@ H{
SYMBOL: table-style SYMBOL: table-style
H{ H{
{ table-gap { 5 5 } } { table-gap { 5 5 } }
{ table-border COLOR: FactorLightTan } { table-border COLOR: FactorTan }
} table-style set-global } table-style set-global
SYMBOL: list-style SYMBOL: list-style

10
basis/help/vocabs/vocabs.factor
View File

@ -227,6 +227,14 @@ C: <vocab-author> vocab-author
] bi ] bi
] unless-empty ; ] unless-empty ;
: vocab-is-not-loaded ( vocab -- )
"Words" $heading
"You must first load (USE:) this vocab to browse its documentation/words."
print-element vocab-name "USE: " prepend 1array $code ;
: describe-words ( vocab -- )
dup vocab [ words $words ] [ vocab-is-not-loaded ] if ;
: words. ( vocab -- ) : words. ( vocab -- )
last-element off last-element off
[ require ] [ words $words ] bi nl ; [ require ] [ words $words ] bi nl ;
@ -243,7 +251,7 @@ C: <vocab-author> vocab-author
first { first {
[ describe-help ] [ describe-help ]
[ describe-metadata ] [ describe-metadata ]
[ words $words ] [ describe-words ]
[ describe-files ] [ describe-files ]
[ describe-children ] [ describe-children ]
} cleave ; } cleave ;

13
word-at,assocs.html Normal file
View File

File diff suppressed because one or more lines are too long