vocabs.metadata: cleanup a couple uses of metadata paths.

master
John Benediktsson 2020-03-05 09:33:41 -08:00
parent d94b135087
commit 7eee21ab94
2 changed files with 9 additions and 18 deletions

View File

@ -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 ;

View File

@ -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 ;