Translate diagram so it's all visible

\o/

But it doesn't look amazing yet...

1 files changed, 18 insertions, 6 deletions

diff --git a/Bustle.hs b/Bustle.hs
index c0e4101..abe7520 100644
--- a/Bustle.hs
+++ b/Bustle.hs
@@ -214,16 +214,17 @@ loadLogWith getWindow session maybeSystem = do
             Nothing     -> return []
 
         -- FIXME: pass the log file name into the renderer
-        shapes <- toET (\e -> ("one of the logs", e)) $
-                      process (upgrade sessionMessages)
-                              (upgrade systemMessages)
+        (xTranslation, shapes) <-
+            toET (\e -> ("one of the logs", e)) $
+                process (upgrade sessionMessages)
+                        (upgrade systemMessages)
 
         windowInfo <- lift getWindow
         let title = case maybeSystem of
                 Just system -> session ++ " and " ++ system
                 Nothing     -> session
 
-        lift $ displayLog windowInfo title shapes
+        lift $ displayLog windowInfo title xTranslation shapes
 
     case ret of
       Left (f, e) -> io $ displayError ("Could not read '" ++ f ++ "'") e
@@ -341,13 +342,15 @@ emptyWindow = do
   incWindows
   return windowInfo
 
-displayLog :: WindowInfo -> FilePath -> Diagram -> B ()
+displayLog :: WindowInfo -> FilePath -> Double -> Diagram -> B ()
 displayLog (WindowInfo { wiWindow = window
                        , wiSave = saveItem
                        , wiLayout = layout
                        , wiNotebook = nb
                        })
-           filename shapes = do
+           filename
+           xTranslation
+           shapes = do
   let (width, height) = diagramDimensions shapes
       details = (filename, shapes)
 
@@ -365,6 +368,15 @@ displayLog (WindowInfo { wiWindow = window
 
     notebookSetCurrentPage nb 1
 
+    -- Shift to make the timestamp column visible
+    hadj <- layoutGetHAdjustment layout
+    (windowWidth, _) <- windowGetSize window
+    -- Roughly centre the timestamp-and-member column
+    adjustmentSetValue hadj
+        (xTranslation -
+            (fromIntegral windowWidth - timestampAndMemberWidth) / 2
+        )
+
     return ()
 
 update :: Layout -> Diagram -> Bool -> IO ()