steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.markup: fix layout bug for "N more results" link in apropos content

db4
Keith Lazuka 2009-09-30 14:38:53 -04:00
parent 17b52314dc
commit f58e913336
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/help/markup/markup.factor
View File

@ -181,20 +181,22 @@ M: word link-long-text
: >topic ( obj -- topic ) dup topic? [ >link ] unless ; : >topic ( obj -- topic ) dup topic? [ >link ] unless ;
: topic-span ( topic quot -- ) [ >topic ] dip ($span) ; inline
PRIVATE> PRIVATE>
: ($link) ( topic -- ) >topic link-text ; : ($link) ( topic -- ) [ link-text ] topic-span ;
: $link ( element -- ) first ($link) ; : $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) ; : $long-link ( element -- ) first ($long-link) ;
: ($pretty-link) ( topic -- ) : ($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) ; : $pretty-link ( element -- ) first ($pretty-link) ;
: ($long-pretty-link) ( topic -- ) : ($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 ) : <$pretty-link> ( definition -- element )
1array \ $pretty-link prefix ; 1array \ $pretty-link prefix ;