From 23f04635cc26e1b0553088f28553f518488a9fc8 Mon Sep 17 00:00:00 2001 From: Joris Date: Wed, 1 May 2019 15:52:32 +0200 Subject: Setup personal page with Hakyll --- src/Resume.hs | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 src/Resume.hs (limited to 'src/Resume.hs') 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" -- cgit v1.2.3