From e2603d437671079f8447a252cabde75496a195bd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 6 Mar 2013 11:01:11 -0700
Subject: [PATCH] add optional `#:fit?' argument

---
 lang-slide/main.rkt | 31 +++++++++++++++++++------------
 1 file changed, 19 insertions(+), 12 deletions(-)

diff --git a/lang-slide/main.rkt b/lang-slide/main.rkt
index 31a6a5e..1594f73 100644
--- a/lang-slide/main.rkt
+++ b/lang-slide/main.rkt
@@ -75,21 +75,29 @@
                          (string->color (cadr cl)))
                (text (car cl) (current-code-font) (current-font-size)))))
 
-(define (langs-pict color? #:picts [p (if (pict? color?) (list color?) (list))])
+(define (langs-pict color? 
+                    #:fit? [fit? #f]
+                    #:picts [p (if (pict? color?) (list color?) (list))])
   (define colors (langs-with-colors))
   (define len (length colors))
   (define start (ceiling (/ len 2)))
   (define-values (one two) (split-at colors start))
-  (ht-append
-   0
-   (langs-in-tree color?)
-   (apply vc-append 40 
-          (ht-append 20
-                     ((if color? values ghost)
-                      (apply vl-append 2 one))
-                     ((if color? values ghost)
-                      (apply vl-append 2 two)))
-          p)))
+  (define all
+    (ht-append
+     0
+     (langs-in-tree color?)
+     (apply vc-append 40 
+            (ht-append 20
+                       ((if color? values ghost)
+                        (apply vl-append 2 one))
+                       ((if color? values ghost)
+                        (apply vl-append 2 two)))
+            p)))
+  (if fit?
+      (scale all (min 1 
+                      (/ client-w (pict-width all))
+                      (/ client-h (pict-height all))))
+      all))
 
 (define (langs-with-colors)
   (map line->color
@@ -99,6 +107,5 @@
   (inset (lang-pict 550 color?) 14 10 -10 10))
 
 (module+ main
-  (require slideshow)
   (slide (langs-pict #f))
   (slide (langs-pict #t)))