Update from upstream repo Raidar/Rh_Scripts@master

Common/Calendar/Terra.lua

@@ -1,10 +1,10 @@
---[[ Fetes: Terra ]]--
---[[ Отмечаемые даты: Земля ]]--
+--[[ Events: Terra ]]--
+--[[ События: Земля ]]--
 
 ----------------------------------------
 --[[ description:
-  -- Feast and memorial days.
-  -- Праздничные и памятные дни.
+  -- Days of events.
+  -- Дни событий.
 --]]
 --------------------------------------------------------------------------------
 

Common/Calendar/locales/TerraDef.lua

@@ -3,12 +3,12 @@
 --------------------------------------------------------------------------------
 local Data = {
   ----------------------------------------
-  -- Common fests:
+  -- Common events:
   NewYear                   = "New Year",                   -- N.Y.   -- 01-01
-  SaintValentineDay         = "Saint Valentine's Day",      -- SVD    -- 02-14
+  SaintValentineDay         = "Saint Valentine`s Day",      -- SVD    -- 02-14
   FatherlandDayDefender     = "Defender of the Fatherland Day",       -- 02-23
-  InternationalWomensDay    = "International Women's Day",  -- IWD    -- 03-08
-  AllFoolsDay               = "All Fools' Day",             -- AFD    -- 04-01
+  InternationalWomensDay    = "International Women`s Day",  -- IWD    -- 03-08
+  AllFoolsDay               = "All Fools` Day",             -- AFD    -- 04-01
   InterAnimationDay         = "International Animation Day",-- IAD    -- 10-28
   InternationalMensDay      = "International Men's Day",    -- IMD    -- 11-19
   NewYearsEve               = "New Year's Eve",             -- NYE    -- 12-31
@@ -25,9 +25,9 @@ local Data = {
     -- International Day of Human Space Flight
   WorldCosmonauticsDay      = "World Cosmonautics Day",               -- 04-12
   SystemAdminsDay           = "System Administrator Appreciation Day",-- 07
-  ProgrammersDay            = "Programmers' Day",                     -- 09-12/13
-  UpbringersDay             = "Upbringers' Day",            -- ???    -- 09-27
-  WorldTeachersDay          = "World Teachers' Day",                  -- 10-05
+  ProgrammersDay            = "Programmers` Day",                     -- 09-12/13
+  UpbringersDay             = "Upbringers` Day",            -- ???    -- 09-27
+  WorldTeachersDay          = "World Teachers` Day",                  -- 10-05
   InterAccountantsDay       = "International Accountants' Day",       -- 11-10
   ----------------------------------------
 } --- Data

Common/Calendar/locales/TerraRus.lua

@@ -4,7 +4,7 @@
 --------------------------------------------------------------------------------
 local Data = {
   ----------------------------------------
-  -- Common fests:
+  -- Common events:
   NewYear                   = "Новый год", -- Н.г.
   SaintValentineDay         = "День святого Валентина",
   FatherlandDayDefender     = "День защитника Отечества",

Common/CharsMap.lua

@@ -428,7 +428,8 @@ function TMain:MakeProps ()
     MaxHeight = 1 + 1 +
                 self.RowCount +
                 1 +
-                (CharsBlocks and (1 + 2) or 0) +
+                --(CharsBlocks and (1 + 2) or 0) +
+                EdgeRows.Count +
                 0,
 
     Colors = self.Colors,
@@ -584,8 +585,6 @@ function TMain:FillMenu () --> (table)
     local SelChar = self.Char -- Код текущего символа
     local SelIndex            -- Индекс пункта с текущим символом
 
-    local glen = unicode.grapheme.len
-
     for i = 1, CharRows do
       p = p + ColCount
 
@@ -1065,7 +1064,7 @@ end ---- MakeProps
 
 function TBlocks:MakeItems () --| (Blocks_Items)
 
-  if self.Items then return end
+  if self.Items then return true end
 
   local Main = self.Main
 
@@ -1157,6 +1156,7 @@ function TMain:ChooseBlock (Data)
   local Blocks = self.Blocks
   Blocks.FilterCol = 2
 
+  --logShow(Blocks, "ChooseBlock", 1)
   Blocks:MakeProps()
   if not Blocks:MakeItems() then return end
   Blocks:InitFilter()
@@ -1268,22 +1268,24 @@ do
 
 function TMain:FindCharInput ()
 
-  local Input = self.Input or ""
+  local Input = makeplain(self.Input or "")
   if Input == "" then return end
 
   if Input:sub(1, 1) ~= "^" then
     Input = ".*"..Input
 
   end
 
+  --logShow(Input, self.Char)
+
   --if Input:sub(-1, -1) ~= "$" then
   --  Input = Input..".*"
   --
   --end
 
   --logShow(self, Input)
   --return u8byte(Input:sub(1, 1)) -- TEMP
-  return uFindCode(makeplain(Input), self.Char + 1)
+  return uFindCode(Input, self.Char + 1)
 
 end ---- FindCharInput
 
@@ -1322,6 +1324,8 @@ end ---- StopCharInput
 
 function TMain:GotoCharInput (Data)
 
+  --logShow(Data, 'GotoCharInput')
+
   self.Char = self:FindCharInput() or Data.Char
 
   return self:FillInputCount()
@@ -1549,7 +1553,8 @@ function TMain:AssignEvents () --> (bool | nil)
       return { Kind = "CtrlEnter", }, CloseFlag
 
     elseif SKey == "CtrlB" then
-      if not CharsBlocks then return end
+      --logShow(Input, SKey)
+      --if not CharsBlocks then return end
 
       local Char = self:ChooseBlock(Data)
       if type(Char) == 'number' then

Common/CommonEng.hlf

@@ -204,8 +204,8 @@ $ #Characters map# (CharsMap)
  \37Num* | Clear\- (Num5)    — ¦the last chosen character.
  \37CtrlB\-                  — ¦to show a character blocks
 and to go to a first character of the chosen block.
- \37CtrlF\-                  — ¦to show all characters, that contain
-name of current character, and to go to a first character of the chosen block.
+ \37CtrlF\-                  — ¦to show all characters,
+that contain name of current character, and to go to the chosen character.
  \37CtrlC\-                  — ¦to copy the character to clipboard.
  \37CtrlShiftC\-             — ¦to copy code point of the character to clipboard.
  \37CtrlV\-                  — ¦to go to a character from clipboard.
@@ -270,10 +270,12 @@ $ #Calendar for one month# (Calendar)
   Area with date information is displayed on the left,
 the calendar itself is displayed on the right.
   In the area with date information the following is displayed:
-  — ¦a number of the year day is on the left of the fullname of the week day,
-  — ¦a number of the year week is on the right,
+  — ¦a year and a month with arrow-buttons to select value,
   — ¦the date in \3AYYYY‑MM‑DD\- format is from above,
-  — ¦the time for current date в формате in \3AHH‑NN‑SS\-  format is from below.
+  — ¦the fullname of the week day with special values:
+    ¦a number of the year day is on the left,
+    ¦a number of the year week is on the right,
+  — ¦the time for current date в формате in \3AHH‑NN‑SS\-  format.
   In the calendar area the following is displayed:
   — ¦a number of the month week is on the first row,
   — ¦a number of the year week  is on the last row,

Common/CommonRus.hlf

@@ -208,8 +208,8 @@ $ #Таблица символов# (CharsMap)
  \37Num* | Clear\- (Num5)    — ¦последний выбранный символ.
  \37CtrlB\-                  — ¦отображение блоков символов
 и переход на первый символ выбранного блока.
- \37CtrlF\-                  — ¦отображение всех символов, содержащих
-название текущего символа, и переход на первый символ выбранного блока.
+ \37CtrlF\-                  — ¦отображение всех символов,
+содержащих название текущего символа, и переход на выбранный символ.
  \37CtrlC\-                  — ¦копирование символа в буфер обмена.
  \37CtrlShiftC\-             — ¦копирование кодовой точки символа в буфер обмена.
  \37CtrlV\-                  — ¦переход на символ из буфера обмена.
@@ -273,15 +273,17 @@ $ #Календарь на один месяц# (Calendar)
   Calendar — скрипт для отображения календаря на один месяц.
 
   Область с информацией о дате отображается слева, сам календарь — справа.
-  В области с информацией о дате отображается следующее:
-  — ¦номер дня года — слева от полного названия дня недели,
-  — ¦номер недели года — справа,
-  — ¦выбранная дата в формате \3AГГГГ‑ММ‑ДД\- — сверху,
-  — ¦время для текущей даты в формате \3AЧЧ‑ММ‑СС\- — снизу.
+  В области с информацией о дате отображается следующее (top down):
+  — ¦год и месяц с кнопками-стрелками выбора значения,
+  — ¦выбранная дата в формате \3AГГГГ‑ММ‑ДД\- с кнопками ввода смещения,
+  — ¦полное название дня недели со специальными значениями:
+    ¦слева — номер дня года,
+    ¦справа — номер недели года,
+  — ¦время для текущей даты в формате \3AЧЧ‑ММ‑СС\- .
   В области календаря дополнительно отображается следующее:
-  — ¦номер недели месяца — на первой строке,
-  — ¦номер недели года — на последней строке,
-  — ¦сокращённые названия дней недели — в последнем столбце.
+  — ¦на первой строке — номер недели месяца,
+  — ¦на последней строке — номер недели года,
+  — ¦в последнем столбце — сокращённые названия дней недели.
 
   Клавиши навигации:
  \37Alt+(Left|Right)\-       — ¦предыдущий/следующий месяц.

Common/rhsConfig.lua

@@ -690,6 +690,7 @@ function unit.ConfigDlg (Data)
 
   } --
   local DBox = Config.DBox
+
   DBox.FixWidth  = 2 +                  -- Edge
                    2 +                  -- + 2 margins
                    --5 +                -- + 1 column: txt
@@ -698,18 +699,26 @@ function unit.ConfigDlg (Data)
                    (DBox.chkItem +
                     DBox.edtName) * 2   -- + 2 columns: chk + edt
 
+  DBox.FixHeight = 2 +                  -- Edge
+                   (1 + 1) +            -- + (button separator + buttons)
+                   1 +                  -- + group separators
+                   2 * 2 +              -- + group empty lines
+                   #CfgDataOrder - 1    -- + group item lines
+
   local FarBox = farUt.GetFarRect()
   local dWidth = FarBox.Width - DBox.FixWidth - 4
   if dWidth > 0 then
-    local dName = numbers.divf(dWidth, 4)
+    local dExtra = numbers.divf(dWidth, 4)
+
+    local dName = dExtra
     if dName > 0 then
       if dName > 4 then dName = 4 end
       DBox.edtHKey = DBox.edtHKey + dName
       DBox.edtName = DBox.edtName + dName
 
     end
-    local dDesc = (dWidth - dName * 3)
-    if dDesc > 5 then dDesc = 5 end
+    local dDesc = (dWidth - dExtra * 4)
+    if dDesc > 2 then dDesc = 2 end
     DBox.lblDesc = DBox.lblDesc + dDesc
 
     --logShow({ dWidth, dName, dDesc, DBox })
@@ -724,11 +733,6 @@ function unit.ConfigDlg (Data)
                 DBox.lblDesc +
                 (DBox.chkItem + DBox.edtName) * 2
 
-  DBox.FixHeight = 2 +                  -- Edge
-                   (1 + 1) +            -- + (button separator + buttons)
-                   1 +                  -- + group separators
-                   2*2 +                -- + group empty lines
-                   #CfgDataOrder - 1    -- + group item lines
   DBox.Height = DBox.FixHeight
   --DBox.Height = 2 +
   --              (1 + 1) +

Editor/TextTemplate.lua

@@ -459,6 +459,7 @@ function TMain:MakeProps ()
   if not Cfg.CharEnum then Cfg.CharEnum = "%S" end
                  --| Тип текущего файла, открытого в редакторе:
   self.Current = { FileType = Cfg.FileType or curFileType() }
+  --logShow(Cfg, "MakeProps", "d2")
 
   return true
 
@@ -491,7 +492,7 @@ function TMain:FindTemplates () --> (table)
   --logShow(Kits, self.Options.SuitName, 1)
 
   local Cfg, CurCfg = self.CfgData, self.Current
-  --logShow(Cfg, "FindTemplates", "d2 t")
+  --logShow({ Cfg, CurCfg }, "FindTemplates", "d4")
   local CurSlab = CurCfg.Slab -- CurCfg.Frag
 
   local t, tLast = {} -- Результаты поиска
@@ -503,7 +504,7 @@ function TMain:FindTemplates () --> (table)
     local Kit = self:TypeKit(Kits, tp)
     if not Kit then break end
     --logShow(Kit, tp, 1)
-    --logShow({ Kit, Cfg, Cfg.CharEnum }, tp, 1)
+    --logShow({ Kit, Cfg, Cfg.CharEnum }, tp, 2)
 
     local Word, Slab
     local Ctrl = Cfg.CharEnum ~= Kit.CharEnum and Kit.CharControl