     [ "Fixing " write pprint " and all usages..." print nl ]
     [ [ smart-usage ] keep prefix ] bi
     edit-each ;
+
+: edit-docs ( vocab -- )
+    vocab-docs-path 1 edit-location ;
+
+: edit-tests ( vocab -- )
+    vocab-tests-file 1 edit-location ;
+
+: edit-platforms ( vocab -- )
+    dup vocab-platforms-path vocab-append-path 1 edit-location ;
+
+: edit-authors ( vocab -- )
+    dup vocab-authors-path vocab-append-path 1 edit-location ;
+
+: edit-tags ( vocab -- )
+    dup vocab-tags-path vocab-append-path 1 edit-location ;
+
+: edit-summary ( vocab -- )
+    dup vocab-summary-path vocab-append-path 1 edit-location ;
+

    definition>> pprint-short
    "''" print ;

: edit ( defspec -- )
    dup where
    [ first2 edit-location ]
    [ dup word-link? [ name>> edit ] [ cannot-find-source ] if ]
    ?if ;

: edit-vocab ( name -- )
    >vocab-link edit ;

: edit-error ( error -- )
    [ error-file ] [ error-line ] bi

! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs continuations debugger definitions
help.topics io io.backend io.files io.pathnames kernel lexer
namespaces parser prettyprint sequences source-files
source-files.errors splitting strings summary tools.crossref
vocabs vocabs.files vocabs.hierarchy vocabs.loader
vocabs.metadata ;
FROM: vocabs => vocab-name >vocab-link ;
IN: editors

