git.iko.soy/typeable/pandoc
on ca2bbaf help sign in
typeable/pandoc/src/hsmarkdown.hs
47 lines 1.7 kB history raw
1{-
2Copyright (C) 2006-8 John MacFarlane <jgm@berkeley.edu>
4This program is free software; you can redistribute it and/or modify
5it under the terms of the GNU General Public License as published by
6the Free Software Foundation; either version 2 of the License, or
7(at your option) any later version.
9This program is distributed in the hope that it will be useful,
10but WITHOUT ANY WARRANTY; without even the implied warranty of
11MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12GNU General Public License for more details.
14You should have received a copy of the GNU General Public License
15along with this program; if not, write to the Free Software
16Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17-}
19{- |
20 Copyright : Copyright (C) 2009 John MacFarlane
21 License : GNU GPL, version 2 or above
23 Maintainer : John MacFarlane <jgm@berkeley@edu>
24 Stability : alpha
25 Portability : portable
27Wrapper around pandoc that emulates Markdown.pl as closely as possible.
28-}
29module Main where
30import System.Process
31import System.Environment ( getArgs )
32-- Note: ghc >= 6.12 (base >=4.2) supports unicode through iconv
33-- So we use System.IO.UTF8 only if we have an earlier version
34#if MIN_VERSION_base(4,2,0)
35#else
36import Prelude hiding ( putStr, putStrLn, writeFile, readFile, getContents )
37import System.IO.UTF8
38#endif
39import Control.Monad (forM_)
41main :: IO ()
42main = do
43 files <- getArgs
44 let runPandoc inp = readProcess "pandoc" ["--from", "markdown", "--to", "html", "--strict"] inp >>= putStrLn
45 if null files
46 then getContents >>= runPandoc
47 else forM_ files $ \f -> readFile f >>= runPandoc