hyakko 0.6.2 → 0.6.3

raw patch · 2 files changed

+11/−2 lines, 2 files

Files

hyakko.cabal +1/−1
src/Hyakko.lhs +10/−1

hyakko.cabal view

@@ -1,5 +1,5 @@ name:             hyakko-version:          0.6.2+version:          0.6.3 cabal-version:    >= 1.6 build-type:       Simple license:          MIT

src/Hyakko.lhs view

@@ -302,7 +302,7 @@ >           ([("header", header)], count) >   source <- sources $ dirOrFiles opts >   html <- hyakkoTemplate opts $ concat->     [ [("title", title)]+>     [ [("title", if isHeader then getHeader header else title)] >     , h >     , cssTemplate opts >     , multiTemplate $ length source@@ -311,6 +311,15 @@ >     ] >   putStrLn $ "hyakko: " ++ src ++ " -> " ++ dest >   T.writeFile dest html++Small helper to yank out the header text from an html string, if there is a+header at the top of the file.++> getHeader :: String -> String+> getHeader htmlheader =+>   let reg            = L.pack ">(.+)</h\\d>"+>       [(_:header:_)] = htmlheader =~ reg+>   in header  Helpers & Setup ---------------