Tablify 0.8.1 → 0.8.2

raw patch · 3 files changed

+26/−10 lines, 3 filesdep −haskell98dep −regex-compatdep −safer-file-handlesdep ~parsec

Dependencies removed: haskell98, regex-compat, safer-file-handles, utf8-string

Dependency ranges changed: parsec

Files

Tablify.cabal +3/−3
src/ConTeXt.hs +19/−0
src/Tablify.hs +4/−7

Tablify.cabal view

@@ -1,6 +1,6 @@ Cabal-Version:       >= 1.2 Name:                Tablify-Version:             0.8.1+Version:             0.8.2 License:             BSD3 License-File:        LICENSE.txt Author:              Daniel Lyons@@ -15,6 +15,6 @@  Executable tablify      Main-Is:           Tablify.hs-  Other-Modules:     ASCII, CSV, Converter, FixedWidth, LaTeX, HTML, TBL, Tablify, Unicode, Utilities-  Build-Depends:     base < 5, utf8-string, parsec, regex-compat, haskell98, xhtml, safer-file-handles+  Other-Modules:     ASCII, CSV, Converter, ConTeXt, FixedWidth, LaTeX, HTML, TBL, Tablify, Unicode, Utilities+  Build-Depends:     base < 5, parsec < 4, xhtml   HS-Source-Dirs:    src

+ src/ConTeXt.hs view

@@ -0,0 +1,19 @@+module ConTeXt (converter) where++import Prelude hiding (length, replicate)+import Utilities+import Converter++-- Some ConTeXt.+texify :: Table -> String+texify table = intercalate "\n" [tblstart, hl, body, hl, tblend, hl]+	where+		columns = length $ head table+		tblstart = "\\starttable[|" ++ heading ++ "|]"+		tblend = "\\stoptable"+		heading = intersperse '|' $ replicate columns 'l'+		hl = "\\HL[3]\n"+		body = intercalate "\\\\\n" $ map (intercalate " & ") table++converter :: Converter+converter = Converter "ConTeXt" texify "C" "context"

src/Tablify.hs view

@@ -13,13 +13,8 @@  module Main where --- this declaration lets me forget all about qualifying the UTF8 version of IO---import Prelude hiding (putStr, putStrLn, getContents) --import System+import System.Environment import System.IO---import System.IO.SaferFileHandles---import System.IO.UTF8 import System.Console.GetOpt  import Converter@@ -30,6 +25,7 @@ import ASCII import CSV import LaTeX+import ConTeXt  version :: Double version = 0.8@@ -53,7 +49,8 @@     , HTML.converter     , TBL.converter     , Unicode.converter-    , LaTeX.converter]+    , LaTeX.converter+    , ConTeXt.converter]  usage :: String usage = "Usage: tablify [OPTION...] file"