factor/basis/editors/scite/scite.factor

! Copyright (C) 2007 Clemens F. Hofreither.
! See http://factorcode.org/license.txt for BSD license.
! clemens.hofreither@gmx.net
USING: io.files io.launcher kernel namespaces io.directories.search.windows
math math.parser editors sequences make unicode.case ;
IN: editors.scite

: scite-path ( -- path )
    \ scite-path get-global [
        "Scintilla Text Editor" t
        [ >lower "scite.exe" tail? ] find-in-program-files

        [
            "SciTE Source Code Editor" t
            [ >lower "scite.exe" tail? ] find-in-program-files
        ] unless*
        [ "scite.exe" ] unless*
    ] unless* ;

: scite-command ( file line -- cmd )
    swap
    [
        scite-path ,
        ,
        number>string "-goto:" prepend ,
    ] { } make ;

: scite-location ( file line -- )
    scite-command run-detached drop ;

[ scite-location ] edit-hook set-global