steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

support for linking to any irc channel logs, not just concatenative

db4
Doug Coleman 2009-03-15 13:33:11 -05:00
parent 7f0aba9de0
commit cee5ec8457
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/webapps/irc-log/irc-log.factor
View File

@ -7,15 +7,15 @@ IN: webapps.irc-log
TUPLE: irclog-app < dispatcher ; TUPLE: irclog-app < dispatcher ;
: irc-link ( -- string ) : irc-link ( channel -- string )
gmt -7 hours convert-timezone >date< gmt -7 hours convert-timezone >date<
[ unparse 2 tail ] 2dip [ unparse 2 tail ] 2dip
"http://bespin.org/~nef/logs/concatenative/%02s.%02d.%02d" "http://bespin.org/~nef/logs/%s/%02s.%02d.%02d"
sprintf ; sprintf ;
: <display-irclog-action> ( -- action ) : <display-irclog-action> ( -- action )
<action> <action>
[ irc-link <redirect> ] >>display ; [ "concatenative" irc-link <redirect> ] >>display ;
: <irclog-app> ( -- dispatcher ) : <irclog-app> ( -- dispatcher )
irclog-app new-dispatcher irclog-app new-dispatcher