Merge branch 'master' of git://factorcode.org/git/factor
commit
1c8205e282
|
@ -6,6 +6,7 @@ IN: editors.editpadlite
|
||||||
: editpadlite-path ( -- path )
|
: editpadlite-path ( -- path )
|
||||||
\ editpadlite-path get-global [
|
\ editpadlite-path get-global [
|
||||||
"JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files
|
"JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files
|
||||||
|
[ "editpadlite.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: editpadlite ( file line -- )
|
: editpadlite ( file line -- )
|
||||||
|
|
|
@ -6,6 +6,7 @@ IN: editors.editpadpro
|
||||||
: editpadpro-path ( -- path )
|
: editpadpro-path ( -- path )
|
||||||
\ editpadpro-path get-global [
|
\ editpadpro-path get-global [
|
||||||
"JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
|
"JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
|
||||||
|
[ "editpadpro.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: editpadpro ( file line -- )
|
: editpadpro ( file line -- )
|
||||||
|
|
|
@ -6,6 +6,7 @@ IN: editors.editplus
|
||||||
: editplus-path ( -- path )
|
: editplus-path ( -- path )
|
||||||
\ editplus-path get-global [
|
\ editplus-path get-global [
|
||||||
"EditPlus 2" t [ "editplus.exe" tail? ] find-in-program-files
|
"EditPlus 2" t [ "editplus.exe" tail? ] find-in-program-files
|
||||||
|
[ "editplus.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: editplus ( file line -- )
|
: editplus ( file line -- )
|
||||||
|
|
|
@ -6,6 +6,7 @@ IN: editors.emeditor
|
||||||
: emeditor-path ( -- path )
|
: emeditor-path ( -- path )
|
||||||
\ emeditor-path get-global [
|
\ emeditor-path get-global [
|
||||||
"EmEditor" t [ "EmEditor.exe" tail? ] find-in-program-files
|
"EmEditor" t [ "EmEditor.exe" tail? ] find-in-program-files
|
||||||
|
[ "EmEditor.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: emeditor ( file line -- )
|
: emeditor ( file line -- )
|
||||||
|
|
|
@ -7,6 +7,7 @@ IN: editors.etexteditor
|
||||||
: etexteditor-path ( -- str )
|
: etexteditor-path ( -- str )
|
||||||
\ etexteditor-path get-global [
|
\ etexteditor-path get-global [
|
||||||
"e" t [ "e.exe" tail? ] find-in-program-files
|
"e" t [ "e.exe" tail? ] find-in-program-files
|
||||||
|
[ "e" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: etexteditor ( file line -- )
|
: etexteditor ( file line -- )
|
||||||
|
|
|
@ -6,4 +6,5 @@ IN: editors.gvim.windows
|
||||||
M: windows gvim-path
|
M: windows gvim-path
|
||||||
\ gvim-path get-global [
|
\ gvim-path get-global [
|
||||||
"vim" t [ "gvim.exe" tail? ] find-in-program-files
|
"vim" t [ "gvim.exe" tail? ] find-in-program-files
|
||||||
|
[ "gvim.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
|
@ -5,6 +5,7 @@ IN: editors.notepad2
|
||||||
: notepad2-path ( -- path )
|
: notepad2-path ( -- path )
|
||||||
\ notepad2-path get-global [
|
\ notepad2-path get-global [
|
||||||
windows-directory "system32\\notepad.exe" append-path
|
windows-directory "system32\\notepad.exe" append-path
|
||||||
|
[ "notepad.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: notepad2 ( file line -- )
|
: notepad2 ( file line -- )
|
||||||
|
|
|
@ -5,6 +5,7 @@ IN: editors.notepadpp
|
||||||
: notepadpp-path ( -- path )
|
: notepadpp-path ( -- path )
|
||||||
\ notepadpp-path get-global [
|
\ notepadpp-path get-global [
|
||||||
"notepad++" t [ "notepad++.exe" tail? ] find-in-program-files
|
"notepad++" t [ "notepad++.exe" tail? ] find-in-program-files
|
||||||
|
[ "notepad++.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: notepadpp ( file line -- )
|
: notepadpp ( file line -- )
|
||||||
|
|
|
@ -14,6 +14,7 @@ IN: editors.scite
|
||||||
"SciTE Source Code Editor" t
|
"SciTE Source Code Editor" t
|
||||||
[ >lower "scite.exe" tail? ] find-in-program-files
|
[ >lower "scite.exe" tail? ] find-in-program-files
|
||||||
] unless*
|
] unless*
|
||||||
|
[ "scite.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: scite-command ( file line -- cmd )
|
: scite-command ( file line -- cmd )
|
||||||
|
|
|
@ -5,6 +5,7 @@ IN: editors.ted-notepad
|
||||||
: ted-notepad-path ( -- path )
|
: ted-notepad-path ( -- path )
|
||||||
\ ted-notepad-path get-global [
|
\ ted-notepad-path get-global [
|
||||||
"TED Notepad" t [ "TedNPad.exe" tail? ] find-in-program-files
|
"TED Notepad" t [ "TedNPad.exe" tail? ] find-in-program-files
|
||||||
|
[ "TedNPad.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: ted-notepad ( file line -- )
|
: ted-notepad ( file line -- )
|
||||||
|
|
|
@ -6,6 +6,7 @@ IN: editors.textpad
|
||||||
: textpad-path ( -- path )
|
: textpad-path ( -- path )
|
||||||
\ textpad-path get-global [
|
\ textpad-path get-global [
|
||||||
"TextPad 5" t [ "TextPad.exe" tail? ] find-in-program-files
|
"TextPad 5" t [ "TextPad.exe" tail? ] find-in-program-files
|
||||||
|
[ "TextPad.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: textpad ( file line -- )
|
: textpad ( file line -- )
|
||||||
|
|
|
@ -5,6 +5,7 @@ IN: editors.ultraedit
|
||||||
: ultraedit-path ( -- path )
|
: ultraedit-path ( -- path )
|
||||||
\ ultraedit-path get-global [
|
\ ultraedit-path get-global [
|
||||||
"IDM Computer Solutions" t [ "uedit32.exe" tail? ] find-in-program-files
|
"IDM Computer Solutions" t [ "uedit32.exe" tail? ] find-in-program-files
|
||||||
|
[ "uedit32.exe" ] unless*
|
||||||
] unless* ;
|
] unless* ;
|
||||||
|
|
||||||
: ultraedit ( file line -- )
|
: ultraedit ( file line -- )
|
||||||
|
|
Loading…
Reference in New Issue