From cdd3b67a055fa8dd6363317a62fdf18c7763b043 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 31 Jan 2009 18:30:26 +0000 Subject: Rewrote hsmarkdown in Haskell for portability. For now, keeping the old shell script too. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1533 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/hsmarkdown.hs | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 src/hsmarkdown.hs (limited to 'src') diff --git a/src/hsmarkdown.hs b/src/hsmarkdown.hs new file mode 100644 index 000000000..7f52083d9 --- /dev/null +++ b/src/hsmarkdown.hs @@ -0,0 +1,44 @@ +{-# LANGUAGE CPP #-} +{- +Copyright (C) 2006-8 John MacFarlane + +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 : Main + Copyright : Copyright (C) 2006-8 John MacFarlane + License : GNU GPL, version 2 or above + + Maintainer : John MacFarlane + Stability : alpha + Portability : portable + +Wrapper around pandoc that emulates Markdown.pl as closely as possible. +-} +module Main where +import System.Process +import System.Environment ( getArgs ) +import Prelude hiding ( putStr, putStrLn, writeFile, readFile, getContents ) +import System.IO.UTF8 +import Control.Monad (forM_) + +main :: IO () +main = do + files <- getArgs + let runPandoc inp = readProcess "pandoc" ["--from", "markdown", "--to", "html", "--strict"] inp >>= putStrLn + if null files + then getContents >>= runPandoc + else forM_ files $ \f -> readFile f >>= runPandoc -- cgit v1.2.3