32 lines
924 B
Factor
32 lines
924 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors 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.syntax html.components
|
|
html.templates ;
|
|
IN: html.templates.chloe.syntax
|
|
|
|
SYMBOL: tags
|
|
|
|
tags [ H{ } clone ] initialize
|
|
|
|
: define-chloe-tag ( name quot -- ) swap tags get set-at ;
|
|
|
|
SYNTAX: CHLOE:
|
|
scan parse-definition define-chloe-tag ;
|
|
|
|
CONSTANT: chloe-ns "http://factorcode.org/chloe/1.0"
|
|
|
|
: chloe-name? ( name -- ? )
|
|
url>> chloe-ns = ;
|
|
|
|
XML-NS: chloe-name http://factorcode.org/chloe/1.0
|
|
|
|
: required-attr ( tag name -- value )
|
|
[ nip ] [ chloe-name attr ] 2bi
|
|
[ ] [ " attribute is required" append throw ] ?if ;
|
|
|
|
: optional-attr ( tag name -- value )
|
|
chloe-name attr ;
|