blob: f8b8bc5f34df5726ef32d2e8f18211291231a13e (
plain)
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
|
{-# LANGUAGE TemplateHaskell #-}
module Types.State where
import Lens.Micro.TH (makeLenses)
-- | Whether to do colour, grey or b&w scans
data Colour = Lineart | Greyscale | Colour
deriving (Eq, Show)
cycleColour :: Colour -> Colour
cycleColour Lineart = Greyscale
cycleColour Greyscale = Colour
cycleColour Colour = Lineart
-- | Paper size to scan (determines both scanning area and PDF page
-- size)
data Paper = A4 | Letter | Photo | Auto
deriving (Eq, Show)
cyclePaper :: Paper -> Paper
cyclePaper A4 = Letter
cyclePaper Letter = Photo
cyclePaper Photo = Auto
cyclePaper Auto = A4
-- | DPI to scan
type DPI = Int
-- | Output format
data OutputFormat = PDF | PNG
-- | Application state
data St =
St { _stScanningSession :: Maybe FilePath -- ^ if a session is in
-- progress, accmulate
-- scans in this dir
, _stOCR :: Bool -- ^ whether to use OCRmyPDF
, _stColour :: Colour
, _stPaper :: Paper -- ^ currently selected paper size
, _stDefaultPaper :: Paper -- ^ locale's default paper size
, _stDPI :: DPI
, _stOutFormat :: OutputFormat
, _stOutdir :: FilePath -- ^ where to save final PDFs
}
-- other device-specific scanimage options we could support: --swdespeck; --color-filter; --depth
makeLenses ''St
|
