[KeyMacros/Shell/AltShiftPgUp]
DisableOutput=0x1
Sequence=$If (APanel.FilePanel) panel.setpath(1, APanel.Path) $End

[KeyMacros/Shell/AltShiftPgDn]
DisableOutput=0x1
NoFiles=0x1
Sequence=$If (APanel.Folder) panel.setpath(1, APanel.Path + "/" + APanel.Current) $End

[KeyMacros/Shell/AltShiftDown]
DisableOutput=0x1
NoFiles=0x1
Sequence=down $If (APanel.Folder) panel.setpath(1, APanel.Path + "/" + APanel.Current) $End

[KeyMacros/Shell/AltShiftUp]
DisableOutput=0x1
NoFiles=0x1
Sequence=up $If (APanel.Folder) panel.setpath(1, APanel.Path + "/" + APanel.Current) $End

[KeyMacros/Shell/AltShiftF6]
DisableOutput=0x1
NoFiles=0x1
NoSendKeysToPlugins=0x1
Sequence=F6 Del . / ShiftEnter / Enter

[KeyMacros/Shell/AltShiftF5]
DisableOutput=0x1
NoFiles=0x1
NoSendKeysToPlugins=0x1
Sequence=F5 Del . / ShiftEnter / Enter

[KeyMacros/Shell/AltDown]
DisableOutput=0x1
Sequence=$If ((APanel.FilePanel) && (APanel.Selected)) %i = APanel.curPos + 1; $While (%i <= APanel.itemCount) $If (panel.item(0, %i,8)) panel.setposidx(0, %i); $Exit $End %i=%i+1; $End $End

[KeyMacros/Shell/AltUp]
DisableOutput=0x1
Sequence=$If ((APanel.FilePanel) && (APanel.Selected)) %i = APanel.curPos - 1; $While (%i >= 1) $If (panel.item(0, %i,8)) panel.setposidx(0, %i); $Exit $End %i=%i-1; $End $End

[KeyMacros/Shell/AltShiftS]
DisableOutput=0x1
Sequence=$If ((APanel.FilePanel) && (APanel.Selected) && (PPanel.FilePanel)) %savedPos = PPanel.curPos; $If (PPanel.Selected) $If (msgbox("На целевой панели уже есть выделение", "Сбросить текущее выделение на целевой панели (иначе выделения будут объединены)?", 0x00040000) == 1) panel.select(1, 0); $End $End %i = 1; $While (%i <= APanel.itemCount) $If (panel.item(0, %i,8)) %nextFName = panel.item(0, %i, 0); %newPos = panel.setpos(1, %nextFName); $If (%newPos > 0) panel.select(1, 1, 1, 0); $End $End %i=%i+1; $End %savedPos = panel.setposidx(1, %savedPos); $End

[KeyMacros/Shell/AltShiftV]
DisableOutput=0x1
Sequence=$If (APanel.FilePanel) %savedPos = APanel.curPos; %theEndOfStr = chr(0x0A); %clipContent = replace(clip(0), chr(0x0D), ""); $If (len(%clipContent) < 1) $Exit $End $If (APanel.Selected) $If (msgbox("На панели уже есть выделение", "Сбросить текущее выделение (иначе выделения будут объединены)?", 0x00040000) == 1) panel.select(0, 0); $End $End $If ((index(%clipContent, %theEndOfStr) > 0) && (index(%clipContent, ";") < 0) && (index(%clipContent, ",") < 0)) %clipContent = replace(%clipContent, %theEndOfStr, ";"); panel.select(0, 1, 2, %clipContent); $Exit $End $If (index(%clipContent, %theEndOfStr) < 0) panel.select(0, 1, 2, %clipContent); $Exit $End %endStrPos = index(%clipContent, %theEndOfStr); $While (%endStrPos >= 0) %curFileName = subStr(%clipContent, 0 , %endStrPos); %clipLenBefore = len(%clipContent); %clipContent = subStr(%clipContent, %endStrPos + 1, len(%clipContent)); $If (%clipLenBefore <= len(%clipContent)) $Exit $End %filePos = panel.setpos(0, %curFileName); $If (%filePos > 0) panel.select(0, 1, 1, 0); $End %endStrPos = index(%clipContent, %theEndOfStr); $End $If (len(%clipContent) > 0) %filePos = panel.setpos(0, %clipContent); $If (%filePos > 0) panel.select(0, 1, 1, 0); $End $End %savedPos = panel.setposidx(0, %savedPos); $End

#!/bin/bash
# Первый и единственный параметр - имя файла-списка, передаваемое из ФАРа
# sed - Вставим в начале каждой строки фрагмент file://
sed -E -i 's/^(.)/file\:\/\/\1/' $1
xclip -selection clipboard -t text/uri-list $1

#!/bin/bash
# Первый и единственный НЕОБЯЗАТЕЛЬНЫЙ параметр - возможный ключ -u для обновления существующих файлов 
addrPrefix="file://" 

xclip -selection clipboard -o | while read theLine ; do
  theIndex=`expr index "$theLine" "$addrPrefix"`
  if [[ $theIndex = 1 ]]; then
    newLine=${theLine/"$addrPrefix"}
    rsync -a $1 "$newLine" "${PWD}"
  else
    echo "Неожиданный формат адреса в строке:" $theLine;
  fi
done

C:  Буфер обмена (системный)
{
C:  Скопировать помеченные объекты
    ~/.config/far2l/copy-to-clipboard.sh !@F!
V:  Вставить объекты (обновление)
    ~/.config/far2l/paste-from-clipboard.sh -u
O:  Вставить объеты (всегда заменять)
    ~/.config/far2l/paste-from-clipboard.sh
--:  
S:  Показать содержимое
    xclip -selection clipboard -o
}