! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: calendar kernel http.server.dispatchers prettyprint
sequences formatting furnace.actions html.forms accessors
furnace.redirection ;
IN: webapps.irc-log

TUPLE: irclog-app < dispatcher ;

: irc-link ( -- string )   
    gmt -7 hours convert-timezone >date<
    [ unparse 2 tail ] 2dip
    "http://bespin.org/~nef/logs/concatenative/%02s.%02d.%02d"
    sprintf ;
    
: <display-irclog-action> ( -- action )
    <action>
        [ irc-link <redirect> ] >>display ;

: <irclog-app> ( -- dispatcher )
    irclog-app new-dispatcher
        <display-irclog-action> "" add-responder ;