aboutsummaryrefslogtreecommitdiff
path: root/compiler/src/Config.hs
diff options
context:
space:
mode:
authorNotkea2020-01-10 22:31:47 +0100
committerGitHub2020-01-10 22:31:47 +0100
commit7042ffc06326fa8ffe70f5a59747709250166c16 (patch)
treedbfc7567bd106e03a47b499d2a07cecb6b8d6305 /compiler/src/Config.hs
parentc9264b0a0a7e1cb92ef7d9a391cee2c94376cff3 (diff)
parent27b51018525dbb7a6edb3073819d82245387ddd3 (diff)
downloadldgallery-7042ffc06326fa8ffe70f5a59747709250166c16.tar.gz
Merge pull request #34 from pacien/develop
first working prototype
Diffstat (limited to 'compiler/src/Config.hs')
-rw-r--r--compiler/src/Config.hs60
1 files changed, 60 insertions, 0 deletions
diff --git a/compiler/src/Config.hs b/compiler/src/Config.hs
new file mode 100644
index 0000000..53333a5
--- /dev/null
+++ b/compiler/src/Config.hs
@@ -0,0 +1,60 @@
1-- ldgallery - A static generator which turns a collection of tagged
2-- pictures into a searchable web gallery.
3--
4-- Copyright (C) 2019-2020 Pacien TRAN-GIRARD
5--
6-- This program is free software: you can redistribute it and/or modify
7-- it under the terms of the GNU Affero General Public License as
8-- published by the Free Software Foundation, either version 3 of the
9-- License, or (at your option) any later version.
10--
11-- This program is distributed in the hope that it will be useful,
12-- but WITHOUT ANY WARRANTY; without even the implied warranty of
13-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14-- GNU Affero General Public License for more details.
15--
16-- You should have received a copy of the GNU Affero General Public License
17-- along with this program. If not, see <https://www.gnu.org/licenses/>.
18
19module Config
20 ( GalleryConfig(..)
21 , CompilerConfig(..)
22 , readConfig
23 ) where
24
25
26import GHC.Generics (Generic)
27import Data.Aeson (FromJSON, withObject, (.:?), (.!=))
28import qualified Data.Aeson as JSON
29
30import Files (FileName)
31import Input (decodeYamlFile)
32import Resource (Resolution(..))
33
34
35data CompilerConfig = CompilerConfig
36 { galleryName :: String
37 , includeFiles :: [String]
38 , excludeFiles :: [String]
39 , tagsFromDirectories :: Int
40 , thumbnailMaxResolution :: Resolution
41 , pictureMaxResolution :: Maybe Resolution
42 } deriving (Generic, Show)
43
44instance FromJSON CompilerConfig where
45 parseJSON = withObject "CompilerConfig" $ \v -> CompilerConfig
46 <$> v .:? "galleryName" .!= "Gallery"
47 <*> v .:? "includeFiles" .!= ["*"]
48 <*> v .:? "excludeFiles" .!= []
49 <*> v .:? "tagsFromDirectories" .!= 0
50 <*> v .:? "thumbnailMaxResolution" .!= (Resolution 400 400)
51 <*> v .:? "pictureMaxResolution"
52
53
54data GalleryConfig = GalleryConfig
55 { compiler :: CompilerConfig
56 , viewer :: JSON.Object
57 } deriving (Generic, FromJSON, Show)
58
59readConfig :: FileName -> IO GalleryConfig
60readConfig = decodeYamlFile