From f58e913336f8923786a7067c01ddae2e251db5c1 Mon Sep 17 00:00:00 2001 From: Keith Lazuka Date: Wed, 30 Sep 2009 14:38:53 -0400 Subject: [PATCH] help.markup: fix layout bug for "N more results" link in apropos content --- basis/help/markup/markup.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor index 2377a6753a..678d55df61 100644 --- a/basis/help/markup/markup.factor +++ b/basis/help/markup/markup.factor @@ -181,20 +181,22 @@ M: word link-long-text : >topic ( obj -- topic ) dup topic? [ >link ] unless ; +: topic-span ( topic quot -- ) [ >topic ] dip ($span) ; inline + PRIVATE> -: ($link) ( topic -- ) >topic link-text ; +: ($link) ( topic -- ) [ link-text ] topic-span ; : $link ( element -- ) first ($link) ; -: ($long-link) ( topic -- ) >topic link-long-text ; +: ($long-link) ( topic -- ) [ link-long-text ] topic-span ; : $long-link ( element -- ) first ($long-link) ; : ($pretty-link) ( topic -- ) - >topic [ link-icon ] [ drop bl ] [ link-text ] tri ; + [ [ link-icon ] [ drop bl ] [ link-text ] tri ] topic-span ; : $pretty-link ( element -- ) first ($pretty-link) ; : ($long-pretty-link) ( topic -- ) - >topic [ link-icon ] [ drop bl ] [ link-long-text ] tri ; + [ [ link-icon ] [ drop bl ] [ link-long-text ] tri ] topic-span ; : <$pretty-link> ( definition -- element ) 1array \ $pretty-link prefix ;