editors.geany.windows: Add Windows support.

basis/editors/geany/geany.factor

@@ -1,6 +1,7 @@
 ! Copyright (C) 2013 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: editors fry kernel make math.parser namespaces system ;
+USING: editors fry kernel make math.parser namespaces system
+vocabs ;
 IN: editors.geany
 
 SINGLETON: geany
@@ -16,4 +17,6 @@ M: geany editor-command
         geany-path ,
         _ ,
         "--line" , _ number>string ,
-    ] { } make ;
+    ] { } make ;
+
+os windows? [ "editors.geany.windows" require ] when

basis/editors/geany/windows/authors.txt

@@ -0,0 +1 @@
+Doug Coleman

basis/editors/geany/windows/platforms.txt

@@ -0,0 +1 @@
+windows

basis/editors/geany/windows/windows.factor

@@ -0,0 +1,10 @@
+! Copyright (C) 2013 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: editors.geany io.directories.search.windows kernel
+namespaces sequences system ;
+IN: editors.geany.windows
+
+M: windows geany-path
+    \ geany-path get-global [
+        "Geany" [ "Geany.exe" tail? ] find-in-program-files
+    ] unless* ;