XML prettifier in Haskell
I don’t know how many times I’ve gone looking for one of these but my search-fu is weak and I always give up, instead resorting to manual editing in Vim (no I hardly ever need the entire file to be pretty, only one or two tags that I’m interested in). Anyway, here’s a quick hack in Haskell, relying on xml for the heavy lifting:
#! /usr/bin/env runhaskell module Main where import Control.Monad import System.Environment import Text.XML.Light.Input import Text.XML.Light.Output main = do fn <- liftM (!! 0) $ getArgs xml_contents <- readFile fn let (Just doc) = parseXMLDoc xml_contents writeFile ("pretty-" ++ fn) (ppTopElement doc)
![[Digg]](http://therning.org/magnus/wp-content/plugins/bookmarkify/digg.png)
![[Reddit]](http://therning.org/magnus/wp-content/plugins/bookmarkify/reddit.png)