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 -- )
first ($link) ;
: ($word-link) ( word -- )
[ name>> ] keep write-link ;
: ($definition-link) ( word -- )
[ article-name ] keep write-link ;
: $word-link ( element -- )
first ($word-link) ;
: $definition-link ( element -- )
first ($definition-link) ;
: ($long-link) ( object -- )
[ 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 ]
[ drop " " ]
[ 1array \ $link prefix ] ! XXX
[ 1array \ $definition-link prefix ]
tri
] output>array ;