[plt-dev] Racket web page

;; Indents a multi-line string by n spaces
#lang racket
(define (indent str n)
  (define blanks (make-string n #\space))
  (string-join
   (for/list ([line (regexp-split #"\n" str)])
     (format "~a~a" blanks line))
   "\n"))


;; Another attempt at shrinking the google query example. Is this
still too wide?
#lang racket
(require net/url net/uri-codec)
(define (google-query q)
  (let ([g "http://www.google.com/search?q="]
        [u (string-append g (uri-encode q))]
        [rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)"])
    (regexp-match* rx (get-pure-port (string->url u)))))