1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
{-# LANGUAGE OverloadedStrings #-}
module Presets (presets, lookupPreset) where
import Data.List (find)
import Lens.Micro ((&), (.~), (^.))
import Types.Preset
import Types.State
presets :: [Preset]
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
lookupPreset c = find (\(Preset k _ _) -> c == k) presets
handwrittenNotes = \st -> st
{ _stOCR = False
, _stColour = Greyscale
, _stDPI = 75
, _stPaper = st^.stDefaultPaper
, _stOutFormat = PDF
}
typewrittenDocs = \st -> st
{ _stOCR = True
, _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
}
|