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? ;
|
||||
|
||||
: ensure-vocab-exists ( string -- string )
|
||||
dup vocabs member? [ no-vocab ] unless ;
|
||||
|
||||
: check-vocab-name ( string -- string )
|
||||
[ ]
|
||||
[ contains-dot? [ vocab-name-contains-dot ] when ]
|
||||
|
@ -234,6 +237,7 @@ PRIVATE>
|
|||
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
|
||||
|
||||
: scaffold-help ( vocab -- )
|
||||
ensure-vocab-exists
|
||||
[
|
||||
dup "-docs.factor" vocab/suffix>path scaffolding? [
|
||||
set-scaffold-docs-file
|
||||
|
@ -268,6 +272,7 @@ PRIVATE>
|
|||
PRIVATE>
|
||||
|
||||
: scaffold-tests ( vocab -- )
|
||||
ensure-vocab-exists
|
||||
dup "-tests.factor" vocab/suffix>path
|
||||
scaffolding? [
|
||||
set-scaffold-tests-file
|
||||
|
|
Loading…
Reference in New Issue