62 lines
1.5 KiB
Factor
62 lines
1.5 KiB
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: html.templates.chloe.syntax
|
|
USING: accessors kernel sequences combinators kernel namespaces
|
|
classes.tuple assocs splitting words arrays memoize parser lexer
|
|
io io.files io.encodings.utf8 io.streams.string
|
|
unicode.case mirrors fry math urls
|
|
multiline xml xml.data xml.writer xml.utilities
|
|
html.elements
|
|
html.components
|
|
html.templates ;
|
|
|
|
SYMBOL: tags
|
|
|
|
tags global [ H{ } clone or ] change-at
|
|
|
|
: define-chloe-tag ( name quot -- ) swap tags get set-at ;
|
|
|
|
: CHLOE:
|
|
scan parse-definition define-chloe-tag ; parsing
|
|
|
|
: chloe-ns "http://factorcode.org/chloe/1.0" ; inline
|
|
|
|
MEMO: chloe-name ( string -- name )
|
|
name new
|
|
swap >>main
|
|
chloe-ns >>url ;
|
|
|
|
: required-attr ( tag name -- value )
|
|
dup chloe-name rot at*
|
|
[ nip ] [ drop " attribute is required" append throw ] if ;
|
|
|
|
: optional-attr ( tag name -- value )
|
|
chloe-name swap at ;
|
|
|
|
: singleton-component-tag ( tag class -- )
|
|
[ "name" required-attr ] dip render ;
|
|
|
|
: CHLOE-SINGLETON:
|
|
scan-word
|
|
[ name>> ] [ '[ , singleton-component-tag ] ] bi
|
|
define-chloe-tag ;
|
|
parsing
|
|
|
|
: attrs>slots ( tag tuple -- )
|
|
[ attrs>> ] [ <mirror> ] bi*
|
|
'[
|
|
swap main>> dup "name" =
|
|
[ 2drop ] [ , set-at ] if
|
|
] assoc-each ;
|
|
|
|
: tuple-component-tag ( tag class -- )
|
|
[ drop "name" required-attr ]
|
|
[ new [ attrs>slots ] keep ]
|
|
2bi render ;
|
|
|
|
: CHLOE-TUPLE:
|
|
scan-word
|
|
[ name>> ] [ '[ , tuple-component-tag ] ] bi
|
|
define-chloe-tag ;
|
|
parsing
|