From 997ea5ea1d02e31bb8a9b03e3db26684cc81ac59 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 6 Feb 2010 18:55:28 +0000 Subject: Removed html2markdown and hsmarkdown. html2markdown is no longer needed, since you can pass URI arguments to pandoc and directly convert web pages. (Note, however, that pandoc assumes the pages are UTF8. html2markdown made an attempt to guess the encoding and convert them.) hsmarkdown is pointless -- a large executable that could be replaced by 'pandoc --strict'. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1834 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/hsmarkdown.hs | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100644 src/hsmarkdown.hs (limited to 'src') diff --git a/src/hsmarkdown.hs b/src/hsmarkdown.hs deleted file mode 100644 index 3f689d4ec..000000000 --- a/src/hsmarkdown.hs +++ /dev/null @@ -1,47 +0,0 @@ -{- -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 --} - -{- | - Copyright : Copyright (C) 2009 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 ) --- Note: ghc >= 6.12 (base >=4.2) supports unicode through iconv --- So we use System.IO.UTF8 only if we have an earlier version -#if MIN_VERSION_base(4,2,0) -#else -import Prelude hiding ( putStr, putStrLn, writeFile, readFile, getContents ) -import System.IO.UTF8 -#endif -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