editors.geany.windows: Add Windows support.

diff --git a/basis/editors/geany/geany.factor b/basis/editors/geany/geany.factor
index dfe107556429184f9c58741846a3be8162c84c05..f273812e58a0af8edbd518c8623a29ee75eb159f 100644 (file)
--- a/basis/editors/geany/geany.factor
+++ b/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 ;
\ No newline at end of file
+    ] { } make ;
+
+os windows? [ "editors.geany.windows" require ] when
\ No newline at end of file

diff --git a/basis/editors/geany/windows/authors.txt b/basis/editors/geany/windows/authors.txt
new file mode 100644 (file)
index 0000000..7c1b2f2
--- /dev/null
+++ b/basis/editors/geany/windows/authors.txt
@@ -0,0 +1 @@
+Doug Coleman

diff --git a/basis/editors/geany/windows/platforms.txt b/basis/editors/geany/windows/platforms.txt
new file mode 100644 (file)
index 0000000..8e1a559
--- /dev/null
+++ b/basis/editors/geany/windows/platforms.txt
@@ -0,0 +1 @@
+windows

diff --git a/basis/editors/geany/windows/windows.factor b/basis/editors/geany/windows/windows.factor
new file mode 100644 (file)
index 0000000..a4606d6
--- /dev/null
+++ b/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* ;
\ No newline at end of file