textile+lhs2html

textile+lhs2html.rb

#!/usr/bin/env ruby
#
# textile+lhs2html
#
# A script for transforming Literate Haskell
# with Textile-formatted text to HTML with
# the help of Ruby and RedCloth.
#
# Written by Christoffer Sawicki in 2009.
# Released into the public domain.

require "redcloth"
require "erb" # for ERB::Util.h

def interact() STDOUT.puts(yield(STDIN.read)) end

interact { |text|
  text.split("\n\n").map { |block|
    if block.split("\n").all? { |line| line[0] == ?> }
      %{<pre><code>#{ERB::Util.h(block)}</code></pre>}
    else
      RedCloth.new(block).to_html
    end
  }.join("\n\n")
}