read /etc/papersize, and presets restore paper size

1 files changed, 6 insertions, 3 deletions

diff --git a/Presets.hs b/Presets.hs
index a783eb8..b31aefc 100644
--- a/Presets.hs
+++ b/Presets.hs
@@ -2,10 +2,11 @@
 
 module Presets (presets, lookupPreset) where
 
-import Data.List (find)
+import           Data.List    (find)
+import           Lens.Micro   ((&), (.~), (^.))
 
-import Types.Preset
-import Types.State
+import           Types.Preset
+import           Types.State
 
 presets :: [Preset]
 presets = [ Preset 'h' "handwritten notes" handwrittenNotes
@@ -19,10 +20,12 @@ handwrittenNotes = \st -> st
     { _stOCR     = False
     , _stColour  = Greyscale
     , _stDPI     = 75
+    , _stPaper  = st^.stDefaultPaper
     }
 
 typewrittenDocs = \st -> st
     { _stOCR    = True
     , _stColour = Greyscale
     , _stDPI    = 300
+    , _stPaper  = st^.stDefaultPaper
     }