Add developer settings and a synchronization limit

lr-inaturalist-publish.lrdevplugin/DevSettings.lua

@@ -0,0 +1,19 @@
+local LrFileUtils = import("LrFileUtils")
+local LrPathUtils = import("LrPathUtils")
+
+local JSON = require("JSON")
+
+local home = LrPathUtils.getStandardFilePath("home")
+local f = LrPathUtils.child(home, ".lr-inaturalist-publish.json")
+
+if not LrFileUtils.isReadable(f) then
+	return {}
+end
+
+local v = JSON:decode(LrFileUtils.readFile(f))
+
+if type(v) ~= "table" then
+	return {}
+end
+
+return v

lr-inaturalist-publish.lrdevplugin/INaturalistAPI.lua

@@ -235,7 +235,7 @@ end
 -- into one table.
 -- Overrides per_page, order_by, order, id_above, id_below in the search;
 -- results are always ordered descending by id.
-function INaturalistAPI:listObservationsWithPagination(search, progress)
+function INaturalistAPI:listObservationsWithPagination(search, progress, limit)
 	local results, resultsRemain = {}, true
 
 	search = shallowCopy(search)
@@ -245,7 +245,7 @@ function INaturalistAPI:listObservationsWithPagination(search, progress)
 	search.id_above = nil
 	search.id_below = nil
 
-	while resultsRemain do
+	while resultsRemain and (not limit or #results < limit) do
 		if progress:isCanceled() then
 			error({ code = "canceled", message = "Canceled by user" })
 		end

lr-inaturalist-publish.lrdevplugin/SyncObservations.lua

@@ -6,6 +6,7 @@ local LrFunctionContext = import("LrFunctionContext")
 local LrPasswords = import("LrPasswords")
 local LrProgressScope = import("LrProgressScope")
 
+local DevSettings = require("DevSettings")
 local INaturalistAPI = require("INaturalistAPI")
 local INaturalistMetadata = require("INaturalistMetadata")
 
@@ -505,7 +506,8 @@ local function sync(functionContext, settings, progress, api, lastSync)
 		-- caption seems to do what I actually want.
 		progress:setCaption(caption)
 	end
-	local observations = api:listObservationsWithPagination(query, dlProgress)
+
+	local observations = api:listObservationsWithPagination(query, dlProgress, DevSettings.syncLimit)
 
 	-- Now apply downloaded data to the catalog
 	local syncProgress = LrProgressScope({