From 97baaf78e72a2999f99b91410a08fe8bfed6ef8f Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Tue, 8 Jun 2010 14:40:02 -0400
Subject: [PATCH] IRC client page and pointer to logs.

---
 collects/meta/web/www/community.rkt | 12 +++++-------
 collects/meta/web/www/irc.rkt       | 13 +++++++++++++
 2 files changed, 18 insertions(+), 7 deletions(-)
 create mode 100644 collects/meta/web/www/irc.rkt

diff --git a/collects/meta/web/www/community.rkt b/collects/meta/web/www/community.rkt
index 11b1c87ab5..6baa0b23a1 100644
--- a/collects/meta/web/www/community.rkt
+++ b/collects/meta/web/www/community.rkt
@@ -1,7 +1,7 @@
 #lang at-exp s-exp "shared.rkt"
 
 (require "../stubs/blog.rkt" "../stubs/git.rkt" "../stubs/pre.rkt"
-         "people.rkt")
+         "people.rkt" "irc.rkt")
 
 (define (TT . xs)
   @tt[style: "background-color: #dde;"]{@xs})
@@ -18,10 +18,6 @@
 ;; (define google-groups
 ;;   @a[href: "http://groups.google.com/group/plt-scheme"]{Google Groups})
 
-(define (irc-chan name)
-  @text{@TT{#@big{@strong{@name}}} on
-        @a[href: "http://www.freenode.net"]{@tt{freenode.net}}})
-
 (provide community)
 (define community
   (page
@@ -40,8 +36,10 @@
         @; @";" also on @gmane{plt.dev}.)
         })
     (parlist @strong{Discussion Channels}
-      @text{@irc-chan{racket} @mdash an informal discussion channel for all
-        things related to Racket.})
+      @text{@irc-chat{Chat on IRC} in the @TT{@big{@strong{#racket}}} channel
+        on @a[href: "http://freenode.net"]{@tt{freenode.net}}
+        @mdash an informal discussion channel for all things related to Racket.
+        @irc-logs{Browse the logs}.})
     (parlist @strong{Resources for Learning}
       (apply parlist @text{Documentation for getting started:} intros)
       @text{@-cookbook @mdash useful recipes, many of which apply to Racket.}
diff --git a/collects/meta/web/www/irc.rkt b/collects/meta/web/www/irc.rkt
new file mode 100644
index 0000000000..6ae54bf8ab
--- /dev/null
+++ b/collects/meta/web/www/irc.rkt
@@ -0,0 +1,13 @@
+#lang at-exp s-exp "shared.rkt"
+
+(provide irc-chat irc-logs)
+
+(define webchat-link
+  "http://webchat.freenode.net?channels=racket&uio=OT10cnVlJjExPTIzNg6b")
+
+(define irc-chat
+  @page[#:title "IRC"]{
+    @iframe[src: webchat-link width: "100%" height: "400"]})
+
+(define irc-logs-symlink (symlink "/home/scheme/irc-logs/racket/"))
+(define (irc-logs text) @a[href: irc-logs-symlink]{@text})