hiccup2xml script written in eden

hiccup2xml

#!/usr/bin/env eden

local help-message = "

hiccup2xml - Hiccup Markup to XML Markup

Usage:

hiccup2xml read <filename>
hiccup2xml eval <string>
"

local argv = system.argv

if count(argv) == 0 then
  println(help-message)

elseif count(argv) == 2 and argv[0] == "eval" then
  println(html.stringify(edn.parse(argv[1])))

elseif count(argv) == 2 and argv[0] == "read" then
  local filename = argv[1]
  if filesystem.file?(filename) then
    local s = slurp(filename)
    println(html.stringify(edn.parse(s)))
  else
    println("Given filename does not exist: " filename)
  end

else
  println(help-message)
end