/extra/webapps/irc-log/irc-log.factor

http://github.com/abeaumont/factor · Factor · 22 lines · 16 code · 4 blank · 2 comment · 0 complexity · 179fe72d94a45d68112a3234402e12b2 MD5 · raw file 

    

  1. ! Copyright (C) 2008 Doug Coleman.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: calendar kernel http.server.dispatchers prettyprint
    4. 

  4. sequences formatting furnace.actions html.forms accessors
    5. 

  5. furnace.redirection ;
    6. 

  6. IN: webapps.irc-log
    7. 

  7. 

  8. TUPLE: irclog-app < dispatcher ;
    9. 

  9. 

  10. : irc-link ( channel -- string )   
    11. 

  11.     gmt -7 hours convert-timezone >date<
    12. 

  12.     [ unparse 2 tail ] 2dip
    13. 

  13.     "http://bespin.org/~nef/logs/%s/%02s.%02d.%02d"
    14. 

  14.     sprintf ;
    15. 

  15.     
    16. 

  16. : <display-irclog-action> ( -- action )
    17. 

  17.     <action>
    18. 

  18.         [ "concatenative" irc-link <redirect> ] >>display ;
    19. 

  19. 

  20. : <irclog-app> ( -- dispatcher )
    21. 

  21.     irclog-app new-dispatcher
    22. 

  22.         <display-irclog-action> "" add-responder ;
    23.