messing about with parsimmon

parsing.coffee

{string, lazy, alt, regex, optWhitespace, seq, succeed} = require "Parsimmon"

lbrace = string '<'
rbrace = string '>'
slash = string '/'
identifier = regex /[a-z-]+/i

opentag = lbrace.then(identifier).skip(optWhitespace).skip(rbrace)
closetag = (tag) -> lbrace.then(slash).then(string tag).skip(rbrace)
selftag = lbrace.then(identifier).skip(optWhitespace).skip(slash).skip(rbrace).map (s) -> "<#{s}/>"
atom = regex /[a-z ]+/i

term = lazy -> alt(treenode, selftag, atom)

treenode = opentag.chain (tag) ->
  seq(succeed("<#{tag}>"), term.many().skip(closetag tag))

console.log JSON.stringify(term.parse("<hello>hiya<b>hey</b>you are cool</hello>").value)