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

hacker-news: Add Christmas background

modern-harvey3
Doug Coleman 2019-12-25 11:29:51 -05:00
parent de57b00d2f
commit 3149deefb8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/hacker-news/hacker-news.factor
View File

@ -1,11 +1,9 @@
! Copyright (C) 2012 Doug Coleman. ! Copyright (C) 2012 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs calendar calendar.elapsed USING: accessors assocs calendar calendar.elapsed
colors.constants colors.hex combinators concurrency.combinators calendar.holidays.us colors.constants colors.hex combinators
formatting fry hashtables http.client io io.styles json.reader concurrency.combinators formatting hashtables http.client io
kernel make math math.parser sequences ui urls vocabs ; io.styles json.reader kernel make math sequences ui urls ;
IN: hacker-news IN: hacker-news
<PRIVATE <PRIVATE
@ -88,9 +86,11 @@ PRIVATE>
H{ H{
{ font-size 20 } { font-size 20 }
{ font-style bold } { font-style bold }
{ background hexcolor: ff6600 }
{ foreground color: black } { foreground color: black }
} assoc-union format nl ; } assoc-union
now christmas-day today? hexcolor: CC0F0E hexcolor: ff6600 ?
background set-of
format nl ;
: hacker-news-feed. ( seq -- ) : hacker-news-feed. ( seq -- )
[ 1 + post. ] each-index ; [ 1 + post. ] each-index ;