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
|
{-# LANGUAGE TemplateHaskell #-}
module Types.State where
import Data.Maybe
import Lens.Micro ((^.))
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
deriving (Eq, Show)
-- | Application state
data St =
St { _stScanningSession :: Maybe FilePath -- ^ if a session is in
-- progress, accmulate
-- scans in this dir
, _stPageCount :: Maybe Int -- ^ if a session is in
-- progress, the number of
-- pages scanned thus far
, _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
ifScanSess :: St -> a -> a -> a
ifScanSess st a b = if isJust $ st^.stScanningSession then a else b
|