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

Clean up and fix minor issue with words. word

db4
Slava Pestov 2008-11-22 03:43:05 -06:00
parent 935a3d2042
commit b5a51224c2
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,9 +21,9 @@ IN: tools.vocabs.browser
: vocab. ( vocab -- ) : vocab. ( vocab -- )
[ [
dup [ write-status ] with-cell [ [ write-status ] with-cell ]
dup [ ($link) ] with-cell [ [ ($link) ] with-cell ]
[ vocab-summary write ] with-cell [ [ vocab-summary write ] with-cell ] tri
] with-row ; ] with-row ;
: vocab-headings. ( -- ) : vocab-headings. ( -- )
@ -39,13 +39,13 @@ IN: tools.vocabs.browser
: $vocabs ( assoc -- ) : $vocabs ( assoc -- )
[ [
[ drop ] [
[ root-heading. ]
[ [
drop
] [
swap root-heading.
standard-table-style [ standard-table-style [
vocab-headings. [ vocab. ] each vocab-headings. [ vocab. ] each
] ($grid) ] ($grid)
] bi*
] if-empty ] if-empty
] assoc-each ; ] assoc-each ;
@ -201,7 +201,7 @@ C: <vocab-author> vocab-author
[ <$link> 1array ] map $table [ <$link> 1array ] map $table
] unless-empty ; ] unless-empty ;
: words. ( vocab -- ) : describe-words ( vocab -- )
words [ words [
"Words" $heading "Words" $heading
@ -227,6 +227,10 @@ C: <vocab-author> vocab-author
] bi ] bi
] unless-empty ; ] unless-empty ;
: words. ( vocab -- )
last-element off
vocab-name describe-words ;
: describe-metadata ( vocab -- ) : describe-metadata ( vocab -- )
[ [
[ vocab-tags [ "Tags:" swap \ $tags prefix 2array , ] unless-empty ] [ vocab-tags [ "Tags:" swap \ $tags prefix 2array , ] unless-empty ]
@ -239,7 +243,7 @@ C: <vocab-author> vocab-author
first { first {
[ describe-help ] [ describe-help ]
[ describe-metadata ] [ describe-metadata ]
[ words. ] [ describe-words ]
[ describe-files ] [ describe-files ]
[ describe-children ] [ describe-children ]
} cleave ; } cleave ;