: user-image ( user -- image/f )
profile-image-url>> load-http-image ;
-CONSTANT: tweet-table-style
- H{ { table-gap { 5 5 } } }
+CONSTANT: tweet-table-style
+ H{ { table-gap { 5 5 } } }
-CONSTANT: tweet-username-style
+CONSTANT: tweet-username-style
H{
{ font-style bold }
- }
+ }
-CONSTANT: tweet-text-style
+CONSTANT: tweet-text-style
H{
{ font-name "sans-serif" }
{ font-size 16 }
{ wrap-margin 500 }
- }
+ }
CONSTANT: tweet-metadata-style
H{
{ font-size 10 }
- }
+ }
: profile. ( user -- )
tweet-table-style [
dup source>> write
] with-style
] with-style
- ] with-nesting
+ ] with-nesting
] with-cell
] with-row
] tabular-output nl