From 951e4b9bf1238495debf5404b43e81a8615a8a6f Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 24 Dec 2014 23:48:01 +0300
Subject: [PATCH] Ugly but working trimming from history

---
 link.c  | 17 +++++++++++++++++
 main.ml |  2 ++
 2 files changed, 19 insertions(+)

diff --git a/link.c b/link.c
index 2d7ce8c..aae1fe4 100644
--- a/link.c
+++ b/link.c
@@ -2111,6 +2111,23 @@ static void * mainloop (void UNUSED_ATTR *unused)
                     tile->w * tile->h * tile->pixmap->n,
                     b - a);
         }
+        else if (!strncmp ("trimset", p, 7))  {
+            fz_irect fuzz;
+            int trimmargins;
+
+            ret = sscanf (p + 7, " %d %d %d %d %d",
+                          &trimmargins, &fuzz.x0, &fuzz.y0, &fuzz.x1, &fuzz.y1);
+            if (ret != 5) {
+                errx (1, "malformed trimset `%.*s' ret=%d", len, p, ret);
+            }
+            lock ("trimset");
+            state.trimmargins = trimmargins;
+            if (memcmp (&fuzz, &state.trimfuzz, sizeof (fuzz))) {
+                state.trimanew = 1;
+                state.trimfuzz = fuzz;
+            }
+            unlock ("trimset");
+        }
         else if (!strncmp ("settrim", p, 7))  {
             fz_irect fuzz;
             int trimmargins;
diff --git a/main.ml b/main.ml
index 157d62b..42ce918 100644
--- a/main.ml
+++ b/main.ml
@@ -3442,6 +3442,8 @@ let gotohist (path, (c, bookmarks, x, anchor)) =
   state.bookmarks <- bookmarks;
   state.origin <- E.s;
   setconf conf c;
+  let x0, y0, x1, y1 = conf.trimfuzz in
+  wcmd "trimset %d %d %d %d %d" (btod conf.trimmargins) x0 y0 x1 y1;
   opendoc path E.s;
 ;;
 
-- 
2.11.4.GIT