emeditor autopath

release
Doug Coleman 2007-12-09 10:56:47 -06:00
parent 451f9b430f
commit 537c008a20
1 changed files with 8 additions and 2 deletions
extra/editors/emeditor

10
extra/editors/emeditor/emeditor.factor Normal file → Executable file
View File

@ -1,9 +1,15 @@
USING: editors io.launcher kernel math.parser namespaces ;
USING: editors hardware-info.windows io.files io.launcher
kernel math.parser namespaces sequences windows.shell32 ;
IN: editors.emeditor
: emeditor-path ( -- path )
\ emeditor-path get-global [
program-files "\\EmEditor\\EmEditor.exe" path+
] unless* ;
: emeditor ( file line -- )
[
\ emeditor get-global % " /l " % #
emeditor-path % " /l " % #
" " % "\"" % % "\"" %
] "" make run-detached ;