Remove obsolete stuffs
This commit is contained in:
109
bin/cmder/vendor/conemu-maximus5/ConEmu/Far2_fml/ConEmu.ShiftEnter.fml
vendored
Normal file
109
bin/cmder/vendor/conemu-maximus5/ConEmu/Far2_fml/ConEmu.ShiftEnter.fml
vendored
Normal file
@@ -0,0 +1,109 @@
|
||||
|
||||
// This is sample macro-file for MacroLib plugin for Far Manager 2.x
|
||||
// You can download plugin here:
|
||||
// http://code.google.com/p/far-plugins/wiki/MacroLib
|
||||
|
||||
|
||||
// Run 'File under cursor' or 'Command line' in new console of ConEmu.
|
||||
// 'Press enter to close console' will be displayed after command completion.
|
||||
// Note! If you want to disable this confirmation,
|
||||
// set 'DisableCloseConfirm = 1'
|
||||
|
||||
const DisableCloseConfirm = 0
|
||||
|
||||
// AltEnter - run command and activate new ConEmu tab
|
||||
// Note! You must enable "Alt+Enter" option in ConEmu Settings->Keys.
|
||||
|
||||
// ShiftEnter - run command in background ConEmu tab
|
||||
// Note! If you want to activate new tab on ShiftEnter,
|
||||
// set 'UseBackgroundTab = 0'
|
||||
|
||||
const UseBackgroundTab = 1
|
||||
|
||||
|
||||
// While starting command in background tab, there is a flicker on panels.
|
||||
// If you want to disable flicker, set 'DisableFlicker = 1'.
|
||||
// Note! ConEmu plugin reqired for 'DisableFlicker = 1'.
|
||||
|
||||
const DisableFlicker = 0
|
||||
|
||||
|
||||
macro
|
||||
Descr="Run <File under cursor> or <Command line> in new console of ConEmu"
|
||||
Key="ShiftEnter AltEnter"
|
||||
Area="Shell Search ACompl"
|
||||
{{
|
||||
history.enable(0xff) // Remove this line in old Far2 versions
|
||||
|
||||
$if (akey(1,1)=="ShiftEnter" && #%UseBackgroundTab)
|
||||
%add = " -new_console:b";
|
||||
$if (#%DisableCloseConfirm) %add = %add + "n"; $end
|
||||
$else
|
||||
// AltEnter creates foreground console(tab)
|
||||
%add = " -new_console";
|
||||
$if (#%DisableCloseConfirm) %add = %add + ":n"; $end
|
||||
$end
|
||||
|
||||
%oldcmd = "";
|
||||
$if (Search)
|
||||
// Save and clear command line - about to execute panel(!) item
|
||||
%oldcmd = CmdLine.Value; %oldpos = CmdLine.CurPos;
|
||||
Esc Esc // First - close search, second - clear command line
|
||||
$end
|
||||
|
||||
$if (!CmdLine.Empty)
|
||||
$if (MacroArea=="AutoCompletion")
|
||||
Esc // Close autocompletion
|
||||
$end
|
||||
|
||||
$if (CmdLine.Value=="." || CmdLine.Value==".." || CmdLine.Value=="...")
|
||||
ShiftEnter
|
||||
$Exit
|
||||
$else
|
||||
$if (MacroArea=="AutoCompletion")
|
||||
Del // Remove autocompletion selection
|
||||
// Unfortunately, 'AutoCompletion' area exists in both Shell & Dialog.
|
||||
Esc $if (MacroArea!="Shell") $Exit $end
|
||||
$end
|
||||
//CtrlEnd - fails, couse of AutoCompletion
|
||||
$Rep(CmdLine.ItemCount) CtrlD $end
|
||||
//Append "-new_console" if not exists
|
||||
$if (index(CmdLine.Value,"-new_console")<0) print(%add) $end
|
||||
$end
|
||||
$else $if (APanel.FilePanel && !APanel.Plugin && !APanel.Empty && !APanel.Folder && len(APanel.Current)>4)
|
||||
$if (MacroArea=="AutoCompletion")
|
||||
// Unfortunately, 'AutoCompletion' area exists in both Shell & Dialog.
|
||||
Esc $if (MacroArea!="Shell") $Exit $end
|
||||
$end
|
||||
%exec = ucase(env("PATHEXT"));
|
||||
$if (%exec=="") %exec = ".COM;.EXE;.BAT;.CMD"; $end
|
||||
%ext = ucase(fsplit(APanel.Current,8));
|
||||
$if (%ext!="" && index(";"+%exec+";",";"+%ext+";")>=0)
|
||||
CtrlEnter
|
||||
Del // Remove possible autocompletion selection
|
||||
//Append "-new_console"
|
||||
print(%add)
|
||||
$else
|
||||
$if (akey(1,1)=="ShiftEnter") ShiftEnter $end
|
||||
$Exit
|
||||
$end
|
||||
$else
|
||||
$if (akey(1,1)=="ShiftEnter") ShiftEnter $end
|
||||
$Exit
|
||||
$end $end
|
||||
|
||||
Del // Remove possible autocompletion selection
|
||||
|
||||
$if (#%DisableFlicker)
|
||||
$Rep(CmdLine.ItemCount) CtrlS $end
|
||||
print("ConEmu:run:")
|
||||
$end
|
||||
|
||||
Enter // Execute
|
||||
|
||||
// Restore old command line state (running file from Panel in QSearch mode)
|
||||
$if (%oldcmd != "")
|
||||
print(%oldcmd)
|
||||
$if (%oldpos>=1 && %oldpos<=CmdLine.ItemCount) CtrlHome $Rep(%oldpos-1) CtrlD $end $end
|
||||
$end
|
||||
}}
|
||||
Reference in New Issue
Block a user