Clean up and fix minor issue with words. word
parent
935a3d2042
commit
b5a51224c2
|
@ -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 ] [
|
||||||
drop
|
[ root-heading. ]
|
||||||
] [
|
[
|
||||||
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 ;
|
||||||
|
|
Loading…
Reference in New Issue