- if #cls > 0 then
- local cells = math.ceil(math.sqrt(#cls))
- local strips = math.ceil(#cls / cells)
-
- local cell = 0
- local strip = 0
- for k, c in ipairs(cls) do
- local g = {}
- -- Save actual grid index for use in the useless_gap
- -- routine.
- local this_x = 0
- local this_y = 0
- if ( orientation == "east" and #cls > 2 )
- or ( orientation == "south" and #cls <= 2 ) then
- if #cls < (strips * cells) and strip == strips - 1 then
- g.width = wa.width / (cells - ((strips * cells) - #cls))
- else
- g.width = wa.width / cells
- end
- g.height = wa.height / strips
-
- this_x = cell
- this_y = strip
-
- g.x = wa.x + cell * g.width
- g.y = wa.y + strip * g.height
-
- else
- if #cls < (strips * cells) and strip == strips - 1 then
- g.height = wa.height / (cells - ((strips * cells) - #cls))
- else
- g.height = wa.height / cells
- end
- g.width = wa.width / strips
-
- this_x = strip
- this_y = cell
-
- g.x = wa.x + strip * g.width
- g.y = wa.y + cell * g.height
- end
-
- -- Useless gap.
- if useless_gap > 0
- then
- -- Top and left clients are shrinked by two steps and
- -- get moved away from the border. Other clients just
- -- get shrinked in one direction.
-
- gap_factor = (useless_gap / 100) * 2
-
- if this_x == 0
- then
- g.width = g.width - (2 + gap_factor) * useless_gap
- g.x = g.x + useless_gap
- else
- g.width = g.width - (1 + gap_factor) * useless_gap
- end
-
- if this_y == 0
- then
- g.height = g.height - (2 + gap_factor) * useless_gap
- g.y = g.y + useless_gap
- else
- g.height = g.height - (1 + gap_factor) * useless_gap
- end
- end
- -- End of useless gap.
-
- c:geometry(g)
-
- cell = cell + 1
- if cell == cells then
- cell = 0
- strip = strip + 1
- end
+ -- Nothing to tile here
+ if #cls == 0 then return end
+
+ -- Workarea size correction depending on useless gap and global border
+ wa.height = wa.height - 2 * global_border - useless_gap
+ wa.width = wa.width - 2 * global_border - useless_gap
+ wa.x = wa.x + useless_gap / 2 + global_border
+ wa.y = wa.y + useless_gap / 2 + global_border
+
+ -- Geometry calculation
+ local row, col = 0, 0
+
+ local rows = math.ceil(math.sqrt(#cls))
+ local cols = math.ceil(#cls / rows)
+
+ for i, c in ipairs(cls) do
+ local g = {}
+
+ -- find tile orientation for current client and swap geometry if need
+ local need_swap = (orientation == "east" and #cls <= 2) or (orientation == "south" and #cls > 2)
+ local area = need_swap and swap(wa) or wa
+
+ -- calculate geometry
+ if #cls < (cols * rows) and row == cols - 1 then
+ g.width = area.width / (rows - ((cols * rows) - #cls))
+ else
+ g.width = area.width / rows