Add option to set private/obscured locations

Author: rcloran

lr-inaturalist-publish.lrdevplugin/ExportServiceProvider.lua

@@ -23,6 +23,7 @@ local exportServiceProvider = {
 		{ key = "syncSearchIn", default = -1 },
 		{ key = "syncTitle", default = false },
 		{ key = "uploadKeywordsSpeciesGuess", default = true },
+		{ key = "uploadPrivateLocation", default = "obscured" },
 	},
 	hideSections = {
 		"exportLocation",
@@ -165,6 +166,23 @@ function exportServiceProvider.sectionsForTopOfDialog(f, propertyTable)
 				alignment = "left",
 			}),
 		}),
+		f:row({
+			spacing = f:control_spacing(),
+			f:static_text({
+				title = "Set observation location for photos in LR private locations",
+				alignment = "right",
+				width = LrView.share("inaturalistSyncLabel"),
+			}),
+			f:popup_menu({
+				value = bind("uploadPrivateLocation"),
+				items = {
+					{ title = "Public", value = "public" },
+					{ title = "Obscured", value = "obscured" },
+					{ title = "Private", value = "private" },
+					{ title = "Don't set", value = "unset" },
+				},
+			}),
+		}),
 	}
 	local synchronization = {
 		title = "iNaturalist Synchronization",

lr-inaturalist-publish.lrdevplugin/Upload.lua

@@ -32,6 +32,18 @@ local function updateObservation(observation, photo, exportSettings)
 		end
 	end
 
+	if not observation.latitude then
+		local gps = photo:getRawMetadata("gps")
+		if gps and photo:getRawMetadata("locationIsPrivate") then
+			local uploadPrivateLocation = exportSettings.uploadPrivateLocation
+			if uploadPrivateLocation and uploadPrivateLocation ~= "unset" then
+				observation.latitude = gps.latitude
+				observation.longitude = gps.longitude
+				observation.geoprivacy = uploadPrivateLocation
+			end
+		end
+	end
+
 	return observation
 end