codewarlock1101
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vladvro
Влево-вправо (от вверх-вниз отказался, потому что меняет "концепцию" скрипта - удобство по перемещению строк - потому что когда пытешься перетащить кусок через пустую строку он сам становится строкой и как кусок перемещаться не хочет, да и вообще - вырезать/вставить для перемещения на дальние дистанции намного удобнее и привычнее).
А вот таскать в одной строке влево вправо - это удобно....
Код:
--[[***********************************************************************************************
* PIE_MOVE_TYPE
* 0 Не премещать
* 1 Для цикличного перемещения по соседним строкам
* 2 Для цикличного перемещения по одной строке
* 3 блокировка цикличности
*************************************************************************************************]]
local PIE_MOVE_TYPE=2
local sel_start_line = editor:LineFromPosition(editor.SelectionStart)
local sel_end_line = editor:LineFromPosition(editor.SelectionEnd)
local slend=editor:GetLineSelEndPosition(sel_end_line)
local slend2=editor:GetLineSelEndPosition(sel_end_line-1)
local sel_txt=editor:GetSelText()
local nap=0
if slend==slend2 then
nap=1
end
local anti_nap=math.abs(nap-1)
if gorizont==1 then
if PIE_MOVE_TYPE==0 or (sel_start_line~=sel_end_line or sel_txt=="" or (editor:PositionFromLine(sel_start_line)==editor.SelectionStart and editor.LineEndPosition[sel_end_line]==editor.SelectionEnd)) then
for i = sel_start_line, sel_end_line-nap do
editor.LineIndentation [i]=editor.LineIndentation [i]+d*(-1)
end
else
if editor.SelectionStart~=0 or d==-1 then
editor:ReplaceSel('')
if editor.SelectionStart==editor:PositionFromLine(sel_start_line) and d==1 then
if PIE_MOVE_TYPE==1 then editor:CharLeft() end
if PIE_MOVE_TYPE==1 or PIE_MOVE_TYPE==3 then editor.SelectionStart=editor.SelectionStart+d end
if PIE_MOVE_TYPE==2 then editor.SelectionStart=editor.LineEndPosition[sel_end_line]+d end
end
if editor.SelectionStart==editor.LineEndPosition[sel_start_line] and d==-1 then
if PIE_MOVE_TYPE==1 then editor:CharRight() end
if PIE_MOVE_TYPE==1 or PIE_MOVE_TYPE==3 then editor.SelectionStart=editor.SelectionStart+d end
if PIE_MOVE_TYPE==2 then editor.SelectionStart=editor:PositionFromLine(sel_start_line)+d end
end
editor.SelectionStart=editor.SelectionStart+(-1)*d
local strt=editor.SelectionStart
editor:InsertText(editor.SelectionStart, sel_txt)
if d==1 then
editor.SelectionEnd=editor.SelectionStart-1
editor.SelectionStart=editor.SelectionStart-string.len(sel_txt)
else
editor.SelectionStart=strt
editor.SelectionEnd=editor.SelectionStart+string.len(sel_txt)
end
end
end
else
if (sel_txt == "") or (sel_start_line==sel_end_line) then
local xsel_s=editor.SelectionStart-editor:PositionFromLine(sel_start_line)
local xsel_e=editor.SelectionEnd-editor:PositionFromLine(sel_end_line)
if d==1 then
if sel_end_line-nap<editor.LineCount-1 then
editor:LineDown()
editor:LineTranspose()
else
d=0
end
else
editor:LineTranspose()
editor:LineUp()
end
if (sel_txt ~= "") then
xsel_s = editor:PositionFromLine(sel_start_line+d)+xsel_s
xsel_e = xsel_s + string.len(sel_txt)
editor:SetSel(xsel_s,xsel_e)
end
else
if (sel_start_line>0 and d==-1) or (sel_end_line-nap<editor.LineCount-1 and d==1) then
editor:BeginUndoAction()
if d==1 then
-- Down
editor:GotoLine(sel_end_line+anti_nap)
for i = sel_end_line-nap+anti_nap, sel_start_line+anti_nap, -1 do
editor:LineTranspose()
editor:LineUp()
end
else
-- Up
editor:GotoLine(sel_start_line)
for i = sel_start_line, sel_end_line-nap do
editor:LineTranspose()
editor:LineDown()
end
end
local sel_start = editor:PositionFromLine(sel_start_line+d)
local sel_end = editor:PositionFromLine(sel_end_line+d+anti_nap)
editor:SetSel(sel_start,sel_end)
editor:EndUndoAction()
end
end
end
|
Исправил офигенный косяк (который таился еще с первых весий). Если при множественном выделении строк вернуть каретку в конец последней строки (шифт-лефт) и перемещать вниз то начиналась заморочь... |
После перекодировки хоткеи работают. Правда в 8-bit не перекодирует после UTF, но это надо в консерватории править насколько я понял.