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-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 ;