diff --git a/src/Handler/Utils/Mail.hs b/src/Handler/Utils/Mail.hs index b4e32ed32..136ae68eb 100644 --- a/src/Handler/Utils/Mail.hs +++ b/src/Handler/Utils/Mail.hs @@ -4,6 +4,7 @@ module Handler.Utils.Mail , userMailT , addFileDB , addHtmlMarkdownAlternatives + , addHtmlMarkdownAlternatives' ) where import Import @@ -120,3 +121,28 @@ addHtmlMarkdownAlternatives html' = do writerOptions = markdownWriterOptions { P.writerReferenceLinks = True } + +{- +addHtmlMarkdownAlternatives' :: ( HandlerSite m ~ UniWorX + , MonadMail m + , ToMailPart (HandlerSite m) Html + , ToMailHtml (HandlerSite m) a + ) => a -> m () +addHtmlMarkdownAlternatives' = addHtmlMarkdownAlternatives +-} + +-- For now failed attempt to use with i18nHaletFile or widgets: +addHtmlMarkdownAlternatives' :: ( HandlerSite m ~ UniWorX + , MonadMail m + , YesodMail (HandlerSite m) + ) => Html -> m () +addHtmlMarkdownAlternatives' html = do + markdown <- runMaybeT $ renderMarkdownWith htmlReaderOptions writerOptions html + + addAlternatives $ do + providePreferredAlternative html + whenIsJust markdown provideAlternative + where + writerOptions = markdownWriterOptions + { P.writerReferenceLinks = True + } diff --git a/src/Jobs/Handler/SendNotification/Qualification.hs b/src/Jobs/Handler/SendNotification/Qualification.hs index 3d4a46639..3edbda8ef 100644 --- a/src/Jobs/Handler/SendNotification/Qualification.hs +++ b/src/Jobs/Handler/SendNotification/Qualification.hs @@ -52,10 +52,13 @@ dispatchNotificationQualificationRenewal nQualification jRecipient = do replaceMailHeader "Auto-Submitted" $ Just "auto-generated" setSubjectI $ MsgMailSubjectQualificationRenewal qname - editNotifications <- mkEditNotifications jRecipient -- TODO: add to hamlet file again - -- addHtmlMarkdownAlternatives $(i18nWidgetFile "qualification/renewal") + editNotifications <- mkEditNotifications jRecipient -- TODO: add to hamlet file again + -- let msgrenewal = $(i18nHamletFile "qualification/renewal") -- :: HtmlUrlI18n (SomeMessage UniWorX) (Route UniWorX) + -- addHtmlMarkdownAlternatives' msgrenewal + -- TODO: this is just a dummy to continue while i18nHamletFile usage is unclear - addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/qualificationRenewal.hamlet") + addHtmlMarkdownAlternatives $(ihamletFile "templates/mail/qualificationRenewal.hamlet") + | otherwise -> do let _letterHead = error "TODO" diff --git a/templates/mail/qualificationExpiry.hamlet b/templates/mail/qualificationExpiry.hamlet index 23351f19d..6c7e6a1f9 100644 --- a/templates/mail/qualificationExpiry.hamlet +++ b/templates/mail/qualificationExpiry.hamlet @@ -23,4 +23,8 @@ $newline never #{show qualificationUserValidUntil} #{show qualificationUserFirstHeld} +
+