20 lines
565 B
Factor
20 lines
565 B
Factor
USING: combinators.short-circuit editors io.standard-paths
|
|
kernel make namespaces ;
|
|
IN: editors.editpadlite
|
|
|
|
SINGLETON: editpadlite
|
|
editpadlite editor-class set-global
|
|
|
|
: editpadlite-path ( -- path )
|
|
\ editpadlite-path get [
|
|
{
|
|
[ { "Just Great Software" "JGsoft" } "editpadlite.exe" find-in-applications ]
|
|
[ { "Just Great Software" "JGsoft" } "editpadlite7.exe" find-in-applications ]
|
|
[ "editpadlite7.exe" ]
|
|
} 0||
|
|
] unless* ;
|
|
|
|
M: editpadlite editor-command
|
|
drop
|
|
[ editpadlite-path , , ] { } make ;
|