#acl bernie:read,write All:read

def _macro_WordIndex(*args, **kvargs):
    s = make_index_key()
    pages = list(page_list())
    map = {}
    word_re = re.compile('[A-Z][a-z]+')
    for name in pages:
        for word in word_re.findall(name):
            try:
                map[word].append(name)
            except KeyError:
                map[word] = [name]

    all_words = list(map.keys())
    all_words.sort()
    last_letter = None
    # set title
    for word in all_words:
        letter = word[0].lower()
        if letter != last_letter:
            s += '<a name="%s"><h3>%s</h3></a>' % (letter, letter)
            last_letter = letter

        s += '<b>%s</b><ul>' % word
        links = map[word]
        links.sort()
        last_page = None
        for name in links:
            if name == last_page: continue
            s += '<li>' + link_tag(name) + '</li>'
        s += '</ul>'
    return s