Create folders in uppercase

Хотите говорить о Far и не знаете, куда обратиться?
User avatar
John Doe
Бюрократ
Posts: 13855
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

Create folders in uppercase

Post by John Doe »

Latest post of the previous page:

Shmuel wrote:Приложена более причёсанная версия макрофайла.
uppercase_folders.lua.7z
Может в Addons?
Shmuel
Posts: 6836
Joined: Thu 23 Mar, 2006 21:36
Location: Israel
Has thanked: 41 times
Been thanked: 530 times

Create folders in uppercase

Post by Shmuel »

John Doe wrote: Может в Addons?
Добавлено.
IgorZ
Posts: 791
Joined: Wed 13 Jul, 2011 03:32
Has thanked: 15 times
Been thanked: 93 times

Create folders in uppercase

Post by IgorZ »

DrKnS wrote:Amen.
Сурово. Ладно, буду пользоваться скриптом.
AleXH
Posts: 1000
Joined: Sun 12 Apr, 2009 05:21
Been thanked: 1 time

Create folders in uppercase

Post by AleXH »

В 4189 в режимах сортировки видим сопричастную опцию, что в свете выпиливания выглядит странным.
User avatar
John Doe
Бюрократ
Posts: 13855
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

Create folders in uppercase

Post by John Doe »

В чём вы видите сопричасность?
2useven10
Posts: 5231
Joined: Mon 07 Sep, 2009 10:40
Has thanked: 18 times
Been thanked: 315 times

Create folders in uppercase

Post by 2useven10 »

видим сопричастную опцию
это вы с прямым углом перепутали.
AleXH
Posts: 1000
Joined: Sun 12 Apr, 2009 05:21
Been thanked: 1 time

Create folders in uppercase

Post by AleXH »

Сопричастность вижу в совместном способе использования. Кому-то может удобно (было) создавать папки в uppercase потому, что имеется возможность поднимать их наверх с помощью сортировки.
User avatar
zg
zero-gravity
Posts: 6035
Joined: Tue 15 Mar, 2005 17:36
Location: riga
Been thanked: 185 times
Contact:

Create folders in uppercase

Post by zg »

AleXH wrote:Кому-то может удобно (было) создавать папки в uppercase
у меня и сейчас папки без проблем создаются в uppercase.
User avatar
John Doe
Бюрократ
Posts: 13855
Joined: Wed 27 Apr, 2005 20:42
Has thanked: 73 times
Been thanked: 428 times
Contact:

Create folders in uppercase

Post by John Doe »

http://farmanager.com/svn/trunk/addons/ ... olders.lua
Микро-оптимизация: можно избавиться от condition

Code: Select all

local ON = true -- set to false to turn the option OFF
local Pattern = regex.new("^\\U+$")
local F = far.Flags

local GUID = win.Uuid("fad00dbe-3fff-4095-9232-e1cc70c67737") -- "MakeFolderId"
local itempos = 3

local function Work (Event, FarDialogEvent)
  if Event == F.DE_DLGPROCINIT and FarDialogEvent.Msg == F.DN_CLOSE
                               and FarDialogEvent.Param1 >= 1 then
    local hDlg = FarDialogEvent.hDlg
    local DialogInfo = hDlg:send("DM_GETDIALOGINFO")
    if DialogInfo and DialogInfo.Id==GUID then
      local Item = hDlg:send("DM_GETDLGITEM", itempos)
      if Item and Item[1]==F.DI_EDIT and Pattern:match(Item[10]) then
        hDlg:send("DM_SETTEXT", itempos, Item[10]:upper())
      end
    end
  end
end

Event {
  description="Create folders in uppercase";
  group="DialogEvent";
  action=ON and Work;
}
Post Reply

Return to “Обсуждение Far Manager”