From 22400f0fad5f700c522be44b2db29ffc2ba297ed Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 18 Jun 2022 17:47:56 -0700 Subject: [PATCH] webapps.help: fix using, strip qualified prefix --- extra/webapps/help/help.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 ) -- 2.34.1