28 lines
643 B
Factor
28 lines
643 B
Factor
! Copyright (C) 2013 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: combinators.short-circuit editors fry io.standard-paths
|
|
kernel make math.parser namespaces system vocabs ;
|
|
IN: editors.geany
|
|
|
|
SINGLETON: geany
|
|
geany editor-class set-global
|
|
|
|
SYMBOL: geany-path
|
|
|
|
HOOK: find-geany-path os ( -- path )
|
|
|
|
M: unix find-geany-path "geany" ;
|
|
|
|
M: windows find-geany-path
|
|
{
|
|
[ { "Geany" } "geany.exe" find-in-applications ]
|
|
[ "Geany.exe" ]
|
|
} 0|| ;
|
|
|
|
M: geany editor-command
|
|
'[
|
|
geany-path get [ find-geany-path ] unless* ,
|
|
_ ,
|
|
"--line" , _ number>string ,
|
|
] { } make ;
|