Typos, tweaks, etc; split text in new-name on double newline.
This commit is contained in:
parent
fd1b20c93d
commit
071707f9fa
|
@ -85,7 +85,6 @@
|
||||||
"http://download.racket-lang.org/installers/"
|
"http://download.racket-lang.org/installers/"
|
||||||
"Eli Barzilay"
|
"Eli Barzilay"
|
||||||
"eli@barzilay.org")
|
"eli@barzilay.org")
|
||||||
#;
|
|
||||||
("USA, Illinois (Northwestern University)"
|
("USA, Illinois (Northwestern University)"
|
||||||
"http://www.eecs.northwestern.edu/racket/"
|
"http://www.eecs.northwestern.edu/racket/"
|
||||||
"Robby Findler"
|
"Robby Findler"
|
||||||
|
|
|
@ -139,7 +139,7 @@
|
||||||
(let* ([g "http://www.google.com/search?q="]
|
(let* ([g "http://www.google.com/search?q="]
|
||||||
[u (string-append g (uri-encode str))]
|
[u (string-append g (uri-encode str))]
|
||||||
[rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)"])
|
[rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)"])
|
||||||
(regexp-match* rx (get-pure-port (string->url g)))))
|
(regexp-match* rx (get-pure-port (string->url u)))))
|
||||||
}
|
}
|
||||||
@desc{
|
@desc{
|
||||||
Add a call to @elemcode{let-me-google-that-for-you} to
|
Add a call to @elemcode{let-me-google-that-for-you} to
|
||||||
|
|
|
@ -4,10 +4,23 @@
|
||||||
|
|
||||||
(define (url str) (tt (a href: str str)))
|
(define (url str) (tt (a href: str str)))
|
||||||
|
|
||||||
|
;;TODO: this should be done with some common function, together with
|
||||||
|
;;translating "``" etc.
|
||||||
|
(define (split-to-paras xs)
|
||||||
|
(let loop ([cur #f] [paras '()] [xs xs])
|
||||||
|
(cond
|
||||||
|
[(null? xs) (map p (reverse (if cur (cons (reverse cur) paras) paras)))]
|
||||||
|
[cur (if (and (equal? "\n" (car xs))
|
||||||
|
(pair? (cdr xs)) (equal? "\n" (cadr xs)))
|
||||||
|
(loop #f (cons (reverse cur) paras) (cdr xs))
|
||||||
|
(loop (cons (car xs) cur) paras (cdr xs)))]
|
||||||
|
[else (loop (if (equal? "\n" (car xs)) cur (list (car xs)))
|
||||||
|
paras (cdr xs))])))
|
||||||
|
|
||||||
(define ((FAQ tag . ques) . answer)
|
(define ((FAQ tag . ques) . answer)
|
||||||
@div[class: 'faqentry]{
|
@div[class: 'faqentry]{
|
||||||
@div[class: 'faqques]{@a[name: tag]{@ques}}
|
@div[class: 'faqques]{@a[name: tag]{@ques}}
|
||||||
@div[class: 'faqans]{@answer}})
|
@div[class: 'faqans]{@@(split-to-paras answer)}})
|
||||||
|
|
||||||
(define styles
|
(define styles
|
||||||
@style/inline{
|
@style/inline{
|
||||||
|
@ -42,7 +55,6 @@
|
||||||
(page #:title "From PLT Scheme to Racket"
|
(page #:title "From PLT Scheme to Racket"
|
||||||
styles
|
styles
|
||||||
|
|
||||||
|
|
||||||
@div[class: 'nestedheading]{PLT Scheme is a Racket}
|
@div[class: 'nestedheading]{PLT Scheme is a Racket}
|
||||||
|
|
||||||
@div[class: 'nested]{Sure, it has parentheses, uses the keyword
|
@div[class: 'nested]{Sure, it has parentheses, uses the keyword
|
||||||
|
@ -135,7 +147,7 @@
|
||||||
possible.}
|
possible.}
|
||||||
|
|
||||||
@@FAQ["edu"]{
|
@@FAQ["edu"]{
|
||||||
How can I tell my department that we should teach with Racket in
|
How can I tell my department that we should teach with Racket
|
||||||
instead of Scheme? They've never heard of @name{Racket}.
|
instead of Scheme? They've never heard of @name{Racket}.
|
||||||
}{
|
}{
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user