From a460ab960c66d5a074cd41eab38b7da99be5394f Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 15 Oct 2013 11:29:30 -0500
Subject: [PATCH] adjust image docs to use svg instead of png

---
 .../teachpack/2htdp/scribblings/image-guide.scrbl      | 10 ++++++----
 .../htdp-doc/teachpack/2htdp/scribblings/image.scrbl   |  2 +-
 .../htdp-doc/teachpack/htdp/scribblings/shared.rkt     |  9 +++++++--
 3 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image-guide.scrbl b/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image-guide.scrbl
index 8a625611f0..40a42a8236 100644
--- a/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image-guide.scrbl
+++ b/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image-guide.scrbl
@@ -12,7 +12,9 @@
           "img-eval.rkt"
           scribble/decode
           scribble/manual
-          scribble/eval)
+          scribble/eval
+          scribble/core
+          scribble/html-properties)
 
 @(define guide-eval (make-img-eval))
 
@@ -20,7 +22,7 @@
    (image-examples exp ...)
    (examples #:eval guide-eval exp ...))
 
-@(define-syntax-rule 
+@(define-syntax-rule
    (image-interaction exp ...)
    (interaction #:eval guide-eval exp ...))
 
@@ -35,8 +37,8 @@
 @(interaction-eval #:eval guide-eval 
                    (require racket/list racket/local))
 
-
-@title[#:tag "image-guide"]{Image Guide}
+@title[#:style (style "svg" (list (render-pict-as 'svg-images)))
+               #:tag "image-guide"]{Image Guide}
 
 This section introduces the @racketmodname[2htdp/image] library
 through a series of increasingly complex image constructions
diff --git a/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl b/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl
index 9c7d447f1e..6f3cb39cba 100644
--- a/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl
+++ b/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl
@@ -34,7 +34,7 @@
      (img-eval '(extra-margin 0))))
      
 
-@teachpack["image"]{Images}
+@teachpack[#:svg? #t "image"]{Images}
 
 @(define mode/color-and-nitty-text
    (make-splice
diff --git a/pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/shared.rkt b/pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/shared.rkt
index 82ade26c81..b2c1b408d0 100644
--- a/pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/shared.rkt
+++ b/pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/shared.rkt
@@ -1,12 +1,17 @@
 #lang racket/base
 
-(require scribble/manual)
+(require scribble/manual 
+         scribble/core
+         scribble/html-properties)
 
 (provide teachpack
          beginner-require)
 
-(define (teachpack tp . name)
+(define (teachpack #:svg? [svg? #f] tp . name)
   (apply title #:tag tp
+         #:style (if svg? 
+                     (style "svg" (list (render-pict-as 'svg-images)))
+                     #f)
          `(,@name ": " ,(filepath (format "~a.rkt" tp))
            ,(index (format "~a teachpack" tp)))))