local old_log_level = log.log_level()

log.log_level(level)

return old_log_level

local old_log_level = set_log_level(sm.log_level)

log.msg(log.debug, "name is " .. name .. " and type is " .. pref_type)

local val = dt.preferences.read(MODULE, name, pref_type)

log.msg(log.debug, "read value " .. tostring(val))

restore_log_level(old_log_level)

return val

local old_log_level = set_log_level(sm.log_level)

log.msg(log.debug, "writing value " .. tostring(value) .. " for name " .. name)

dt.preferences.write(MODULE, name, pref_type, value)

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

local p = io.popen("cd " .. repo .. CS .. "git status")

if p then

local data = p:read("*a")

p:close()

return data

end

log.msg(log.error, "unable to get status of " .. repo)

restore_log_level(old_log_level)

return nil

local old_log_level = set_log_level(sm.log_level)

local branch = nil

local p = io.popen("cd " .. repo .. CS .. "git branch --all")

if p then

local data = p:read("*a")

p:close()

local branches = du.split(data, "\n")

for _, b in ipairs(branches) do

log.msg(log.debug, "branch for testing is " .. b)

branch = string.match(b, "^%* (.-)$")

if branch then

log.msg(log.info, "current repo branch is " .. branch)

return branch

end

end

end

if not branch then

log.msg(log.error, "no current branch detected in repo_data")

end

restore_log_level(old_log_level)

return nil

local old_log_level = set_log_level(sm.log_level)

local branches = {}

local p = io.popen("cd " .. repo .. CS .. "git pull --all" .. CS .. "git branch --all")

if p then

local data = p:read("*a")

p:close()

log.msg(log.debug, "data is \n" .. data)

local branch_data = du.split(data, "\n")

for _, line in ipairs(branch_data) do

log.msg(log.debug, "line is " .. line)

local branch = string.gsub(line, "%s+remotes/%a+/", "")

if string.match(branch, "API") then

log.msg(log.info, "found branch - " .. branch)

table.insert(branches, branch)

end

end

end

restore_log_level(old_log_level)

return branches

local old_log_level = set_log_level(sm.log_level)

if string.match(repo_data, "\n%s-%a.-%a:%s-%a%g-\n") then

log.msg(log.info, "repo is dirty")

return false

else

log.msg(log.info, "repo is clean")

return true

end

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

log.msg(log.info, "checkout out branch " .. branch .. " from repository " .. repo)

os.execute("cd " .. repo .. CS .. "git checkout " .. branch)

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

local items = #combobox

local choices = #choice_table

for i, name in ipairs(choice_table) do

combobox[i] = name

end

if choices < items then

for j = items, choices + 1, -1 do

combobox[j] = nil

end

end

if not selected then

selected = 1

end

combobox.value = selected

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

local result = string.gsub(str, "^%s+", "") -- trim leading spaces

result = string.gsub(result, "%s+$", "") -- trim trailing spaces

result = string.gsub(result, ",?%s+%-%-.+$", "") -- trim trailing comma and comments

restore_log_level(old_log_level)

return result

local match = false

for _, folder_name in ipairs(folder_table) do

if name == folder_name then

match = true

end

end

return match

local translated_name = nil

if folder == "contrib" then

translated_name = _("contributed")

elseif folder == "examples" then

translated_name = _("examples")

elseif folder == "official" then

translated_name = _("official")

elseif folder == "tools" then

translated_name = _("tools")

else

translated_name = _(folder) -- in case we get lucky and the string got translated elsewhere

end

return translated_name

local old_log_level = set_log_level(sm.log_level)

if #sm.folders == 0 or not is_folder_known(sm.folders, folder) then

table.insert(sm.folders, folder)

table.insert(sm.translated_folders, find_translated_name(folder))

sm.scripts[folder] = {}

log.msg(log.debug, "created folder " .. folder)

end

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

-- set_log_level(log.debug)

log.msg(log.debug, "processing metatdata for " .. script)

local metadata_block = nil

local metadata = {}

f = io.open(LUA_DIR .. PS .. script .. ".lua")

if f then

-- slurp the file

local content = f:read("*all")

f:close()

-- grab the script_data.metadata table

metadata_block = string.match(content, "script_data%.metadata = %{\r?\n(.-)\r?\n%}")

else

log.msg(log.error, "cant read from " .. script)

end

if metadata_block then

-- break up the lines into key value pairs

local lines = du.split(metadata_block, "\n")

log.msg(log.debug, "got " .. #lines .. " lines")

for i = 1, #lines do

log.msg(log.debug, "splitting line " .. lines[i])

local parts = du.split(lines[i], " = ")

parts[1] = string_trim(parts[1])

parts[2] = string_trim(parts[2])

log.msg(log.debug, "got value " .. parts[1] .. " and data " .. parts[2])

if string.match(parts[2], "%_%(") then

parts[2] = _(string_dequote(string_dei18n(parts[2])))

else

parts[2] = string_dequote(parts[2])

end

if string.match(parts[2], ",$") then

parts[2] = string_chop(parts[2])

end

log.msg(log.debug, "parts 1 is " .. parts[1] .. " and parts 2 is " .. parts[2])

metadata[parts[1]] = parts[2]

log.msg(log.debug, "metadata " .. parts[1] .. " is " .. metadata[parts[1]])

end

log.msg(log.debug, "script data found for " .. metadata["name"])

end

restore_log_level(old_log_level)

return metadata_block and metadata or nil

local old_log_level = set_log_level(sm.log_level)

local description = nil

f = io.open(LUA_DIR .. PS .. script .. ".lua")

if f then

-- slurp the file

local content = f:read("*all")

f:close()

-- assume that the second block comment is the documentation

description = string.match(content, "%-%-%[%[.-%]%].-%-%-%[%[(.-)%]%]")

else

log.msg(log.error, "can't read from " .. script)

end

if description then

restore_log_level(old_log_level)

return description

else

restore_log_level(old_log_level)

return _("no documentation available")

end

local old_log_level = set_log_level(sm.log_level)

local status = nil -- status of start function

local err = nil -- error message returned if module doesn't start

log.msg(log.info, "activating " .. script.name)

if script.running == false then

script_manager_running_script = script.name

status, err = du.prequire(script.path)

log.msg(log.debug, "prequire returned " .. tostring(status) .. " and for err " .. tostring(err))

script_manager_running_script = nil

if status then

pref_write(script.script_name, "bool", true)

log.msg(log.screen, _(string.format("loaded %s", script.script_name)))

script.running = true

if err ~= true then

log.msg(log.debug, "got lib data")

script.data = err

if script.data.destroy_method and script.data.destroy_method == "hide" and script.data.show and dt.gui.current_view().id == "lighttable" then

script.data.show()

end

else

script.data = nil

end

else

log.msg(log.screen, _(string.format("%s failed to load", script.script_name)))

log.msg(log.error, "error loading " .. script.script_name)

log.msg(log.error, "error message: " .. err)

end

else -- script is a lib and loaded but hidden and the user wants to reload

script.data.restart()

script.running = true

status = true

pref_write(script.script_name, "bool", true)

end

script_manager_running_script = "script_manager"

restore_log_level(old_log_level)

return status

-- presently the lua api doesn't support unloading lib elements however, we

-- can hide libs, so we just mark those as hidden and hide the gui

-- can delete storages

-- can delete actions

-- can delete selects

-- and mark them inactive for the next time darktable starts

-- deactivate it....

local old_log_level = set_log_level(sm.log_level)

pref_write(script.script_name, "bool", false)

if script.data then

script.data.destroy()

if script.data.destroy_method then

if string.match(script.data.destroy_method, "hide") then

script.running = "hidden"

else

package.loaded[script.script_name] = nil

script.running = false

end

else

package.loaded[script.script_name] = nil

script.running = false

end

log.msg(log.info, "turned off " .. script.script_name)

log.msg(log.screen, _(string.format("%s stopped", script.name)))

else

script.running = false

log.msg(log.info, "setting " .. script.script_name .. " to not start")

log.msg(log.screen, _(string.format("%s will not start when darktable is restarted", script.name)))

end

restore_log_level(old_log_level)

for _, script in ipairs(sm.start_queue) do

activate(script)

for i = 1, sm.page_status.num_buttons do

local name = script.metadata and script.metadata.name or script.name

if sm.widgets.labels[i].label == name then

sm.widgets.buttons[i].name = "pb_on"

break

end

end

end

sm.start_queue = {}

local old_log_level = set_log_level(sm.log_level)

log.msg(log.debug, "folder is " .. folder)

log.msg(log.debug, "name is " .. name)

local script = {

name = name,

path = folder .. "/" .. path .. name,

running = false,

doc = get_script_doc(folder .. "/" .. path .. name),

metadata = get_script_metadata(folder .. "/" .. path .. name),

script_name = folder .. "/" .. name,

data = nil

}

table.insert(sm.scripts[folder], script)

if pref_read(script.script_name, "bool") then

queue_script_to_start(script)

else

pref_write(script.script_name, "bool", false)

end

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

-- the script file supplied is folder/filename.filetype

-- the following pattern splits the string into folder, path, name, fileename, and filetype

-- for example contrib/gimp.lua becomes

-- folder - contrib

-- path -

-- name - gimp.lua

-- filename - gimp

-- filetype - lua

-- Thanks Tobias Jakobs for the awesome regulary expression

local pattern = "(.-)/(.-)(([^\\/]-)%.?([^%.\\/]*))$"

if dt.configuration.running_os == "windows" then

-- change the path separator from / to \ for windows

pattern = "(.-)\\(.-)(([^\\]-)%.?([^%.\\]*))$"

end

log.msg(log.info, "processing " .. script_file)

-- add the script data

local folder,path,name,filename,filetype = string.match(script_file, pattern)

if folder and name and path then

log.msg(log.debug, "folder is " .. folder)

log.msg(log.debug, "name is " .. name)

add_script_folder(folder)

add_script_name(name, path, folder)

end

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

log.msg(log.debug, "line is " .. line)

if string.match(line, ds.sanitize_lua(dt.configuration.config_dir .. PS .. "lua/lib")) then

log.msg(log.debug, line .. " is already in search path, returning...")

return

end

local pattern = dt.configuration.running_os == "windows" and "(.+)\\lib\\.+lua" or "(.+)/lib/.+lua"

local path = string.match(line, pattern)

log.msg(log.debug, "extracted path is " .. path)

log.msg(log.debug, "package.path is " .. package.path)

if not string.match(package.path, ds.sanitize_lua(path)) then

log.msg(log.debug, "path isn't in package.path, adding...")

package.path = package.path .. ";" .. path .. "/?.lua"

log.msg(log.debug, "new package.path is " .. package.path)

end

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

local script_count = 0

local find_cmd = "find -L " .. script_dir .. " -name \\*.lua -print | sort"

if dt.configuration.running_os == "windows" then

find_cmd = "dir /b/s \"" .. script_dir .. "\\*.lua\" 2>nul | sort"

end

log.msg(log.debug, "find command is " .. find_cmd)

-- scan the scripts

local output = io.popen(find_cmd)

for line in output:lines() do

log.msg(log.debug, "line is " .. line)

local script_dir = SYSTEM_LUA_DIR

if string.match(line, ds.sanitize_lua(USER_LUA_DIR)) then

script_dir = USER_LUA_DIR

end

-- add a string.match to figure out which lua dir to use

local l = string.gsub(line, ds.sanitize_lua(script_dir) .. PS, "") -- strip the lua dir off

local script_file = l:sub(1,-5) -- strip off .lua\n

if not string.match(script_file, "script_manager") then -- let's not include ourself

if not string.match(script_file, "plugins") then -- skip plugins

if not string.match(script_file, "lib" .. PS) then -- let's not try and run libraries

if not string.match(script_file, "%.git") then -- don't match files in the .git directory

process_script_data(script_file)

script_count = script_count + 1

end

else

ensure_lib_in_search_path(line) -- but let's make sure libraries can be found

end

end

end

end

restore_log_level(old_log_level)

return script_count

local old_log_level = set_log_level(sm.log_level)

local result = false

local git = sm.executables.git

if not git then

log.msg(log.screen, _("ERROR: git not found. Install or specify the location of the git executable."))

return

end

local git_command = "cd " .. dir .. " " .. CS .. " " .. git .. " pull"

log.msg(log.debug, "update git command is " .. git_command)

if dt.configuration.running_os == "windows" then

result = dtsys.windows_command(git_command)

else

result = os.execute(git_command)

end

if result == 0 then

log.msg(log.screen, _("lua scripts successfully updated"))

end

restore_log_level(old_log_level)

return result

local old_log_level = set_log_level(sm.log_level)

local installs = {}

local pref_string = ""

for i, repo in ipairs(sm.installed_repositories) do

table.insert(installs, repo.name)

if not string.match(pref_string, ds.sanitize_lua(repo.name)) then

pref_string = pref_string .. i .. "," .. repo.name .. "," .. repo.directory .. ","

end

end

update_combobox_choices(sm.widgets.update_script_choices, installs, 1)

log.msg(log.debug, "repo pref string is " .. pref_string)

pref_write("installed_repos", "string", pref_string)

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

local script_count = 0

local find_cmd = "find -L " .. LUA_DIR .. " -name \\*.git -print | sort"

if dt.configuration.running_os == "windows" then

find_cmd = "dir /b/s /a:d " .. LUA_DIR .. PS .. "*.git 2>nul | sort"

end

log.msg(log.debug, "find command is " .. find_cmd)

local output = io.popen(find_cmd)

for line in output:lines() do

local l = string.gsub(line, ds.sanitize_lua(LUA_DIR) .. PS, "") -- strip the lua dir off

local folder = string.match(l, "(.-)" .. PS) -- get everything to the first /

if folder then -- if we have a folder (.git doesn't)

log.msg(log.debug, "found folder " .. folder)

if not string.match(folder, "plugins") and not string.match(folder, "%.git") then -- skip plugins

if #sm.installed_repositories == 1 then

log.msg(log.debug, "only 1 repo, adding " .. folder)

table.insert(sm.installed_repositories, {name = folder, directory = LUA_DIR .. PS .. folder})

else

log.msg(log.debug, "more than 1 repo, we have to search the repos to make sure it's not there")

local found = nil

for _, repo in ipairs(sm.installed_repositories) do

if string.match(repo.name, ds.sanitize_lua(folder)) then

log.msg(log.debug, "matched " .. repo.name)

found = true

break

end

end

if not found then

table.insert(sm.installed_repositories, {name = folder, directory = LUA_DIR .. PS .. folder})

end

end

end

end

end

update_script_update_choices()

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

local url = sm.widgets.script_url.text

local folder = sm.widgets.new_folder.text

if not df.test_file(USER_LUA_DIR, "d") then

df.mkdir(USER_LUA_DIR)

if not df.test_file(USER_LUA_DIR, "d") then

log.msg(log.error, "unable to create user lua directory")

log.msg(log.screen, _("unable to create user lua directory, installing additional scripts failed"))

return

end

end

if string.match(du.join(sm.folders, " "), ds.sanitize_lua(folder)) then

log.msg(log.screen, string.format(_("folder %s is already in use. Please specify a different folder name."), folder))

log.msg(log.error, "folder " .. folder .. " already exists, returning...")

restore_log_level(old_log_level)

return

end

local result = false

local git = sm.executables.git

if not git then

log.msg(log.screen, _("ERROR: git not found. Install or specify the location of the git executable."))

restore_log_level(old_log_level)

return

end

local git_command = "cd " .. USER_LUA_DIR .. " " .. CS .. " " .. git .. " clone " .. url .. " " .. folder

log.msg(log.debug, "update git command is " .. git_command)

if dt.configuration.running_os == "windows" then

result = dtsys.windows_command(git_command)

else

result = dtsys.external_command(git_command)

end

log.msg(log.info, "result from import is " .. result)

if result == 0 then

local count = scan_scripts(USER_LUA_DIR)

if count > 0 then

update_combobox_choices(sm.widgets.folder_selector, sm.folders, sm.widgets.folder_selector.selected)

dt.print(string.format(_("scripts successfully installed into folder %s"), folder))

table.insert(sm.installed_repositories, {name = folder, directory = USER_LUA_DIR .. PS .. folder})

update_script_update_choices()

for i = 1, #sm.widgets.folder_selector do

if string.match(sm.widgets.folder_selector[i], ds.sanitize_lua(folder)) then

log.msg(log.debug, "setting folder selector to " .. i)

sm.widgets.folder_selector.selected = i

break

end

i = i + 1

end

log.msg(log.debug, "clearing text fields")

sm.widgets.script_url.text = ""

sm.widgets.new_folder.text = ""

sm.widgets.main_menu.selected = 3

else

log.msg(log.screen, _("no scripts found to install"))

log.msg(log.error, "scan_scripts returned " .. count .. " scripts found. Not adding to folder_selector")

end

else

log.msg(log.screen, _("failed to download scripts"))

end

restore_log_level(old_log_level)

return result

local old_log_level = set_log_level(sm.log_level)

local button = sm.widgets.buttons[number]

local label = sm.widgets.labels[number]

button.image = BLANK_ICON

button.tooltip = ""

button.sensitive = false

label.label = ""

button.name = ""

restore_log_level(old_log_level)

local old_log_level = set_log_level(sm.log_level)

log.msg(log.debug, "looking for script " .. name .. " in folder " .. folder)

for _, script in ipairs(sm.scripts[folder]) do

if string.match(script.name, "^" .. ds.sanitize_lua(name) .. "$") then