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

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

: wordpad ( file line -- )
    [
        wordpad-path % drop " " % "\"" % % "\"" %
    ] "" make run-detached ;

[ wordpad ] edit-hook set-global