hacker-news: Clickable banner.

diff --git a/extra/hacker-news/hacker-news.factor b/extra/hacker-news/hacker-news.factor
index 01d6c40631f5683bfd42220caf9d642b924e00f7..1358a12ca8a105009cdc61561fdd2add5cabdf1e 100644 (file)
--- a/extra/hacker-news/hacker-news.factor
+++ b/extra/hacker-news/hacker-news.factor
@@ -75,11 +75,12 @@ PRIVATE>
 
 : banner. ( -- )
     "Hacker News"
+    "http://news.ycombinator.com" >url presented associate
     H{
         { font-size 20 }
         { font-style bold }
         { background HEXCOLOR: ff6600 }
-    } format nl ;
+    } assoc-union format nl ;
 
 : hacker-news. ( -- )
     hacker-news-items banner.