Add article and word help icons

basis/definitions/icons/icons.factor

@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: assocs classes.predicate fry generic io.pathnames kernel
 macros sequences vocabs words words.symbol words.constant
-lexer parser ;
+lexer parser help.topics ;
 IN: definitions.icons
 
 GENERIC: definition-icon ( definition -- path )
@@ -30,6 +30,8 @@ ICON: symbol symbol-word
 ICON: constant constant-word
 ICON: word normal-word
 ICON: vocab-link unopen-vocab
+ICON: word-link word-help-article
+ICON: link help-article
 
 PRIVATE>
 

basis/tools/apropos/apropos.factor

@@ -11,7 +11,7 @@ IN: tools.apropos
         dup [ vocab-spec? ] all? [
             $vocabs
         ] [
-            [ <$link> ] map $list
+            [ <$pretty-link> 1array ] map $table
         ] if
     ] if ;
 

basis/ui/tools/browser/popups/popups.factor

@@ -2,14 +2,16 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs definitions fry help.topics kernel
 colors.constants math.rectangles models.filter namespaces sequences
-sorting ui.gadgets ui.gadgets.glass ui.gadgets.labeled
-ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.search-tables
-ui.gadgets.wrappers ui.gestures ui.operations ui.pens.solid ;
+sorting definitions.icons ui.gadgets ui.gadgets.glass
+ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables
+ui.gadgets.search-tables ui.gadgets.wrappers ui.gestures ui.operations
+ui.pens.solid ui.images ;
 IN: ui.tools.browser.popups
 
 SINGLETON: link-renderer
 
-M: link-renderer row-columns drop second 1array ;
+M: link-renderer row-columns
+    drop first2 [ definition-icon <image-name> ] dip 2array ;
 
 M: link-renderer row-value drop first ;