" ++ x ++ "")
-- | Escape, then convert. The one-step form every renderer should use.
tex :: String -> String
tex = latexToHtml . escapeHtml
substAll :: String -> String -> String -> String
substAll _ _ [] = []
substAll pat rep s@(c:cs)
| pat `isPrefixOf` s = rep ++ substAll pat rep (drop (length pat) s)
| otherwise = c : substAll pat rep cs
-- | Split a leading @{...}@ group, tracking brace depth so nested groups
-- survive. Returns the group's contents and whatever follows it.
takeGroup :: String -> Maybe (String, String)
takeGroup ('{':rest) = go (0 :: Int) "" rest
where
go _ _ [] = Nothing
go d acc ('}':cs)
| d == 0 = Just (reverse acc, cs)
| otherwise = go (d - 1) ('}':acc) cs
go d acc ('{':cs) = go (d + 1) ('{':acc) cs
go d acc (c:cs) = go d (c:acc) cs
takeGroup _ = Nothing
-- | Rewrite every @\\cmd{arg}@ with a function of its argument.
rewriteCmd1 :: String -> (String -> String) -> String -> String
rewriteCmd1 name f = go
where
marker = '\\' : name
go [] = []
go s@(c:cs)
| marker `isPrefixOf` s
, Just (arg, rest) <- takeGroup (drop (length marker) s)
= f (go arg) ++ go rest
| otherwise = c : go cs
-- | Rewrite every @\\cmd{a}{b}@ with a function of both arguments.
rewriteCmd2 :: String -> (String -> String -> String) -> String -> String
rewriteCmd2 name f = go
where
marker = '\\' : name
go [] = []
go s@(c:cs)
| marker `isPrefixOf` s
, Just (a, rest1) <- takeGroup (drop (length marker) s)
, Just (b, rest2) <- takeGroup rest1
= f a (go b) ++ go rest2
| otherwise = c : go cs
-- ---------------------------------------------------------------------------
-- Shared rendering pieces
-- ---------------------------------------------------------------------------
-- | @start – end@, or just @start@ when the entry has no end.
dateRange :: String -> Maybe String -> String
dateRange s me = tex s ++ maybe "" (\e -> " – " ++ tex e) me
-- | Title and date on one baseline, title left and date flush right — the
-- layout item-card.css already establishes for every other list on the
-- site. An earlier version stacked the date on its own line below the
-- title, which read as a stray indented fragment: @#markdownBody p + p@
-- applies the essay prose indent of 1.5em to consecutive paragraphs, and a
-- date is not prose.
--
-- Dates stay in a @span@ rather than a @time@ element on purpose. Half of
-- them are "Fall 2024", "expected 2028", "Present" — no valid @datetime@
-- value exists for those, and a @time@ without one is worse than no @time@.
headerRow :: String -> String -> String
headerRow titleHtml dates = concat
[ "" ++ lead ++ trailing ++ "
" where parts = maybe [] (pure . tex) mrole ++ extras lead = head parts rest = tail parts trailing | null rest = "" | otherwise = " · " ++ intercalate " · " rest ++ "" -- | A location, linked when the entry gives a URL for it. locationPart :: Maybe String -> Maybe String -> [String] locationPart Nothing _ = [] locationPart (Just loc) murl = pure $ case murl of Just u -> "" ++ tex loc ++ "" Nothing -> tex loc -- | Link chips. The affordance the print CV cannot offer: every artifact one -- click away, rather than a bracketed label the reader has to retype. renderLinks :: [Link] -> String renderLinks [] = "" renderLinks ls = concat [ "" , concatMap one ls , "
" ] where one l = concat [ "" , tex (lkLabel l) , "" ] renderBullets :: [String] -> String renderBullets [] = "" renderBullets bs = concat [ "" ++ tex n ++ "
") (edNotes e) , "" ++ tex n ++ "
" [] -> "" dateOf p = tex (pbYear p) ++ maybe "" (\m -> ", " ++ tex m) (pbMonth p) one p = concat [ "", tex (pbVenue p) , maybe "" (\t -> " " ++ tex t) (pbTarget p) , "
" ] Just t -> concat [ headerRow (tex t) (dateOf p) , "" , "", tex (pbVenue p), "
" ] , renderLinks (pbLinks p) , "" , maybe "" (\k -> tex k ++ ", ") (prKind p) , tex (prVenue p) , maybe "" (\st -> "" ++ tex st ++ "") (prStatus p) , "
" , "" ++ tex p ++ "
") (exPreamble e) , renderBullets (exBullets e) , "", tex (pjDescription p), "
" , renderLinks (pjLinks p) , "" , "" , escapeHtml (pnEmail p) , "" , concatMap one (filter plWeb (pnLinks p)) , "
" ] where -- Chips carry the label, not personal.yml's `display` value. The CV -- prints "ORCID: 0009-0002-0162-3587" because a printed page cannot be -- clicked; a chip reading "0009-0002-0162-3587" alone identifies -- nothing, and "github.com/levineuwirth" is a URL doing a label's job. one l = concat [ "" , tex (plLabel l) , "" ] -- --------------------------------------------------------------------------- -- Load -- --------------------------------------------------------------------------- -- | Same UTF-8 round-trip as "Now": Hakyll hands back a 'String' of Unicode -- codepoints and the yaml library wants a UTF-8 'ByteString'. -- 'Data.ByteString.Char8.pack' would truncate every 'Char' to 8 bits and -- silently mangle the em-dashes and daggers this data is full of. loadYaml :: FromJSON a => FilePath -> Compiler a loadYaml path = do raw <- load (fromFilePath path) :: Compiler (Item String) case Y.decodeEither' (TE.encodeUtf8 (T.pack (itemBody raw))) of Left err -> fail (path ++ ": " ++ show err) Right doc -> return doc -- | Render a section, or drop the field entirely when it comes out empty so -- the template's @$if(...)$@ guards behave. sectionField :: String -> Compiler String -> Context String sectionField name gen = field name $ \_ -> do html <- gen if null html then noResult (name ++ ": empty") else return html -- --------------------------------------------------------------------------- -- Context -- --------------------------------------------------------------------------- vitaCtx :: Context String vitaCtx = constField "vita" "true" <> sectionField "vita-education-html" (renderEducation . unEduDoc <$> loadYaml "yaml-source/data/education.yml") <> sectionField "vita-publications-html" (renderPublications . unPubDoc <$> loadYaml "yaml-source/data/publications.yml") <> sectionField "vita-presentations-html" (renderPresentations . unPresDoc <$> loadYaml "yaml-source/data/presentations.yml") <> sectionField "vita-experience-html" (renderExperience . unExpDoc <$> loadYaml "yaml-source/data/experience.yml") <> sectionField "vita-contact-html" (renderContact <$> loadYaml "yaml-source/data/personal.yml") <> siteCtx -- | The @/cv/projects/@ index. Reuses the vita flag so it picks up the same -- stylesheets and reads as the same kind of surface. projectsCtx :: Context String projectsCtx = constField "vita" "true" <> sectionField "vita-projects-html" (renderProjects . unProjDoc <$> loadYaml "yaml-source/data/projects.yml") <> siteCtx