diff options
Diffstat (limited to 'Presets.hs')
-rw-r--r-- | Presets.hs | 28 |
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 + } |