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

Fix word links in vocab browser

db4
Slava Pestov 2009-02-12 02:09:45 -06:00
parent 4339bda8cc
commit ace2e0a8d1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -151,11 +151,11 @@ ALIAS: $slot $snippet
: $link ( element -- ) : $link ( element -- )
first ($link) ; first ($link) ;
: ($word-link) ( word -- ) : ($definition-link) ( word -- )
[ name>> ] keep write-link ; [ article-name ] keep write-link ;
: $word-link ( element -- ) : $definition-link ( element -- )
first ($word-link) ; first ($definition-link) ;
: ($long-link) ( object -- ) : ($long-link) ( object -- )
[ article-title ] [ >link ] bi write-link ; [ article-title ] [ >link ] bi write-link ;

2
basis/tools/vocabs/browser/browser.factor
View File

@ -14,7 +14,7 @@ IN: tools.vocabs.browser
[ [
[ definition-icon 1array \ $image prefix ] [ definition-icon 1array \ $image prefix ]
[ drop " " ] [ drop " " ]
[ 1array \ $link prefix ] ! XXX [ 1array \ $definition-link prefix ]
tri tri
] output>array ; ] output>array ;