blaze (empty) → 0.0.0

raw patch · 4 files changed

+97/−0 lines, 4 filesdep +basedep +blaze-htmldep +blaze-markupsetup-changed

Dependencies added: base, blaze-html, blaze-markup

Files

• LICENSE +30/−0
• Setup.hs +2/−0
• blaze.cabal +20/−0
• src/Blaze/Html5.hs +45/−0

@@ -0,0 +1,30 @@+Copyright (c) 2013, Chris Done++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Chris Done nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,20 @@+name:                blaze+version:             0.0.0+synopsis:            Common blaze operations+description:         Common blaze operations+license:             BSD3+license-file:        LICENSE+author:              Chris Done+maintainer:          chrisdone@gmail.com+copyright:           2013 Chris Done+category:            CATEGORY+build-type:          Simple+cabal-version:       >=1.8++library+  exposed-modules:   Blaze.Html5+  hs-source-dirs:    src/+  build-depends:     base > 4 && <5,+                     blaze-markup,+                     blaze-html+  ghc-options:       -Wall

@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}++module Blaze.Html5+  (module Text.Blaze+  ,module Text.Blaze.Html5+  ,Attributable+  ,(!.)+  ,(!#)+  ,linesToHtml)+  where++import           Data.Monoid+import           Text.Blaze+import           Text.Blaze.Html5 hiding (map)+import qualified Text.Blaze.Html5.Attributes as A+import           Text.Blaze.Internal (Attributable)++-- | Class attribute.+(!.) :: (Attributable h) => h -> AttributeValue -> h+elem !. className = elem ! A.class_ className++-- | Id attribute.+(!#) :: (Attributable h) => h -> AttributeValue -> h+elem !# idName = elem ! A.id idName++-- | Render the lines as HTML lines.+linesToHtml :: [Html] -> Html+linesToHtml = htmlIntercalate br++-- | Intercalate the given things.+htmlIntercalate :: Html -> [Html] -> Html+htmlIntercalate _ [x] = x+htmlIntercalate sep (x:xs) = do x; sep; htmlIntercalate sep xs+htmlIntercalate _ []  = mempty++-- | Show some HTML comma-separated with “and” inbetween to be grammatical.+htmlCommasAnd :: [Html] -> Html+htmlCommasAnd [x] = x+htmlCommasAnd [x,y] = do x; " and "; y+htmlCommasAnd (x:xs) = do x; ", "; htmlCommasAnd xs+htmlCommasAnd []  = mempty++-- | Comma-separate some HTML.+htmlCommas :: [Html] -> Html+htmlCommas = htmlIntercalate ", "