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

reddit: Remove dead code. Print domain.

db4
Doug Coleman 2012-09-24 11:01:06 -07:00
parent cd78e15e97
commit b6ff02f53b
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/reddit/reddit.factor
View File

@ -118,18 +118,13 @@ PRIVATE>
: write-text ( str -- ) : write-text ( str -- )
H{ { foreground HEXCOLOR: 888888 } } format ; H{ { foreground HEXCOLOR: 888888 } } format ;
: write-url ( str -- )
dup >url H{
{ font-name "monospace" }
{ foreground COLOR: dark-green }
} [ write-object ] with-style nl ;
PRIVATE> PRIVATE>
: subreddit. ( subreddit -- ) : subreddit. ( subreddit -- )
get-subreddit data>> [ get-subreddit data>> [
1 + "%2d. " sprintf write-text { 1 + "%2d. " sprintf write-text {
[ [ title>> ] [ url>> ] bi write-title nl ] [ [ title>> ] [ url>> ] bi write-title ]
[ domain>> " (%s)\n" sprintf write-text ]
[ score>> " %d points, " sprintf write-text ] [ score>> " %d points, " sprintf write-text ]
[ [ num_comments>> "%d comments" sprintf ] [ story>comments-url ] bi write-link ] [ [ num_comments>> "%d comments" sprintf ] [ story>comments-url ] bi write-link ]
[ [