factor/basis/editors/ultraedit/ultraedit.factor

USING: editors io.files io.launcher kernel math.parser
namespaces sequences io.directories.search.windows make ;
IN: editors.ultraedit

: ultraedit-path ( -- path )
    \ ultraedit-path get-global [
        "IDM Computer Solutions" [ "uedit32.exe" tail? ] find-in-program-files
        [ "uedit32.exe" ] unless*
    ] unless* ;

: ultraedit ( file line -- )
    [
        ultraedit-path , [ swap % "/" % # "/1" % ] "" make ,
    ] { } make run-detached drop ;


[ ultraedit ] edit-hook set-global
ultraedit autopath 2007-12-09 11:57:03 -05:00			`USING: editors io.files io.launcher kernel math.parser`
fix windows editors 2008-12-15 22:45:18 -05:00			`namespaces sequences io.directories.search.windows make ;`
Add support for UltraEdit 2007-12-04 00:01:34 -05:00			`IN: editors.ultraedit`

ultraedit autopath 2007-12-09 11:57:03 -05:00			`: ultraedit-path ( -- path )`
			`\ ultraedit-path get-global [`
fix editors for find-in-program-files change 2009-02-26 22:50:20 -05:00			`"IDM Computer Solutions" [ "uedit32.exe" tail? ] find-in-program-files`
try the binary name alone if the editor can't be found in the default location 2009-01-16 15:13:17 -05:00			`[ "uedit32.exe" ] unless*`
ultraedit autopath 2007-12-09 11:57:03 -05:00			`] unless* ;`

Add support for UltraEdit 2007-12-04 00:01:34 -05:00			`: ultraedit ( file line -- )`
			`[`
fix editors for windows 2008-01-29 12:41:12 -05:00			`ultraedit-path , [ swap % "/" % # "/1" % ] "" make ,`
Updating extra/ for launcher changes 2008-01-24 02:50:40 -05:00			`] { } make run-detached drop ;`
Add support for UltraEdit 2007-12-04 00:01:34 -05:00

			`[ ultraedit ] edit-hook set-global`