types for presets

1 files changed, 28 insertions, 0 deletions

diff --git a/Presets.hs b/Presets.hs
new file mode 100644
index 0000000..a783eb8
--- /dev/null
+++ b/Presets.hs
@@ -0,0 +1,28 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Presets (presets, lookupPreset) where
+
+import Data.List (find)
+
+import Types.Preset
+import Types.State
+
+presets :: [Preset]
+presets = [ Preset 'h' "handwritten notes" handwrittenNotes
+          , Preset 't' "typewritten docs" typewrittenDocs
+          ]
+
+lookupPreset :: Char -> Maybe Preset
+lookupPreset c = find (\(Preset k _ _) -> c == k) presets
+
+handwrittenNotes = \st -> st
+    { _stOCR     = False
+    , _stColour  = Greyscale
+    , _stDPI     = 75
+    }
+
+typewrittenDocs = \st -> st
+    { _stOCR    = True
+    , _stColour = Greyscale
+    , _stDPI    = 300
+    }