An extensible Haskell content management system

August 2006

I have added some functions for making dynamic page templates. This is the template used by this site. It omits the right sidebar on the image/* pages.

boxes :: Hope Box -> [Hope Box]
boxes m = [
           wrapBox "topBanner" [brandBox],
           wrapBox "leftBar" [navigationBox], 
           wrapBox "main" [m], 
           boxUnless (pathStartsWith ["image"]) $ 
                 wrapBox "rightBar" [latestEntriesShortBox 10], 
           wrapBox "bottomBanner" [infoBox]
          ]