From 8d6f93d3520e000a9d9d4f0144b8a7a97f0af3b1 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Fri, 30 Mar 2012 17:22:14 +0400
Subject: [PATCH] "Better" handling of zoom out in split column mode

---
 main.ml | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 6c6e2d0..205b430 100644
--- a/main.ml
+++ b/main.ml
@@ -1303,12 +1303,18 @@ let layoutS (columns, b) y sh =
                 else 0, px
               )
             in
+            let pagecolw = pagew/columns in
+            let pagedispx =
+              if pagecolw < conf.winw
+              then pagedispx + ((conf.winw - state.scrollw - pagecolw) / 2)
+              else pagedispx
+            in
             let pagevw =
               let vw = conf.winw - pagedispx - state.scrollw in
               let pw = pagew - pagex in
               min vw pw
             in
-            let pagevw = min pagevw (pagew/columns) in
+            let pagevw = min pagevw pagecolw in
             let pagevh = min (pageh - pagey) (sh - pagedispy) in
             if pagevw > 0 && pagevh > 0
             then
-- 
2.11.4.GIT