vocabs.metadata: cleanup a couple uses of metadata paths.
parent
d94b135087
commit
7eee21ab94
|
@ -116,13 +116,13 @@ M: object edit-tests
|
||||||
M: word edit-tests vocabulary>> edit-tests ;
|
M: word edit-tests vocabulary>> edit-tests ;
|
||||||
|
|
||||||
: edit-platforms ( vocab -- )
|
: edit-platforms ( vocab -- )
|
||||||
dup vocab-platforms-path vocab-append-path 1 edit-location ;
|
public-vocab-name vocab-platforms-path 1 edit-location ;
|
||||||
|
|
||||||
: edit-authors ( vocab -- )
|
: edit-authors ( vocab -- )
|
||||||
dup vocab-authors-path vocab-append-path 1 edit-location ;
|
public-vocab-name vocab-authors-path 1 edit-location ;
|
||||||
|
|
||||||
: edit-tags ( vocab -- )
|
: edit-tags ( vocab -- )
|
||||||
dup vocab-tags-path vocab-append-path 1 edit-location ;
|
public-vocab-name vocab-tags-path 1 edit-location ;
|
||||||
|
|
||||||
: edit-summary ( vocab -- )
|
: edit-summary ( vocab -- )
|
||||||
dup vocab-summary-path vocab-append-path 1 edit-location ;
|
public-vocab-name vocab-summary-path 1 edit-location ;
|
||||||
|
|
|
@ -155,32 +155,23 @@ PRIVATE>
|
||||||
|
|
||||||
: fuel-scaffold-tests ( name devname -- result )
|
: fuel-scaffold-tests ( name devname -- result )
|
||||||
[ scaffold-name dup require dup scaffold-tests ] with-scope
|
[ scaffold-name dup require dup scaffold-tests ] with-scope
|
||||||
vocab-tests-file absolute-path ;
|
vocab-tests-path absolute-path ;
|
||||||
|
|
||||||
: fuel-scaffold-authors ( name devname -- result )
|
: fuel-scaffold-authors ( name devname -- result )
|
||||||
[ scaffold-name dup require dup scaffold-authors ] with-scope
|
[ scaffold-name dup require dup scaffold-authors ] with-scope
|
||||||
[ vocab-authors-path ] keep swap vocab-append-path absolute-path ;
|
vocab-authors-path absolute-path ;
|
||||||
|
|
||||||
: fuel-scaffold-tags ( name tags -- result )
|
: fuel-scaffold-tags ( name tags -- result )
|
||||||
[ scaffold-tags ]
|
[ scaffold-tags ]
|
||||||
[
|
[ drop vocab-tags-path absolute-path ] 2bi ;
|
||||||
drop [ vocab-tags-path ] keep swap
|
|
||||||
vocab-append-path absolute-path
|
|
||||||
] 2bi ;
|
|
||||||
|
|
||||||
: fuel-scaffold-summary ( name summary -- result )
|
: fuel-scaffold-summary ( name summary -- result )
|
||||||
[ scaffold-summary ]
|
[ scaffold-summary ]
|
||||||
[
|
[ drop vocab-summary-path absolute-path ] 2bi ;
|
||||||
drop [ vocab-summary-path ] keep swap
|
|
||||||
vocab-append-path absolute-path
|
|
||||||
] 2bi ;
|
|
||||||
|
|
||||||
: fuel-scaffold-platforms ( name platforms -- result )
|
: fuel-scaffold-platforms ( name platforms -- result )
|
||||||
[ scaffold-platforms ]
|
[ scaffold-platforms ]
|
||||||
[
|
[ drop vocab-platforms-path absolute-path ] 2bi ;
|
||||||
drop [ vocab-platforms-path ] keep swap
|
|
||||||
vocab-append-path absolute-path
|
|
||||||
] 2bi ;
|
|
||||||
|
|
||||||
: fuel-scaffold-get-root ( name -- result )
|
: fuel-scaffold-get-root ( name -- result )
|
||||||
find-vocab-root ;
|
find-vocab-root ;
|
||||||
|
|
Loading…
Reference in New Issue