From 5966a65ade710caeff5af2fb1a589497b25203b9 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sun, 27 Jun 2010 14:16:41 -0700
Subject: [PATCH] twitter.prettyprint: wrap tweet text

---
 extra/twitter/prettyprint/prettyprint.factor | 25 +++++++++++---------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/extra/twitter/prettyprint/prettyprint.factor b/extra/twitter/prettyprint/prettyprint.factor
index 3f84611e23..2bfc269b20 100644
--- a/extra/twitter/prettyprint/prettyprint.factor
+++ b/extra/twitter/prettyprint/prettyprint.factor
@@ -23,7 +23,8 @@ CONSTANT: tweet-username-style
 CONSTANT: tweet-text-style 
     H{
         { font-name "sans-serif" }
-        { font-size 18 }
+        { font-size 16 }
+        { wrap-margin 500 }
     } 
 
 CONSTANT: tweet-metadata-style
@@ -36,18 +37,20 @@ CONSTANT: tweet-metadata-style
         [
             [ dup user>> user-image [ image. ] when* ] with-cell
             [
-                tweet-text-style [
-                    tweet-username-style [
-                        dup user>> screen-name>> write
-                    ] with-style
-                    " " write dup text>> print
+                H{ { wrap-margin 600 } } [
+                    tweet-text-style [
+                        tweet-username-style [
+                            dup user>> screen-name>> write
+                        ] with-style
+                        " " write dup text>> print
 
-                    tweet-metadata-style [
-                        dup created-at>> write
-                        " via " write
-                        dup source>> write
+                        tweet-metadata-style [
+                            dup created-at>> write
+                            " via " write
+                            dup source>> write
+                        ] with-style
                     ] with-style
-                ] with-style
+                ] with-nesting 
             ] with-cell
         ] with-row
     ] tabular-output nl