diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor index 299fd1531f..1818dae210 100644 --- a/basis/help/markup/markup.factor +++ b/basis/help/markup/markup.factor @@ -147,6 +147,12 @@ ALIAS: $slot $snippet : $link ( element -- ) first ($link) ; +: ($word-link) ( word -- ) + [ name>> ] keep write-link ; + +: $word-link ( element -- ) + first ($word-link) ; + : ($long-link) ( object -- ) [ article-title ] [ >link ] bi write-link ; diff --git a/basis/tools/apropos/apropos.factor b/basis/tools/apropos/apropos.factor index 034aae5a94..28cb26395e 100644 --- a/basis/tools/apropos/apropos.factor +++ b/basis/tools/apropos/apropos.factor @@ -28,8 +28,6 @@ M: more-completions article-name M: more-completions article-content seq>> sort-values keys \ $completions prefix ; -M: more-completions summary article-title ; - : (apropos) ( str candidates title -- element ) [ [ completions ] dip '[ diff --git a/basis/tools/vocabs/browser/browser.factor b/basis/tools/vocabs/browser/browser.factor index 5c9bd4ccd7..29f64efea3 100644 --- a/basis/tools/vocabs/browser/browser.factor +++ b/basis/tools/vocabs/browser/browser.factor @@ -160,7 +160,7 @@ C: vocab-author : words-table ( words -- ) [ - [ <$link> ] + [ 1array \ $word-link prefix ] [ stack-effect dup [ effect>string <$snippet> ] when ] bi 2array ] map