From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 19 Jun 2022 00:47:56 +0000 (-0700)
Subject: webapps.help: fix using, strip qualified prefix
X-Git-Tag: 0.99~1376
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=22400f0fad5f700c522be44b2db29ffc2ba297ed

webapps.help: fix using, strip qualified prefix
---

diff --git a/extra/webapps/help/help.factor b/extra/webapps/help/help.factor
index faac2d4fd4..73066f5ec7 100644
--- a/extra/webapps/help/help.factor
+++ b/extra/webapps/help/help.factor
@@ -4,15 +4,15 @@ USING: accessors assocs furnace.actions furnace.boilerplate
 furnace.redirection help.html help.topics html.components
 html.forms http.server http.server.dispatchers
 http.server.static io.directories io.files.temp io.servers
-kernel namespaces sequences unicode urls ;
+kernel namespaces sequences splitting unicode urls ;
 IN: webapps.help
 
 TUPLE: help-webapp < dispatcher ;
 
 : fixup-words ( title href -- title' href' )
     dup "word-" head? [
-        dup ".html" ?tail drop "," split1-last nip
-        '[ " (" _ 3append ")" append ] dip
+        dup ".html" ?tail drop "," split1-last nip dup ":" append
+        '[ " (" _ 3append ")" append _ ?head drop ] dip
     ] when ;
 
 : links ( apropos -- seq )