Merge branch 'master' of git://factorcode.org/git/factor
commit
5c1cffbe60
|
@ -0,0 +1 @@
|
||||||
|
Doug Coleman
|
|
@ -0,0 +1,17 @@
|
||||||
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
USING: editors io.launcher kernel make math.parser namespaces
|
||||||
|
sequences ;
|
||||||
|
IN: editors.gedit
|
||||||
|
|
||||||
|
: gedit-path ( -- path )
|
||||||
|
\ gedit-path get-global [
|
||||||
|
"gedit"
|
||||||
|
] unless* ;
|
||||||
|
|
||||||
|
: gedit ( file line -- )
|
||||||
|
[
|
||||||
|
gedit-path , number>string "+" prepend , ,
|
||||||
|
] { } make run-detached drop ;
|
||||||
|
|
||||||
|
[ gedit ] edit-hook set-global
|
|
@ -0,0 +1 @@
|
||||||
|
gedit integration
|
|
@ -0,0 +1 @@
|
||||||
|
unportable
|
|
@ -24,6 +24,9 @@ ERROR: no-vocab vocab ;
|
||||||
|
|
||||||
: contains-separator? ( string -- ? ) [ path-separator? ] any? ;
|
: contains-separator? ( string -- ? ) [ path-separator? ] any? ;
|
||||||
|
|
||||||
|
: ensure-vocab-exists ( string -- string )
|
||||||
|
dup vocabs member? [ no-vocab ] unless ;
|
||||||
|
|
||||||
: check-vocab-name ( string -- string )
|
: check-vocab-name ( string -- string )
|
||||||
[ ]
|
[ ]
|
||||||
[ contains-dot? [ vocab-name-contains-dot ] when ]
|
[ contains-dot? [ vocab-name-contains-dot ] when ]
|
||||||
|
@ -234,6 +237,7 @@ PRIVATE>
|
||||||
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
|
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
|
||||||
|
|
||||||
: scaffold-help ( vocab -- )
|
: scaffold-help ( vocab -- )
|
||||||
|
ensure-vocab-exists
|
||||||
[
|
[
|
||||||
dup "-docs.factor" vocab/suffix>path scaffolding? [
|
dup "-docs.factor" vocab/suffix>path scaffolding? [
|
||||||
set-scaffold-docs-file
|
set-scaffold-docs-file
|
||||||
|
@ -268,6 +272,7 @@ PRIVATE>
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: scaffold-tests ( vocab -- )
|
: scaffold-tests ( vocab -- )
|
||||||
|
ensure-vocab-exists
|
||||||
dup "-tests.factor" vocab/suffix>path
|
dup "-tests.factor" vocab/suffix>path
|
||||||
scaffolding? [
|
scaffolding? [
|
||||||
set-scaffold-tests-file
|
set-scaffold-tests-file
|
||||||
|
|
Loading…
Reference in New Issue