diff options
| author | Joris | 2019-05-01 15:52:32 +0200 |
|---|---|---|
| committer | Joris | 2019-05-01 17:11:02 +0200 |
| commit | 23f04635cc26e1b0553088f28553f518488a9fc8 (patch) | |
| tree | 97037643bab24564046ce4aba90481e3b92a15d3 /src/Resume.hs | |
| parent | 0fe906ae7453aa684e998bbcc7a78b62d84f0206 (diff) | |
Setup personal page with Hakyll
Diffstat (limited to 'src/Resume.hs')
| -rw-r--r-- | src/Resume.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/Resume.hs b/src/Resume.hs deleted file mode 100644 index 9b691c6..0000000 --- a/src/Resume.hs +++ /dev/null @@ -1,34 +0,0 @@ -module Resume - ( generateResumes - , resumePath - ) where - -import Conf (Conf) - -import Model -import Model.Date (Date) -import Model.Identity (Identity(name)) -import Model.Translation.Language -import Model.Translation.Message (getMessage) -import qualified Model.Translation.Key as K - -import View.LaTeX.Resume (resumeLaTeX) - -import Date (getCurrentDate) - -import PDF (generatePDFAt) - -generateResumes :: Model -> Conf -> IO () -generateResumes model conf = do - currentDate <- getCurrentDate - mapM_ (generateResume model currentDate conf) languages - -generateResume :: Model -> Date -> Conf -> Language -> IO () -generateResume model date conf language = - let path = "public/" ++ (resumePath model language) - resume = resumeLaTeX conf language date model - in generatePDFAt path resume - -resumePath :: Model -> Language -> FilePath -resumePath model language = - "resumes/" ++ (getMessage K.Resume language) ++ " " ++ (name . identity $ model) ++ ".pdf" |