From cee5ec845718a893b3cbfefaf2a49eb854a0a9eb Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 15 Mar 2009 13:33:11 -0500
Subject: [PATCH] support for linking to any irc channel logs, not just
 concatenative

---
 extra/webapps/irc-log/irc-log.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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