Rebol Programming/stylize

= USAGE: = STYLIZE specs /master /styles styls

= DESCRIPTION: = Return a style sheet block.

STYLIZE is a function value. = ARGUMENTS =
 * specs -- A block of: new-style: old-style facets (Type: block)

= REFINEMENTS =
 * /master -- Add to or change master style sheet
 * /styles
 * styls -- Base on existing style sheet (Type: block)

= SOURCE CODE = stylize: func [ "Return a style sheet block." specs [block!] "A block of: new-style: old-style facets" /master "Add to or change master style sheet" /styles styls [block!] "Base on existing style sheet" /local new old new-face old-face args tmp ][   styles: either master [vid-styles] [copy either styles [styls] ] while [specs: find specs set-word!] [ set [new old] specs specs: skip specs 2 new: to-word :new if not word? :old [error "Invalid style for:" new] if not any [ old-face: select styles old old-face: select vid-styles old ] [error "No such style:" old] if not tmp: find specs set-word! [tmp: tail specs] args: copy/part specs tmp forall args [ if any [ find facet-words first args all [old-face/words find old-face/words first args] ] [               change args to-lit-word first args ]       ]         args: reduce head args new-face: make old-face either tmp: select args 'with [expand-specs old-face tmp] new-face/facets: args new-face/style: old new-face/flags: exclude new-face/flags state-flags grow-facets new-face args either old: find styles new [change next old new-face] [repend styles [new new-face]] if tmp: new-face/words [ while [tmp: find tmp block!] [ change tmp func [new args] first tmp ]       ]    ]     styles ]