require 'json'
require 'fileutils'

r = JSON.parse(File.read('list.json'))

$by_name = {}

def init_hash(h)
  ('a'..'z').to_a.each do |l|
    h[l] = []
  end
  ('0'..'9').to_a.each do |d|
    h[d] = []
  end
end

init_hash($by_name)

r.each do |s|
  if s.nil? then
    next
  end

  fs = s

  s.downcase!

  s.gsub! /(-)+/, '-'

  who_prefix = ''

  draft = 'draft-'
  if s.start_with?(draft) then
    s = s[draft.length,s.length]
  end

  ietf = 'draft-ietf-'
  if s.start_with?(ietf) then
    s = s[ietf.length,s.length]
    who_prefix = 'ietf-'
  end

  irtf = 'draft-irtf-'
  if s.start_with?(irtf) then
    s = s[irtf.length,s.length]
    who_prefix = 'irtf-'
  end

  sp = s.split('-', 2)
  n = sp[1]
  who = who_prefix + sp[0]

  if n.nil? then
    next
  end

  $by_name[n[0]].append({ :who => who, :n => n, :fs => fs })
end

index_gmi = ''

index_gmi << "# Hellomouse IETF draft list\n\n"

$by_name.keys.sort.each do |k|
  index_gmi << "=> index-#{k}.gmi #{k}\n"
  $by_name[k].sort! do |a, b|
    a[:n] <=> b[:n]
  end
  FileUtils.touch("../index-#{k}.gmi")
  f = File.open("../index-#{k}.gmi", 'w')
  f.write "# Hellomouse IETF draft list - #{k}\n"
  f.write "=> ./ Go back\n\n"
  $by_name[k].each do |e|
    f.write "=> data/#{e[:fs]} #{e[:who]} - #{e[:n]}\n"
  end
  f.close
end

FileUtils.touch('../index.gmi')
f = File.open('../index.gmi', 'w')

f.write index_gmi

f.close