Panrep2html.hs

---------------------------------------------------------------------
--
-- Module      :  Uniform.Doc2html
--  converts an md document in 2steps 
--      docrep -> panrep
        --     includes preparing of index pages 
        --     the processsing of the refs are already done in doc processing 
        -- panrep -> html 
---------------------------------------------------------------------
{-# LANGUAGE ConstraintKinds #-}
-- {-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DoAndIfThenElse #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}
{-# OPTIONS_GHC -Wall -fno-warn-orphans
            -fno-warn-missing-signatures
            -fno-warn-missing-methods
            -fno-warn-duplicate-exports
            -fno-warn-unused-imports
            -fno-warn-unused-matches #-}

 
module Wave.Panrep2html (
    module Wave.Panrep2html,
) where

-- import Data.Default
import Foundational.Filetypes4sites ( Panrep(Panrep) )
import Foundational.SettingsPage
    -- ( Settings(siteLayout), SiteLayout(blogAuthorToSuppress) )
import Foundational.MetaPage
    -- ( convertLink2html,
    --   convertLink2pdf,
    --   IndexEntry,
    --   MetaPage(dyIndexEntry, dyIndexSort) )
import GHC.Generics (Generic)

import Uniform.Json ( ToJSON(toJSON), Value, ErrIO )
import Uniform.Pandoc ( writeHtml5String2 )
import Uniform.Latex 
import qualified Text.Pandoc.Shared as P
import Uniform.Http ( HTMLout ) 
import UniformBase

import Data.Maybe (fromMaybe)

import Lib.IndexMake ( convertIndexEntries, MenuEntry )
-- import Lib.IndexCollect ( completeIndex )
import Lib.Templating ( putValinMaster )
import Text.Pandoc.SideNote ( usingSideNotes )


-- ------------------------------------ panrep2html
-- panrep2html :: Panrep -> ErrIO HTMLout
-- implements the bake
-- siteHeader (sett3, above sett3) is the content of the settingsN.yml file
-- added here the transformations to tufte sidenotes (from pandoc-sidenotes)
panrep2html :: NoticeLevel -> Settings -> Panrep -> ErrIO HTMLout
panrep2html debug  sett3 (Panrep m1 p1) = do
    let mf = masterTemplateFile $ siteLayout sett3
    -- let mfn = templatesDir layout </> mf
    let masterfn = templatesDir (siteLayout sett3) </> mf
    let h = dyHeaderShift m1
    when (inform debug) $
        putIOwords ["\n\t---------------------------panrep2html"
                , "shiftHeaderLevel"
                , showT h]    
    let p2 = P.headerShift h p1
    let p3 = usingSideNotes p2  -- :: Pandoc -> Pandoc
    vals <- panrep2vals  debug sett3 (Panrep m1 p3)
    p :: HTMLout <- panrep2html2 debug masterfn vals
    return p

panrep2vals ::  NoticeLevel -> Settings -> Panrep -> ErrIO [Value]
panrep2vals debug sett3 (Panrep m1 p1) = do
    let ixe1 = dyIndexEntry m1
    let indexSortField = Data.Maybe.fromMaybe "" (dyIndexSort m1)

    when (inform debug) $
        putIOwords ["\n\t---------------------------panrep2vals"
                , "AuthorOppressed"
                , showT (blogAuthorToSuppress . siteLayout $ sett3)]

    menu4 :: MenuEntry <- convertIndexEntries  debug (blogAuthorToSuppress.siteLayout $ sett3) indexSortField ixe1
    html <- writeHtml5String2 p1
    -- in uniform.Pandoc (dort noch mehr moeglicherweise duplicated)
    p2 <-  fillContent ixe1 html

    when (inform debug) $ putIOwords ["panrep2vals", "m1", showPretty m1]
    when (inform debug) $ putIOwords ["panrep2vals", "sett3", showPretty sett3]
    when (inform debug) $ putIOwords ["panrep2vals", "menu4", showPretty menu4]
    when (inform debug) $ putIOwords ["panrep2vals", "p2", showPretty p2]

    let vals = [toJSON sett3, toJSON m1, toJSON menu4, toJSON p2]
    -- m1 is what is from the yaml meta from the file
    -- menu4 is menu collected 
    -- order matters left preference?

    when (inform debug) $ putIOwords ["panrep2vals", "vals", showPretty vals]
    return vals

panrep2html2 :: NoticeLevel -- ^ 
  -> Path Abs File -- ^ 
  -> [Value] -- ^ 
  -> ErrIO HTMLout
panrep2html2 debug masterfn vals = do
    p :: HTMLout <- putValinMaster debug vals masterfn
    when (inform debug) $ putIOwords ["\n panrep2html done"]
    return p

fillContent :: IndexEntry -> Text -> ErrIO ContentHtml
fillContent ix cont = do 
        today1 :: UTCTime <- getCurrentTimeUTC
        let res = ContentHtml
                { content3 = cont 
                , today3 = showT today1
                , linkpdf3 = convertLink2pdf ix   
                , filename3 = convertLink2html ix
                }
        return res

data ContentHtml = ContentHtml  
        { content3 :: Text
        , today3 :: Text 
        , linkpdf3 :: Text 
        , filename3 :: Text 
        } deriving (Show, Generic)
-- | the record which contains the blog text in html format 
-- the ref to the pdf File 
-- todays date 
-- filename3 the original file name 
-- mit id,h1, h2,.. span und p tags 

instance ToJSON ContentHtml
instance Zeros ContentHtml where
  zero = ContentHtml zero zero zero zero