From 2e2f1d673a7ee98b4e6e5829d3ba077339c36c7e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 21 May 2020 17:23:47 -0700
Subject: [PATCH] help.html: support ui/tools/error-list/icons also.

---
 basis/help/html/html.factor    | 5 ++++-
 extra/webapps/help/help.factor | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 107d0b62a8..426847aea1 100644
--- 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 dd7c17529c..64b438a636 100644
--- 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>
-- 
2.34.1