Thank you I will have to read up on this so I can understand it a little better.

Hopefully I will get some time this evening to work on it.

For my clarification, JSON helper or Location helper only make it easier to get the whole JSON file into AppleScript? They do not help with parse individual values from inside the JSON file? I thought my syntax was wrong since I could extract "formatted_address" but whenever I tried to change it to something else it failed.

Applescript:

set api_key to "XXXXXXXXXXXXXXXXXXX"

tell application "Location Helper"
   
   set jsonData to reverse geocode location using coordinates {latDecimal, lonDecimal} with API key api_key as string
   
   set jsonCountry to formatted_address of item 1 of results of jsonData
   
end tell

return {hazelOutputAttributes:{jsonCountry}}

You have to convert the AppleScript dictionary to an AppleScriptObjC (Foundation) dictionary to be able to use `valueForKeyPath`

Applescript:

set foundationDictionary to current application's NSDictionary's dictionaryWithDictionary:applescriptDictionary

With the use of AppleScriptObjC do I still need to parse the file with JSON helper or will the following code be enough?

I read somewhere about passing dataWithContentsOfFile vs the dataWithContentsOfURL. Since I am passing the google api url directly should I be using OfFile or OfURL?

Using OfFile I get the error

Using OfURL I get the error

Alternatively returning jsonData returns missing value.

Applescript:

set api_key to "XXXXXXXXXXXXXXX"

set locatep to "38.4588056" & "," & "-109.8200444" as string

set thepath to "https://maps.googleapis.com/maps/api/geocode/json?latlng=" & locatep & "&key=" & api_key

use AppleScript version "2.5"
use framework "Foundation"
use scripting additions

property || : a reference to current application

set jsonData to ||'s NSData's dataWithContentsOfFile:thepath
set {jsonDictionary, jsonError} to ||'s NSJSONSerialization's JSONObjectWithData:jsonData options:0 |error|:(reference)
if jsonError is not missing value then error (jsonError's localizedDescription()) as text
set results to jsonDictionary's objectForKey:"results"
set allLats to (results's valueForKeyPath:"geometry.viewport.northeast.lat") as list
return allLats

Last edited by jfish (2021-02-22 10:42:08 pm)

Thank you, I have this working now but was hoping I could ask one more question.

In your example you are drilling down level by level to extract all of the latitudes inside northeast inside viewport inside geometry for each item which I understand.

Applescript:

set allLats to (results's valueForKeyPath:"geometry.viewport.northeast.lat") as list

However, how would you extract the long_name of specific "types" if the record resides at the same level? For example if I wanted to extract the long_name of administrative_area_level_1 or I wanted to search for Park or Establishment.

I really appreciate your help. I have been trying to figure something efficient out off and on for a long time.

Stefan, thank you this is great.

I have been testing it and playing with the types returned and works like a charm inside AppleScript Editor. Thank you very much.

Are you familiar with Hazel? I cannot get the script to compile inside the Hazel handler

Applescript:

on hazelMatchFile(theFile, inputAttributes)
--Code
return {hazelPassesScript:true, hazelOutputAttributes:{}}

The script gets stuck on the following lines. If I comment out the handler all is well.

Applescript:

use AppleScript version "2.5"
use framework "Foundation"
use scripting additions

property || : a reference to current application

Here is my final script.

Applescript:

on hazelMatchFile(theFile, inputAttributes)
   
   set ExifTool to "/usr/local/bin/exiftool"
   set ExifGPSLat to "-GPSLatitude"
   set ExifGPSLon to "-GPSLongitude"
   set ExifToolOption to "-keywords="
   
   set pathList to ""
   
   set TagTool to "/usr/local/bin/tag"
   set TagToolOption to "-s" -- The set operation reTrails all tags on the specified files with one or more new tags.
   set TagToolNOGPS to "NO GPS Information"
   
   try
       -- Manual
       --set pathList to quoted form of POSIX path of (choose file with prompt "Please choose a file:" default location (path to desktop))
       -- Hazel
       set pathList to quoted form of POSIX path of (theFile as alias)
   end try
   
   -- Get Camera Model
   --set cameraModel to do shell script ExifTool & " -p '${model}' " & pathList
   
   --Get GPS Latitude and Longitude from EXIF data
   do shell script ExifTool & space & ExifGPSLat & space & "-overwrite_original_in_place -P" & space & pathList
   set gpsLat to result
   
   do shell script ExifTool & space & ExifGPSLon & space & "-overwrite_original_in_place -P" & space & pathList
   set gpsLon to result
   
   --do shell script TagTool & space & TagToolOption & quoted form of TagToolNOGPS & space & pathList
   
   -- CONVERT GPS COORDINDATES TO DECIMAL
   if (gpsLat = "") or (gpsLon = "") then
       -- error number -128
       set trail to ""
       set poi to ""
       set country to ""
       set state to "no gps"
       set cityTown to ""
       set jsonCountry to ""
       return {hazelPassesScript:false, hazelOutputAttributes:{trail, poi, state, country, cameraModel}}
       
   else
       -- Set GPS variables separately
       set latDegree to word 3 of gpsLat
       set latMinute to word 5 of gpsLat
       set latSecond to word 6 of gpsLat
       set latDirection to word 7 of gpsLat
       set lonDegree to word 3 of gpsLon
       set lonMinute to word 5 of gpsLon
       set lonSecond to word 6 of gpsLon
       set lonDirection to word 7 of gpsLon
       
       -- Convert Deg,Sec,Min to Decimals
       set latDecimal to latDegree + latMinute / 60 + latSecond / 3600
       set lonDecimal to lonDegree + lonMinute / 60 + lonSecond / 3600
       -- Change Decimals based on Direction
       if (latDirection is equal to "S") then
           set latDecimal to latDecimal * -1 as number --text
       end if
       
       if (lonDirection is equal to "W") then
           set lonDecimal to lonDecimal * -1 as number --text
       end if
       
       set locateP to latDecimal & "," & lonDecimal as string
       
       -- SET GOOGLE API KEY
       set api_key to "AIzaSyCewHXy9mUtqRzUAIY036xxDoAh-26JJys"
       
       set thePath to "https://maps.googleapis.com/maps/api/geocode/json?latlng=" & locateP & "&key=" & api_key
       
       tell application "Location Helper"
           set asDict to reverse geocode location using coordinates {latDecimal, lonDecimal} with API key api_key
       end tell
       
       --tell application "Safari" to open location thePath
   end if

use AppleScript version "2.5"
use framework "Foundation"
use scripting additions

property || : a reference to current application

set cocoaDict to ||'s NSDictionary's dictionaryWithDictionary:asDict
set results to cocoaDict's objectForKey:"results"

set poi to {}
set poiTemp to {}

set route to {}
set routeTemp to {}

set cityTown to {}
set cityTownTemp to {}

set stateProvince to {}
set stateProvinceTemp to {}

set country to {}
set countryTemp to {}

repeat with anItem in results
   set addressComponents to (anItem's objectForKey:"address_components")
   repeat with aComponent in addressComponents
       set componentTypes to (aComponent's objectForKey:"types")
       if (componentTypes's containsObject:"point_of_interest") then
           set end of poiTemp to (aComponent's objectForKey:"long_name") as text
           set poi to item 1 of poiTemp
       else
           set componentTypes to (aComponent's objectForKey:"types")
           if (componentTypes's containsObject:"establishment") then
               set end of poiTemp to (aComponent's objectForKey:"long_name") as text
               set poi to item 1 of poiTemp
           else
               set componentTypes to (aComponent's objectForKey:"types")
               if (componentTypes's containsObject:"park") then
                   set end of poiTemp to (aComponent's objectForKey:"long_name") as text
                   set poi to item 1 of poiTemp
               else
                   set componentTypes to (aComponent's objectForKey:"types")
                   if (componentTypes's containsObject:"natural_feature") then
                       set end of poiTemp to (aComponent's objectForKey:"long_name") as text
                       set poi to item 1 of poiTemp
                   else
                       set componentTypes to (aComponent's objectForKey:"types")
                       if (componentTypes's containsObject:"colloquial_area") then
                           set end of poiTemp to (aComponent's objectForKey:"long_name") as text
                           set poi to item 1 of poiTemp
                       end if
                   end if
               end if
           end if
       end if
       if (componentTypes's containsObject:"route") then
           set end of routeTemp to (aComponent's objectForKey:"long_name") as text
           set route to item 1 of routeTemp
       else
           if (componentTypes's containsObject:"premise") then
               set end of routeTemp to (aComponent's objectForKey:"long_name") as text
               set route to item 1 of routeTemp
           end if
       end if
       if (componentTypes's containsObject:"locality") then
           set end of cityTownTemp to (aComponent's objectForKey:"long_name") as text
           set cityTown to item 1 of cityTownTemp
       end if
       if (componentTypes's containsObject:"administrative_area_level_1") then
           set end of stateProvinceTemp to (aComponent's objectForKey:"long_name") as text
           set stateProvince to item 1 of stateProvinceTemp
       end if
       if (componentTypes's containsObject:"country") then
           set end of countryTemp to (aComponent's objectForKey:"long_name") as text
           set country to item 1 of countryTemp
       end if
   end repeat
end repeat

return {hazelPassesScript:true, hazelOutputAttributes:{route, poi, cityTown, stateProvince, country}}