From 6f2ff6af4927a686e5d865e2ed80cdd1e5c72b38 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 30 Jan 2013 11:07:38 -0700
Subject: [PATCH] web page: videos link and other small changes

---
 collects/meta/web/common/links.rkt  | 13 +++++++++++++
 collects/meta/web/www/community.rkt | 10 +++++-----
 collects/meta/web/www/learning.rkt  |  2 ++
 3 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/collects/meta/web/common/links.rkt b/collects/meta/web/common/links.rkt
index d7659664e0..7d34c8ae0b 100644
--- a/collects/meta/web/common/links.rkt
+++ b/collects/meta/web/common/links.rkt
@@ -46,3 +46,16 @@
     @i{Programming Languages: Application and Interpretation}})
 
 (define* -bootstrap @make-link["http://www.bootstrapworld.org/"]{Bootstrap})
+
+(provide -rcon)
+(define (-rcon #:year [year #f] 
+               [body (if year 
+                         (format "~a" year)
+                         "RacketCon")])
+  (make-link (string-append
+              "http://con.racket-lang.org/"
+              (case year
+                [(2011) "2011/"]
+                [(#f 2012) ""]
+                [else (error 'rcon "unknown year: ~e" year)]))
+             body))
diff --git a/collects/meta/web/www/community.rkt b/collects/meta/web/www/community.rkt
index 3d45381fc8..eb90adf4ba 100644
--- a/collects/meta/web/www/community.rkt
+++ b/collects/meta/web/www/community.rkt
@@ -13,13 +13,13 @@
            resources for developers, RacketCon, blog, and more.}]{
     @mailing-lists-quick
     @irc-quick
-    @parlist[@strong{PLT Scheme Inc.}
+    @parlist[@strong{RacketCon}
+             @text{@-rcon{RacketCon} is our annual conference: @-rcon[#:year 2012] and @-rcon[#:year 2011].}]
+    @parlist[@strong{PLT Design Inc.}
       @text{@blog — announcements, helpful hints, and thoughtful rants.}
       @text{@a[href: "http://twitter.com/#!/racketlang"]{Twitter}
-            — random racket bits.}
-      @text{@people — the people behind Racket.}
-      @text{@a[href: "http://con.racket-lang.org/"]{RacketCon}
-            — our annual conference.}]
+            — random Racket bits.}
+      @text{@people — the people behind Racket.}]
     @parlist[@strong{Development}
       @text{@git (also available on
             @a[href: "http://github.com/plt/racket/"]{GitHub}).}
diff --git a/collects/meta/web/www/learning.rkt b/collects/meta/web/www/learning.rkt
index 9fe67c8c06..987184dd68 100644
--- a/collects/meta/web/www/learning.rkt
+++ b/collects/meta/web/www/learning.rkt
@@ -15,6 +15,8 @@
         worthwhile for experience programmers who are new to “functional
         programming.”}
       @text{@-plai — a textbook on programming languages.}]
+    @parlist[@strong{Videos}
+      @text{See the @a[href: "https://github.com/plt/racket/wiki/Videos"]{videos page at the Racket wiki}.}]
     @parlist[
       @strong{Outreach}
       @text{@-pbd — a workshop to train teachers using @-htdp in the