From a0b66b210f0906cb908675daf496d990b9eb4d7e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 13 Jul 2013 14:06:58 -0400 Subject: [PATCH] Add the `#racket-dev' channel. Moves the location of the logs too (same place, and then add "racket/" or "racket-dev/"), but keep the old URLs working too, for legacy links. --- pkgs/plt-services/meta/web/www/irc.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/pkgs/plt-services/meta/web/www/irc.rkt b/pkgs/plt-services/meta/web/www/irc.rkt index 6a3caa9418..e44447e37b 100644 --- a/pkgs/plt-services/meta/web/www/irc.rkt +++ b/pkgs/plt-services/meta/web/www/irc.rkt @@ -13,15 +13,21 @@ (let () @plain[#:file "irc-logs/.htaccess"]{ RewriteEngine on + RewriteRule ^(racket(-dev)?/.*)$ http://lambda.racket-lang.org@; + /irc-logs/@|"$1"| [P,L] + @; For legacy links (should eventually be removed) RewriteRule ^(.*)$ http://lambda.racket-lang.org@; - /irc-logs/@||racket/@|"$1"| [P] + /irc-logs/racket/@|"$1"| [P,L] } - (λ (text) @a[href: "irc-logs/"]{@text}))) + (λ (type . text) @a[href: `("irc-logs/" ,type "/")]{@text}))) (provide irc-quick) (define (irc-quick) + (define (chan name) @TT{@big{@strong{#@name}}}) @parlist[@strong{Discussion Channel} - @text{@irc-chat{Chat on IRC} in the @TT{@big{@strong{#racket}}} channel on + @text{@irc-chat{Chat on IRC} in the @chan{racket} channel on @a[href: "http://freenode.net"]{@tt{freenode.net}} — an informal discussion channel for all things related to Racket. - (@irc-logs{Browse the logs}.)}]) + (@irc-logs['racket]{Browse the logs}.) + There is also @chan{racket-dev} (@irc-logs['racket-dev]{logs}), a channel + for notification bots.}])