factor/extra/editors/wordpad/wordpad.factor

USING: editors hardware-info.windows io.launcher kernel
math.parser namespaces sequences windows.shell32 io.files
arrays ;
IN: editors.wordpad

: wordpad-path ( -- path )
    \ wordpad-path get [
        program-files "Windows NT\\Accessories\\wordpad.exe" append-path
    ] unless* ;

: wordpad ( file line -- )
    drop wordpad-path swap 2array dup . run-detached drop ;

[ wordpad ] edit-hook set-global
Wordpad integration (it's default installed on windows, handles \n, but no line numbers) 2007-12-05 02:21:52 -05:00			`USING: editors hardware-info.windows io.launcher kernel`
change append to path+ use find-file-breadth fix load errors 2008-02-12 13:14:57 -05:00			`math.parser namespaces sequences windows.shell32 io.files`
			`arrays ;`
Wordpad integration (it's default installed on windows, handles \n, but no line numbers) 2007-12-05 02:21:52 -05:00			`IN: editors.wordpad`

Wordpad - automatic path 2007-12-09 11:49:39 -05:00			`: wordpad-path ( -- path )`
			`\ wordpad-path get [`
fix wordpad 2008-03-26 15:55:04 -04:00			`program-files "Windows NT\\Accessories\\wordpad.exe" append-path`
Wordpad - automatic path 2007-12-09 11:49:39 -05:00			`] unless* ;`

Wordpad integration (it's default installed on windows, handles \n, but no line numbers) 2007-12-05 02:21:52 -05:00			`: wordpad ( file line -- )`
fix wordpad 2008-03-26 15:55:04 -04:00			`drop wordpad-path swap 2array dup . run-detached drop ;`
Wordpad integration (it's default installed on windows, handles \n, but no line numbers) 2007-12-05 02:21:52 -05:00
			`[ wordpad ] edit-hook set-global`