forked from factor/factor
-
Notifications
You must be signed in to change notification settings - Fork 3
/
editors.factor
71 lines (56 loc) · 1.79 KB
/
editors.factor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: parser lexer kernel namespaces sequences definitions
io.files io.backend io.pathnames io summary continuations
tools.crossref vocabs.hierarchy prettyprint source-files
source-files.errors assocs vocabs.loader splitting
accessors debugger help.topics ;
FROM: vocabs => vocab-name >vocab-link ;
IN: editors
TUPLE: no-edit-hook ;
M: no-edit-hook summary
drop "You must load one of the below vocabularies before using editor integration:" ;
SYMBOL: edit-hook
: available-editors ( -- seq )
"editors" child-vocab-names ;
: editor-restarts ( -- alist )
available-editors
[ [ "Load " prepend ] keep ] { } map>assoc ;
: no-edit-hook ( -- )
\ no-edit-hook new
editor-restarts throw-restarts
require ;
: edit-location ( file line -- )
[ absolute-path ] dip edit-hook get-global
[ call( file line -- ) ] [ no-edit-hook edit-location ] if* ;
ERROR: cannot-find-source definition ;
M: cannot-find-source error.
"Cannot find source for ``" write
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
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 ;