emeditor autopath
parent
451f9b430f
commit
537c008a20
|
@ -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
|
IN: editors.emeditor
|
||||||
|
|
||||||
|
: emeditor-path ( -- path )
|
||||||
|
\ emeditor-path get-global [
|
||||||
|
program-files "\\EmEditor\\EmEditor.exe" path+
|
||||||
|
] unless* ;
|
||||||
|
|
||||||
: emeditor ( file line -- )
|
: emeditor ( file line -- )
|
||||||
[
|
[
|
||||||
\ emeditor get-global % " /l " % #
|
emeditor-path % " /l " % #
|
||||||
" " % "\"" % % "\"" %
|
" " % "\"" % % "\"" %
|
||||||
] "" make run-detached ;
|
] "" make run-detached ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue