diff options
Diffstat (limited to 'compiler')
-rw-r--r-- | compiler/src/Processors.hs | 7 | ||||
-rw-r--r-- | compiler/src/Resource.hs | 1 |
2 files changed, 6 insertions, 2 deletions
diff --git a/compiler/src/Processors.hs b/compiler/src/Processors.hs index 02db325..ca8a74c 100644 --- a/compiler/src/Processors.hs +++ b/compiler/src/Processors.hs | |||
@@ -47,8 +47,8 @@ data ProcessingException = ProcessingException FilePath String deriving Show | |||
47 | instance Exception ProcessingException | 47 | instance Exception ProcessingException |
48 | 48 | ||
49 | 49 | ||
50 | -- TODO: handle video, music, text... | 50 | -- TODO: handle video, music, markdown, pdf... |
51 | data Format = PictureFormat | Unknown | 51 | data Format = PictureFormat | PlainTextFormat | Unknown |
52 | 52 | ||
53 | formatFromPath :: Path -> Format | 53 | formatFromPath :: Path -> Format |
54 | formatFromPath = | 54 | formatFromPath = |
@@ -66,6 +66,8 @@ formatFromPath = | |||
66 | ".tiff" -> PictureFormat | 66 | ".tiff" -> PictureFormat |
67 | ".hdr" -> PictureFormat | 67 | ".hdr" -> PictureFormat |
68 | ".gif" -> PictureFormat | 68 | ".gif" -> PictureFormat |
69 | ".txt" -> PlainTextFormat | ||
70 | ".md" -> PlainTextFormat -- TODO: handle markdown separately | ||
69 | _ -> Unknown | 71 | _ -> Unknown |
70 | 72 | ||
71 | 73 | ||
@@ -170,6 +172,7 @@ itemFileProcessor maxResolution cached inputBase outputBase resClass inputRes = | |||
170 | processorFor :: Format -> Maybe Resolution -> (FileProcessor, ItemDescriber) | 172 | processorFor :: Format -> Maybe Resolution -> (FileProcessor, ItemDescriber) |
171 | processorFor PictureFormat (Just maxRes) = (resizePictureUpTo maxRes, getPictureProps) | 173 | processorFor PictureFormat (Just maxRes) = (resizePictureUpTo maxRes, getPictureProps) |
172 | processorFor PictureFormat Nothing = (copyFileProcessor, getPictureProps) | 174 | processorFor PictureFormat Nothing = (copyFileProcessor, getPictureProps) |
175 | processorFor PlainTextFormat _ = (copyFileProcessor, const $ return . PlainText) | ||
173 | -- TODO: handle video reencoding and others? | 176 | -- TODO: handle video reencoding and others? |
174 | processorFor Unknown _ = (copyFileProcessor, const $ return . Other) | 177 | processorFor Unknown _ = (copyFileProcessor, const $ return . Other) |
175 | 178 | ||
diff --git a/compiler/src/Resource.hs b/compiler/src/Resource.hs index e134468..5c175f1 100644 --- a/compiler/src/Resource.hs +++ b/compiler/src/Resource.hs | |||
@@ -75,6 +75,7 @@ data GalleryItemProps = | |||
75 | | Picture | 75 | | Picture |
76 | { resource :: Resource | 76 | { resource :: Resource |
77 | , resolution :: Resolution } | 77 | , resolution :: Resolution } |
78 | | PlainText { resource :: Resource } | ||
78 | | Other { resource :: Resource } | 79 | | Other { resource :: Resource } |
79 | deriving (Generic, Show) | 80 | deriving (Generic, Show) |
80 | 81 | ||