43 lines
1.6 KiB
Racket
43 lines
1.6 KiB
Racket
#lang meta/web
|
|
|
|
(require "resources.rkt")
|
|
|
|
(define webchat-link
|
|
"http://webchat.freenode.net?channels=racket&uio=OT10cnVlJjExPTIzNg6b")
|
|
|
|
(define irc-chat
|
|
@page[#:title "IRC" #:part-of 'community]{
|
|
@iframe[src: webchat-link width: "100%" height: "400"]})
|
|
|
|
(define log-header+footer
|
|
(lazy (regexp-split #rx"{{{BODY}}}"
|
|
(xml->string @page[#:id 'browse-downloads
|
|
#:html-only #t
|
|
#:part-of 'community
|
|
"{{{BODY}}}"]))))
|
|
(define header @plain[#:file "irc-logs/dummy/HEADER.html" #:newline #f
|
|
(car (force log-header+footer))])
|
|
(define footer @plain[#:file "irc-logs/dummy/README.html" #:newline #f
|
|
(cadr (force log-header+footer))])
|
|
|
|
(provide irc-logs)
|
|
(define irc-logs
|
|
(let ([base "/home/scheme/irc-logs"])
|
|
(define t (make-hash))
|
|
(λ (type . text)
|
|
(hash-ref! t type (λ() (a href: (symlink (format "~a/~a" base type)
|
|
(format "irc-logs/~a" type))
|
|
text))))))
|
|
(void (irc-logs ".htaccess"))
|
|
|
|
(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 @chan{racket} channel on
|
|
@a[href: "http://freenode.net"]{@tt{freenode.net}} — an informal
|
|
discussion channel for all things related to Racket.
|
|
(@irc-logs['racket]{Browse the logs}.)
|
|
There is also @chan{racket-dev} (@irc-logs['racket-dev]{logs}), a channel
|
|
for notification bots.}])
|