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

corrections and typos

Browse Source
This commit is contained in:
Danny Yoo 2011-10-05 13:56:56 -04:00
parent f087ec8619
commit d477de9e23
3 changed files with 32 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/cs019/where-am-i/where-am-i.rkt
View File

@ -19,23 +19,21 @@
;; one. ;; one.
(define-struct: world ([real : Coord/Unknown$] (define-struct: world ([real : Coord/Unknown$]
[mock : Coord/Unknown$])) [mock : Coord/Unknown$]))
(define World$ (Sig: world?))
(define: (location-change [world : world$] [dom : View$] [evt : Event$]) -> world$
(define: (location-change [world : World$] [dom : View$] [evt : Event$]) -> World$
(make-world (make-coord (event-ref evt "latitude") (make-world (make-coord (event-ref evt "latitude")
(event-ref evt "longitude")) (event-ref evt "longitude"))
(world-mock world))) (world-mock world)))
(define: (mock-location-change [world : World$] [dom : View$] [evt : Event$]) -> World$ (define: (mock-location-change [world : world$] [dom : View$] [evt : Event$]) -> world$
(make-world (world-real world) (make-world (world-real world)
(make-coord (event-ref evt "latitude") (make-coord (event-ref evt "latitude")
(event-ref evt "longitude")))) (event-ref evt "longitude"))))
(define: (draw [world : World$] [dom : View$]) -> View$ (define: (draw [world : world$] [dom : View$]) -> View$
(local [(define v1 (if (coord? (world-real world)) (local [(define v1 (if (coord? (world-real world))
(update-view-text (view-focus dom "real-location") (update-view-text (view-focus dom "real-location")
(format "lat=~a, lng=~a" (format "lat=~a, lng=~a"

28
make-planet-archive.sh Executable file
View File

@ -0,0 +1,28 @@
#!/bin/bash
MAJOR=1
MINOR=4
PROJNAME=whalesong
OLDDIR=`pwd`
mkdir -p tmp
rm -rf tmp/$PROJNAME
echo "Checking out clean repo"
git archive --format=tar --prefix=$PROJNAME/ HEAD | (cd tmp && tar xf -)
## Remove any directories that we don't want as part of the repository.
#cd $OLDDIR/tmp/$PROJNAME/private
#rm -rf sandbox
cd $OLDDIR/tmp
raco planet unlink dyoo $PROJNAME.plt $MAJOR $MINOR
raco planet link dyoo $PROJNAME.plt $MAJOR $MINOR $PROJNAME
echo "Making planet package"
raco planet create $PROJNAME
raco planet unlink dyoo $PROJNAME.plt $MAJOR $MINOR
cd $OLDDIR
cp tmp/$PROJNAME.plt .

2
scribblings/manual.scrbl
View File

@ -1266,7 +1266,7 @@ Whalesong uses code and utilities from the following external projects:
@item{js-numbers (@url{http://github.com/dyoo/js-numbers/})} @item{js-numbers (@url{http://github.com/dyoo/js-numbers/})}
@item{JSON (@url{http://www.json.org/js.html})} @item{JSON (@url{http://www.json.org/js.html})}
@item{jquery (@url{http://jquery.com/})} @item{jquery (@url{http://jquery.com/})}
@item{Google Closure Compiler (@url{http://code.google.com/p/closure-compiler/}}} @item{Google Closure Compiler (@url{http://code.google.com/p/closure-compiler/})}
@item{excanvas (@url{http://excanvas.sourceforge.net/})} @item{excanvas (@url{http://excanvas.sourceforge.net/})}