А может уже есть такой плагин?
Update
Смежные темы:
- Открытие папок в пассивной панели (есть версия для Far 3)
Макрос на замену Same Folder (Такой же каталог)
Обсуждение плагина SameFolder+
Code: Select all
╔═════════════════════════ FAR Commands ══════════════════════════╗
║ [x] Add "Same Folder" to the Plugins menu ║
╟─────────────────────────────────────────────────────────────────╢
Code: Select all
$AKey
$if(flock(FLOCK_SCROLLLOCK,FLOCK_GETSTATE) && !APanel.Plugin && PPanel.Visible)
%e=lcase(fsplit(APanel.Current,FSPLIT_EXT));
$if(APanel.Folder || %e==".rar"||%e==".zip"||%e==".7z"||%e==".gz")
$if(PPanel.Type==PANELTYPE_QVIEW)
CtrlQ
$end
F11 F Tab CtrlPgDn Tab
$else
$if(PPanel.Type!=PANELTYPE_QVIEW)
CtrlQ
$end
$end
$end
Code: Select all
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Far2\KeyMacros\Vars]
"%%QFolderMacro"="$AKey $if(flock(FLOCK_SCROLLLOCK,FLOCK_GETSTATE) && !APanel.Plugin && PPanel.Visible) %e=lcase(fsplit(APanel.Current,FSPLIT_EXT)); $if(APanel.Folder || %e==\".rar\"||%e==\".zip\"||%e==\".7z\"||%e==\".gz\") $if(PPanel.Type==PANELTYPE_QVIEW) CtrlQ $end F11 F Tab CtrlPgDn Tab $else $if(PPanel.Type!=PANELTYPE_QVIEW) CtrlQ $end $end $end"
[HKEY_CURRENT_USER\Software\Far2\KeyMacros\Shell\Up]
"Sequence"="Eval(%%QFolderMacro)"
"DisableOutput"=dword:00000001
[HKEY_CURRENT_USER\Software\Far2\KeyMacros\Shell\Down]
"Sequence"="Eval(%%QFolderMacro)"
"DisableOutput"=dword:00000001
Code: Select all
═══════════════════════════ Macro parsing error ══════════════════════
Variable Expected 'FLOCK_SCROLLLOCK'
───────────────────────────────────────────────────────────────────
"flock(FLOCK_SCROLLLOCK,FLOCK_GETSTATE) && !APanel.Plugin && PPanel.Visible) %e=lcase(fsplit(APanel.Current,FSPLIT_EXT)); $if(APanel.Folder || %e=
^
───────────────────────────────────────────────────────────────────
Твои проблемы :-)zen wrote::(
Я ему не доверяю пока.