ca3b27b810
(Using a symbolic name makes it easy to use without worrying about circular dependencies.)
14 lines
409 B
Racket
14 lines
409 B
Racket
#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" #:part-of 'community]{
|
|
@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})
|