blob: 68ef1882ca019d5ab2ac6178b5b90e0d7376b598 (
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
{-# 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)
-- | An active multi-page scanning session
data ScanSess = ScanSess
FilePath -- ^ session's tmpdir
Int -- ^ total pages scanner thus far
-- | Application state
data St =
St { _stScanSess :: Maybe ScanSess
, _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 the old script supported: --swdespeck; --color-filter; --depth
makeLenses ''St
ifScanSess :: St -> a -> a -> a
ifScanSess st a b = if isJust $ st^.stScanSess then a else b
-- | Update a state when there is no scanning session in progress (the
-- state should not be changed when some pages have already been
-- scanned)
updateSt :: St -> (St -> St) -> St
updateSt st f = ifScanSess st st (f st)
|
