From 8404de738146228cb1540e4dff87b3b713af4230 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 25 Feb 2017 17:04:02 -0700
Subject: import remaining presets from python sscan

---
 Presets.hs | 51 +++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 49 insertions(+), 2 deletions(-)

diff --git a/Presets.hs b/Presets.hs
index c462d7b..2539653 100644
--- a/Presets.hs
+++ b/Presets.hs
@@ -9,8 +9,13 @@ import           Types.Preset
 import           Types.State
 
 presets :: [Preset]
-presets = [ Preset 'h' "handwritten notes" handwrittenNotes
-          , Preset 't' "typewritten docs" typewrittenDocs
+presets = [ Preset 'H' "handwritten notes" handwrittenNotes
+          , Preset 'T' "typewritten docs" typewrittenDocs
+          , Preset 'C' "standard DPI colour PDF, full page" colourPDF
+          , Preset 'I' "standard DPI colour PNG, full page" colourPNG
+          , Preset 'A' "standard DPI colour PNG, autocropped" colourCroppedPNG
+          , Preset 'B' "black and white PDF, full page" bnwPDF
+          , Preset 'P' "high DPI 6x4 photo" photo
           ]
 
 lookupPreset :: Char -> Maybe Preset
@@ -21,6 +26,7 @@ handwrittenNotes = \st -> st
     , _stColour  = Greyscale
     , _stDPI     = 75
     , _stPaper   = st^.stDefaultPaper
+    , _stOutFormat = PDF
     }
 
 typewrittenDocs = \st -> st
@@ -28,4 +34,45 @@ typewrittenDocs = \st -> st
     , _stColour = Greyscale
     , _stDPI    = 300
     , _stPaper  = st^.stDefaultPaper
+    , _stOutFormat = PDF
+    }
+
+colourPDF = \st -> st
+    { _stOCR = False
+    , _stColour = Colour
+    , _stDPI = 300
+    , _stPaper = st^.stDefaultPaper
+    , _stOutFormat = PDF
+    }
+
+colourPNG = \st -> st
+    { _stOCR = False
+    , _stColour = Colour
+    , _stDPI = 300
+    , _stPaper = st^.stDefaultPaper
+    , _stOutFormat = PNG
+    }
+
+colourCroppedPNG = \st -> st
+    { _stOCR = False
+    , _stColour = Colour
+    , _stDPI = 300
+    , _stPaper = Auto
+    , _stOutFormat = PNG
+    }
+
+bnwPDF = \st -> st
+    { _stOCR = False
+    , _stColour = Lineart
+    , _stDPI = 150
+    , _stPaper = st^.stDefaultPaper
+    , _stOutFormat = PDF
+    }
+
+photo = \st -> st
+    { _stOCR = False
+    , _stColour = Colour
+    , _stDPI = 600
+    , _stPaper = Photo
+    , _stOutFormat = PNG
     }
-- 
cgit v1.2.3