[Initial coding of working Simplepg template. golubovsky@gmail.com**20090313024223 Ignore-this: 53305672a2c70fe82534685ea0c23812 ] { hunk ./Simplepg.hsx 12 +import Prelude hiding (readFile, putStrLn) hunk ./Simplepg.hsx 16 -import HSP +import HSP hiding (catch) hunk ./Simplepg.hsx 20 -import qualified System.IO.UTF8 as B +import System.IO.UTF8 (putStrLn, hPutStrLn, readFile) +import System.Environment.UTF8 +import qualified System.Console.GetOpt as G +import System.FilePath +import System.Posix.Files +import System.Exit +import System.IO (stderr) hunk ./Simplepg.hsx 28 +-- The template. The function's parameters will be embedded into the XML +-- below. All stylesheets and scripts are placed into the HEAD element. hunk ./Simplepg.hsx 31 --- The template. +simplePg :: String -- title + -> String -- onLoad if not empty + -> [Either String String] -- scripts to embed + -> [Either String String] -- stylesheets to embed + -> HSP XML -- result hunk ./Simplepg.hsx 37 -simplePg :: HSP XML -simplePg = - +simplePg ttl onl scrs csss = + hunk ./Simplepg.hsx 40 - + + <% ttl %> + <% mapM csheet csss %> + <% mapM script scrs %> hunk ./Simplepg.hsx 45 - - + <% bdy onl %> hunk ./Simplepg.hsx 48 +-- Create the BODY element with optional onload= attribute. + +bdy "" = +bdy onl = + +-- Create either embedded SCRIPT element, or one pointing to an external script location. + +script (Left scr) = +script (Right scr) =