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

meta/new-web: adjust one example to use define instead of let*

Browse Source
This commit is contained in:
Matthew Flatt 2014-03-08 20:42:47 -07:00
parent 38322f7202
commit d5c724d56e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/plt-services/meta/new-web/www/index.rkt
View File

@ -132,10 +132,10 @@
@code{#lang racket ; Simple web scraper
(require net/url net/uri-codec)
(define (let-me-google-that-for-you str)
(let* ([g "http://www.google.com/search?q="]
[u (string-append g (uri-encode str))]
[rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)"])
(regexp-match* rx (get-pure-port (string->url u)))))}
(define g "http://www.google.com/search?q=")
(define u (string-append g (uri-encode str)))
(define rx #rx"(?<=<h3 class=\"r\">).*?(?=</h3>)")
(regexp-match* rx (get-pure-port (string->url u))))}
@desc{Add a call to @elemcode{let-me-google-that-for-you} to get a list of
search results.})
(cmdline-example #:title "Command Line Dice"; -----------------------------------------------