diff options
Diffstat (limited to 'Presets.hs')
-rw-r--r-- | Presets.hs | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -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 } |