Modul:Coordinates/kml: Unterschied zwischen den Versionen

local coordinates = { suite  = "Coordinates/kml",

                      serial = "2021-02-23 ",

                      item  = 50976437 }

--[=[

Overcome a limitation in kmlexport in 2018.

There are three functions below which might be copied into an existing

      [[Module:Coordinates]] ([[d:Q7348344]])

or this module might be used stand-alone.

In templates it can be used then by

        {{#invoke:Coordinates|kmlTitle|Some title for geohack}}

or respectively (as is)

        {{#invoke:Coordinates/kml|kmlTitle|Some title for geohack}}

]=]

coordinates.utf8max2bytes = function ( adjust )

    -- Save characters > 0x7FF by simplification

    -- Precondition:

    --    adjust  -- string to be adjusted

    -- Postcondition:

    --    returns  string

    local r = adjust

    local lucky, translate = pcall( mw.loadData,

                                    "Module:Sort/utf8max2bytes" )

    if type( translate ) == "table" then

        local Sort

        lucky, Sort = pcall( require, "Module:Sort" )

        if type( Sort ) == "table" and

          type( Sort.Sort ) == "function" then

          Sort = Sort.Sort()

            if type( Sort ) == "table" and

              type( Sort.lex ) == "function" then

                local s = Sort.lex( r, translate )

                if type( s ) == "string" then

                    r = s

                end

            end

        end

    end

    return r

end -- coordinates.utf8max2bytes()

coordinates._kmlTitle = function ( adjust )

    -- Hack kmlexport title as of 2018 UTF-8 limitation

    -- Precondition:

    --    adjust  -- string to be adjusted

    -- Postcondition:

    --    returns  string

    local pattern = mw.ustring.char( 91, 0x0800, 45, 0x7FFFF, 93 )

    local r = mw.text.decode( adjust, true )

    r = mw.text.trim( r )

    if mw.ustring.find( r, pattern ) then

        r = coordinates.utf8max2bytes( r )

        r = mw.ustring.gsub( r, pattern, "" )

    end

    if mw.text.trim( r ) == "" then

        -- fall back to original string if all characters removed

        r = adjust

    end

    return r

end -- coordinates._kmlTitle()

coordinates.kmlTitle = function ( frame )

    -- #invoke to adjust kmlexport title

    local r = frame.args[ 1 ]

    if r and r ~= "" then

        r = coordinates._kmlTitle( r )

    end

    return r or ""

end -- coordinates.kmlTitle

return coordinates