suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Narrower irc page.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-02-11 19:45:33 -05:00 committed by Matthew Flatt
parent 65e3a5c389
commit c9416fdfe9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
new-racket-web/new-plt-services/meta/new-web/www/irc.rkt
View File

@ -1,13 +1,14 @@
#lang plt-web #lang plt-web
(require "resources.rkt") (require "resources.rkt" plt-web/style)
(define webchat-link (define webchat-link
"http://webchat.freenode.net?channels=racket&uio=OT10cnVlJjExPTIzNg6b") "http://webchat.freenode.net?channels=racket&uio=OT10cnVlJjExPTIzNg6b")
(define irc-chat (define irc-chat
@page[#:site www-site #:title "IRC" #:part-of 'community]{ @page[#:site www-site #:title "IRC" #:part-of 'community]{
@iframe[src: webchat-link width: "100%" height: "400"]}) @columns[12 #:row? #t #:center? #t]{
@iframe[src: webchat-link width: "100%" height: "400"]}})
(define log-header+footer (define log-header+footer
(lazy (regexp-split #rx"{{{BODY}}}" (lazy (regexp-split #rx"{{{BODY}}}"