From 956deeda4baf74523d3261e66c5d313d509b2139 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 7 Jul 2007 22:37:11 +0000
Subject: Haddock documentation for Text.Pandoc.Blocks.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@638 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Blocks.hs | 55 +++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 51 insertions(+), 4 deletions(-)

(limited to 'src/Text/Pandoc/Blocks.hs')

diff --git a/src/Text/Pandoc/Blocks.hs b/src/Text/Pandoc/Blocks.hs
index 7f2e653e6..7f09e9391 100644
--- a/src/Text/Pandoc/Blocks.hs
+++ b/src/Text/Pandoc/Blocks.hs
@@ -1,3 +1,34 @@
+{-
+Copyright (C) 2007 John MacFarlane <jgm at berkeley dot edu>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+-}
+
+{- |
+   Module      : Text.Pandoc.Blocks
+   Copyright   : Copyright (C) 2007 John MacFarlane
+   License     : GNU GPL, version 2 or above 
+
+   Maintainer  : John MacFarlane <jgm@berkeley.edu>
+   Stability   : alpha
+   Portability : portable
+
+Functions for the manipulation of fixed-width blocks of text.
+These are used in the construction of plain-text tables.
+-}
+
 module Text.Pandoc.Blocks
                ( 
                 TextBlock (..),
@@ -16,11 +47,16 @@ where
 import Text.PrettyPrint
 import Data.List (transpose, intersperse)
 
-data TextBlock = TextBlock Int Int [String] -- width height lines
+-- | A fixed-width block of text.  Parameters are width of block,
+-- height of block, and list of lines.
+data TextBlock = TextBlock Int Int [String]
 instance Show TextBlock where
   show x = show $ blockToDoc x
 
-docToBlock :: Int -> Doc -> TextBlock
+-- | Convert a @Doc@ element into a @TextBlock@ with a specified width. 
+docToBlock :: Int  -- ^ Width of text block.
+           -> Doc  -- ^ @Doc@ to convert.
+           -> TextBlock
 docToBlock width doc =
   let rendered    = renderStyle (style {lineLength = width, 
                                         ribbonsPerLine = 1}) doc
@@ -32,26 +68,33 @@ docToBlock width doc =
       lns'        = chop lns
   in  TextBlock width (length lns') lns' 
 
+-- | Convert a @TextBlock@ to a @Doc@ element.
 blockToDoc :: TextBlock -> Doc
 blockToDoc (TextBlock _ _ lns) = 
   if null lns
      then empty
      else vcat $ map text lns
 
+-- | Returns width of a @TextBlock@ (number of columns).
 widthOfBlock :: TextBlock -> Int
 widthOfBlock (TextBlock width _ _) = width
 
+-- | Returns height of a @TextBlock@ (number of rows).
 heightOfBlock :: TextBlock -> Int
 heightOfBlock (TextBlock _ height _) = height
 
--- pad line out to width using spaces
-hPad :: Int -> String -> String
+-- | Pads a string out to a given width using spaces.
+hPad :: Int     -- ^ Desired width.
+     -> String  -- ^ String to pad.
+     -> String
 hPad width line = 
   let lineLength = length line
   in  if lineLength <= width 
          then line ++ replicate (width - lineLength) ' '
          else take width line
 
+-- | Concatenates a list of @TextBlock@s into a new @TextBlock@ in
+-- which they appear side by side.
 hcatBlocks :: [TextBlock] -> TextBlock
 hcatBlocks [] = TextBlock 0 0 []
 hcatBlocks ((TextBlock width1 height1 lns1):xs) = 
@@ -63,15 +106,18 @@ hcatBlocks ((TextBlock width1 height1 lns1):xs) =
       lns    = zipWith (++) lns1' lns2'
    in TextBlock width height lns 
 
+-- | Like @hcatBlocks@, but inserts space between the @TextBlock@s.
 hsepBlocks = hcatBlocks . (intersperse (TextBlock 1 1 [" "]))
 
 isWhitespace x = x `elem` " \t"
 
+-- | Left-aligns the contents of a @TextBlock@ within the block.
 leftAlignBlock :: TextBlock -> TextBlock
 leftAlignBlock (TextBlock width height lns) =
   TextBlock width height $ 
             map (dropWhile isWhitespace) lns
 
+-- | Right-aligns the contents of a @TextBlock@ within the block.
 rightAlignBlock :: TextBlock -> TextBlock
 rightAlignBlock (TextBlock width height lns) =
   let rightAlignLine ln = 
@@ -79,6 +125,7 @@ rightAlignBlock (TextBlock width height lns) =
         in  reverse (rest ++ spaces)
   in  TextBlock width height $ map rightAlignLine lns
 
+-- | Centers the contents of a @TextBlock@ within the block.
 centerAlignBlock :: TextBlock -> TextBlock
 centerAlignBlock (TextBlock width height lns) = 
   let centerAlignLine ln =
-- 
cgit v1.2.3