short_name = article_a(upcase_first(you.level_type_name), false);

        {
            // If the level name is faking a dungeon depth
            // (i.e., "Ziggurat:3") then don't add an article
            if (you.level_type_name.find(":") != std::string::npos)
                short_name = you.level_type_name;
            else
                short_name = article_a(upcase_first(you.level_type_name),
                                       false);
        }

        result << "| " << std::setw(7) << std::left
               << short_place_name(packed_place) << " | ";

        if (type == NOTE_DUNGEON_LEVEL_CHANGE && !name.empty())
            result << "| " << std::setw(7) << std::left
                   << name << " | ";
        else
            result << "| " << std::setw(7) << std::left
                   << short_place_name(packed_place) << " | ";

            result << "Entered " << place_name(packed_place, true, true);

            if ( !desc.empty() )
                result << desc;
            else
                result << "Entered " << place_name(packed_place, true, true);

    const std::string oldname = you.level_type_name;

    // Lua scripts explicitly set level_type_na,e so use that.
    if (you.level_type_name != oldname)
        newname = you.level_type_name;

    take_note(Note(NOTE_DUNGEON_LEVEL_CHANGE));

    if (you.level_type == LEVEL_PORTAL_VAULT)
    {
       std::string name = "Portal";
       if (you.level_type_name.length() <= 7
           && you.level_type_name.find(":") == std::string::npos)
       {
           name = uppercase_first(you.level_type_name);
       }
       else if (you.level_type_tag.length() <= 7)
       {
           name = uppercase_first(you.level_type_tag);
           name = replace_all(name, "_", " ");
       }
       // If there's more than one word in level_type_origin then skip
       // the first, since it's most likely a preposition.
       std::string desc  = "Entered ";
       size_t      space = you.level_type_origin.find(" ");
       if (space == std::string::npos)
           desc += you.level_type_origin;
       else
           desc += you.level_type_origin.substr(space + 1);
       desc += ".";
       take_note(Note(NOTE_DUNGEON_LEVEL_CHANGE, 0, 0, name.c_str(),
                      desc.c_str()));
    }
    else
        take_note(Note(NOTE_DUNGEON_LEVEL_CHANGE));

}
LUAFN(dgn_set_level_type_name)
{
    if (you.level_type != LEVEL_PORTAL_VAULT)
    {
        luaL_error(ls, "Can only set level type name on portal vaults");
        return(0);
    }
    if (!lua_isstring(ls, 1))
    {
        luaL_argerror(ls, 1, "Expected string for level type name");
        return(0);
    }
    you.level_type_name = luaL_checkstring(ls, 1);
    return(0);

    { "set_level_type_name", dgn_set_level_type_name },

  dgn.set_level_type_name  ("Ziggurat:" .. zig().depth)

      dstname = "Ziggurat:1",