factor/basis/editors/editors.factor

105 lines
2.6 KiB
Factor

! 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.launcher io.pathnames
kernel lexer math namespaces parser prettyprint sequences
source-files source-files.errors splitting strings summary
tools.crossref vocabs vocabs.files vocabs.hierarchy
vocabs.loader vocabs.metadata calendar threads ;
FROM: vocabs => vocab-name >vocab-link ;
IN: editors
SYMBOL: editor-class
: available-editors ( -- seq )
"editors" child-vocab-names ;
: editor-restarts ( -- alist )
available-editors
[ [ "Load " prepend ] keep ] { } map>assoc ;
HOOK: editor-command editor-class ( file line -- command )
M: f editor-command
"Select an editor" editor-restarts throw-restarts require
editor-command ;
HOOK: editor-detached? editor-class ( -- ? )
M: object editor-detached? t ;
: run-and-wait-for-editor ( command -- )
<process>
swap >>command
editor-detached? >>detached
run-process
300 milliseconds sleep
dup status>> { 0 f } member?
[ drop ] [ process-failed ] if ;
: edit-location ( file line -- )
[ absolute-path ] dip
editor-command [ run-and-wait-for-editor ] when* ;
ERROR: cannot-find-source definition ;
M: cannot-find-source error.
"Cannot find source for ``" write
definition>> pprint-short
"''" print ;
: edit-file ( path -- )
0 edit-location ;
DEFER: edit
: edit-vocab ( vocab -- )
>vocab-link edit ;
GENERIC: edit ( object -- )
M: object edit
dup where [ first2 edit-location ] [ cannot-find-source ] ?if ;
M: string edit edit-vocab ;
: edit-error ( error -- )
[ error-file ] [ error-line ] bi
over [ 1 or edit-location ] [ 2drop ] if ;
: :edit ( -- )
error get edit-error ;
: edit-each ( seq -- )
[
[ "Editing " write . ]
[
"RETURN moves on to the next usage, C+d stops." print
flush
edit
readln
] bi
] all? drop ;
: fix ( word -- )
[ "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 ;