Mikubot/plugins/location.lua

-- Implement a command !loc [area] which uses
-- the static map API to get a location image

-- Not sure if this is the proper way
-- Intent: get_latlong is in time.lua, we need it here
-- loadfile "time.lua"

-- Globals
-- If you have a google api key for the geocoding/timezone api

api_key = nil

base_api = "https://maps.googleapis.com/maps/api"

function delay_s(delay)
   delay = delay or 1
   local time_to = os.time() + delay
   while os.time() < time_to do end
end

function get_staticmap(area)
   local api        = base_api .. "/staticmap?"

   -- Get a sense of scale
   lat,lng,acc,types = get_latlong(area)
   
   local scale=types[1]
   if     scale=="locality" then zoom=8
   elseif scale=="country"  then zoom=4
   else zoom=13 end
      
   local parameters =
      "size=600x300" ..
      "&zoom="  .. zoom ..
      "&center=" .. URL.escape(area) ..
      "&markers=color:red"..URL.escape("|"..area)
   
   if api_key ~=nil and api_key ~= "" then
      parameters = parameters .. "&key="..api_key
   end
   return lat, lng, api..parameters
end


function run(msg, matches)
   local receiver	= get_receiver(msg)
   local lat,lng,url	= get_staticmap(matches[1])
   
   local file_path      = download_to_file(url)

   -- Send the actual location, is a google maps link
   send_location(receiver, lat, lng, ok_cb, false)
  
   -- Send a picture of the map, which takes scale into account
   send_photo(receiver, file_path, ok_cb, false)
   delay_s(2)
   
    -- Clean up after some time
   postpone(rmtmp_cb, file_path, 20.0)

   -- Return a link to the google maps stuff is now not needed anymore
   return nil
end

return {
    description = "Gets information about a location, maplink and overview", 
    usage = "!loc (location)",
    patterns = {"^!loc (.*)$"}, 
    run = run 
}