steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

editors: allow editing of word docs and tests.

db4
John Benediktsson 2012-07-23 09:37:20 -07:00
parent fb4e3ad9bc
commit f38247b7c3
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/editors/editors.factor
View File

@ -5,7 +5,7 @@ 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 ;
vocabs.loader vocabs.metadata calendar threads words ;
FROM: vocabs => vocab-name >vocab-link ;
IN: editors
@ -85,11 +85,21 @@ M: string edit edit-vocab ;
[ [ smart-usage ] keep prefix ] bi
edit-each ;
: edit-docs ( vocab -- )
vocab-docs-path 1 edit-location ;
GENERIC: edit-docs ( object -- )
: edit-tests ( vocab -- )
vocab-tests-file 1 edit-location ;
M: object edit-docs vocab-docs-path 1 edit-location ;
M: word edit-docs
dup "help-loc" word-prop
[ nip first2 edit-location ]
[ vocabulary>> edit-docs ]
if* ;
GENERIC: edit-tests ( object -- )
M: object edit-tests vocab-tests-file 1 edit-location ;
M: word edit-tests vocabulary>> edit-tests ;
: edit-platforms ( vocab -- )
dup vocab-platforms-path vocab-append-path 1 edit-location ;