IRC client page and pointer to logs.

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
+      @text{@irc-chat{Chat on IRC} in the @TT{@big{@strong{#racket}}} channel
-        things related to Racket.})
+        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.}

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})