From 007af28c2abe60fb4cb10482683a335a3366e462 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 25 Feb 2017 22:19:35 -0700
Subject: store page count in app state

There has to be a place to store this or the UI cannot display the
number of pages scanned thus far.
---
 Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 8ca6351..7a60e79 100644
--- a/Main.hs
+++ b/Main.hs
@@ -35,7 +35,9 @@ drawUI st = [ui]
               , hBorderWithLabel (str "[ Actions ]")
               , vLimit 6 $ C.center $ actionsBox
               ]
-    status = str "Ready to scan first page"
+    status = str $ case st^.stPageCount of
+      Just n -> "Scanned " ++ show n ++ " pages"
+      Nothing -> "Ready to scan first page"
     settingsBox = defnList AlignRight Nothing
         [ ("run OCRmyPDF", if st^.stOCR then "yes" else "no")
         , ("colour data",   show $ st^.stColour)
@@ -139,6 +141,7 @@ main = do
     let paper = if papersize == "letter" then Letter else A4
         initialState = St
             { _stScanningSession = Nothing
+            , _stPageCount       = Nothing
             , _stOCR             = True
             , _stColour          = Greyscale
             , _stPaper           = paper
-- 
cgit v1.2.3