Setup personal page with Hakyll

9 files changed, 0 insertions, 548 deletions

diff --git a/src/View/Git.hs b/src/View/Git.hs
deleted file mode 100644
index abf5226..0000000
--- a/src/View/Git.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Git
-  ( renderGit
-  , renderGitIcon
-  ) where
-
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5 as H
-
-import Conf (Conf)
-import qualified Conf as Conf
-
-import View.Icon (renderIcon)
-
-renderGit :: Conf -> String -> Html
-renderGit conf ref =
-  H.div
-    ! class_ "git"
-    $ H.a
-        ! href (fromString $ gitLink conf ref)
-        $ do
-          renderIcon "git-square"
-          fromString ref
-
-renderGitIcon :: Conf -> String -> Html
-renderGitIcon conf ref =
-  H.a
-    ! class_ "git"
-    ! href (fromString $ gitLink conf ref)
-    $ renderIcon "git-square"
-
-gitLink :: Conf -> String -> String
-gitLink conf ref = (Conf.git conf) ++ ref
diff --git a/src/View/Header.hs b/src/View/Header.hs
deleted file mode 100644
index a29b9a3..0000000
--- a/src/View/Header.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Header
-  ( renderHeader
-  ) where
-
-import Control.Monad (forM_)
-
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5 as H
-
-import Model.Header
-import Model.Translation.Language
-import Model.Translation.Message
-
-renderHeader :: Language -> Maybe Header -> Html
-renderHeader language mbCurrentHeader =
-  H.div ! class_ "header" $
-    ul $
-      forM_ allHeaders (headerItem language mbCurrentHeader)
-
-headerItem :: Language -> Maybe Header -> Header -> Html
-headerItem language mbCurrentHeader pageHeader =
-  li $ a
-    ! class_ (fromString $ (headerClass pageHeader) ++ " " ++ (if mbCurrentHeader == Just pageHeader then "currentHeader" else ""))
-    ! href (fromString . headerLink $ pageHeader) $ do
-      i ! class_ (fromString $ "fa fa-lg " ++ (headerIcon pageHeader)) $ ""
-      H.span
-        ! class_ "text"
-        $ fromString (getMessage (headerKey pageHeader) language)
-
-headerClass :: Header -> String
-headerClass Resume = "resume"
-headerClass Projects = "projects"
-
-headerIcon :: Header -> String
-headerIcon Resume = "fa-user"
-headerIcon Projects = "fa-flask"
diff --git a/src/View/Icon.hs b/src/View/Icon.hs
deleted file mode 100644
index 67db0a9..0000000
--- a/src/View/Icon.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Icon
-  ( renderIcon
-  ) where
-
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html5.Attributes
-
-renderIcon :: String -> Html
-renderIcon iconName =
-  i
-    ! class_ (fromString $ "fa fa-fw fa-" ++ iconName)
-    $ ""
diff --git a/src/View/Interval.hs b/src/View/Interval.hs
deleted file mode 100644
index 05cb62c..0000000
--- a/src/View/Interval.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module View.Interval
-  ( renderDurationAndInterval
-  , renderYearInterval
-  , renderDuration
-  ) where
-
-import Data.Maybe (fromMaybe)
-
-import Model.Date
-import Model.Translation.Language
-import qualified Model.Translation.Key as K
-import Model.Translation.Message
-
-renderDurationAndInterval :: Language -> Date -> Date -> Maybe Date -> String
-renderDurationAndInterval language currentDate beginDate mbEndDate =
-  let duration = renderDuration language beginDate (fromMaybe currentDate mbEndDate)
-      interval = renderYearInterval language beginDate mbEndDate
-  in  duration ++ ", " ++ interval
-
-renderDuration :: Language -> Date -> Date -> String
-renderDuration language d1 d2 =
-  let (years, months) = yearAndMonthDiff d1 d2
-      renderYears = (show years) ++ " " ++ (getMessage (K.YearText years) language)
-      renderMonths = (show months) ++ " " ++ (getMessage (K.MonthText months) language)
-      spaceAnd = " " ++ (getMessage K.And language) ++ " "
-  in  if years > 0 then
-        renderYears ++ (if months > 0 then spaceAnd ++ renderMonths else "")
-      else
-        renderMonths
-
-renderYearInterval :: Language -> Date -> (Maybe Date) -> String
-renderYearInterval language beginDate Nothing =
-  (getMessage K.Since language) ++ " " ++ (show . year $ beginDate)
-renderYearInterval language beginDate (Just endDate) =
-  let beginYear = year beginDate
-      endYear = year endDate
-  in  if beginYear == endYear
-        then show beginYear
-        else (show beginYear) ++ " " ++ (getMessage K.To language) ++ " " ++ (show endYear)
diff --git a/src/View/LaTeX/Resume.hs b/src/View/LaTeX/Resume.hs
deleted file mode 100644
index 6ec717f..0000000
--- a/src/View/LaTeX/Resume.hs
+++ /dev/null
@@ -1,148 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.LaTeX.Resume
-  ( resumeLaTeX
-  ) where
-
-import           Text.LaTeX
-import           Text.LaTeX.Base.Syntax     (LaTeX (TeXComm), TeXArg (FixArg))
-
-import           Data.Maybe                 (fromMaybe, listToMaybe)
-
-import           Conf                       (Conf)
-import qualified Conf                       as Conf
-
-import           Model                      (Model)
-import qualified Model                      as M
-import qualified Model.Company              as C
-import           Model.Date                 (Date)
-import           Model.Degree               (Degree)
-import qualified Model.Degree               as D
-import           Model.Identity             (Identity)
-import qualified Model.Identity             as I
-import           Model.Job                  (Job)
-import qualified Model.Job                  as J
-import qualified Model.School               as S
-import           Model.SkillType            (SkillType)
-import qualified Model.SkillType            as ST
-
-import           Model.Translated
-import           Model.Translation.Key      (Key)
-import qualified Model.Translation.Key      as K
-import           Model.Translation.Language
-import           Model.Translation.Message
-
-import           View.Interval              (renderDurationAndInterval)
-
-import           Utils.String
-
-resumeLaTeX :: Conf -> Language -> Date -> Model -> LaTeX
-resumeLaTeX conf language currentDate model =
-  preamble
-  <> document (body conf language currentDate model)
-
-preamble :: LaTeX
-preamble = documentclass [] "resume"
-
-body :: Conf -> Language -> Date -> Model -> LaTeX
-body conf language currentDate model =
-  identityLaTeX conf language (M.identity model) (M.jobs model)
-  <> jobsLaTeX language currentDate (M.jobs model)
-  <> degreesLaTeX language (M.degrees model)
-  <> skillTypesLaTeX language (M.skillTypes model)
-  <> interestsLaTeX language (M.interests model)
-
-identityLaTeX :: Conf -> Language -> Identity -> [Job] -> LaTeX
-identityLaTeX conf language identity jobs =
-  TeXComm "header"
-    [ FixArg (fromString $ I.name identity)
-    , FixArg (fromString . fromMaybe "" . (fmap (getTranslation language . J.name)) . listToMaybe $ jobs)
-    , FixArg (fromString $ I.website identity)
-    , FixArg (fromString $ Conf.git conf)
-    , FixArg (fromString $ I.git identity)
-    ]
-
-jobsLaTeX :: Language -> Date -> [Job] -> LaTeX
-jobsLaTeX language currentDate jobs =
-  translatedSection K.Experience language
-  <> mconcat (map (jobLaTeX language currentDate) jobs)
-
-jobLaTeX :: Language -> Date -> Job -> LaTeX
-jobLaTeX language currentDate job =
-  customCommand "position"
-    [ fromString . getTranslation language $ J.name job
-    , fromString $ renderDurationAndInterval language currentDate (J.beginDate job) (J.endDate job)
-    , fromString $ ((C.name . J.company) job) ++ ", " ++ ((C.location . J.company) job)
-    , (fromString . getTranslation language . J.description $ job)
-    , case J.details job of
-        Just details@(_:_) -> translatedBullets language details
-        _                  -> mempty
-    , case J.technos job of
-        Just ts -> technos ts
-        _       -> mempty
-    ]
-
-degreesLaTeX :: Language -> [Degree] -> LaTeX
-degreesLaTeX language degrees =
-  translatedSection K.EducationalBackground language
-  <> mconcat (map (degreeLaTeX language) degrees)
-
-degreeLaTeX :: Language -> Degree -> LaTeX
-degreeLaTeX language degree =
-  customCommand "position"
-    [ fromString . getTranslation language $ D.name degree
-    , fromString . show . D.year $ degree
-    , fromString $ S.name school ++ (fromMaybe "" (((++) ", ") <$> S.location school))
-    , mempty
-    , translatedBullets language $ D.topics degree
-    , mempty
-    ]
-  where school = D.school degree
-
-skillTypesLaTeX :: Language -> [SkillType] -> LaTeX
-skillTypesLaTeX language skillTypes =
-  translatedSection K.Skills language
-  <> (mconcat . map (skillTypeLaTeX language) $ skillTypes)
-
-skillTypeLaTeX :: Language -> SkillType -> LaTeX
-skillTypeLaTeX language skillType =
-  subsection (fromString . capitalizeFirstWord . getTranslation language . ST.name $ skillType)
-  <> translatedBullets language (ST.skills skillType)
-
-interestsLaTeX :: Language -> [Translated] -> LaTeX
-interestsLaTeX language interests =
-  translatedSection K.Interests language
-  <> translatedBullets language interests
-
-translatedBullets :: Language -> [Translated] -> LaTeX
-translatedBullets language = itemsEnv "bullets" . map (getTranslation language)
-
-itemsEnv :: String -> [String] -> LaTeX
-itemsEnv name items =
-  environment name . mconcat . concat . map getItem $ items
-  where getItem i =
-          [ item Nothing
-          , fromString . capitalizeFirstWord $ i
-          ]
-
-technos :: [String] -> LaTeX
-technos names =
-  environment "technos" . mconcat . concat . map getItem $ names
-  where getItem name =
-          [ item Nothing
-          , TeXComm "techno" [ FixArg (fromString name) ]
-          ]
-
-translatedSection :: Key -> Language -> LaTeX
-translatedSection key language =
-  section (fromString . capitalizeWords $ getMessage key language)
-
-customCommand :: String -> [LaTeX] -> LaTeX
-customCommand commandName commandParameters =
-  TeXComm commandName (map FixArg commandParameters)
-
-environment :: String -> LaTeX -> LaTeX
-environment name inside =
-  (TeXComm "begin" [ FixArg (fromString name) ])
-  <> inside
-  <> (TeXComm "end" [ FixArg (fromString name) ])
diff --git a/src/View/NotFound.hs b/src/View/NotFound.hs
deleted file mode 100644
index c16eb6c..0000000
--- a/src/View/NotFound.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.NotFound
-  ( renderNotFound
-  ) where
-
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5 as H
-
-import Model.Translation.Language
-import qualified Model.Translation.Key as K
-import Model.Translation.Message
-
-import View.Header (renderHeader)
-
-renderNotFound :: Language -> Html
-renderNotFound language =
-  H.div $ do
-    renderHeader language Nothing
-    H.div ! class_ "notFoundPage" $ do
-      h1 "404"
-      p .fromString $ getMessage K.PageNotFound language
diff --git a/src/View/Page.hs b/src/View/Page.hs
deleted file mode 100644
index b7267e8..0000000
--- a/src/View/Page.hs
+++ /dev/null
@@ -1,33 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Page
-  ( renderPage
-  ) where
-
-import Data.Text.Internal.Lazy
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5 as H
-import Text.Blaze.Html.Renderer.Text (renderHtml)
-
-import qualified Model as M
-import qualified Model.Identity as I
-
-renderPage :: M.Model -> Html -> Text
-renderPage model page =
-  renderHtml $ do
-    docTypeHtml $ do
-      H.head $ do
-        H.title $ fromString . I.name . M.identity $ model
-        meta ! charset "UTF-8"
-        meta ! name "viewport" ! content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=0"
-        meta ! name "author" ! content (toValue $ I.name . M.identity $ model)
-        meta ! name "description" ! content (toValue $ M.description model)
-        link ! rel "stylesheet" ! type_ "text/css" ! href "/stylesheets/reset.css"
-        link ! rel "stylesheet" ! href "/stylesheets/font-awesome-4.2.0/css/font-awesome.min.css"
-        link ! rel "stylesheet" ! type_ "text/css" ! href "/design"
-        link ! rel "icon" ! type_ "image/png" ! href "/images/icon.png"
-      H.body page
diff --git a/src/View/Project.hs b/src/View/Project.hs
deleted file mode 100644
index a5aaf2c..0000000
--- a/src/View/Project.hs
+++ /dev/null
@@ -1,66 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Project
-  ( renderProjects
-  ) where
-
-import Data.String (fromString)
-
-import Text.Blaze.Html
-import Text.Blaze.Html5
-import Text.Blaze.Html5.Attributes
-import qualified Text.Blaze.Html5 as H
-
-import Conf (Conf)
-
-import Model.Header (Header(Projects))
-import qualified Model.Project as P
-import Model.Translated
-import Model.Translation.Language
-
-import View.Header (renderHeader)
-import View.Git (renderGitIcon)
-
-renderProjects :: Conf -> Language -> [P.Project] -> Html
-renderProjects conf language projects =
-  H.div $ do
-    renderHeader language (Just Projects)
-    H.div ! class_ "projectsPage" $
-      mapM_ (renderProject conf language) projects
-
-renderProject :: Conf -> Language -> P.Project -> Html
-renderProject conf language project =
-  H.div ! class_ "project" $ do
-    renderTitle conf project
-    H.div ! class_ "body" $ do
-      renderTechnologies (P.technologies project)
-      case P.pageLink project of
-        Just pageLink -> renderPageLink pageLink
-        Nothing -> fromString ""
-      case P.description project of
-        Just description -> renderDescription language description
-        Nothing -> H.div ""
-
-renderTitle :: Conf -> P.Project -> Html
-renderTitle conf project =
-  h1 $ do
-    toHtml (P.name project)
-    H.span ! class_ "separator" $ fromString " − "
-    renderGitIcon conf (P.git project)
-
-renderTechnologies :: [String] -> Html
-renderTechnologies technologies =
-  H.div ! class_ "technologies" $ do
-    ul $ mapM_ (H.li . fromString) technologies
-
-renderPageLink :: String -> Html
-renderPageLink pageLink =
-  H.div ! class_ "pageLink" $ do
-    H.a
-      ! href (fromString pageLink)
-      $ toHtml pageLink
-
-renderDescription :: Language -> Translated -> Html
-renderDescription language description =
-  H.div ! class_ "description" $ do
-    fromString . getTranslation language $ description
diff --git a/src/View/Resume.hs b/src/View/Resume.hs
deleted file mode 100644
index ffd5c8c..0000000
--- a/src/View/Resume.hs
+++ /dev/null
@@ -1,140 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Resume
-  ( renderResume
-  ) where
-
-import           Data.Maybe
-import           Data.String                 (fromString)
-
-import           Text.Blaze.Html
-import           Text.Blaze.Html5            hiding (details)
-import qualified Text.Blaze.Html5            as H
-import           Text.Blaze.Html5.Attributes
-
-import           Conf                        (Conf)
-
-import qualified Model                       as M
-import qualified Model.Company               as C
-import           Model.Date
-import qualified Model.Degree                as D
-import           Model.Header                (Header (Resume))
-import qualified Model.Identity              as I
-import qualified Model.Job                   as J
-import qualified Model.School                as S
-import qualified Model.SkillType             as ST
-import           Model.Translated
-import           Model.Translation.Key       (Key)
-import qualified Model.Translation.Key       as K
-import           Model.Translation.Language
-import           Model.Translation.Message
-
-import           View.Git                    (renderGit)
-import           View.Header                 (renderHeader)
-import           View.Icon                   (renderIcon)
-import           View.Interval               (renderDurationAndInterval)
-
-import           Resume                      (resumePath)
-
-renderResume :: Conf -> Language -> Date -> M.Model -> Html
-renderResume conf language currentDate model =
-  H.div $ do
-    renderHeader language (Just Resume)
-    H.div ! class_ "resumePage" $ do
-      renderIdentity conf language model
-      renderJobs language currentDate . M.jobs $ model
-      renderDegrees language . M.degrees $ model
-      renderSkillTypes language . M.skillTypes $ model
-      renderInterests language . M.interests $ model
-
-renderIdentity :: Conf -> Language -> M.Model -> Html
-renderIdentity conf language model =
-  let identity = M.identity model
-  in  H.div ! class_ "section" $ do
-        H.div ! class_ "identity" $ do
-          h1 (fromString (I.name identity))
-          renderGit conf (I.git identity)
-        a ! href (fromString $ resumePath model language) ! class_ "pdf" ! target "_blank" $
-            renderIcon "print"
-
-renderJobs :: Language -> Date -> [J.Job] -> Html
-renderJobs language currentDate jobs =
-  H.div ! class_ "section" $ do
-    sectionTitle K.Experience language
-    mapM_ (renderJob language currentDate) jobs
-
-renderJob :: Language -> Date -> J.Job -> Html
-renderJob language currentDate job =
-  H.div ! class_ "item" $ do
-
-    H.div ! class_ "title" $ do
-      H.div ! class_ "text" $
-        fromString . getTranslation language . J.name $ job
-      H.div ! class_ "date" $
-        fromString $ renderDurationAndInterval language currentDate (J.beginDate job) (J.endDate job)
-
-    H.div ! class_ "location" $ do
-      let company = J.company job
-          companyName = C.name company
-          companyLocation = C.location company
-      fromString $ companyName ++ ", " ++ companyLocation
-
-    H.div ! class_ "description" $ do
-      _ <- fromString . getTranslation language . J.description $ job
-      case J.details job of
-        Just details ->
-          ul ! class_ "bullets detail" $
-            mapM_ (\detail -> li . fromString . getTranslation language $ detail) details
-        Nothing ->
-          fromString ""
-      renderTechnos $ fromMaybe [] (J.technos job)
-
-renderTechnos :: [String] -> Html
-renderTechnos = (ul ! class_ "technos") . mapM_ ((li ! class_ "techno") . fromString)
-
-renderDegrees :: Language -> [D.Degree] -> Html
-renderDegrees language degrees =
-  H.div ! class_ "section" $ do
-    sectionTitle K.EducationalBackground language
-    mapM_ (renderDegree language) degrees
-
-renderDegree :: Language -> D.Degree -> Html
-renderDegree language degree =
-  H.div ! class_ "item" $ do
-
-    H.div ! class_ "title" $ do
-      H.div ! class_ "text " $
-        fromString . getTranslation language . D.name $ degree
-      H.div ! class_ "date" $
-        fromString . show . D.year $ degree
-
-    H.div ! class_ "location" $
-      let school = D.school degree
-          location = fromMaybe "" $ fmap (", " ++ ) (S.location school)
-      in  fromString $ (S.name school) ++ location
-
-    ul ! class_ "bullets itemList" $
-      mapM_ (\topic -> li . fromString . getTranslation language $ topic) (D.topics degree)
-
-renderSkillTypes :: Language -> [ST.SkillType] -> Html
-renderSkillTypes language skillTypes =
-  H.div ! class_ "section" $ do
-    sectionTitle K.Skills language
-    mapM_ (renderSkillType language) skillTypes
-
-renderSkillType :: Language -> ST.SkillType -> Html
-renderSkillType language skillType =
-  H.div ! class_ "item" $ do
-    H.div ! class_ "title skills" $ H.div ! class_ "text" $
-      fromString . getTranslation language . ST.name $ skillType
-    ul ! class_ "bullets itemList" $
-      mapM_ (\skill -> li . fromString . getTranslation language $ skill) (ST.skills skillType)
-
-renderInterests :: Language -> [Translated] -> Html
-renderInterests language interests =
-  H.div ! class_ "section" $ do
-    sectionTitle K.Interests language
-    ul ! class_ "bullets" $ mapM_ (\interest -> li . fromString . getTranslation language $ interest) interests
-
-sectionTitle :: Key -> Language -> Html
-sectionTitle key language = h1 . fromString $ getMessage key language