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