diff --git a/basis/editors/textadept/textadept.factor b/basis/editors/textadept/textadept.factor index 3bf8b23261..d3c37ca313 100644 --- a/basis/editors/textadept/textadept.factor +++ b/basis/editors/textadept/textadept.factor @@ -9,9 +9,8 @@ ! ! For more information about Textadept, consult http://foicica.com/textadept/ -USING: editors io.launcher io.pathnames io.standard-paths kernel -make math math.parser namespaces sequences system ; - +USING: editors io.launcher io.pathnames io.standard-paths +kernel make math math.parser namespaces sequences system vocabs ; IN: editors.textadept SINGLETON: textadept @@ -28,10 +27,6 @@ M: macosx find-textadept-path f ] if* ; -! M: windows find-textadept-path -! let-Windows-users-fill-this-in -! ; - : textadept-path ( -- path ) \ textadept-path get-global [ find-textadept-path "textadept" or @@ -42,3 +37,5 @@ M: textadept editor-command ( file line -- command ) textadept-path , "-f" , , "-e" , 1 - number>string "goto_line(" ")" surround , ] { } make ; + +os windows? [ "editors.textadept.windows" require ] when diff --git a/basis/editors/textadept/windows/platforms.txt b/basis/editors/textadept/windows/platforms.txt new file mode 100644 index 0000000000..8e1a55995e --- /dev/null +++ b/basis/editors/textadept/windows/platforms.txt @@ -0,0 +1 @@ +windows diff --git a/basis/editors/textadept/windows/windows.factor b/basis/editors/textadept/windows/windows.factor new file mode 100644 index 0000000000..7dec4d87d8 --- /dev/null +++ b/basis/editors/textadept/windows/windows.factor @@ -0,0 +1,9 @@ +! Copyright (C) 2013 Doug Coleman. +! See http://factorcode.org/license.txt for BSD license. +USING: editors.textadept io.directories.search.windows +sequences system ; +IN: editors.textadept.windows + +M: windows find-textadept-path + "textadept_6.5.win32" + [ "textadept.exe" tail? ] find-in-program-files ;