steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

twitter.prettyprint: wrap tweet text

db4
Joe Groff 2010-06-27 14:16:41 -07:00
parent 044a862c37
commit 5966a65ade
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
extra/twitter/prettyprint/prettyprint.factor
View File

@ -23,7 +23,8 @@ CONSTANT: tweet-username-style
CONSTANT: tweet-text-style CONSTANT: tweet-text-style
H{ H{
{ font-name "sans-serif" } { font-name "sans-serif" }
{ font-size 18 } { font-size 16 }
{ wrap-margin 500 }
} }
CONSTANT: tweet-metadata-style CONSTANT: tweet-metadata-style
@ -36,18 +37,20 @@ CONSTANT: tweet-metadata-style
[ [
[ dup user>> user-image [ image. ] when* ] with-cell [ dup user>> user-image [ image. ] when* ] with-cell
[ [
tweet-text-style [ H{ { wrap-margin 600 } } [
tweet-username-style [ tweet-text-style [
dup user>> screen-name>> write tweet-username-style [
] with-style dup user>> screen-name>> write
" " write dup text>> print ] with-style
" " write dup text>> print
tweet-metadata-style [ tweet-metadata-style [
dup created-at>> write dup created-at>> write
" via " write " via " write
dup source>> write dup source>> write
] with-style
] with-style ] with-style
] with-style ] with-nesting
] with-cell ] with-cell
] with-row ] with-row
] tabular-output nl ] tabular-output nl