extra/furnace/boilerplate/boilerplate.factor

   1 ! Copyright (c) 2008 Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel namespaces
   4 html.templates html.templates.chloe
   5 locals
   6 http.server
   7 http.server.filters
   8 furnace ;
   9 IN: furnace.boilerplate
  10
  11 TUPLE: boilerplate < filter-responder template ;
  12
  13 : <boilerplate> ( responder -- boilerplate ) f boilerplate boa ;
  14
  15 M:: boilerplate call-responder* ( path responder -- )
  16     path responder call-next-method
  17     dup content-type>> "text/html" = [
  18         clone [| body |
  19             [
  20                 body
  21                 responder template>> resolve-template-path <chloe>
  22                 with-boilerplate
  23             ]
  24         ] change-body
  25     ] when ;