module Faker::HTMLIpsum

def a(word_count = 2)
  "<a href=\"##{word}\" title=\"#{words(word_count).capitalize!}\">#{words(word_count).capitalize!}</a>"
end

def body
  s = "<h1>#{words(2).capitalize!}</h1>"
  rand(4).times do
    s << "<p>#{fancy_string}</p>"
  end
  s << table(rand(4))
  s << "<h2>#{words(2).capitalize!}</h2>
  <ol>"
  rand(4).times do
    s << "<li>#{paragraph 1}</li>"
  end
  s << "</ol>
  <blockquote><p>#{paragraphs 3}</p></blockquote>
  <h3>#{words(2).capitalize!}</h3>
  <ul>"
  rand(4).times do
    s << "<li>#{paragraph 1}</li>"
  end
  s << "</ul>
  <pre><code>
  ##{word} h1 a {
    display: block;
    width: 300px;
    height: 80px;
  }
  </code></pre>"
end

def dl(definitions = 2)
  s = "<dl>"
  definitions.times do
    s << "<dt>#{words(1).capitalize!}</dt><dd>#{paragraph 2}</dd>"
  end
  s << "</dl>"
end

def fancy_string(count = 3, include_breaks = false)
  sep  = include_breaks ? "<br>" : " "
  a = k([
    "<strong>#{words(2).capitalize!}</strong>.",
    "<em>#{paragraph}</em>",
    "<code>#{words 2}</code>",
    "#{a 2}"
  ] + Faker::Lorem::paragraphs(count))
  a.random_pick(count).join(sep)
end

def ol_long(items = 3)
  s = "<ol>"
  items.times do
    s << "<li>#{paragraph 2}</li>"
  end
  s << "</ol>"
end

def ol_short(items = 3)
  s = "<ol>"
  items.times do
    s << "<li>#{sentence 2}</li>"
  end
  s << "</ol>"
end

def p(count = 3, options = {})
  options = {:fancy => false, :include_breaks => false}.merge(options)
  if options[:fancy]
    s = fancy_string(count, options[:include_breaks])
  else
    mode = options[:include_breaks] ? "paragraphs" : "paragraph"
    s = send(mode.to_sym, count)
  end
  "<p>#{s}</p>"
end

def paragraph(sentence_count = 3)
  Faker::Lorem::paragraph(sentence_count)
end

def paragraphs(paragraph_count = 3)
  Faker::Lorem::paragraphs(paragraph_count).join('<br>')
end

def sentence(word_count = 3)
  Faker::Lorem::sentence(word_count)
end

def sentences(sentence_count = 3)
  Faker::Lorem::sentences(sentence_count).join(' ')
end

def table(rows = 3)
  s = "<table>
  <thead>
  <tr>
  <th>#{word.capitalize!}</th>
  <th>#{word.capitalize!}</th>
  <th>#{word.capitalize!}</th>
  <th>#{word.capitalize!}</th>
  </tr>
  </thead>
  <tbody>"
  rows.times do
    s << "<tr>
            <td>#{words(1).capitalize!}</td>
            <td>#{words(1).capitalize!}</td>
            <td>#{words(1).capitalize!}</td>
            <td>#{a}</td>
          </tr>"
  end
  s << "</tbody>
  </table>"
end

def ul_links(items = 3)
  s = "<ul>"
  items.times do
    s << "<li>#{a 1}</li>"
  end
  s << "</ul>"
end

def ul_long(items = 3)
  s = "<ul>"
  items.times do
    s << "<li>#{paragraph 2}</li>"
  end
  s << "</ul>"
end

def ul_short(items = 3)
  s = "<ul>"
  items.times do
    s << "<li>#{sentence 2}</li>"
  end
  s << "</ul>"
end

def word
  Faker::Lorem::word
end

def words(word_count = 3)
  Faker::Lorem::words(word_count).join(' ')
end