! Copyright (C) 2008 Chris Double. All Rights Reserved.
-USING:
+USING:
accessors
fjsc
furnace
namespaces
peg
sequences
- urls
+ urls
validators
;
IN: webapps.fjsc
TUPLE: fjsc < dispatcher ;
: absolute-url ( url -- url )
- "http://" request get "host" header append
- over "/" head? [ "/" append ] unless
+ "http://" request get "host" header append
+ over "/" head? [ "/" append ] unless
swap append ;
: <javascript-content> ( body -- content )
<compile-action> "compile" add-responder
<compile-url-action> "compile-url" add-responder
<boilerplate>
- { fjsc "fjsc" } >>template
+ { fjsc "fjsc" } >>template
>>default ;
: activate-fjsc ( -- )