STYLIZE specs /master /styles styls
Return a style sheet block.
STYLIZE is a function value.
- specs -- A block of: new-style: old-style facets (Type: block)
- /master -- Add to or change master style sheet
- styls -- Base on existing style sheet (Type: block)
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 ]Last modified on 13 November 2012, at 10:48