1 ! Copyright (c) 2008 Slava Pestov
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel math.order namespaces furnace combinators.short-circuit
10 IN: furnace.boilerplate
12 TUPLE: boilerplate < filter-responder template init ;
14 : <boilerplate> ( responder -- boilerplate )
19 : wrap-boilerplate? ( response -- ? )
21 [ code>> { [ 200 = ] [ 400 499 between? ] } 1|| ]
22 [ content-type>> "text/html" = ]
25 M:: boilerplate call-responder* ( path responder -- )
27 path responder call-next-method
29 dup content-type>> "text/html" = [
33 responder template>> resolve-template-path <chloe>