help.html: support ui/tools/error-list/icons also.

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 107d0b62a8a50b53dddbcc097e79ef5a4b217090..426847aea1070a0805266b5fed55357dcdd3fb0b 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -151,7 +151,7 @@ M: pathname url-of
                     dup "src" attr
 
                     ! use @2x retina images
-                    dup "@2x.png" tail? [
+                    "@2x" over subseq? [
                         "." split1-last "@2x." glue
                     ] unless
 
@@ -159,6 +159,9 @@ M: pathname url-of
                     "vocab:definitions/icons/" ?head
                     [ "/icons/" prepend ] when
 
+                    "vocab:ui/tools/error-list/icons/" ?head
+                    [ "/icons2/" prepend ] when
+
                     "src" set-attr
                 ] [ drop ] if
             ] deep-each

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index dd7c17529cc8ade6f4b8040fee1b5de1088af500..64b438a63606ea3d6a69ca1e604a42814baeaa79 100644 (file)
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -41,6 +41,7 @@ TUPLE: help-webapp < dispatcher ;
         help-dir <search-action> <secure-only> "search" add-responder
         help-dir <static> <secure-only> "content" add-responder
         "resource:basis/definitions/icons/" <static> <secure-only> "icons" add-responder ;
+        "resource:basis/ui/tools/error-list/icons/" <static> <secure-only> "icons2" add-responder ;
 
 : run-help-webapp ( -- )
     "docs" cache-file <help-webapp>