Photos & AppleScript; Show Location in Maps

The Photos Extras Suite contain useful commands not found in the the other suites.

show location in Maps v : (Available in Photos Utilities script library 1.1) Show location pins in the Maps application for each of the specified media items. By default, the title of the media will be used as the pin description. If the media item has no title, the filename will be used instead.

show location in Maps

for object reference(s) : References to the media item(s) whose locations are to be displayed

[ map type integer ] : A number indicating the type of map to display. 0 = standard, 1 = satelite, 2 = hybrid (satelite and traffic)

→ list of media items : A list of the media items provided as input

Script Examples

The following scripts demonstrate the use of the commands in the Photos Export Suite.

Show Location in Maps

use script "Photos Utilities"

tell application "Photos"

set theseMediaItems to get the selection

show location in Maps for theseMediaItems map type 1

end tell

And here is a script you can use to add a screen capture image of the Maps window to a new slide in Keynote:

Add Image of Maps Window to Keynote

tell application "Maps"

activate

if the (count of windows) is 0 then error number -128

set thisID to id of window 1

end tell

tell current application

set pathToPicturesFolder to the POSIX path of (path to the pictures folder)

set windowCaptureFilePath to pathToPicturesFolder & "map-window.png"

-- set the capture to begin after 3 seconds and to capture just the window (no shadow)

set commandString to "screencapture" & space & "-T" & space & 3 & space & "-ao" & space & "-l" & space & thisID & space & (quoted form of windowCaptureFilePath)

do shell script commandString

end tell

tell application "Keynote"

activate

if not (exists document 1) then

set thisDocument to make new document

else if the (count of documents) is not 1 then

set documentNames to the name of every document

set chosenDocument to (choose from list documentNames with prompt "Pick the document to add the image to:")

if chosenDocument is false then error number -128

set chosenDocument to chosenDocument as string

set thisDocument to the first document whose name is chosenDocument

else

set thisDocument to document 1

end if

tell thisDocument

set newSlide to make new slide with properties {base slide:master slide "Blank"}

tell newSlide

make new image with properties {file:(windowCaptureFilePath as POSIX file)}

end tell

The show location in Maps command used in a Dictation Workflow: