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

help.markup: long links don't show stack effect for parsing words and symbols

db4
Slava Pestov 2009-10-09 04:46:41 -05:00
parent b88fde04d9
commit b952977d53
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,7 +5,8 @@ combinators definitions definitions.icons effects fry generic
hashtables help.stylesheet help.topics io io.styles kernel make hashtables help.stylesheet help.topics io io.styles kernel make
math namespaces parser present prettyprint math namespaces parser present prettyprint
prettyprint.stylesheet quotations see sequences sets slots prettyprint.stylesheet quotations see sequences sets slots
sorting splitting strings vectors vocabs vocabs.loader words ; sorting splitting strings vectors vocabs vocabs.loader words
words.symbol ;
FROM: prettyprint.sections => with-pprint ; FROM: prettyprint.sections => with-pprint ;
IN: help.markup IN: help.markup
@ -181,12 +182,23 @@ GENERIC: link-long-text ( topic -- )
M: topic link-long-text M: topic link-long-text
[ article-title ] keep write-link ; [ article-title ] keep write-link ;
GENERIC: link-effect? ( word -- ? )
M: parsing-word link-effect? drop f ;
M: symbol link-effect? drop f ;
M: word link-effect? drop t ;
: $effect ( effect -- )
effect>string stack-effect-style get format ;
M: word link-long-text M: word link-long-text
dup presented associate [ dup presented associate [
[ article-name link-style get format ] [ article-name link-style get format ]
[ drop bl ] [
[ stack-effect effect>string stack-effect-style get format ] dup link-effect? [
tri bl stack-effect $effect
] [ drop ] if
] bi
] with-nesting ; ] with-nesting ;
: >topic ( obj -- topic ) dup topic? [ >link ] unless ; : >topic ( obj -- topic ) dup topic? [ >link ] unless ;