Набор макросов от SimSU

Здесь выкладываются готовые к использованию макросы и скрипты.
User avatar
SUSim
Posts: 1545
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 11 times

Набор макросов от SimSU

Post by SUSim »

Вычисление математических выражений. © SimSU
Календарь. © SimSU
Выполнение команды через меню пользователя. © SimSU
Получение названия клавиши. © SimSU
Ускорение скроллинга колёсиком мышки. © SimSU
Меню плагинов с последнего пункта. © SimSU
Вставка разделённых путей и имён файлов. © SimSU
Редактирование строки ввода диалога в редакторе. © SimSU
Первая строка всегда на экране полезно в качестве заголовков столбцов. © SimSU
Создание резервной копии редактируемого файла. © SimSU
Открытие редактора из редактора. © SimSU
Вставка шаблона мароса. / Insert macro template. © Shmuel SimSU
Простое импортирование макроса FAR. © SimSU
Список завершения LuaMacro. © SimSU
Работа мышкой с выделением в редакторе. © SimSU
Перемещение строк в редакторе. © SimSU
Два синхронных редактора. © SimSU
Быстрый поиск в редакторе. © SimSU
Комментирование/разкомментирование помеченного блока. © SimSU
Памятливый редактор. © SimSU
Работа с помеченным блоком в редакторе. © SimSU
Подсветка табуляции и перевода строк. © SimSU
Умный Del. © SimSU
Умные Home & End. © SimSU
Лёгкое изменение размеров табуляции. © SimSU
Транспонирование (строки превращаются в столбцы) текста. © SimSU
Удаление конечных пробелов и символов табуляции и пустых строк. © SimSU
Завершения слов в редакторе. © SimSU
Запуск приложения в DOSBox [http://www.dosbox.com]. © SimSU
Работа с файлами через контекстное меню (плагин EMenu). © SimSU
Работа с файлами через FastCopy (FastCopy.exe © http://ipmsg.org/tools/fastcopy.html). © SimSU
работа с LNK-файлами (плагин LnkView). © SimSU
Переход по вкладкам плагина Panel Tabs (плагин Panel Tabs © Максим Русов) © SimSU"
Работа с файлами через TeraCopy (TeraCopy.exe © http://www.codesector.com). © SimSU
Визуальное сравнение файлов (плагин VisualCompare © Максим Русов). © SimSU
Работа с псевдонимами (синонимами). © SimSU
Смена диска активной панели RCtrl+стрелки. © SimSU
Работа в командной строке. © SimSU
Удаление резервных и временных файлов. © SimSU
Редактирование описания в файле. © SimSU
Фавориты (избранные папки и плагины) в меню дисков. © SimSU
Работа с датой/временем файлов/папок. © SimSU
Возврат в предыдущую папку, отмена возврата. © SimSU
Включение/отключение поиска на панели после отпускания RAlt. © SimSU
Сохранение/восстановление выделения файлов. © SimSU
Такой же путь & Текущая папка. © SimSU
Выделение файлов аля Explorer. © SimSU
Работа с пометкой файлов. © SimSU
Расширение функциональных клавиш копирования, переноса, создания папки. © SimSU
При смене панели ширина активной панели остается постоянной. © SimSU
Attachments
SimSU20200404.7z
(73.42 KiB) Downloaded 114 times
Last edited by SUSim on Sun 05 Apr, 2020 10:12, edited 13 times in total.
SimSU ··· ·· -- ··· ··-
2useven10
Posts: 4110
Joined: Mon 07 Sep, 2009 10:40
Has thanked: 5 times
Been thanked: 194 times

Набор макросов от SimSU

Post by 2useven10 »

Latest post of the previous page:

HaRT wrote: Thu 12 Sep, 2019 14:49 которая X-координата возвращается при наличии табов в начале строки.
2useven10 wrote: Thu 12 Sep, 2019 14:33 einf.CurTabPos
вроде бы всё видно.

PS: Код практически не тестировал, проверять надо обязательно.
Last edited by 2useven10 on Thu 12 Sep, 2019 18:35, edited 2 times in total.
buniak_a_h
Posts: 2126
Joined: Sat 20 Apr, 2013 00:17
Location: Питер
Has thanked: 131 times
Been thanked: 211 times
Contact:

Набор макросов от SimSU

Post by buniak_a_h »

Здравствуйте.
Разрешите представить небольшое изменение макроса Common_MouseWheel, которое я сделал у себя. Суть в том, что в при прокручивании колёсика мыши в панелях в случае, если обе панели видны скроллируется не активная панель, а та, над которой в начале скроллинга находилась мышка.
Для такого эффекта в начале функции Common_Scroll вставить строки

Code: Select all

  local bNeedTab = Area.Shell and                                                        -- BAX, 15.10.2019 {
                   APanel.Visible and PPanel.Visible and                                 -- BAX, 15.10.2019
                   (Mouse.X < ((APanel.Left and APanel or PPanel).Width) == PPanel.Left) -- BAX, 15.10.2019 }
, а перед и после цикла while Pause<=S.Delay do вставить строку

Code: Select all

  if bNeedTab then panel.SetActivePanel(nil, 0) end -- BAX, 15.10.2019
User avatar
SUSim
Posts: 1545
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 11 times

Набор макросов от SimSU

Post by SUSim »

Прошу прощения у ВСЕХ! У меня произошёл "даунгрейд" - потеря всех "не личных", в том числе и макросы, а многое из форков/предложений/пожеланий - поправил/исправил/улучшил, НО не успел опубликовать - самому пришлось восстанавливаться с SimSU20190908
Last edited by SUSim on Tue 26 Nov, 2019 20:10, edited 3 times in total.
SimSU ··· ·· -- ··· ··-
User avatar
Tim Sobolev
Posts: 714
Joined: Fri 01 Apr, 2005 14:46
Location: Украина
Has thanked: 1 time
Been thanked: 2 times

Набор макросов от SimSU

Post by Tim Sobolev »

Shell_FileTime.lua с нормальными прототипами WinAPI функций (иначе не работало на FAR 5513).
Константы взяты из HexEd.moon by zq.

UPD. Исправлено ошибку для Ctrl+Alt+D (UpdateBranch)

Shell_FileTime.lua
Исправлено ошибку для Ctrl+Alt+D (UpdateBranch)
(6.58 KiB) Downloaded 40 times
Last edited by Tim Sobolev on Sat 30 Nov, 2019 13:43, edited 2 times in total.
User avatar
SUSim
Posts: 1545
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 11 times

Набор макросов от SimSU

Post by SUSim »

Tim Sobolev, Спасибо!
Забрал, осмыслю. Но из-за восстановления остальных потерянных данных :(( быстрой реакции не ждите :(
SimSU ··· ·· -- ··· ··-
buniak_a_h
Posts: 2126
Joined: Sat 20 Apr, 2013 00:17
Location: Питер
Has thanked: 131 times
Been thanked: 211 times
Contact:

Набор макросов от SimSU

Post by buniak_a_h »

Скорее всего перестанет работать макрос Editor_Pair: в макросе указано action=Start;; в самой функции Start(LeftFile,RightFile), а теперь при вызове action ей передаётся таблица. Я не проверял - чисто теоретически. Надо заменить action=Start; на action=function() Start(); end;. И далее по тексту (action=Switch, action=DecTop, … )
User avatar
SUSim
Posts: 1545
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 11 times

Набор макросов от SimSU

Post by SUSim »

Спасибо!
Да понял я уже, блин. Неожиданно, и немного неприятно... Даунгрейд, ещё этот мой ...
Пля, как не вовремя - времени нет практически :(
Постараюсь как можно оперативнее поправить...
Last edited by SUSim on Wed 11 Dec, 2019 21:36, edited 1 time in total.
SimSU ··· ·· -- ··· ··-
User avatar
SUSim
Posts: 1545
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 11 times

Набор макросов от SimSU

Post by SUSim »

Обновил макросы:

основная часть - автоматическая обертка - action=function() [...] end;
но это не правильно оказалось
обернул в - action=function( [...] ) return [...] end;[/b]
так вроде работает...

за сегодня проблем вроде не было.

ЗЫ о таких изменениях хорошо бы предупреждать заранее - 1 месяц минимум!
ЗЫЫ я конечно идиот, но в некоторых функциях я балуюсь вызовом с лишними параметрами
пример - mmode(1,mmode(1,0),Pos(1,2,Xct)) и тут засада... я боюсь изменений без об объявления войны.
Last edited by SUSim on Sun 05 Apr, 2020 10:09, edited 4 times in total.
SimSU ··· ·· -- ··· ··-
Shmuel
Posts: 6167
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 31 times
Been thanked: 330 times

Набор макросов от SimSU

Post by Shmuel »

SUSim wrote: Mon 16 Dec, 2019 18:20 основная часть - автоматическая обертка - action=function() [...] end;
но это не правильно оказалось
1. function(без параметров) - неправильно, только если вы начали использовать новую таблицу-параметр data. Для скриптов, которые её не используют - правильно.
2. Отсутствие возвращаемых значений - тоже правильно, т.к. LuaMacro их игнорирует. Зато ваше изменение гарантирует приключения в будущем, когда LuaMacro перестанет их игнорировать.
User avatar
zg
zero-gravity
Posts: 5878
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 155 times
Contact:

Набор макросов от SimSU

Post by zg »

SUSim wrote: Mon 16 Dec, 2019 18:20ЗЫ о таких изменениях хорошо бы предупреждать заранее - 1 месяц минимум!
7 лет назад предупреждено. пункт 1.1 — прямо как чувствовал.
SUSim wrote: Mon 16 Dec, 2019 18:20ЗЫЫ я конечно идиот, но в некоторых функциях я балуюсь вызовом с лишними параметрами
пример - mmode(1,mmode(1,0),Pos(1,2,Xct)) и тут засада... я боюсь изменений без об объявления войны.
я так понимаю, вы ожидаете последовательного выполнения mmode, Pos, mmode? тогда даже без фара у вас потенциальные проблемы.
buniak_a_h
Posts: 2126
Joined: Sat 20 Apr, 2013 00:17
Location: Питер
Has thanked: 131 times
Been thanked: 211 times
Contact:

Набор макросов от SimSU

Post by buniak_a_h »

zg wrote: Mon 16 Dec, 2019 22:10 7 лет назад предупреждено. пункт 1.1 — прямо как чувствовал.
Вы психологию совсем не учитываете? Кто обращает внимание на 7-летней выдержки предупреждение? Обновить надо было … Впрочем, я писал
User avatar
zg
zero-gravity
Posts: 5878
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 155 times
Contact:

Набор макросов от SimSU

Post by zg »

buniak_a_h wrote: Mon 16 Dec, 2019 23:19Вы психологию совсем не учитываете?
я как раз учитываю, большинству пофиг, пока это не коснётся лично их.
поэтому такое — это чистые эмоции:
SUSim wrote: Mon 16 Dec, 2019 18:20ЗЫ о таких изменениях хорошо бы предупреждать заранее - 1 месяц минимум!
ну написали б где-то на форуме, через месяц в action добавится параметр, проверьте свои макросы. ничего не изменилось бы. человек ожидает, что предупреждение будет в стиле — вот у вас конкретно тут такие проблемы. но искать по всем существующим макросам, что там не так, никто не будет.
User avatar
SUSim
Posts: 1545
Joined: Thu 18 Feb, 2010 17:32
Has thanked: 5 times
Been thanked: 11 times

Набор макросов от SimSU

Post by SUSim »

Ладно, проехали...

Еще раз обновился!
Если что забыл, то напомните, пожалуйста.
Last edited by SUSim on Sun 05 Apr, 2020 10:15, edited 2 times in total.
SimSU ··· ·· -- ··· ··-
ccaid
Posts: 869
Joined: Fri 12 Jun, 2009 16:04
Has thanked: 19 times
Been thanked: 5 times

Набор макросов от SimSU

Post by ccaid »

Editor_Pair на свежезапущенном Far имеет проблему перерисовки — после нажатия шортката вызова на переднем плане оказывается десктоп. попытки через F12 исправить положение переключают экраны непонятным образом, но не проводят к успеху.
но достаточно один раз вызвать редактор Far до вызова Editor_Pair , как проблема исчезает до очередного перезапуска Far.
воспроизводится на Far с чистым профилем, единственным скриптом и плагином LuaMacro.
неужели это только у меня? или никто не сталкивался, включая автора?
User avatar
zg
zero-gravity
Posts: 5878
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 155 times
Contact:

Набор макросов от SimSU

Post by zg »

ccaid wrote: Sat 08 Aug, 2020 15:19неужели это только у меня? или никто не сталкивался, включая автора?
проблема в этой строке if ID==far.AdvControl(F.ACTL_GETWINDOWINFO,i).Id then. автор ищет окно исключительно по ID, не проверяя тип окна. у первого открытого редактора ID 0, у десктопа — всегда 0. это не единственный вариант. может совпасть и с окном просмотра.
ccaid
Posts: 869
Joined: Fri 12 Jun, 2009 16:04
Has thanked: 19 times
Been thanked: 5 times

Набор макросов от SimSU

Post by ccaid »

Editor_Pair
при определении строк LeftFile, RightFile обработка случая пустого поля APanel.Path/PPanel.Path предусмотрена только для элемента Current, поэтому с выделенным элементом на временной панели скрипт не работает.
Фар делают добрые люди
Post Reply

Return to “Полезные макросы и скрипты”