From b6dde6ca07b976b0bccb2081b97332d931cb6281 Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Sun, 20 May 2018 10:05:06 +0300
Subject: [PATCH] Cosmetics

---
 config.ml | 16 ++++++++++++++++
 main.ml   | 16 ----------------
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/config.ml b/config.ml
index 9de3be3..58685e0 100644
--- a/config.ml
+++ b/config.ml
@@ -1645,3 +1645,19 @@ let logcurrently = function
        conf.tilew conf.tileh
   | Outlining _ -> dolog "outlining"
 ;;
+
+let _logpage l =
+  dolog {|l %d dim=%d {
+         WxH     %dx%d
+         vWxH    %dx%d
+         pagex,y %d,%d
+         dispx,y %d,%d
+         column  %d
+         }|}
+    l.pageno l.pagedimno
+    l.pagew l.pageh
+    l.pagevw l.pagevh
+    l.pagex l.pagey
+    l.pagedispx l.pagedispy
+    l.pagecol
+;;
diff --git a/main.ml b/main.ml
index aac704c..080c660 100644
--- a/main.ml
+++ b/main.ml
@@ -60,22 +60,6 @@ let ignoredoctitlte = ref false;;
 let opengl_has_pbo = ref false;;
 let layouth = ref ~-1;;
 
-let _debugl l =
-  dolog {|l %d dim=%d {
-         WxH     %dx%d
-         vWxH    %dx%d
-         pagex,y %d,%d
-         dispx,y %d,%d
-         column  %d
-         }|}
-    l.pageno l.pagedimno
-    l.pagew l.pageh
-    l.pagevw l.pagevh
-    l.pagex l.pagey
-    l.pagedispx l.pagedispy
-    l.pagecol
-;;
-
 let debugrect (x0, y0, x1, y1, x2, y2, x3, y3) =
   dolog {|rect {
          x0,y0=(% f, % f)
-- 
2.11.4.GIT