Skip to content

Instantly share code, notes, and snippets.

@pmache

pmache/realauncher

Created July 6, 2024 12:53
Show Gist options
  • Save pmache/fc0d702d302c8d17f1cac70e95287729 to your computer and use it in GitHub Desktop.
Save pmache/fc0d702d302c8d17f1cac70e95287729 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
realauncher
-- @description ReaLauncher
-- @author solger
-- @version 2.5.4
-- @changelog
-- + General: Changed the default double click behavior setting for new installs from 'Show prompt' to 'Load'
-- + Project Lists: Bugfix to consider file extensions in both upper and lower case when accessing files (.rpl and .RPL)
-- + Tabs: Bugfix for using the mousewheel to scroll through the tabs
-- + UI: Improvements in the display of some label texts
-- @screenshot https://forum.cockos.com/showthread.php?t=208697
-- @about
-- # ReaLauncher
--
-- A custom version of the startup prompt window for loading (recent) projects, project/track templates and more. With a bunch of additional features.
--
-- Uses 'Lokasenna's GUI library v2 for Lua' as base: https://forum.cockos.com/showthread.php?t=177772. Big thanks to Lokasenna for his work!!
--
-- ## Main features
-- - Separate tabs for [Recent Projects], (.rpp) [Project Templates], (.rtracktemplate) [Track Templates], (.rpp) [Projects], (.rpl) [Project Lists], (.rpp-bak) [Backups] and (.pdf) [Docs]
-- - Option to set custom folder paths for [Project Templates] and [Track Templates] - which are scanned in addition to the default template folder locations
-- - Option to set custom folder paths for the [Projects], [Project Lists], [Backups] and [Docs] tabs
-- - List filter in each tab that supports the use of multiple search words separated by a 'space' character
-- - File paths can be shown/hidden and also displayed optionally in the status bar
-- - Sorting options
-- - [Favorites] tab to list and manage bookmarked favorites of each tab
-- - [Follow Actions] tab to set Actions that are triggered after certain operations (New Tab, Load Project, etc.)
-- - Global functions accessible via main button panel or context menu: [Open Project], [New Project], [New Tab], [Load in Tab], [Load] and [Insert]
-- - Selection and loading of multiple entries at once (multi-select via mouse is already part of Lokasenna's GUI library)
-- - 'Keep open' checkbox to toggle the automatic window closing behavior after Load/New/Insert operations
-- - Different tab selector styles (Tabstrip or Dropdown)
-- - Scalable and resizeable window
-- - Customizable colors
--
-- ## Features that require SWS Extensions (2.9.8 or higher):
-- - [Recent Projects] tab for listing and managing recent project entries (with functions to remove selected entries and to clear the entire list)
-- - 'Last Active' project functions to check for and load last active project tabs
-- - [Locate in Explorer/Finder] button to navigate to the location(s) of selected files in Explorer or Finder
-- - [Docs] tab for listing .pdf files
-- - Setup of predefined Reaper Theme Slots and the possibility to switch between them (uses SWS Resources)
--
-- ## Features that require js_ReaScriptAPI (0.991 or higher):
-- - Function to preview attached 'demo' audio files (supported file extensions: .wav, .flac, .mp3 and .ogg)
-- - Option for adding folder paths in the [Options] tab via a 'Browse' dialog (besides copy & pasting paths manually)
-- - Additional sorting options by date
--
-- ## Discussion thread
--
-- https://forum.cockos.com/showthread.php?t=208697
----------------------------------------------------------------------------------------------------
local ConfigFlags = {
----------------------------------------------------------------------------------------------------
showDebugMessages = false, -- enables/disables console debug messages (true | false)
listFilesInDebugMessages = false, -- list scanned files in debug messages (true | false)
----------------------------------------------------------------------------------------------------
enableAutoRefresh = true, -- enables/disables automatic tab refresh (true | false)
setfirstTabToLoad = 0, -- the id of the tab to focus at launch (0 = default)
resetFiltersAtLaunch = false, -- reset filter entries in all tabs at launch (true | false)
resetListDisplayAtLaunch = false, -- reset date and paths display at launch (true | false)
----------------------------------------------------------------------------------------------------
enableFileCaching = true, -- enables/disables file caching (true | false)
enableSubfolderCaching = true, -- enables/disables subfolder caching (true | false)
enableEmptySubfolderFilter = true, -- enables/disables subfolder filter (true | false)
----------------------------------------------------------------------------------------------------
enableAudioPreview = true, -- enables/disables audio preview (true | false)
enableCustomColorOptions = true, -- enables/disables custom color options (true | false)
enableHiDPIModeOptions = true, -- enables/disables HiDPI mode options (true | false)
enableKeyShortcuts = true, -- enables/disables key shortcuts (true | false)
enableSortModeOptions = true -- enables/disables sort mode options (true | false)
----------------------------------------------------------------------------------------------------
}
----------------------------------------------------------------------------------------------------
-- Loading Lokasenna's GUI library v2
-------------------------------------
local lib_path = reaper.GetExtState("Lokasenna_GUI", "lib_path_v2")
if not reaper.file_exists(lib_path .. "Core.lua") or not lib_path or lib_path == "" then
reaper.MB("Couldn't load Lokasenna_GUI library.\n\n1) Please install 'Lokasenna's GUI library v2 for Lua' via ReaPack\n\n2) Then run the 'Set Lokasenna_GUI v2 library path.lua' script in the Action List", "Whoops!", 0)
return
end
loadfile(lib_path .. "Core.lua")()
GUI.req("Classes/Class - Button.lua")()
GUI.req("Classes/Class - Frame.lua")()
GUI.req("Classes/Class - Knob.lua")()
GUI.req("Classes/Class - Label.lua")()
GUI.req("Classes/Class - Listbox.lua")()
GUI.req("Classes/Class - Menubox.lua")()
GUI.req("Classes/Class - Options.lua")()
GUI.req("Classes/Class - Tabs.lua")()
GUI.req("Classes/Class - Textbox.lua")()
GUI.req("Classes/Class - Window.lua")()
if missing_lib then return 0 end
--------------------------
-- String Helper functions
--------------------------
local function MsgDebug(str)
if ConfigFlags.showDebugMessages then reaper.ShowConsoleMsg("\t" .. tostring(str) .. "\n") end
end
local function MsgStatusBar(message)
if message ~= nil then
GUI.Val("main_statusbar", message)
GUI.elms.main_statusbar:fade(8, 1, 30)
end
end
------------------------------------------
-- Reaper resource paths and version infos
------------------------------------------
appname = "solger_ReaLauncher"
osversion = reaper.GetOS()
MsgDebug("OS:\t\t\t" .. osversion)
local reaperVersionString = reaper.GetAppVersion()
MsgDebug("Reaper:\t\t\t" .. reaperVersionString)
if reaperVersionString:match("x64") then
bitversion = string.sub(reaperVersionString, #reaperVersionString - 2, #reaperVersionString)
reaperversion = string.sub(reaperVersionString, 1, #reaperVersionString - (reaperVersionString:reverse()):find("%/"))
else
bitversion = "x86"
reaperversion = reaperVersionString
end
resourcePath = reaper.GetResourcePath()
if resourcePath == nil then reaper.MB(tostring("Could not retrieve the Reaper resource path!"), "Error", 0)
else MsgDebug("Resource path:\t\t" .. resourcePath) end
reaperIniPath = reaper.get_ini_file()
MsgDebug("Reaper ini:\t\t" .. reaperIniPath)
if osversion:find("Win") then
trackTemplatePath = resourcePath .. "\\TrackTemplates"
projectTemplatePath = resourcePath .. "\\ProjectTemplates"
pathSeparator = "\\"
else
trackTemplatePath = resourcePath .. "/TrackTemplates"
projectTemplatePath = resourcePath .. "/ProjectTemplates"
pathSeparator = "/"
end
MsgDebug("Lokasenna_GUI:\t\t" .. (GUI.version or "v2.x"))
---------------------
-- File I/O functions
---------------------
local FileTypes = {
backup = ".rpp-bak",
docs = ".pdf",
rpl = ".rpl",
rpp = ".rpp",
tracktemplate = ".rtracktemplate"
}
local function GetFolderName(filepath)
local index = (filepath:reverse()):find("%\\") or (filepath:reverse()):find("%/")
if index ~= nil then return string.sub(filepath, (#filepath - index) + 2, #filepath)
else return filepath end
end
local function IsNotNullOrEmpty(str)
return str ~= nil and str ~= ""
end
-------------------
-- Extensions check
--------------------
local function CheckForSWS()
if reaper.APIExists("BR_Win32_GetPrivateProfileString") then
if reaper.CF_GetSWSVersion == nil then MsgDebug("SWS:\t\t\tolder than v2.10")
else MsgDebug("SWS:\t\t\tv" .. reaper.CF_GetSWSVersion(swsversion)) end
return true
else
MsgDebug("SWS:\t\t\t not found")
return false
end
end
local function CheckForJSAPI()
local jsapifile
if osversion:find("Win") and bitversion == "x64" then jsapifile = "UserPlugins/reaper_js_ReaScriptAPI64.dll" -- Windows 64-bit
elseif osversion:find("Win") then jsapifile = "UserPlugins/reaper_js_ReaScriptAPI32.dll" -- Windows 32-bit
elseif osversion:find("arm") then jsapifile = "UserPlugins/reaper_js_ReaScriptAPI64ARM.dylib" -- macOS ARM
elseif osversion:find("OSX") then jsapifile = "UserPlugins/reaper_js_ReaScriptAPI64.dylib" -- macOS
else jsapifile = "UserPlugins/reaper_js_ReaScriptAPI64.so" -- Linux
end
if not reaper.ReaPack_GetOwner or not reaper.file_exists(resourcePath .. pathSeparator .. jsapifile) then
MsgDebug("JS_ReascriptAPI:\t\t not found")
else
local owner = reaper.ReaPack_GetOwner(jsapifile)
if owner then
MsgDebug("JS_ReascriptAPI:\t\tv" .. ({reaper.ReaPack_GetEntryInfo(owner)})[7])
reaper.ReaPack_FreeEntry(owner)
return true
end
end
return false
end
local SWSinstalled = CheckForSWS()
local JSAPIinstalled = CheckForJSAPI()
-------------------
-- Helper functions
-------------------
function RL_Benchmark_Start(function_name, ...)
MsgDebug("Benchmark start")
benchmarkStart = reaper.time_precise()
end
function RL_Benchmark_Stop()
MsgDebug("Benchmark end - Execution time:" .. reaper.time_precise() - benchmarkStart)
end
local function CheckForDuplicates(table, value)
for i = 1, #table do
if table[i] == value then return true end
end
return false
end
local function JoinTables(t1, t2)
for k, v in ipairs(t2) do t1[#t1 + 1] = v end
return t1
end
local function GetSelectionTable(selected)
if type(selected) == "number" then selected = {[selected] = true} end
local selectedVals = {}
for k, v in pairs(selected) do selectedVals[#selectedVals + 1] = k end
return selectedVals
end
local function GetSubTableByNameKey(table)
local subTable = {}
for i = 1, #table do subTable[i] = table[i].name end
return subTable
end
local function GetSubTableByPathKey(table)
local subTable = {}
for i = 1, #table do subTable[i] = table[i].path end
return subTable
end
----------------------------------------------------------------------------------------------
-- Enumerate all (sub-)directories and files of a given path
-- Adapted versions of code snippets found in the Reaper forum. Thanks to mpl and Lokasenna :)
----------------------------------------------------------------------------------------------
local function GetFileExtension(fileName, charLength)
return string.lower(string.sub(fileName, #fileName - charLength, #fileName))
end
local function GetFilenameWithoutPath(filepath)
if osversion:find("Win") then return filepath:match("([^\\]-([^.]+))$") -- Windows: get (fileName.extension) substring
else
local index = (filepath:reverse()):find("%/") -- macOS / Linux
if index ~= nil then return string.sub(filepath, (#filepath - index) + 2, #filepath)
else return filepath end
end
end
local function GetFiles(path, folderExclusionIndex, fileExtensionFilter, pathChildIndex)
local tree = {}
local pathChild
local subDirIndex, fileIndex = 0, 0
if pathChildIndex == nil then pathChildIndex = 0 end
if path ~= nil then
repeat -- get files in subfolders
if CheckFileScanMaxDirCount(folderExclusionIndex, subDirIndex) then
pathChild = reaper.EnumerateSubdirectories(path, subDirIndex)
if pathChild and not IsExcludedFolder(folderExclusionIndex, pathChild) then
pathChildIndex = pathChildIndex + 1
if CheckFileScanMaxDirDepth(folderExclusionIndex, pathChildIndex) then
local tmpPath = GetFiles(path .. pathSeparator .. pathChild, folderExclusionIndex, fileExtensionFilter, pathChildIndex)
for i = 1, #tmpPath do
if GetFileExtension(GetFilenameWithoutPath(tmpPath[i]), #fileExtensionFilter - 1) == fileExtensionFilter then tree[#tree + 1] = tmpPath[i] end
end
end
end
subDirIndex = subDirIndex + 1
pathChildIndex = 0
else
pathChild = nil
end
until not pathChild
repeat -- get files in parent folder
local fileFound = reaper.EnumerateFiles(path, fileIndex)
if fileFound and GetFileExtension(fileFound, #fileExtensionFilter - 1) == fileExtensionFilter then
tree[#tree + 1] = path .. pathSeparator .. fileFound
end
fileIndex = fileIndex + 1
until not fileFound
end
return tree
end
local function RemoveExtension(fileName, fileType)
if fileName == nil then return "" else return string.sub(fileName, 1, #fileName - #fileType) end
end
local function RemoveWhiteSpaces(s)
if s ~= nil then return s:match("^%s*(.-)%s*$") end
end
local function GetDirectoryPath(filepath)
if filepath == nil then return "" end
local index = (filepath:reverse()):find("%/") -- macOS / Linux
if osversion:find("Win") then index = (filepath:reverse()):find("%\\") end -- Windows
if index == nil then return ""
else return string.sub(filepath, 1, #filepath - index) end
end
local function FolderContainsRelevantFiles(path, extensionFilter)
if not ConfigFlags.enableEmptySubfolderFilter then return true end
local currentFiles = GetFiles(path, 0, extensionFilter)
local relevantFiles = {}
for c = 1, #currentFiles do relevantFiles[#relevantFiles + 1] = currentFiles[c] end
if relevantFiles == nil or #relevantFiles == 0 then return false else return true end
end
local function GetSubFolders(path, folderExclusionIndex, extensionFilter)
local subDirTree, subDirFiles = {}, {}
local subDirIndex, dirIndex = 0, 0
local subDirChild
if pathChildIndex == nil then pathChildIndex = 0 end
if path ~= nil then
repeat
if CheckFileScanMaxDirCount(folderExclusionIndex, subDirIndex) then
subDirChild = reaper.EnumerateSubdirectories(path, subDirIndex)
if subDirChild and not IsExcludedFolder(folderExclusionIndex, subDirChild) then
pathChildIndex = pathChildIndex + 1
if CheckFileScanMaxDirDepth(folderExclusionIndex, pathChildIndex) then
local tmpPath, _ = GetSubFolders(path .. pathSeparator .. subDirChild, folderExclusionIndex, extensionFilter)
for i = 1, #tmpPath do
subDirTree[#subDirTree + 1] = tmpPath[i]
subDirFiles[#subDirFiles + 1] = RL.subfolderIndent .. GetFolderName(tmpPath[i])
end
end
end
subDirIndex = subDirIndex + 1
pathChildIndex = 0
else
subDirChild = nil
end
until not subDirChild
repeat
local subfolderFound = reaper.EnumerateSubdirectories(path, dirIndex)
if subfolderFound and not IsExcludedFolder(folderExclusionIndex, subfolderFound) then
if FolderContainsRelevantFiles(path .. pathSeparator .. subfolderFound, extensionFilter) then
subDirTree[#subDirTree + 1] = path .. pathSeparator .. subfolderFound
subDirFiles[#subDirFiles + 1] = RL.subfolderIndent .. subfolderFound
end
end
dirIndex = dirIndex + 1
until not subfolderFound
end
return subDirTree, subDirFiles
end
local function SplitMultiPaths(pathString)
local pathTable = {}
pathString:gsub("[^;]*", function(p) pathTable[#pathTable + 1] = p:match("^%s*(.-)%s*$") end)
return pathTable
end
function IsExcludedFolder(exclusionIndex, folderName)
local folderExlusionTable
if exclusionIndex == TabID.ProjectTemplates then folderExlusionTable = FileScanExclusions.ProjectTemplates
elseif exclusionIndex == TabID.TrackTemplates then folderExlusionTable = FileScanExclusions.TrackTemplates
elseif exclusionIndex == TabID.CustomProjects then folderExlusionTable = FileScanExclusions.CustomProjects
elseif exclusionIndex == TabID.ProjectLists then folderExlusionTable = FileScanExclusions.ProjectLists
elseif exclusionIndex == TabID.Backups then folderExlusionTable = FileScanExclusions.Backups
elseif exclusionIndex == TabID.Docs then folderExlusionTable = FileScanExclusions.Docs end
if folderExlusionTable == nil then return false end
for e = 1, #folderExlusionTable do if folderName == folderExlusionTable[e] then return true end end
return false
end
function CheckFileScanMaxDirCount(exclusionIndex, subDirIndex)
local scanMaxDirCount = 0
if exclusionIndex == TabID.ProjectTemplates then scanMaxDirCount = FileScanSettings.projectTemplates_maxSubDirRange
elseif exclusionIndex == TabID.TrackTemplates then scanMaxDirCount = FileScanSettings.trackTemplates_maxSubDirRange
elseif exclusionIndex == TabID.CustomProjects then scanMaxDirCount = FileScanSettings.projects_maxSubDirRange
elseif exclusionIndex == TabID.ProjectLists then scanMaxDirCount = FileScanSettings.projectLists_maxSubDirRange
elseif exclusionIndex == TabID.Backups then scanMaxDirCount = FileScanSettings.backups_maxSubDirRange
elseif exclusionIndex == TabID.Docs then scanMaxDirCount = FileScanSettings.docs_maxSubDirRange end
if scanMaxDirCount == 0 or (scanMaxDirCount > 0 and subDirIndex < scanMaxDirCount) then return true else return false end
end
function CheckFileScanMaxDirDepth(exclusionIndex, pathChildIndex)
local scanMaxDirDepth = 0
if exclusionIndex == TabID.ProjectTemplates then scanMaxDirDepth = FileScanSettings.projectTemplates_maxSubDirDepth
elseif exclusionIndex == TabID.TrackTemplates then scanMaxDirDepth = FileScanSettings.trackTemplates_maxSubDirDepth
elseif exclusionIndex == TabID.CustomProjects then scanMaxDirDepth = FileScanSettings.projects_maxSubDirDepth
elseif exclusionIndex == TabID.ProjectLists then scanMaxDirDepth = FileScanSettings.projectLists_maxSubDirDepth
elseif exclusionIndex == TabID.Backups then scanMaxDirDepth = FileScanSettings.backups_maxSubDirDepth
elseif exclusionIndex == TabID.Docs then scanMaxDirDepth = FileScanSettings.docs_maxSubDirDepth end
if scanMaxDirDepth == 0 or (scanMaxDirDepth > 0 and pathChildIndex < scanMaxDirDepth) then return true else return false end
end
local function GetSubListSize()
if GUI.elms.main_tabs.state == TabID.ProjectTemplates then return #GUI.elms.tab_projectTemplates_subfolders.list
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then return #GUI.elms.tab_trackTemplates_subfolders.list
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then return #GUI.elms.tab_customProjects_subfolders.list
elseif GUI.elms.main_tabs.state == TabID.ProjectLists and GUI.elms.tab_projectLists_listboxRPL then return #GUI.elms.tab_projectLists_listboxRPL.list
elseif GUI.elms.main_tabs.state == TabID.ProjectLists and not GUI.elms.tab_projectLists_listboxRPL then return 0
elseif GUI.elms.main_tabs.state == TabID.Backups then return #GUI.elms.tab_backups_subfolders.list
elseif GUI.elms.main_tabs.state == TabID.Docs then return #GUI.elms.tab_docs_subfolders.list
elseif GUI.elms.main_tabs.state == TabID.Favorites then return #GUI.elms.tab_favorites_categories.list
end
end
local function GetMainListSize()
if GUI.elms.main_tabs.state == TabID.RecentProjects then return #GUI.elms.tab_recentProjects_listbox.list
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then return #GUI.elms.tab_projectTemplates_listbox.list
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then return #GUI.elms.tab_trackTemplates_listbox.list
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then return #GUI.elms.tab_customProjects_listbox.list
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then return #GUI.elms.tab_projectLists_listboxProjects.list
elseif GUI.elms.main_tabs.state == TabID.Backups then return #GUI.elms.tab_backups_listbox.list
elseif GUI.elms.main_tabs.state == TabID.Docs then return #GUI.elms.tab_docs_listbox.list
elseif GUI.elms.main_tabs.state == TabID.Favorites then return #GUI.elms.tab_favorites_listbox.list
end
end
local function ShowFileCount()
local fileCount = GetMainListSize()
if fileCount ~= nil then MsgStatusBar("Files: " .. fileCount) end
end
local function GetLastModifiedDate(filePath)
if JSAPIinstalled then
-- retval, size, accessedTime, modifiedTime, cTime, deviceID, deviceSpecialID, inode, mode, numLinks, ownerUserID, ownerGroupID
retval, _, _, modifiedTime, _, _, _, _, _, _, _, _ = reaper.JS_File_Stat(filePath)
if retval == 0 then return modifiedTime else return "" end
else
return ""
end
end
----------------------------
-- Locate in Explorer/Finder
----------------------------
local function ShowLocation_RecentProject()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_recentProjects_listbox"))
if #vals == 0 then MsgStatusBar("No files selected in list")
else
for p = 1, #vals do
if FilterActive.RecentProjects then reaper.CF_LocateInExplorer(RecentProjects.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(RecentProjects.items[vals[p]].path) end
end
end
end
end
local function ShowLocation_ProjectTemplates()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_projectTemplates_listbox"))
if #vals == 0 then reaper.CF_LocateInExplorer(projectTemplatePath)
else
for p = 1, #vals do
if FilterActive.ProjectTemplates then reaper.CF_LocateInExplorer(ProjectTemplates.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(ProjectTemplates.items[vals[p]].path) end
end
end
end
end
local function ShowLocation_TrackTemplates()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_trackTemplates_listbox"))
if #vals == 0 then reaper.CF_LocateInExplorer(trackTemplatePath)
else
for p = 1, #vals do
if FilterActive.TrackTemplates then reaper.CF_LocateInExplorer(TrackTemplates.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(TrackTemplates.items[vals[p]].path) end
end
end
end
end
local function ShowLocation_CustomProject()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_customProjects_listbox"))
if #vals == 0 then
if GUI.Val("paths_txtCustomProjectsPath") == "" then MsgStatusBar("No files selected in list")
else reaper.CF_LocateInExplorer(GUI.Val("paths_txtCustomProjectsPath")) end
else
for p = 1, #vals do
if FilterActive.CustomProjects then reaper.CF_LocateInExplorer(CustomProjects.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(CustomProjects.items[vals[p]].path) end
end
end
end
end
local function ShowLocation_ProjectList()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_projectLists_listboxProjects"))
if #vals == 0 then
if GUI.Val("paths_txtProjectsListsPath") == "" then MsgStatusBar("No files selected in list")
else reaper.CF_LocateInExplorer(GUI.Val("paths_txtProjectsListsPath")) end
else
for p = 1, #vals do
if FilterActive.ProjectLists then reaper.CF_LocateInExplorer(ProjectLists.filteredProjectItems[vals[p]].path)
else reaper.CF_LocateInExplorer(ProjectLists.projectItems[vals[p]].path) end
end
end
end
end
local function ShowLocation_Backups()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_backups_listbox"))
if #vals == 0 then
if GUI.Val("paths_txtBackupsPath") == "" then MsgStatusBar("No files selected in list")
else reaper.CF_LocateInExplorer(GUI.Val("paths_txtBackupsPath")) end
else
for p = 1, #vals do
if FilterActive.Backups then reaper.CF_LocateInExplorer(Backups.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(Backups.items[vals[p]].path) end
end
end
end
end
local function ShowLocation_Docs()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_docs_listbox"))
if #vals == 0 then
if GUI.Val("paths_txtDocsPath") == "" then MsgStatusBar("No files selected in list")
else reaper.CF_LocateInExplorer(GUI.Val("paths_txtDocsPath")) end
else
for p = 1, #vals do
if FilterActive.Docs then reaper.CF_LocateInExplorer(Docs.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(Docs.items[vals[p]].path) end
end
end
end
end
local function ShowLocation_Favorites()
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_favorites_listbox"))
if #vals == 0 then MsgStatusBar("No files selected in list")
else
for p = 1, #vals do
if FilterActive.Favorites then reaper.CF_LocateInExplorer(Favorites.filteredItems[vals[p]].path)
else reaper.CF_LocateInExplorer(Favorites.items[vals[p]].path) end
end
end
end
end
local function Global_OpenInExplorer()
if SWSinstalled then
if GUI.elms.main_tabs.state == TabID.RecentProjects then ShowLocation_RecentProject()
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then ShowLocation_ProjectTemplates()
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then ShowLocation_TrackTemplates()
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then ShowLocation_CustomProject()
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then ShowLocation_ProjectList()
elseif GUI.elms.main_tabs.state == TabID.Backups then ShowLocation_Backups()
elseif GUI.elms.main_tabs.state == TabID.Docs then ShowLocation_Docs()
elseif GUI.elms.main_tabs.state == TabID.Favorites then ShowLocation_Favorites()
end
end
end
-----------------------------
-- Path Display and Tab Focus
-----------------------------
function ShowSubfolderPanel(tabIndex)
if tabIndex > 1 then return RL.activeSubPanels[tabIndex - 1] else return false end
end
local function Global_UpdateSubfolderPathDisplay()
if not RL.showSubFolderPaths then
if GUI.elms.main_tabs.state == TabID.ProjectTemplates and ShowSubfolderPanel(TabID.ProjectTemplates) then GUI.elms.tab_projectTemplates_subfolders.list = SubfolderNames.projectTemplates
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates and ShowSubfolderPanel(TabID.TrackTemplates) then GUI.elms.tab_trackTemplates_subfolders.list = SubfolderNames.trackTemplates
elseif GUI.elms.main_tabs.state == TabID.CustomProjects and ShowSubfolderPanel(TabID.CustomProjects) then GUI.elms.tab_customProjects_subfolders.list = SubfolderNames.customProjects
elseif GUI.elms.main_tabs.state == TabID.ProjectLists and ShowSubfolderPanel(TabID.ProjectLists) then GUI.elms.tab_projectLists_listboxRPL.list = ProjectLists.rplFiles
elseif GUI.elms.main_tabs.state == TabID.Backups and ShowSubfolderPanel(TabID.Backups) then GUI.elms.tab_backups_subfolders.list = SubfolderNames.backups
elseif GUI.elms.main_tabs.state == TabID.Docs and ShowSubfolderPanel(TabID.Docs) then GUI.elms.tab_docs_subfolders.list = SubfolderNames.docs
end
else
if GUI.elms.main_tabs.state == TabID.ProjectTemplates and ShowSubfolderPanel(TabID.ProjectTemplates) then GUI.elms.tab_projectTemplates_subfolders.list = SubfolderPaths.projectTemplates
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates and ShowSubfolderPanel(TabID.TrackTemplates) then GUI.elms.tab_trackTemplates_subfolders.list = SubfolderPaths.trackTemplates
elseif GUI.elms.main_tabs.state == TabID.CustomProjects and ShowSubfolderPanel(TabID.CustomProjects) then GUI.elms.tab_customProjects_subfolders.list = SubfolderPaths.customProjects
elseif GUI.elms.main_tabs.state == TabID.ProjectLists and ShowSubfolderPanel(TabID.ProjectLists) then GUI.elms.tab_projectLists_listboxRPL.list = ProjectLists.rplPaths
elseif GUI.elms.main_tabs.state == TabID.Backups and ShowSubfolderPanel(TabID.Backups) then GUI.elms.tab_backups_subfolders.list = SubfolderPaths.backups
elseif GUI.elms.main_tabs.state == TabID.Docs and ShowSubfolderPanel(TabID.Docs) then GUI.elms.tab_docs_subfolders.list = SubfolderPaths.docs
end
end
if GUI.elms.main_tabs.state == TabID.ProjectTemplates and ShowSubfolderPanel(TabID.ProjectTemplates) then GUI.elms.tab_projectTemplates_subfolders:redraw()
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates and ShowSubfolderPanel(TabID.TrackTemplates) then GUI.elms.tab_trackTemplates_subfolders:redraw()
elseif GUI.elms.main_tabs.state == TabID.CustomProjects and ShowSubfolderPanel(TabID.CustomProjects) then GUI.elms.tab_customProjects_subfolders:redraw()
elseif GUI.elms.main_tabs.state == TabID.ProjectLists and ShowSubfolderPanel(TabID.ProjectLists) then GUI.elms.tab_projectLists_listboxRPL:redraw()
elseif GUI.elms.main_tabs.state == TabID.Backups and ShowSubfolderPanel(TabID.Backups) then GUI.elms.tab_backups_subfolders:redraw()
elseif GUI.elms.main_tabs.state == TabID.Docs and ShowSubfolderPanel(TabID.Docs) then GUI.elms.tab_docs_subfolders:redraw()
end
end
local function RL_SetFocusedTab(tabIndex)
if tabIndex == nil or tabIndex > TabID.Layout then tabIndex = 1 end
GUI.Val("main_tabs", tabIndex)
if RL.tabSelectorStyle == 2 then GUI.Val("main_menuTabSelector", tabIndex) end
if tabIndex == TabID.Options and TabSelectionIndex[TabID.Options] > 1 then
Global_ShowOptionsTab()
return
end
GUI.Val("main_checklistSaveAsNewVersion", {false})
GUI.Val("tab_favorites_checklistSaveAsNewVersion", {false})
RL.projectTemplateLoadMode, RL.saveAsNewVersionMode = 1, 0
MsgStatusBar("")
GUI.elms.main_statusbar.tooltip = ""
if ConfigFlags.enableSortModeOptions then
if JSAPIinstalled then
if tabIndex == TabID.RecentProjects or tabIndex == TabID.ProjectLists then GUI.elms.main_sortMode.optarray = { "First", "Last", "A - Z", "Z - A", "Newest", "Oldest" }
else GUI.elms.main_sortMode.optarray = { "A - Z", "Z - A", "Newest", "Oldest" } end
else
if tabIndex == TabID.RecentProjects or tabIndex == TabID.ProjectLists then GUI.elms.main_sortMode.optarray = { "First", "Last", "A - Z", "Z - A" }
else GUI.elms.main_sortMode.optarray = { "A - Z", "Z - A" } end
end
GUI.Val("main_sortMode", RL.sortModeIndex[GUI.elms.main_tabs.state] or 1)
end
RL.forceRescan = false
if ConfigFlags.enableAutoRefresh and not RL.skipOperationOnResize and not RL.showLastActiveProjects and tabIndex <= TabID.Favorites then
for i = 1, #ListBoxElements do ListBoxElements[i].list = {} end
RL_Func_TabRefresh[tabIndex].call()
Global_UpdateListDisplay()
Global_UpdateFilter()
Global_UpdateSortMode()
Global_UpdateSubfolderPathDisplay()
end
reaper.SetExtState(appname, "window_tabfocus", GUI.elms.main_tabs.state, 1)
end
---------------
-- List display
---------------
local function UpdateListDisplay_RecentProjects()
if RL.showFullPaths then
if FilterActive.RecentProjects then
if RL.showDate then for i = 1, #RecentProjects.filteredItems do RecentProjects.filteredDisplay[i] = RecentProjects.filteredItems[i].date .. " | " .. RecentProjects.filteredItems[i].path end
else for i = 1, #RecentProjects.filteredItems do RecentProjects.filteredDisplay[i] = RecentProjects.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #RecentProjects.items do RecentProjects.display[i] = RecentProjects.items[i].date .. " | " .. RecentProjects.items[i].path end
else for i = 1, #RecentProjects.items do RecentProjects.display[i] = RecentProjects.items[i].path end end
end
else
if FilterActive.RecentProjects then
if RL.showDate then for i = 1, #RecentProjects.filteredItems do RecentProjects.filteredDisplay[i] = RecentProjects.filteredItems[i].date .. " | " .. RecentProjects.filteredItems[i].name end
else for i = 1, #RecentProjects.filteredItems do RecentProjects.filteredDisplay[i] = RecentProjects.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #RecentProjects.items do RecentProjects.display[i] = RecentProjects.items[i].date .. " | " .. RecentProjects.items[i].name end
else for i = 1, #RecentProjects.items do RecentProjects.display[i] = RecentProjects.items[i].name end end
end
end
if FilterActive.RecentProjects then GUI.elms.tab_recentProjects_listbox.list = RecentProjects.filteredDisplay else GUI.elms.tab_recentProjects_listbox.list = RecentProjects.display end
GUI.elms.tab_recentProjects_listbox:redraw()
end
local function UpdateListDisplay_ProjectTemplates()
if RL.showFullPaths then
if FilterActive.ProjectTemplates then
if RL.showDate then for i = 1, #ProjectTemplates.filteredItems do ProjectTemplates.filteredDisplay[i] = ProjectTemplates.filteredItems[i].date .. " | " .. ProjectTemplates.filteredItems[i].path end
else for i = 1, #ProjectTemplates.filteredItems do ProjectTemplates.filteredDisplay[i] = ProjectTemplates.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #ProjectTemplates.items do ProjectTemplates.display[i] = ProjectTemplates.items[i].date .. " | " .. ProjectTemplates.items[i].path end
else for i = 1, #ProjectTemplates.items do ProjectTemplates.display[i] = ProjectTemplates.items[i].path end end
end
else
if FilterActive.ProjectTemplates then
if RL.showDate then for i = 1, #ProjectTemplates.filteredItems do ProjectTemplates.filteredDisplay[i] = ProjectTemplates.filteredItems[i].date .. " | " .. ProjectTemplates.filteredItems[i].name end
else for i = 1, #ProjectTemplates.filteredItems do ProjectTemplates.filteredDisplay[i] = ProjectTemplates.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #ProjectTemplates.items do ProjectTemplates.display[i] = ProjectTemplates.items[i].date .. " | " .. ProjectTemplates.items[i].name end
else for i = 1, #ProjectTemplates.items do ProjectTemplates.display[i] = ProjectTemplates.items[i].name end end
end
end
if FilterActive.ProjectTemplates then GUI.elms.tab_projectTemplates_listbox.list = ProjectTemplates.filteredDisplay else GUI.elms.tab_projectTemplates_listbox.list = ProjectTemplates.display end
GUI.elms.tab_projectTemplates_listbox:redraw()
end
local function UpdateListDisplay_TrackTemplates()
if RL.showFullPaths then
if FilterActive.TrackTemplates then
if RL.showDate then for i = 1, #TrackTemplates.filteredItems do TrackTemplates.filteredDisplay[i] = TrackTemplates.filteredItems[i].date .. " | " .. TrackTemplates.filteredItems[i].path end
else for i = 1, #TrackTemplates.filteredItems do TrackTemplates.filteredDisplay[i] = TrackTemplates.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #TrackTemplates.items do TrackTemplates.display[i] = TrackTemplates.items[i].date .. " | " .. TrackTemplates.items[i].path end
else for i = 1, #TrackTemplates.items do TrackTemplates.display[i] = TrackTemplates.items[i].path end end
end
else
if FilterActive.TrackTemplates then
if RL.showDate then for i = 1, #TrackTemplates.filteredItems do TrackTemplates.filteredDisplay[i] = TrackTemplates.filteredItems[i].date .. " | " .. TrackTemplates.filteredItems[i].name end
else for i = 1, #TrackTemplates.filteredItems do TrackTemplates.filteredDisplay[i] = TrackTemplates.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #TrackTemplates.items do TrackTemplates.display[i] = TrackTemplates.items[i].date .. " | " .. TrackTemplates.items[i].name end
else for i = 1, #TrackTemplates.items do TrackTemplates.display[i] = TrackTemplates.items[i].name end end
end
end
if FilterActive.TrackTemplates then GUI.elms.tab_trackTemplates_listbox.list = TrackTemplates.filteredDisplay else GUI.elms.tab_trackTemplates_listbox.list = TrackTemplates.display end
GUI.elms.tab_trackTemplates_listbox:redraw()
end
local function UpdateListDisplay_CustomProjects()
if RL.showFullPaths then
if FilterActive.CustomProjects then
if RL.showDate then for i = 1, #CustomProjects.filteredItems do CustomProjects.filteredDisplay[i] = CustomProjects.filteredItems[i].date .. " | " .. CustomProjects.filteredItems[i].path end
else for i = 1, #CustomProjects.filteredItems do CustomProjects.filteredDisplay[i] = CustomProjects.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #CustomProjects.items do CustomProjects.display[i] = CustomProjects.items[i].date .. " | " .. CustomProjects.items[i].path end
else for i = 1, #CustomProjects.items do CustomProjects.display[i] = CustomProjects.items[i].path end end
end
else
if FilterActive.CustomProjects then
if RL.showDate then for i = 1, #CustomProjects.filteredItems do CustomProjects.filteredDisplay[i] = CustomProjects.filteredItems[i].date .. " | " .. CustomProjects.filteredItems[i].name end
else for i = 1, #CustomProjects.filteredItems do CustomProjects.filteredDisplay[i] = CustomProjects.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #CustomProjects.items do CustomProjects.display[i] = CustomProjects.items[i].date .. " | " .. CustomProjects.items[i].name end
else for i = 1, #CustomProjects.items do CustomProjects.display[i] = CustomProjects.items[i].name end end
end
end
if FilterActive.CustomProjects then GUI.elms.tab_customProjects_listbox.list = CustomProjects.filteredDisplay else GUI.elms.tab_customProjects_listbox.list = CustomProjects.display end
GUI.elms.tab_customProjects_listbox:redraw()
end
local function UpdateListDisplay_ProjectLists()
if RL.showFullPaths then
if FilterActive.ProjectLists then
if RL.showDate then for i = 1, #ProjectLists.filteredProjectItems do ProjectLists.filteredDisplay[i] = ProjectLists.filteredProjectItems[i].date .. " | " .. ProjectLists.filteredProjectItems[i].path end
else for i = 1, #ProjectLists.filteredProjectItems do ProjectLists.filteredDisplay[i] = ProjectLists.filteredProjectItems[i].path end end
else
if RL.showDate then for i = 1, #ProjectLists.projectItems do ProjectLists.display[i] = ProjectLists.projectItems[i].date .. " | " .. ProjectLists.projectItems[i].path end
else for i = 1, #ProjectLists.projectItems do ProjectLists.display[i] = ProjectLists.projectItems[i].path end end
end
else
if FilterActive.ProjectLists then
if RL.showDate then for i = 1, #ProjectLists.filteredProjectItems do ProjectLists.filteredDisplay[i] = ProjectLists.filteredProjectItems[i].date .. " | " .. ProjectLists.filteredProjectItems[i].name end
else for i = 1, #ProjectLists.filteredProjectItems do ProjectLists.filteredDisplay[i] = ProjectLists.filteredProjectItems[i].name end end
else
if RL.showDate then for i = 1, #ProjectLists.projectItems do ProjectLists.display[i] = ProjectLists.projectItems[i].date .. " | " .. ProjectLists.projectItems[i].name end
else for i = 1, #ProjectLists.projectItems do ProjectLists.display[i] = ProjectLists.projectItems[i].name end end
end
end
if FilterActive.ProjectLists then GUI.elms.tab_projectLists_listboxProjects.list = ProjectLists.filteredDisplay else GUI.elms.tab_projectLists_listboxProjects.list = ProjectLists.display end
GUI.elms.tab_projectLists_listboxProjects:redraw()
end
local function UpdateListDisplay_Backups()
if RL.showFullPaths then
if FilterActive.Backups then
if RL.showDate then for i = 1, #Backups.filteredItems do Backups.filteredDisplay[i] = Backups.filteredItems[i].date .. " | " .. Backups.filteredItems[i].path end
else for i = 1, #Backups.filteredItems do Backups.filteredDisplay[i] = Backups.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #Backups.items do Backups.display[i] = Backups.items[i].date .. " | " .. Backups.items[i].path end
else for i = 1, #Backups.items do Backups.display[i] = Backups.items[i].path end end
end
else
if FilterActive.Backups then
if RL.showDate then for i = 1, #Backups.filteredItems do Backups.filteredDisplay[i] = Backups.filteredItems[i].date .. " | " .. Backups.filteredItems[i].name end
else for i = 1, #Backups.filteredItems do Backups.filteredDisplay[i] = Backups.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #Backups.items do Backups.display[i] = Backups.items[i].date .. " | " .. Backups.items[i].name end
else for i = 1, #Backups.items do Backups.display[i] = Backups.items[i].name end end
end
end
if FilterActive.Backups then GUI.elms.tab_backups_listbox.list = Backups.filteredDisplay else GUI.elms.tab_backups_listbox.list = Backups.display end
GUI.elms.tab_backups_listbox:redraw()
end
local function UpdateListDisplay_Docs()
if RL.showFullPaths then
if FilterActive.Docs then
if RL.showDate then for i = 1, #Docs.filteredItems do Docs.filteredDisplay[i] = Docs.filteredItems[i].date .. " | " .. Docs.filteredItems[i].path end
else for i = 1, #Docs.filteredItems do Docs.filteredDisplay[i] = Docs.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #Docs.items do Docs.display[i] = Docs.items[i].date .. " | " .. Docs.items[i].path end
else for i = 1, #Docs.items do Docs.display[i] = Docs.items[i].path end end
end
else
if FilterActive.Docs then
if RL.showDate then for i = 1, #Docs.filteredItems do Docs.filteredDisplay[i] = Docs.filteredItems[i].date .. " | " .. Docs.filteredItems[i].name end
else for i = 1, #Docs.filteredItems do Docs.filteredDisplay[i] = Docs.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #Docs.items do Docs.display[i] = Docs.items[i].date .. " | " .. Docs.items[i].name end
else for i = 1, #Docs.items do Docs.display[i] = Docs.items[i].name end end
end
end
if FilterActive.Docs then GUI.elms.tab_docs_listbox.list = Docs.filteredDisplay else GUI.elms.tab_docs_listbox.list = Docs.display end
GUI.elms.tab_docs_listbox:redraw()
end
local function UpdateListDisplay_Favorites()
if RL.showFullPaths then
if FilterActive.Favorites then
if RL.showDate then for i = 1, #Favorites.filteredItems do Favorites.filteredDisplay[i] = Favorites.filteredItems[i].date .. " | " .. Favorites.filteredItems[i].path end
else for i = 1, #Favorites.filteredItems do Favorites.filteredDisplay[i] = Favorites.filteredItems[i].path end end
else
if RL.showDate then for i = 1, #Favorites.items do Favorites.display[i] = Favorites.items[i].date .. " | " .. Favorites.items[i].path end
else for i = 1, #Favorites.items do Favorites.display[i] = Favorites.items[i].path end end
end
else
if FilterActive.Favorites then
if RL.showDate then for i = 1, #Favorites.filteredItems do Favorites.filteredDisplay[i] = Favorites.filteredItems[i].date .. " | " .. Favorites.filteredItems[i].name end
else for i = 1, #Favorites.filteredItems do Favorites.filteredDisplay[i] = Favorites.filteredItems[i].name end end
else
if RL.showDate then for i = 1, #Favorites.items do Favorites.display[i] = Favorites.items[i].date .. " | " .. Favorites.items[i].name end
else for i = 1, #Favorites.items do Favorites.display[i] = Favorites.items[i].name end end
end
end
if FilterActive.Favorites then GUI.elms.tab_favorites_listbox.list = Favorites.filteredDisplay else GUI.elms.tab_favorites_listbox.list = Favorites.display end
GUI.elms.tab_favorites_listbox:redraw()
end
function Global_UpdateListDisplay()
if JSAPIinstalled then RL.showDate = GUI.Val("main_checklistDate") else RL.showDate = false end
RL.showFullPaths = GUI.Val("main_checklistPaths")
if not RL.skipOperationOnResize then
if GUI.elms.main_tabs.state == TabID.RecentProjects then UpdateListDisplay_RecentProjects()
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then UpdateListDisplay_ProjectTemplates()
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then UpdateListDisplay_TrackTemplates()
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then UpdateListDisplay_CustomProjects()
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then UpdateListDisplay_ProjectLists()
elseif GUI.elms.main_tabs.state == TabID.Backups then UpdateListDisplay_Backups()
elseif GUI.elms.main_tabs.state == TabID.Docs then UpdateListDisplay_Docs()
elseif GUI.elms.main_tabs.state == TabID.Favorites then UpdateListDisplay_Favorites()
end
end
end
-----------------
-- Sort functions
-----------------
function Global_CycleSortMode(isSortCycleReversed)
if ConfigFlags.enableSortModeOptions and GUI.elms.main_tabs.state <= TabID.Favorites then
local sortMode = GUI.Val("main_sortMode")
if isSortCycleReversed then
if sortMode - 1 >= 1 then
GUI.Val("main_sortMode", sortMode - 1)
RL.sortModeIndex[GUI.elms.main_tabs.state] = sortMode - 1
else
GUI.Val("main_sortMode", #GUI.elms.main_sortMode.optarray)
RL.sortModeIndex[GUI.elms.main_tabs.state] = #GUI.elms.main_sortMode.optarray
end
else
if sortMode + 1 <= #GUI.elms.main_sortMode.optarray then
GUI.Val("main_sortMode", sortMode + 1)
RL.sortModeIndex[GUI.elms.main_tabs.state] = sortMode + 1
else
GUI.Val("main_sortMode", 1)
RL.sortModeIndex[GUI.elms.main_tabs.state] = 1
end
end
Global_UpdateSortMode()
end
end
function Global_UpdateSortMode()
if ConfigFlags.enableSortModeOptions and not RL.skipOperationOnResize then
local sortMode = RL.sortModeIndex[GUI.elms.main_tabs.state]
-- recent projects
if GUI.elms.main_tabs.state == TabID.RecentProjects then
if sortMode == 1 then
if RL.showLastActiveProjects then FillLastActiveProjects(false) else RL_Func_TabRefresh[GUI.elms.main_tabs.state].call() end
elseif sortMode == 2 then
if RL.showLastActiveProjects then FillLastActiveProjects(true) else RefreshRecentProjects(true) end
else
if FilterActive.RecentProjects then Global_SortEntries(GUI.elms.main_tabs.state, RecentProjects.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, RecentProjects.items, sortMode, false) end
GUI.elms.tab_recentProjects_listbox:redraw()
end
-- project lists
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then
if sortMode == 1 then UpdateProjectListSelection(false)
elseif sortMode == 2 then UpdateProjectListSelection(true)
else
if FilterActive.ProjectLists then Global_SortEntries(GUI.elms.main_tabs.state, ProjectLists.filteredProjectItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, ProjectLists.projectItems, sortMode, false) end
GUI.elms.tab_projectLists_listboxProjects:redraw()
end
else
-- project templates
if GUI.elms.main_tabs.state == TabID.ProjectTemplates then
if FilterActive.ProjectTemplates then Global_SortEntries(GUI.elms.main_tabs.state, ProjectTemplates.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, ProjectTemplates.items, sortMode, false) end
GUI.elms.tab_projectTemplates_listbox:redraw()
-- track templates
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then
if FilterActive.TrackTemplates then Global_SortEntries(GUI.elms.main_tabs.state, TrackTemplates.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, TrackTemplates.items, sortMode, false) end
GUI.elms.tab_trackTemplates_listbox:redraw()
-- projects
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then
if FilterActive.CustomProjects then Global_SortEntries(GUI.elms.main_tabs.state, CustomProjects.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, CustomProjects.items, sortMode, false) end
GUI.elms.tab_customProjects_listbox:redraw()
-- backups
elseif GUI.elms.main_tabs.state == TabID.Backups then
if FilterActive.Backups then Global_SortEntries(GUI.elms.main_tabs.state, Backups.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, Backups.items, sortMode, false) end
GUI.elms.tab_backups_listbox:redraw()
-- docs
elseif GUI.elms.main_tabs.state == TabID.Docs then
if FilterActive.Docs then Global_SortEntries(GUI.elms.main_tabs.state, Docs.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, Docs.items, sortMode, false) end
GUI.elms.tab_docs_listbox:redraw()
-- favorites
elseif GUI.elms.main_tabs.state == TabID.Favorites then
if FilterActive.Favorites then Global_SortEntries(GUI.elms.main_tabs.state, Favorites.filteredItems, sortMode, true)
else Global_SortEntries(GUI.elms.main_tabs.state, Favorites.items, sortMode, false) end
GUI.elms.tab_favorites_listbox:redraw()
end
end
reaper.SetExtState(appname, "window_sortmode", table.concat(RL.sortModeIndex, ","), 1)
Global_UpdateListDisplay()
if JSAPIinstalled then AudioPreviewCheckForFile(GUI.elms.main_tabs.state) end
end
end
function Global_SortEntries(tabfocus, tableToSort, sortMode, isFiltered)
if ((tabfocus == TabID.RecentProjects or tabfocus == TabID.ProjectLists) and sortMode == 3) or (tabfocus > TabID.RecentProjects and sortMode == 1) then
table.sort(tableToSort, function(a, b) return a.name:lower() < b.name:lower() end) -- sort alphabetically ascending
elseif ((tabfocus == TabID.RecentProjects or tabfocus == TabID.ProjectLists) and sortMode == 4) or (tabfocus > TabID.RecentProjects and sortMode == 2) then
table.sort(tableToSort, function(a, b) return b.name:lower() < a.name:lower() end) -- sort alphabetically descending
elseif ((tabfocus == TabID.RecentProjects or tabfocus == TabID.ProjectLists) and sortMode == 5) or (tabfocus > TabID.RecentProjects and sortMode == 3) then
table.sort(tableToSort, function(a, b) return b.date:lower() < a.date:upper() end) -- sort by date descending (newest 'last modified' first)
elseif ((tabfocus == TabID.RecentProjects or tabfocus == TabID.ProjectLists) and sortMode == 6) or (tabfocus > TabID.RecentProjects and sortMode == 4) then
table.sort(tableToSort, function(a, b) return a.date:lower() < b.date:lower() end) -- sort by date ascending (oldest 'last modified' first)
end
end
--------------
-- Cache Files
--------------
local filePathAndPrefix = debug.getinfo(1,'S').source:match[[^@?(.*[\/])[^\/]-$]] .. appname
local CacheFile = {
MainSection = 1,
ProjectTemplates = filePathAndPrefix .. "_Cache_ProjectTemplates.ini",
TrackTemplates = filePathAndPrefix .. "_Cache_TrackTemplates.ini",
CustomProjects = filePathAndPrefix .. "_Cache_Projects.ini",
ProjectLists = filePathAndPrefix .. "_Cache_ProjectLists.ini",
Backups = filePathAndPrefix .. "_Cache_Backups.ini",
Docs = filePathAndPrefix .. "_Cache_Docs.ini",
}
local SubpanelFile = {
MainSection = 1,
ProjectTemplates = filePathAndPrefix .. "_Subpanel_ProjectTemplates.ini",
TrackTemplates = filePathAndPrefix .. "_Subpanel_TrackTemplates.ini",
CustomProjects = filePathAndPrefix .. "_Subpanel_Projects.ini",
ProjectLists = filePathAndPrefix .. "_Subpanel_ProjectLists.ini",
Backups = filePathAndPrefix .. "_Subpanel_Backups.ini",
Docs = filePathAndPrefix .. "_Subpanel_Docs.ini",
}
local FavoritesFile = {
filePathAndPrefix .. "_Favorites_RecentProjects.ini",
filePathAndPrefix .. "_Favorites_ProjectTemplates.ini",
filePathAndPrefix .. "_Favorites_TrackTemplates.ini",
filePathAndPrefix .. "_Favorites_Projects.ini",
filePathAndPrefix .. "_Favorites_ProjectLists.ini",
filePathAndPrefix .. "_Favorites_Backups.ini",
filePathAndPrefix .. "_Favorites_Docs.ini",
}
function RL_ClearFile(fileName)
local file = io.open(fileName, "w")
if not file then return nil end
file:close()
return true
end
local function AddFileSectionEntries(file, sectionName, entries)
if entries == nil then return end
file:write("[" .. sectionName .. "]\n")
for e = 1, #entries do file:write(entries[e] .. "\n") end
file:write("[[" .. sectionName .. "]]\n")
end
function RL_WriteFavorites(fileName, sectionName, entries)
local favExists, favEntries = RL_ReadFromFile(fileName, CacheFile.MainSection)
local file = io.open(fileName, "w")
if not file then return nil end
if favExists and #favEntries > 0 then
local entriesToAdd = {}
for e = 1, #entries do
if not CheckForDuplicates(favEntries, entries[e]) then entriesToAdd[#entriesToAdd + 1] = entries[e] end
end
JoinTables(favEntries, entriesToAdd)
AddFileSectionEntries(file, CacheFile.MainSection, favEntries)
else
AddFileSectionEntries(file, CacheFile.MainSection, entries)
end
file:close()
end
function RL_WriteToFileCache(fileName, sectionName, entries, clearCache)
if not ConfigFlags.enableFileCaching or entries == nil then return end
MsgDebug(">> WRITE to '" .. fileName .. "'")
if clearCache then
local file = io.open(fileName, "w")
if not file then return nil end
AddFileSectionEntries(file, CacheFile.MainSection, entries)
file:close()
else
-- append to existing entries
local allExists, tAll = RL_ReadFromFile(fileName, CacheFile.MainSection)
local lastExists, tLast = false, nil
if sectionName ~= CacheFile.MainSection then lastExists, tLast = RL_ReadFromFile(fileName, sectionName) end
local file = io.open(fileName, "w")
if not file then return nil end
-- both sections 'Main' and 'Last' exist
if allExists and lastExists then
if sectionName == CacheFile.MainSection then
AddFileSectionEntries(file, CacheFile.MainSection, entries)
AddFileSectionEntries(file, sectionName, tLast)
else
AddFileSectionEntries(file, CacheFile.MainSection, tAll)
AddFileSectionEntries(file, sectionName, entries)
end
-- only section 'Main' exists
elseif allExists and not lastExists then
if sectionName == CacheFile.MainSection then
AddFileSectionEntries(file, CacheFile.MainSection, entries)
else
AddFileSectionEntries(file, CacheFile.MainSection, tAll)
AddFileSectionEntries(file, sectionName, entries)
end
-- only section 'Last' exists
elseif not allExists and lastExists then
if sectionName == CacheFile.MainSection then
AddFileSectionEntries(file, CacheFile.MainSection, entries)
AddFileSectionEntries(file, sectionName, tLast)
else
AddFileSectionEntries(file, sectionName, entries)
end
else -- no section exists
if sectionName == CacheFile.MainSection then AddFileSectionEntries(file, CacheFile.MainSection, entries)
else AddFileSectionEntries(file, sectionName, entries) end
end
file:close()
end
end
function RL_WriteToSubfolderCache(fileName, sectionName, entries)
if not ConfigFlags.enableSubfolderCaching then return end
MsgDebug(">> WRITE to '" .. fileName .. "'")
RL_ClearFile(fileName)
local file = io.open(fileName, "w")
if not file then return nil end
if entries ~= nil and #entries > 0 then AddSubfolderSectionEntries(file, sectionName, entries) end
file:close()
end
function RL_ReadFromFile(fileName, sectionName)
MsgDebug("<< READ from '" .. fileName .. "' | Section: " .. sectionName)
local file = io.open(fileName, "r")
if not file then MsgDebug("\tCannot read file or file does not exist yet") return false, nil end
local entries = {}
local lineNumber, startIndex, endIndex = 0, 0, 0
for line in file:lines() do
if #line > 1 then
entries[#entries + 1] = line
lineNumber = lineNumber + 1
if line == "[" .. sectionName .. "]" then startIndex = lineNumber + 1
elseif line == "[[" .. sectionName .. "]]" then
endIndex = lineNumber - 1
break
end
end
end
file:close()
local results = {}
for e = startIndex, endIndex do results[#results + 1] = entries[e] end
if results ~= nil and #results > 0 then return true, results
else return false, nil end
end
function RL_ReadFromFileCache(fileName, sectionName)
if not ConfigFlags.enableFileCaching or RL.forceRescan then return false, _ end
return RL_ReadFromFile(fileName, sectionName)
end
function RL_ReadFromSubfolderCache(fileName, sectionName)
if not ConfigFlags.enableSubfolderCaching or RL.forceRescan then return false, _ end
return RL_ReadFromFile(fileName, sectionName)
end
------------------
-- Listbox content
------------------
RecentProjects = {
maxIndex,
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
local function AddRecentProjectEntries(fullPath, e)
if fullPath ~= "" then
if not CheckForDuplicates(GetSubTableByPathKey(RecentProjects.items), fullPath) then
e = e + 1
RecentProjects.items[e] = {
name = RemoveExtension(GetFilenameWithoutPath(fullPath), FileTypes.rpp),
path = fullPath,
date = GetLastModifiedDate(fullPath)
}
if ConfigFlags.listFilesInDebugMessages then MsgDebug(e .. ": " .. fullPath) end
end
end
return e
end
local function GetRecentProjectEntries(p, recentFirst)
local e = 0
if recentFirst then -- iterate through recent entries from newest to oldest
repeat
p = p - 1
local _, fullPath = reaper.BR_Win32_GetPrivateProfileString("recent", "recent" .. string.format("%02d", p), "noEntry", reaperIniPath)
e = AddRecentProjectEntries(fullPath, e)
until p == 1
else -- iterate through recent entries from oldest to newest
local c = 0
repeat
c = c + 1
local _, fullPath = reaper.BR_Win32_GetPrivateProfileString("recent", "recent" .. string.format("%02d", c), "noEntry", reaperIniPath)
e = AddRecentProjectEntries(fullPath, e)
until c == p - 1
end
end
local function FillRecentProjectsListbox(recentFirst)
RecentProjects.items = {}
local lastEntry = false
local p = 0
-- get recent project count
repeat
p = p + 1
local _, value = reaper.BR_Win32_GetPrivateProfileString("recent", "recent" .. string.format("%02d", p), "noEntry", reaperIniPath)
if value == "noEntry" then
lastEntry = true
break
end
until (lastEntry)
-- no [Recent] section exists yet
if (p == 1 and lastEntry) then return end
-- iterate through entries
RecentProjects.maxIndex = p - 1
GetRecentProjectEntries(p, recentFirst)
Global_UpdateListDisplay()
GUI.elms.tab_recentProjects_listbox:redraw()
ShowFileCount()
end
-------------------------------
-- Subdirectory paths and names
-------------------------------
local function GetSubFolderEntries(defaultPath, customPath, folderExclusionIndex, extensionFilter)
local subDirPaths, subDirFiles = {}, {}
local tempFolders, tempFiles
if defaultPath == "All" then subDirPaths, subDirFiles = {"< All >"}, {"< All >"}
elseif IsNotNullOrEmpty(defaultPath) then
subDirPaths, subDirFiles = {"< All >"}, {"< All >"}
subDirPaths[2] = defaultPath
subDirFiles[2] = "< " .. GetFolderName(defaultPath) .. " >"
local tempFolders, tempFiles = GetSubFolders(defaultPath, folderExclusionIndex, extensionFilter)
JoinTables(subDirPaths, tempFolders)
JoinTables(subDirFiles, tempFiles)
end
if IsNotNullOrEmpty(customPath) then
local multiPaths = SplitMultiPaths(customPath)
for m = 1, #multiPaths do
local currentPath = multiPaths[m]
subDirPaths[#subDirPaths + 1] = currentPath
subDirFiles[#subDirFiles + 1] = "< " .. GetFolderName(currentPath) .. " >"
local tempFolders, tempFiles = GetSubFolders(currentPath, folderExclusionIndex, extensionFilter)
JoinTables(subDirPaths, tempFolders)
JoinTables(subDirFiles, tempFiles)
end
end
return subDirPaths, subDirFiles
end
---------------------------
-- Project Template Listbox
---------------------------
ProjectTemplates = {
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
SubfolderPaths = {
projectTemplates = {},
trackTemplates = {},
customProjects = {},
backups = {},
docs = {}
}
SubfolderNames = {
projectTemplates = {},
trackTemplates = {},
customProjects = {},
backups = {},
docs = {}
}
local function FillProjectTemplateListBoxBase(tempTemplates)
ProjectTemplates.items, ProjectTemplates.display = {}, {}
local pos = 1
for i = 1, #tempTemplates do
if ConfigFlags.listFilesInDebugMessages then MsgDebug(tempTemplates[i]) end
ProjectTemplates.items[pos] = {
name = RemoveExtension(GetFilenameWithoutPath(tempTemplates[i]), FileTypes.rpp),
path = tempTemplates[i],
date = GetLastModifiedDate(tempTemplates[i])
}
pos = pos + 1
end
Global_UpdateListDisplay()
GUI.elms.tab_projectTemplates_listbox:redraw()
ShowFileCount()
end
function GetProjectTemplateFiles()
local tempTemplates = GetFiles(projectTemplatePath, TabID.ProjectTemplates, FileTypes.rpp)
if #CustomPaths.ProjectTemplates > 1 then
local multiPaths = SplitMultiPaths(CustomPaths.ProjectTemplates)
for m = 1, #multiPaths do JoinTables(tempTemplates, GetFiles(multiPaths[m], TabID.ProjectTemplates, FileTypes.rpp)) end
end
if #tempTemplates == 0 then
return false, nil
else
return true, tempTemplates
end
end
local function FillProjectTemplateListbox()
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.ProjectTemplates, CacheFile.MainSection)
if cacheExists then FillProjectTemplateListBoxBase(cacheTable)
else
local retval, tempTemplates = GetProjectTemplateFiles()
if retval then
FillProjectTemplateListBoxBase(tempTemplates)
RL_WriteToFileCache(CacheFile.ProjectTemplates, CacheFile.MainSection, GetSubTableByPathKey(ProjectTemplates.items), false)
end
end
end
-------------------------
-- Track Template Listbox
-------------------------
TrackTemplates = {
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
local function FillTrackTemplateListboxBase(tempTemplates)
TrackTemplates.items, TrackTemplates.display = {}, {}
local pos = 1
for i = 1, #tempTemplates do
if ConfigFlags.listFilesInDebugMessages then MsgDebug(tempTemplates[i]) end
TrackTemplates.items[pos] = {
name = RemoveExtension(GetFilenameWithoutPath(tempTemplates[i]), FileTypes.tracktemplate),
path = tempTemplates[i],
date = GetLastModifiedDate(tempTemplates[i])
}
pos = pos + 1
end
Global_UpdateListDisplay()
GUI.elms.tab_trackTemplates_listbox:redraw()
ShowFileCount()
end
function GetTrackTemplateFiles()
local tempTemplates = GetFiles(trackTemplatePath, TabID.TrackTemplates, FileTypes.tracktemplate)
if #CustomPaths.TrackTemplates > 1 then
local multiPaths = SplitMultiPaths(CustomPaths.TrackTemplates)
for m = 1, #multiPaths do JoinTables(tempTemplates, GetFiles(multiPaths[m], TabID.TrackTemplates, FileTypes.tracktemplate)) end
end
if #tempTemplates == 0 then
return false, _
else
return true, tempTemplates
end
end
local function FillTrackTemplateListbox()
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.TrackTemplates, CacheFile.MainSection)
if cacheExists then FillTrackTemplateListboxBase(cacheTable)
else
local retval, tempTemplates = GetTrackTemplateFiles()
if retval then
FillTrackTemplateListboxBase(tempTemplates)
RL_WriteToFileCache(CacheFile.TrackTemplates, CacheFile.MainSection, GetSubTableByPathKey(TrackTemplates.items), false)
end
end
end
-------------------------
-- Custom Project Listbox
-------------------------
CustomProjects = {
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
local function FillCustomProjectsListboxBase(dirFiles, pos)
for i = 1, #dirFiles do
if ConfigFlags.listFilesInDebugMessages then MsgDebug(dirFiles[i]) end
CustomProjects.items[pos] = {
name = RemoveExtension(GetFilenameWithoutPath(dirFiles[i]), FileTypes.rpp),
path = dirFiles[i],
date = GetLastModifiedDate(dirFiles[i])
}
pos = pos + 1
end
Global_UpdateListDisplay()
GUI.elms.tab_customProjects_listbox:redraw()
ShowFileCount()
return pos
end
local function FillCustomProjectsListbox()
CustomProjects.items = {}
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.CustomProjects, CacheFile.MainSection)
if cacheExists then FillCustomProjectsListboxBase(cacheTable, 1)
else
if #CustomPaths.Projects > 1 then
local multiPaths = SplitMultiPaths(CustomPaths.Projects)
for m = 1, #multiPaths do FillCustomProjectsListboxBase(GetFiles(multiPaths[m], TabID.CustomProjects, FileTypes.rpp), 1) end
RL_WriteToFileCache(CacheFile.CustomProjects, CacheFile.MainSection, GetSubTableByPathKey(CustomProjects.items), false)
end
end
end
------------------------
-- Project Lists Listbox
------------------------
ProjectLists = {
rplFiles = {},
rplPaths = {},
projectItems = {},
filteredProjectItems = {},
display = {},
filteredDisplay = {}
}
local function InvertElementOrder(arr)
local e1, e2 = 1, #arr
while e1 < e2 do
arr[e1], arr[e2] = arr[e2], arr[e1]
e1 = e1 + 1
e2 = e2 - 1
end
end
local function RPL_ParseRPLFile(selected, listInReverse)
ProjectLists.projectItems, ProjectLists.display = {}, {}
for i = 1, #selected do
local file = io.open(ProjectLists.rplPaths[selected[i]] .. pathSeparator .. ProjectLists.rplFiles[selected[i]] .. FileTypes.rpl, "r")
if not file then
file = io.open(ProjectLists.rplPaths[selected[i]] .. pathSeparator .. ProjectLists.rplFiles[selected[i]] .. string.upper(FileTypes.rpl), "r")
end
if not file then return nil end
for line in file:lines() do
if #line > 1 then
if not CheckForDuplicates(GetSubTableByPathKey(ProjectLists.projectItems), line) then
ProjectLists.projectItems[#ProjectLists.projectItems + 1] = {
name = RemoveExtension(RemoveWhiteSpaces(GetFilenameWithoutPath(line)), FileTypes.rpp),
path = line,
date = GetLastModifiedDate(line)
}
end
end
end
file:close()
end
if listInReverse then
InvertElementOrder(ProjectLists.projectItems)
end
GUI.elms.tab_projectLists_listboxProjects.list = GetSubTableByNameKey(ProjectLists.projectItems)
end
function RPL_FillProjectListFromTable(cacheTable, listInReverse)
ProjectLists.projectItems, ProjectLists.display = {}, {}
for i = 1, #cacheTable do
ProjectLists.projectItems[#ProjectLists.projectItems + 1] = {
name = RemoveExtension(RemoveWhiteSpaces(GetFilenameWithoutPath(cacheTable[i])), FileTypes.rpp),
path = cacheTable[i],
date = GetLastModifiedDate(cacheTable[i])
}
end
if listInReverse then
InvertElementOrder(ProjectLists.projectItems)
end
GUI.elms.tab_projectLists_listboxProjects.list = GetSubTableByNameKey(ProjectLists.projectItems)
end
------------------------
-- Backups Lists Listbox
------------------------
Backups = {
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
local function FillBackupsListboxBase(dirFiles, pos)
for i = 1, #dirFiles do
if ConfigFlags.listFilesInDebugMessages then MsgDebug(dirFiles[i]) end
Backups.items[pos] = {
name = RemoveExtension(GetFilenameWithoutPath(dirFiles[i]), FileTypes.backup),
path = dirFiles[i],
date = GetLastModifiedDate(dirFiles[i])
}
pos = pos + 1
end
GUI.elms.tab_backups_listbox.list = GetSubTableByNameKey(Backups.items)
Global_UpdateListDisplay()
ShowFileCount()
return pos
end
local function FillBackupsListbox()
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.Backups, CacheFile.MainSection)
if cacheExists then FillBackupsListboxBase(cacheTable, 1)
else
if #CustomPaths.Backups > 1 then
Backups.items = {}
local multiPaths = SplitMultiPaths(CustomPaths.Backups)
local pos = 1
for m = 1, #multiPaths do pos = FillBackupsListboxBase(GetFiles(multiPaths[m], TabID.Backups, FileTypes.backup), pos) end
RL_WriteToFileCache(CacheFile.Backups, CacheFile.MainSection, GetSubTableByPathKey(Backups.items), false)
end
end
end
---------------
-- Docs Listbox
---------------
Docs = {
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
local function FillDocsListboxBase(dirFiles, pos)
for i = 1, #dirFiles do
if ConfigFlags.listFilesInDebugMessages then MsgDebug(dirFiles[i]) end
Docs.items[pos] = {
name = RemoveExtension(GetFilenameWithoutPath(dirFiles[i]), FileTypes.docs),
path = dirFiles[i],
date = GetLastModifiedDate(dirFiles[i])
}
pos = pos + 1
end
GUI.elms.tab_docs_listbox.list = GetSubTableByNameKey(Docs.items)
Global_UpdateListDisplay()
ShowFileCount()
return pos
end
local function FillDocsListbox()
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.Docs, CacheFile.MainSection)
if cacheExists then FillDocsListboxBase(cacheTable, 1)
else
if #CustomPaths.Docs > 1 then
Docs.items = {}
local multiPaths = SplitMultiPaths(CustomPaths.Docs)
local pos = 1
for m = 1, #multiPaths do pos = FillDocsListboxBase(GetFiles(multiPaths[m], TabID.Docs, FileTypes.docs), pos) end
RL_WriteToFileCache(CacheFile.Docs, CacheFile.MainSection, GetSubTableByPathKey(Docs.items), false)
end
end
end
----------------------------------
-- Fill the listboxes with entries
----------------------------------
CustomPaths = {
ProjectTemplates = reaper.GetExtState(appname, "custompath_projecttemplates"),
TrackTemplates = reaper.GetExtState(appname, "custompath_tracktemplates"),
Projects = reaper.GetExtState(appname, "custompath_projects"),
ProjectLists = reaper.GetExtState(appname, "custompath_projectlists"),
Backups = reaper.GetExtState(appname, "custompath_backups"),
Docs = reaper.GetExtState(appname, "custompath_docs")
}
-----------------------------------
-- New project/tab button functions
-----------------------------------
local function Global_CheckWindowPinState()
if not GUI.Val("main_checklistWindowPin") then gfx.quit() end
end
local function Global_ShowProjectOpenDialog()
reaper.Main_OnCommand(40025, 0) -- File: Open project
Global_CheckWindowPinState()
end
function Global_ShowPathInStatusbar(tabIndex)
if GUI.Val("options_checklistShowPathsInStatusbar") then
local selectedPath = ""
if tabIndex == TabID.RecentProjects and GetMainListSize() > 0 then
if FilterActive.RecentProjects then selectedPath = RecentProjects.filteredItems[TabSelectionIndex[TabID.RecentProjects]].path
else selectedPath = RecentProjects.items[TabSelectionIndex[TabID.RecentProjects]].path end
elseif tabIndex == TabID.ProjectTemplates and GetMainListSize() > 0 then
if FilterActive.ProjectTemplates then selectedPath = ProjectTemplates.filteredItems[TabSelectionIndex[TabID.ProjectTemplates]].path
else selectedPath = ProjectTemplates.items[TabSelectionIndex[TabID.ProjectTemplates]].path end
elseif tabIndex == TabID.TrackTemplates and GetMainListSize() > 0 then
if FilterActive.TrackTemplates then selectedPath = TrackTemplates.filteredItems[TabSelectionIndex[TabID.TrackTemplates]].path
else selectedPath = TrackTemplates.items[TabSelectionIndex[TabID.TrackTemplates]].path end
elseif tabIndex == TabID.CustomProjects and GetMainListSize() > 0 then
if FilterActive.CustomProjects then selectedPath = CustomProjects.filteredItems[TabSelectionIndex[TabID.CustomProjects]].path
else selectedPath = CustomProjects.items[TabSelectionIndex[TabID.CustomProjects]].path end
elseif tabIndex == TabID.ProjectLists and GetMainListSize() > 0 then
if FilterActive.ProjectLists then selectedPath = ProjectLists.filteredProjectItems[TabSelectionIndex[TabID.ProjectLists]].path
else selectedPath = ProjectLists.projectItems[TabSelectionIndex[TabID.ProjectLists]].path end
elseif tabIndex == TabID.Backups and GetMainListSize() > 0 then
if FilterActive.Backups then selectedPath = Backups.filteredItems[TabSelectionIndex[TabID.Backups]].path
else selectedPath = Backups.items[TabSelectionIndex[TabID.Backups]].path end
elseif tabIndex == TabID.Docs and GetMainListSize() > 0 then
if FilterActive.Docs then selectedPath = Docs.filteredItems[TabSelectionIndex[TabID.Docs]].path
else selectedPath = Docs.items[TabSelectionIndex[TabID.Docs]].path end
elseif tabIndex == TabID.Favorites and GetMainListSize() > 0 then
if FilterActive.Favorites then selectedPath = Favorites.filteredItems[TabSelectionIndex[TabID.Favorites]].path
else selectedPath = Favorites.items[TabSelectionIndex[TabID.Favorites]].path end
end
if GUI.Val("options_menuShowPathsInStatusbar") == 2 then selectedPath = GetDirectoryPath(selectedPath) .. pathSeparator end
MsgStatusBar(selectedPath .. " ")
GUI.elms.main_statusbar.tooltip = selectedPath
end
end
function Global_TriggerFollowAction(elementName)
local commandID = GUI.Val(elementName)
if IsNotNullOrEmpty(commandID) then
if tonumber(commandID) ~= nil then reaper.Main_OnCommand(commandID, 0) else reaper.Main_OnCommand(reaper.NamedCommandLookup(commandID), 0) end
end
end
local function Global_NewProject()
reaper.Main_OnCommand(40023, 0) -- File: New project
if GUI.Val("options_checklistOpenPropertiesOnNewProject") then reaper.Main_OnCommand(40021, 0) end -- File: Project settings
Global_TriggerFollowAction("actions_txtFollowAction_NewProject")
RL_SetStartTab("onAction")
Global_CheckWindowPinState()
end
local function Global_NewTab()
reaper.Main_OnCommand(40859, 0) -- New project tab
if GUI.Val("options_checklistOpenPropertiesOnNewProject") then reaper.Main_OnCommand(40021, 0) end -- File: Project settings
Global_TriggerFollowAction("actions_txtFollowAction_NewTab")
RL_SetStartTab("onAction")
Global_CheckWindowPinState()
end
local function Global_NewTabIgnoreDefaultTemplate()
reaper.Main_OnCommand(41929, 0) -- New project tab (ignore default template)
if GUI.Val("options_checklistOpenPropertiesOnNewProject") then reaper.Main_OnCommand(40021, 0) end -- File: Project settings
RL_SetStartTab("onAction")
Global_CheckWindowPinState()
end
local function Global_Load(tabmode, selectedFile, fileCount)
if selectedFile ~= nil then
if tabmode then
reaper.Main_OnCommand(41929, 0) -- New project tab (ignore default template)
reaper.Main_openProject(selectedFile)
if GUI.Val("main_checklistSaveAsNewVersion") or GUI.Val("tab_favorites_checklistSaveAsNewVersion") or RL.saveAsNewVersionMode == 1 then
reaper.Main_OnCommand(41895, 0) -- [Main] - File: Save new version of project (automatically increment project name)
end
Global_TriggerFollowAction("actions_txtFollowAction_LoadProjectInTab")
if JSAPIinstalled then AudioPreviewStopAll() end
else
if fileCount > 1 then reaper.Main_OnCommand(41929, 0) end -- New project tab (ignore default template)
reaper.Main_openProject(selectedFile)
if GUI.Val("main_checklistSaveAsNewVersion") or GUI.Val("tab_favorites_checklistSaveAsNewVersion") or RL.saveAsNewVersionMode == 1 then
reaper.Main_OnCommand(41895, 0) -- [Main] - File: Save new version of project (automatically increment project name)
end
if fileCount > 1 then Global_TriggerFollowAction("actions_txtFollowAction_LoadProjectInTab") else Global_TriggerFollowAction("actions_txtFollowAction_LoadProject") end
if JSAPIinstalled then AudioPreviewStopAll() end
end
end
end
local function Global_ProjectTemplateLoadBase(template)
if template ~= nil then
if RL.isNewTemplateLoadLogicSupported then
-- logic for Reaper versions 5.983 or higher
if RL.projectTemplateLoadMode == 1 then reaper.Main_openProject("template:" .. template) -- load as template
else reaper.Main_openProject(template) end -- open template file for editing
else
-- logic for Reaper versions older than 5.983
reaper.Main_openProject(template) -- open template file for editing
if RL.projectTemplateLoadMode == 1 then reaper.Main_OnCommand(40022,0) end -- File: Save project as
end
if JSAPIinstalled then AudioPreviewStopAll() end
end
end
local function Global_ProjectTemplateLoad(template, templateCount)
if templateCount > 1 then reaper.Main_OnCommand(41929, 0) end -- New project tab (ignore default template)
Global_ProjectTemplateLoadBase(template)
end
function RL_Mouse_DoubleClick(currentTab)
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local dcOption = GUI.Val("options_menuDoubleClick")
-- show prompt
if dcOption == 1 then
local doubleClickMenuEntries = "1 - Load|2 - Load in Tab"
if currentTab == TabID.TrackTemplates then doubleClickMenuEntries = "1 - Insert|2 - Insert in Tab" end
if JSAPIinstalled then doubleClickMenuEntries = doubleClickMenuEntries .. "|#|3 - Audio Preview" end
local DoubleClickMenu = gfx.showmenu(doubleClickMenuEntries)
if DoubleClickMenu == 1 then RL_Func_LoadElement[currentTab].call()
elseif DoubleClickMenu == 2 then RL_Func_LoadElementInTab[currentTab].call()
elseif DoubleClickMenu == 3 then AudioPreviewToggleState()
end
-- perform action directly
elseif dcOption == 2 then RL_Func_LoadElement[currentTab].call()
elseif dcOption == 3 then RL_Func_LoadElementInTab[currentTab].call()
elseif dcOption == 4 then AudioPreviewToggleState() end
end
----------------------------------
-- Recent project button functions
----------------------------------
local function Load_RecentProject_Base(tabmode)
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_recentProjects_listbox"))
for p = 1, #vals do
if FilterActive.RecentProjects then Global_Load(tabmode, RecentProjects.filteredItems[vals[p]].path, p)
else Global_Load(tabmode, RecentProjects.items[vals[p]].path, p) end
end
GUI.Val("tab_recentProjects_listbox",{})
Global_CheckWindowPinState()
end
end
local function Load_RecentProject()
Load_RecentProject_Base(false)
end
local function LoadInTab_RecentProject()
Load_RecentProject_Base(true)
end
-------------------
-- Load Last Active
-------------------
if SWSinstalled then
LastActiveProjects = {
tabCount = 0,
lastProject = "",
projectTabs = {}
}
function FillLastActiveProjects(listInReverse)
RL_SetFocusedTab(TabID.RecentProjects)
GUI.elms.tab_recentProjects_btnLastActiveProject.color = FilterColor.active
GUI.elms.tab_recentProjects_btnLastActiveProject:init()
RecentProjects.items, RecentProjects.display = {}, {}
local e = 0;
if IsNotNullOrEmpty(LastActiveProjects.tabCount) and tonumber(LastActiveProjects.tabCount) then
for i = 1, tonumber(LastActiveProjects.tabCount) do
local projectTabPath = LastActiveProjects.projectTabs[i]
if IsNotNullOrEmpty(projectTabPath) then
if ConfigFlags.listFilesInDebugMessages then MsgDebug(projectTabPath) end
e = AddRecentProjectEntries(projectTabPath, e)
end
end
end
if listInReverse then InvertElementOrder(RecentProjects.items) end
Global_UpdateListDisplay()
GUI.elms.tab_recentProjects_listbox:redraw()
ShowFileCount()
end
end
function RL_Context_LastActiveProjects()
if GUI.elms.main_tabs.state <= TabID.Favorites then
_, LastActiveProjects.lastProject = reaper.BR_Win32_GetPrivateProfileString("REAPER", "lastproject", "noEntry", reaperIniPath)
_, LastActiveProjects.tabCount = reaper.BR_Win32_GetPrivateProfileString("REAPER", "projecttabs", "noEntry", reaperIniPath)
local menuEntries = {}
if IsNotNullOrEmpty(LastActiveProjects.lastProject) and LastActiveProjects.lastProject ~= "noEntry" then menuEntries[1] = "1 - Load last active project (" .. GetFilenameWithoutPath(LastActiveProjects.lastProject) .. ")"
else menuEntries[1] = "#1 - Load last project" end
LastActiveProjects.projectTabs = {}
if tonumber(LastActiveProjects.tabCount) and tonumber(LastActiveProjects.tabCount) > 0 then
for i = 1, tonumber(LastActiveProjects.tabCount) do
local _, projectTabPath = reaper.BR_Win32_GetPrivateProfileString("REAPER", "projecttab" .. i, "noEntry", reaperIniPath)
if (IsNotNullOrEmpty(projectTabPath) or projectTabPath ~= "noEntry") and not CheckForDuplicates(LastActiveProjects.projectTabs, projectTabPath) then
LastActiveProjects.projectTabs[#LastActiveProjects.projectTabs + 1] = projectTabPath
end
end
if #LastActiveProjects.projectTabs > 0 then
menuEntries[#menuEntries + 1] = "2 - Load all last active project tabs (count: " .. #LastActiveProjects.projectTabs .. ")"
menuEntries[#menuEntries + 1] = "3 - Show projects in lists"
end
else
menuEntries[#menuEntries + 1] = "#2 - Load all last active project tabs"
menuEntries[#menuEntries + 1] = "#3 - Show projects in list"
end
if #menuEntries == 1 and menuEntries[1] == "#1 - Load last project" then
MsgStatusBar("No last active projects found")
return
end
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local RMBmenu = gfx.showmenu(table.concat(menuEntries, "||"))
if RMBmenu == 1 then Global_Load(false, LastActiveProjects.lastProject, 1)
elseif RMBmenu == 2 then for p = 1, #LastActiveProjects.projectTabs do Global_Load(true, LastActiveProjects.projectTabs[p], #LastActiveProjects.projectTabs) end
elseif RMBmenu == 3 then
RL.showLastActiveProjects = true
FillLastActiveProjects(false)
end
end
end
----------------------------------
-- Custom project button functions
----------------------------------
local function Load_CustomProject_Base(tabmode)
if GetMainListSize()> 0 then
local vals = GetSelectionTable(GUI.Val("tab_customProjects_listbox"))
for p = 1, #vals do
if FilterActive.CustomProjects then Global_Load(tabmode, CustomProjects.filteredItems[vals[p]].path, p)
else Global_Load(tabmode, CustomProjects.items[vals[p]].path, p) end
end
GUI.Val("tab_customProjects_listbox",{})
Global_CheckWindowPinState()
end
end
local function Load_CustomProject()
Load_CustomProject_Base(false)
end
local function LoadInTab_CustomProject()
Load_CustomProject_Base(true)
end
---------------------------
-- Project Template buttons
---------------------------
local function Load_ProjectTemplate_Base(tabmode)
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_projectTemplates_listbox"))
for p = 1, #vals do
if FilterActive.ProjectTemplates then
if tabmode then
reaper.Main_OnCommand(41929, 0) -- New project tab (ignore default template)
Global_ProjectTemplateLoadBase(ProjectTemplates.filteredItems[vals[p]].path)
else
Global_ProjectTemplateLoad(ProjectTemplates.filteredItems[vals[p]].path, p)
end
else
if tabmode then
reaper.Main_OnCommand(41929, 0) -- New project tab (ignore default template)
Global_ProjectTemplateLoadBase(ProjectTemplates.items[vals[p]].path)
else
Global_ProjectTemplateLoad(ProjectTemplates.items[vals[p]].path, p)
end
end
end
GUI.Val("tab_projectTemplates_listbox",{})
Global_TriggerFollowAction("actions_txtFollowAction_LoadProjectTemplate")
Global_CheckWindowPinState()
end
end
local function Load_ProjectTemplate()
Load_ProjectTemplate_Base(false)
end
local function LoadInTab_ProjectTemplate()
Load_ProjectTemplate_Base(true)
end
----------------------------------
-- Track Template button functions
----------------------------------
local function Load_TrackTemplate_Base(tabmode)
if GetMainListSize() > 0 then
local selectedTrackTemplate
local vals = GetSelectionTable(GUI.Val("tab_trackTemplates_listbox"))
for p = 1, #vals do
if FilterActive.TrackTemplates then selectedTrackTemplate = TrackTemplates.filteredItems[vals[p]].path
else selectedTrackTemplate = TrackTemplates.items[vals[p]].path end
if selectedTrackTemplate ~= nil then
if tabmode then reaper.Main_OnCommand(41929, 0) end -- New project tab (ignore default template)
reaper.Main_openProject(selectedTrackTemplate)
end
end
Global_TriggerFollowAction("actions_txtFollowAction_InsertTrackTemplate")
Global_CheckWindowPinState()
end
end
local function Load_TrackTemplateInTab()
Load_TrackTemplate_Base(true)
end
local function Load_TrackTemplate()
Load_TrackTemplate_Base(false)
end
--------------------------------
-- Project List button functions
--------------------------------
local function Load_ProjectListProject_Base(tabmode)
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_projectLists_listboxProjects"))
for p = 1, #vals do
if FilterActive.ProjectLists then Global_Load(tabmode, RemoveWhiteSpaces(ProjectLists.filteredProjectItems[vals[p]].path), p)
else Global_Load(tabmode, RemoveWhiteSpaces(ProjectLists.projectItems[vals[p]].path), p) end
end
GUI.Val("tab_projectLists_listboxProjects",{})
Global_CheckWindowPinState()
end
end
local function Load_ProjectListProject()
Load_ProjectListProject_Base(false)
end
local function LoadInTab_ProjectListProject()
Load_ProjectListProject_Base(true)
end
---------------------------------
--- Backups List button functions
---------------------------------
local function Load_BackupFile_Base(tabmode)
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_backups_listbox"))
for p = 1, #vals do
if FilterActive.Backups then Global_Load(tabmode, RemoveWhiteSpaces(Backups.filteredItems[vals[p]].path), p)
else Global_Load(tabmode, RemoveWhiteSpaces(Backups.items[vals[p]].path), p) end
end
GUI.Val("tab_backups_listbox",{})
Global_CheckWindowPinState()
end
end
local function Load_BackupFile()
Load_BackupFile_Base(false)
end
local function LoadInTab_BackupFile()
Load_BackupFile_Base(true)
end
--------------------
--- Scroll functions
--------------------
local function ScrollToTop(element)
if element ~= nil and element.wnd_h ~= nil and element.wnd_y ~= nil then
element.wnd_y = GUI.clamp(1, element.wnd_y - element.wnd_h, math.max(#element.list - element.wnd_h + 1, 1))
element:redraw()
end
end
local function ScrollToBottom(element)
if element ~= nil and element.wnd_h ~= nil and element.wnd_y ~= nil then
element.wnd_y = GUI.clamp(#element.list, element.wnd_h - element.wnd_y, math.max(#element.list - element.wnd_h + 1, 1))
element:redraw()
end
end
local function Scroll(element, listIndex, direction)
if element and element.wnd_h ~= nil and element.wnd_y ~= nil then
if listIndex > (element.wnd_h - 2) then
element.wnd_y = GUI.clamp(1, element.wnd_y + direction, math.max(#element.list - element.wnd_h + 1, 1))
elseif listIndex > 4 then
element.wnd_y = GUI.clamp(1, element.wnd_y - element.wnd_h, math.max(#element.list - element.wnd_h + 1, 1))
end
element:redraw()
end
end
-------------------
-- Filter functions
-------------------
FilterActive = {
RecentProjects = false,
ProjectTemplates = false,
TrackTemplates = false,
CustomProjects = false,
ProjectLists = false,
Backups = false,
Docs = false,
Favorites = false
}
FilterColor = {
active = "elm_fill",
inactive = "txt"
}
local function escapeSpecialCharacters(x)
return (x:gsub('%%', '%%%%')
:gsub('^%^', '%%^')
:gsub('%$$', '%%$')
:gsub('%(', '%%(')
:gsub('%)', '%%)')
:gsub('%.', '%%.')
:gsub('%[', '%%[')
:gsub('%]', '%%]')
:gsub('%*', '%%*')
:gsub('%+', '%%+')
:gsub('%-', '%%-')
:gsub('%?', '%%?'))
end
local replaceMatchString = function (c)
return "[" .. string.lower(c) .. string.upper(c) .. "]"
end
local function GetSearchTable(searchString)
local searchTable = {}
for match in string.gmatch(searchString, "[^%s]+") do -- space separator
searchTable[#searchTable + 1] = string.gsub(escapeSpecialCharacters(match), "%a", replaceMatchString)
end
return searchTable
end
-------------------------
-- Filter Recent Projects
-------------------------
local function Filter_RecentProject_Apply()
RecentProjects.filteredItems, RecentProjects.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_recentProjects_txtFilter")
if #searchStr > 0 then
FilterActive.RecentProjects = true
GUI.elms.tab_recentProjects_txtFilter.color, GUI.elms.tab_recentProjects_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_recentProjects_btnFilterClear:init()
if #RecentProjects.display > 0 then searchList = RecentProjects.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(RecentProjects.items) else searchList = GetSubTableByNameKey(RecentProjects.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(RecentProjects.filteredItems), RecentProjects.items[i].name) then
RecentProjects.filteredItems[#RecentProjects.filteredItems + 1] = {
name = RecentProjects.items[i].name,
path = RecentProjects.items[i].path,
date = GetLastModifiedDate(RecentProjects.items[i].path)
}
end
end
end
end
else
FilterActive.RecentProjects = false
GUI.elms.tab_recentProjects_txtFilter.color, GUI.elms.tab_recentProjects_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_recentProjects_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_recentProjects_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_RecentProject_Clear()
GUI.Val("tab_recentProjects_txtFilter", "")
Filter_RecentProject_Apply()
end
---------------------------
-- Filter Project Templates
---------------------------
local function Filter_ProjectTemplate_Apply()
ProjectTemplates.filteredItems, ProjectTemplates.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_projectTemplates_txtFilter")
if #searchStr > 0 then
FilterActive.ProjectTemplates = true
GUI.elms.tab_projectTemplates_txtFilter.color, GUI.elms.tab_projectTemplates_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_projectTemplates_btnFilterClear:init()
if #ProjectTemplates.display > 0 then searchList = ProjectTemplates.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(ProjectTemplates.items) else searchList = GetSubTableByNameKey(ProjectTemplates.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(ProjectTemplates.filteredItems), ProjectTemplates.items[i].name) then
ProjectTemplates.filteredItems[#ProjectTemplates.filteredItems + 1] = {
name = ProjectTemplates.items[i].name,
path = ProjectTemplates.items[i].path,
date = GetLastModifiedDate(ProjectTemplates.items[i].path)
}
end
end
end
end
else
FilterActive.ProjectTemplates = false
GUI.elms.tab_projectTemplates_txtFilter.color, GUI.elms.tab_projectTemplates_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_projectTemplates_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_projectTemplates_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_ProjectTemplate_Clear()
GUI.Val("tab_projectTemplates_txtFilter", "")
Filter_ProjectTemplate_Apply()
end
-------------------------
-- Filter Track Templates
-------------------------
local function Filter_TrackTemplate_Apply()
TrackTemplates.filteredItems, TrackTemplates.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_trackTemplates_txtFilter")
if #searchStr > 0 then
FilterActive.TrackTemplates = true
GUI.elms.tab_trackTemplates_txtFilter.color, GUI.elms.tab_trackTemplates_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_trackTemplates_btnFilterClear:init()
if #TrackTemplates.display > 0 then searchList = TrackTemplates.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(TrackTemplates.items) else searchList = GetSubTableByNameKey(TrackTemplates.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(TrackTemplates.filteredItems), TrackTemplates.items[i].name) then
TrackTemplates.filteredItems[#TrackTemplates.filteredItems + 1] = {
name = TrackTemplates.items[i].name,
path = TrackTemplates.items[i].path,
date = GetLastModifiedDate(TrackTemplates.items[i].path)
}
end
end
end
end
else
FilterActive.TrackTemplates = false
GUI.elms.tab_trackTemplates_txtFilter.color, GUI.elms.tab_trackTemplates_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_trackTemplates_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_trackTemplates_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_TrackTemplate_Clear()
GUI.Val("tab_trackTemplates_txtFilter", "")
Filter_TrackTemplate_Apply()
end
------------------
-- Filter Projects
------------------
local function Filter_CustomProjects_Apply()
CustomProjects.filteredItems, CustomProjects.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_customProjects_txtFilter")
if #searchStr > 0 then
FilterActive.CustomProjects = true
GUI.elms.tab_customProjects_txtFilter.color, GUI.elms.tab_customProjects_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_customProjects_btnFilterClear:init()
if #CustomProjects.display > 0 then searchList = CustomProjects.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(CustomProjects.items) else searchList = GetSubTableByNameKey(CustomProjects.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(CustomProjects.filteredItems), CustomProjects.items[i].name) then
CustomProjects.filteredItems[#CustomProjects.filteredItems + 1] = {
name = CustomProjects.items[i].name,
path = CustomProjects.items[i].path,
date = GetLastModifiedDate(CustomProjects.items[i].path)
}
end
end
end
end
else
FilterActive.CustomProjects = false
GUI.elms.tab_customProjects_txtFilter.color, GUI.elms.tab_customProjects_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_customProjects_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_customProjects_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_CustomProjects_Clear()
GUI.Val("tab_customProjects_txtFilter", "")
Filter_CustomProjects_Apply()
end
-----------------------
-- Filter Project Lists
-----------------------
local function Filter_ProjectLists_Apply()
ProjectLists.filteredProjectItems, ProjectLists.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_projectLists_txtFilter")
if #searchStr > 0 then
FilterActive.ProjectLists = true
GUI.elms.tab_projectLists_txtFilter.color, GUI.elms.tab_projectLists_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_projectLists_btnFilterClear:init()
if #ProjectLists.display > 0 then searchList = ProjectLists.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(ProjectLists.projectItems) else searchList = GetSubTableByNameKey(ProjectLists.projectItems) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(ProjectLists.filteredProjectItems), ProjectLists.projectItems[i].name) then
ProjectLists.filteredProjectItems[#ProjectLists.filteredProjectItems + 1] = {
name = ProjectLists.projectItems[i].name,
path = ProjectLists.projectItems[i].path,
date = GetLastModifiedDate(ProjectLists.projectItems[i].path) }
end
end
end
end
else
FilterActive.ProjectLists = false
GUI.elms.tab_projectLists_txtFilter.color, GUI.elms.tab_projectLists_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_projectLists_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_projectLists_listboxProjects",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_ProjectLists_Clear()
GUI.Val("tab_projectLists_txtFilter", "")
Filter_ProjectLists_Apply()
end
-----------------
-- Filter Backups
-----------------
local function Filter_Backups_Apply()
Backups.filteredItems, Backups.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_backups_txtFilter")
if #searchStr > 0 then
FilterActive.Backups = true
GUI.elms.tab_backups_txtFilter.color, GUI.elms.tab_backups_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_backups_btnFilterClear:init()
if #Backups.display > 0 then searchList = Backups.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(Backups.items) else searchList = GetSubTableByNameKey(Backups.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(Backups.filteredItems), Backups.items[i].name) then
Backups.filteredItems[#Backups.filteredItems + 1] = {
name = Backups.items[i].name,
path = Backups.items[i].path,
date = GetLastModifiedDate(Backups.items[i].path)
}
end
end
end
end
else
FilterActive.Backups = false
GUI.elms.tab_backups_txtFilter.color, GUI.elms.tab_backups_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_backups_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_backups_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_Backups_Clear()
GUI.Val("tab_backups_txtFilter", "")
Filter_Backups_Apply()
end
--------------
-- Filter Docs
--------------
local function Filter_Docs_Apply()
Docs.filteredItems, Docs.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_docs_txtFilter")
if #searchStr > 0 then
FilterActive.Docs = true
GUI.elms.tab_docs_txtFilter.color, GUI.elms.tab_docs_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_docs_btnFilterClear:init()
if #Docs.display > 0 then searchList = Docs.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(Docs.items) else searchList = GetSubTableByNameKey(Docs.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(Docs.filteredItems), Docs.items[i].name) then
Docs.filteredItems[#Docs.filteredItems + 1] = {
name = Docs.items[i].name,
path = Docs.items[i].path,
date = GetLastModifiedDate(Docs.items[i].path)
}
end
end
end
end
else
FilterActive.Docs = false
GUI.elms.tab_docs_txtFilter.color, GUI.elms.tab_docs_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_docs_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_docs_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_Docs_Clear()
GUI.Val("tab_docs_txtFilter", "")
Filter_Docs_Apply()
end
-------------------
-- Filter Favorites
-------------------
local function Filter_Favorites_Apply()
Favorites.filteredItems, Favorites.filteredDisplay = {}, {}
local searchList, searchStr = {}, GUI.Val("tab_favorites_txtFilter")
if #searchStr > 0 then
FilterActive.Favorites = true
GUI.elms.tab_favorites_txtFilter.color, GUI.elms.tab_favorites_btnFilterClear.color = FilterColor.active, FilterColor.active
GUI.elms.tab_favorites_btnFilterClear:init()
if #Favorites.display > 0 then searchList = Favorites.display
else if RL.showFullPaths then searchList = GetSubTableByPathKey(Favorites.items) else searchList = GetSubTableByNameKey(Favorites.items) end end
local searchterms = GetSearchTable(searchStr)
for t = 1, #searchterms do
for i = 1, #searchList do
if string.find(searchList[i], searchterms[t]) then
if not CheckForDuplicates(GetSubTableByNameKey(Favorites.filteredItems), Favorites.items[i].name) then
Favorites.filteredItems[#Favorites.filteredItems + 1] = {
name = Favorites.items[i].name,
path = Favorites.items[i].path,
date = GetLastModifiedDate(Favorites.items[i].path)
}
end
end
end
end
else
FilterActive.Favorites = false
GUI.elms.tab_favorites_txtFilter.color, GUI.elms.tab_favorites_btnFilterClear.color = FilterColor.inactive, FilterColor.inactive
GUI.elms.tab_favorites_btnFilterClear:init()
end
Global_UpdateListDisplay()
ShowFileCount()
GUI.Val("tab_favorites_listbox",{})
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
end
local function Filter_Favorites_Clear()
GUI.Val("tab_favorites_txtFilter", "")
Filter_Favorites_Apply()
end
function Global_UpdateFilter()
if not RL.skipOperationOnResize then
if GUI.elms.main_tabs.state == TabID.RecentProjects then Filter_RecentProject_Apply()
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then Filter_ProjectTemplate_Apply()
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then Filter_TrackTemplate_Apply()
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then Filter_CustomProjects_Apply()
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then Filter_ProjectLists_Apply()
elseif GUI.elms.main_tabs.state == TabID.Backups then Filter_Backups_Apply()
elseif GUI.elms.main_tabs.state == TabID.Docs then Filter_Docs_Apply()
elseif GUI.elms.main_tabs.state == TabID.Favorites then Filter_Favorites_Apply()
end
end
end
local function RL_Keys_ClearFilter()
if GUI.elms.main_tabs.state == TabID.RecentProjects then Filter_RecentProject_Clear()
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then Filter_ProjectTemplate_Clear()
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then Filter_TrackTemplate_Clear()
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then Filter_CustomProjects_Clear()
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then Filter_ProjectLists_Clear()
elseif GUI.elms.main_tabs.state == TabID.Backups then Filter_Backups_Clear()
elseif GUI.elms.main_tabs.state == TabID.Docs then Filter_Docs_Clear()
elseif GUI.elms.main_tabs.state == TabID.Favorites then Filter_Favorites_Clear()
end
end
function RebuildCache()
MsgDebug("-------- Cache rebuild: started --------")
RL_Func_RebuildCache[GUI.elms.main_tabs.state].call()
Global_UpdateSortMode()
MsgDebug("-------- Cache rebuild: finished --------")
end
----------------------------
-- Listbox Refresh functions
----------------------------
function RefreshRecentProjects(listInReverse)
RL.showLastActiveProjects = false
if SWSinstalled then
GUI.elms.tab_recentProjects_btnLastActiveProject.color = FilterColor.inactive
GUI.elms.tab_recentProjects_btnLastActiveProject:redraw()
GUI.elms.tab_recentProjects_btnLastActiveProject:init()
if listInReverse then
MsgDebug("\nRefresh Recent Projects - oldest first")
FillRecentProjectsListbox(false)
else
MsgDebug("\nRefresh Recent Projects - newest first")
FillRecentProjectsListbox(true)
end
else MsgStatusBar("This tab requires SWS Extensions") end
end
local function RefreshProjectTemplates()
MsgDebug("\nRefresh Project Templates")
if ShowSubfolderPanel(TabID.ProjectTemplates) then
local cacheExists, cacheTable = RL_ReadFromSubfolderCache(SubpanelFile.ProjectTemplates, SubpanelFile.MainSection)
if cacheExists then
SubfolderPaths.projectTemplates, SubfolderNames.projectTemplates = {"< All >"}, {"< All >"}
for c = 1, #cacheTable do
SubfolderPaths.projectTemplates[#SubfolderPaths.projectTemplates + 1] = cacheTable[c]
if IsNotNullOrEmpty(CustomPaths.ProjectTemplates) then
local multiPaths = SplitMultiPaths(CustomPaths.ProjectTemplates)
local foundMatchingFolderName = false
for m = 1, #multiPaths do if cacheTable[c] == multiPaths[m] then foundMatchingFolderName = true break end end
if foundMatchingFolderName or c == 1 then SubfolderNames.projectTemplates[#SubfolderNames.projectTemplates + 1] = "< " .. GetFolderName(cacheTable[c]) .. " >"
else SubfolderNames.projectTemplates[#SubfolderNames.projectTemplates + 1] = RL.subfolderIndent .. GetFolderName(cacheTable[c]) end
else
SubfolderPaths.projectTemplates, SubfolderNames.projectTemplates = GetSubFolderEntries(projectTemplatePath, CustomPaths.ProjectTemplates, TabID.ProjectTemplates, FileTypes.rpp)
if not RL.showSubFolderPaths then GUI.elms.tab_projectTemplates_subfolders.list = SubfolderNames.projectTemplates
else GUI.elms.tab_projectTemplates_subfolders.list = SubfolderPaths.projectTemplates end
end
end
else
SubfolderPaths.projectTemplates, SubfolderNames.projectTemplates = GetSubFolderEntries(projectTemplatePath, CustomPaths.ProjectTemplates, TabID.ProjectTemplates, FileTypes.rpp)
if not RL.showSubFolderPaths then GUI.elms.tab_projectTemplates_subfolders.list = SubfolderNames.projectTemplates
else GUI.elms.tab_projectTemplates_subfolders.list = SubfolderPaths.projectTemplates end
RL_WriteToSubfolderCache(SubpanelFile.ProjectTemplates, SubpanelFile.MainSection, SubfolderPaths.projectTemplates)
end
Global_UpdateSubfolderPathDisplay()
GUI.Val("tab_projectTemplates_subfolders", TabParentSelectionIndex[TabID.ProjectTemplates])
UpdateProjectTemplateSubDirSelection()
else
FillProjectTemplateListbox()
end
ShowFileCount()
end
local function RefreshTrackTemplates()
MsgDebug("\nRefresh Track Templates")
if ShowSubfolderPanel(TabID.TrackTemplates) then
local cacheExists, cacheTable = RL_ReadFromSubfolderCache(SubpanelFile.TrackTemplates, SubpanelFile.MainSection)
if cacheExists then
SubfolderPaths.trackTemplates, SubfolderNames.trackTemplates = {"< All >"}, {"< All >"}
for c = 1, #cacheTable do
SubfolderPaths.trackTemplates[#SubfolderPaths.trackTemplates + 1] = cacheTable[c]
if IsNotNullOrEmpty(CustomPaths.TrackTemplates) then
local multiPaths = SplitMultiPaths(CustomPaths.TrackTemplates)
local foundMatchingFolderName = false
for m = 1, #multiPaths do if cacheTable[c] == multiPaths[m] then foundMatchingFolderName = true break end end
if foundMatchingFolderName or c == 1 then SubfolderNames.trackTemplates[#SubfolderNames.trackTemplates + 1] = "< " .. GetFolderName(cacheTable[c]) .. " >"
else SubfolderNames.trackTemplates[#SubfolderNames.trackTemplates + 1] = RL.subfolderIndent .. GetFolderName(cacheTable[c]) end
else
SubfolderPaths.trackTemplates, SubfolderNames.trackTemplates = GetSubFolderEntries(trackTemplatePath, CustomPaths.TrackTemplates, TabID.TrackTemplates, FileTypes.tracktemplate)
if not RL.showSubFolderPaths then GUI.elms.tab_trackTemplates_subfolders.list = SubfolderNames.trackTemplates
else GUI.elms.tab_trackTemplates_subfolders.list = SubfolderPaths.trackTemplates end
end
end
else
SubfolderPaths.trackTemplates, SubfolderNames.trackTemplates = GetSubFolderEntries(trackTemplatePath, CustomPaths.TrackTemplates, TabID.TrackTemplates, FileTypes.tracktemplate)
if not RL.showSubFolderPaths then GUI.elms.tab_trackTemplates_subfolders.list = SubfolderNames.trackTemplates
else GUI.elms.tab_trackTemplates_subfolders.list = SubfolderPaths.trackTemplates end
RL_WriteToSubfolderCache(SubpanelFile.TrackTemplates, SubpanelFile.MainSection, SubfolderPaths.trackTemplates)
end
Global_UpdateSubfolderPathDisplay()
GUI.Val("tab_trackTemplates_subfolders", TabParentSelectionIndex[TabID.TrackTemplates])
UpdateTrackTemplateSubDirSelection()
else
FillTrackTemplateListbox()
end
ShowFileCount()
end
local function RefreshCustomProjects()
MsgDebug("\nRefresh Projects")
if IsNotNullOrEmpty(CustomPaths.Projects) then
if ShowSubfolderPanel(TabID.CustomProjects) and #CustomPaths.Projects > 1 then
local cacheExists, cacheTable = RL_ReadFromSubfolderCache(SubpanelFile.CustomProjects, SubpanelFile.MainSection)
if cacheExists then
SubfolderPaths.customProjects, SubfolderNames.customProjects = {"< All >"}, {"< All >"}
for c = 1, #cacheTable do
SubfolderPaths.customProjects[#SubfolderPaths.customProjects + 1] = cacheTable[c]
local multiPaths = SplitMultiPaths(CustomPaths.Projects)
local foundMatchingFolderName = false
for m = 1, #multiPaths do if cacheTable[c] == multiPaths[m] then foundMatchingFolderName = true break end end
if foundMatchingFolderName or c == 1 then SubfolderNames.customProjects[#SubfolderNames.customProjects + 1] = "< " .. GetFolderName(cacheTable[c]) .. " >"
else SubfolderNames.customProjects[#SubfolderNames.customProjects + 1] = RL.subfolderIndent .. GetFolderName(cacheTable[c]) end
end
else
SubfolderPaths.customProjects, SubfolderNames.customProjects = GetSubFolderEntries("All", CustomPaths.Projects, TabID.CustomProjects, FileTypes.rpp)
if not RL.showSubFolderPaths then GUI.elms.tab_customProjects_subfolders.list = SubfolderNames.customProjects
else GUI.elms.tab_customProjects_subfolders.list = SubfolderPaths.customProjects end
RL_WriteToSubfolderCache(SubpanelFile.CustomProjects, SubpanelFile.MainSection, SubfolderPaths.customProjects)
end
Global_UpdateSubfolderPathDisplay()
GUI.Val("tab_customProjects_subfolders", TabParentSelectionIndex[TabID.CustomProjects])
UpdateCustomProjectSubDirSelection()
else
FillCustomProjectsListbox()
end
ShowFileCount()
else
MsgStatusBar("No Paths set for Projects")
end
end
local function RefreshProjectList()
MsgDebug("\nRefresh Project Lists")
if #CustomPaths.ProjectLists > 1 then
ProjectLists.projectItems = {}
ProjectLists.rplPaths, ProjectLists.rplFiles = {"< All >"}, {"< All >"}
local cacheExists, cacheTable = RL_ReadFromSubfolderCache(SubpanelFile.ProjectLists, SubpanelFile.MainSection)
if cacheExists then
for c = 1, #cacheTable do
ProjectLists.rplFiles[#ProjectLists.rplFiles + 1] = RemoveExtension(GetFilenameWithoutPath(cacheTable[c]), FileTypes.rpl)
ProjectLists.rplPaths[#ProjectLists.rplPaths + 1] = GetDirectoryPath(cacheTable[c])
end
else
local subfolderCacheFiles = {}
local multiPaths = SplitMultiPaths(CustomPaths.ProjectLists)
for m = 1, #multiPaths do
local projectListFiles = GetFiles(multiPaths[m], TabID.ProjectLists, FileTypes.rpl)
for i = 1, #projectListFiles do
subfolderCacheFiles[#subfolderCacheFiles + 1] = projectListFiles[i]
if ConfigFlags.listFilesInDebugMessages then MsgDebug(projectListFiles[i]) end
local rplName = RemoveExtension(GetFilenameWithoutPath(projectListFiles[i]), FileTypes.rpl)
if IsNotNullOrEmpty(rplName) then
ProjectLists.rplFiles[#ProjectLists.rplFiles + 1] = rplName
ProjectLists.rplPaths[#ProjectLists.rplPaths + 1] = GetDirectoryPath(projectListFiles[i])
end
end
end
RL_WriteToSubfolderCache(SubpanelFile.ProjectLists, SubpanelFile.MainSection, subfolderCacheFiles)
end
if ShowSubfolderPanel(TabID.ProjectLists) then
GUI.elms.tab_projectLists_listboxRPL.list = ProjectLists.rplFiles
GUI.Val("tab_projectLists_listboxRPL", TabParentSelectionIndex[TabID.ProjectLists])
if RL.sortModeIndex[GUI.elms.main_tabs.state] == 2 then UpdateProjectListSelection(true) else UpdateProjectListSelection(false) end
else
local allRPLProjects = {}
for v = 2, #ProjectLists.rplFiles do allRPLProjects[v - 1] = v end
RPL_ParseRPLFile(allRPLProjects, false)
TabSelectionIndex[TabID.ProjectLists] = 1
GUI.Val("tab_projectLists_listboxProjects", {1})
Global_UpdateListDisplay()
ShowFileCount()
end
else
MsgStatusBar("No Paths set for Project Lists")
end
end
local function RefreshBackups()
MsgDebug("\nRefresh Backups")
if IsNotNullOrEmpty(CustomPaths.Backups) then
if ShowSubfolderPanel(TabID.Backups) and #CustomPaths.Backups > 1 then
local cacheExists, cacheTable = RL_ReadFromSubfolderCache(SubpanelFile.Backups, SubpanelFile.MainSection)
if cacheExists then
SubfolderPaths.backups, SubfolderNames.backups = {"< All >"}, {"< All >"}
for c = 1, #cacheTable do
SubfolderPaths.backups[#SubfolderPaths.backups + 1] = cacheTable[c]
local multiPaths = SplitMultiPaths(CustomPaths.Backups)
local foundMatchingFolderName = false
for m = 1, #multiPaths do if cacheTable[c] == multiPaths[m] then foundMatchingFolderName = true break end end
if foundMatchingFolderName or c == 1 then SubfolderNames.backups[#SubfolderNames.backups + 1] = "< " .. GetFolderName(cacheTable[c]) .. " >"
else SubfolderNames.backups[#SubfolderNames.backups + 1] = RL.subfolderIndent .. GetFolderName(cacheTable[c]) end
end
else
SubfolderPaths.backups, SubfolderNames.backups = GetSubFolderEntries("All", CustomPaths.Backups, TabID.Backups, FileTypes.backup)
if not RL.showSubFolderPaths then GUI.elms.tab_backups_subfolders.list = SubfolderNames.backups
else GUI.elms.tab_backups_subfolders.list = SubfolderPaths.backups end
RL_WriteToSubfolderCache(SubpanelFile.Backups, SubpanelFile.MainSection, SubfolderPaths.backups)
end
Global_UpdateSubfolderPathDisplay()
GUI.Val("tab_backups_subfolders", TabParentSelectionIndex[TabID.Backups])
UpdateBackupsSubDirSelection()
else
FillBackupsListbox()
end
ShowFileCount()
else
MsgStatusBar("No Paths set for Backups")
end
end
local function RefreshDocs()
if SWSinstalled then
MsgDebug("\nRefresh Docs")
if IsNotNullOrEmpty(CustomPaths.Docs) then
if ShowSubfolderPanel(TabID.Docs) and #CustomPaths.Docs > 1 then
local cacheExists, cacheTable = RL_ReadFromSubfolderCache(SubpanelFile.Docs, SubpanelFile.MainSection)
if cacheExists then
SubfolderPaths.docs, SubfolderNames.docs = {"< All >"}, {"< All >"}
for c = 1, #cacheTable do
SubfolderPaths.docs[#SubfolderPaths.docs + 1] = cacheTable[c]
local multiPaths = SplitMultiPaths(CustomPaths.Docs)
local foundMatchingFolderName = false
for m = 1, #multiPaths do if cacheTable[c] == multiPaths[m] then foundMatchingFolderName = true break end end
if foundMatchingFolderName or c == 1 then SubfolderNames.docs[#SubfolderNames.docs + 1] = "< " .. GetFolderName(cacheTable[c]) .. " >"
else SubfolderNames.docs[#SubfolderNames.docs + 1] = RL.subfolderIndent .. GetFolderName(cacheTable[c]) end
end
else
SubfolderPaths.docs, SubfolderNames.docs = GetSubFolderEntries("All", CustomPaths.Docs, TabID.Docs, FileTypes.docs)
if not RL.showSubFolderPaths then GUI.elms.tab_docs_subfolders.list = SubfolderNames.docs
else GUI.elms.tab_docs_subfolders.list = SubfolderPaths.docs end
RL_WriteToSubfolderCache(SubpanelFile.Docs, SubpanelFile.MainSection, SubfolderPaths.docs)
end
Global_UpdateSubfolderPathDisplay()
GUI.Val("tab_docs_subfolders", TabParentSelectionIndex[TabID.Docs])
UpdateDocsSubDirSelection()
else
FillDocsListbox()
end
ShowFileCount()
else
MsgStatusBar("No Paths set for Docs")
end
else
MsgStatusBar("This tab requires SWS Extensions")
end
end
-------------------
-- Set custom paths
-------------------
local function Path_Set_ProjectTemplateFolder()
if GUI.Val("paths_txtProjectTemplatesPath") == "" then
CustomPaths.ProjectTemplates = ""
ProjectTemplates.items = {}
ProjectTemplates.filteredItems, ProjectTemplates.filteredDisplay = {}, {}
GUI.Val("paths_txtProjectTemplatesPath", "")
GUI.elms.tab_projectTemplates_listbox.list = {}
GUI.elms.paths_txtProjectTemplatesPath.tooltip = ".RPP Project Templates\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3"
reaper.DeleteExtState(appname, "custompath_projecttemplates", 1)
RL_ClearFile(CacheFile.ProjectTemplates)
RL_ClearFile(SubpanelFile.ProjectTemplates)
MsgStatusBar("Project Templates paths removed")
else
reaper.SetExtState(appname, "custompath_projecttemplates", GUI.Val("paths_txtProjectTemplatesPath"), 1)
CustomPaths.ProjectTemplates = GUI.Val("paths_txtProjectTemplatesPath")
GUI.elms.paths_txtProjectTemplatesPath.tooltip = ".RPP Project Templates\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtProjectTemplatesPath")
MsgStatusBar("Project Template paths set / scanned")
end
if ConfigFlags.enableFileCaching then RL_ScanProjectTemplateFiles() end
if ConfigFlags.enableSubfolderCaching then RL_ScanProjectTemplateSubfolders() end
RL_ShowProgressIndicator(TabID.ProjectTemplates, false)
end
local function Path_Set_TrackTemplateFolder()
if GUI.Val("paths_txtTrackTemplatesPath") == "" then
CustomPaths.TrackTemplates = ""
TrackTemplates.items = {}
TrackTemplates.filteredItems, TrackTemplates.filteredDisplay = {}, {}
GUI.Val("paths_txtTrackTemplatesPath", "")
GUI.elms.tab_trackTemplates_listbox.list = {}
GUI.elms.paths_txtTrackTemplatesPath.tooltip = ".RTrackTemplate Track Templates\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3"
reaper.DeleteExtState(appname, "custompath_tracktemplates", 1)
RL_ClearFile(CacheFile.TrackTemplates)
RL_ClearFile(SubpanelFile.TrackTemplates)
MsgStatusBar("Track Templates paths removed")
else
reaper.SetExtState(appname, "custompath_tracktemplates", GUI.Val("paths_txtTrackTemplatesPath"), 1)
CustomPaths.TrackTemplates = GUI.Val("paths_txtTrackTemplatesPath")
GUI.elms.paths_txtTrackTemplatesPath.tooltip = ".RTrackTemplate Track Templates\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtTrackTemplatesPath")
MsgStatusBar("Track Templates paths set / scanned")
end
if ConfigFlags.enableFileCaching then RL_ScanTrackTemplateFiles() end
if ConfigFlags.enableSubfolderCaching then RL_ScanTrackTemplateSubfolders() end
RL_ShowProgressIndicator(TabID.TrackTemplates, false)
end
local function Path_Set_CustomProjectFolder()
if GUI.Val("paths_txtCustomProjectsPath") == "" then
CustomPaths.Projects = ""
CustomProjects.items = {}
CustomProjects.filteredItems, CustomProjects.filteredDisplay = {}, {}
GUI.Val("paths_txtCustomProjectsPath", "")
GUI.elms.tab_customProjects_listbox.list = {}
GUI.elms.paths_txtCustomProjectsPath.tooltip = ".RPP Projects\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3"
reaper.DeleteExtState(appname, "custompath_projects", 1)
RL_ClearFile(CacheFile.CustomProjects)
RL_ClearFile(SubpanelFile.CustomProjects)
MsgStatusBar("Projects paths removed")
else
reaper.SetExtState(appname, "custompath_projects", GUI.Val("paths_txtCustomProjectsPath"), 1)
CustomPaths.Projects = GUI.Val("paths_txtCustomProjectsPath")
GUI.elms.paths_txtCustomProjectsPath.tooltip = ".RPP Projects\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtCustomProjectsPath")
if ConfigFlags.enableFileCaching then RL_ScanCustomProjectFiles() end
MsgStatusBar("Projects paths set / scanned")
end
if ConfigFlags.enableSubfolderCaching then RL_ScanCustomProjectSubfolders() end
RL_ShowProgressIndicator(TabID.CustomProjects, false)
end
local function Path_Set_ProjectListFolder()
if GUI.Val("paths_txtProjectsListsPath") == "" then
CustomPaths.ProjectLists = ""
ProjectLists.projectItems = {}
ProjectLists.filteredProjectItems, ProjectLists.rplFiles = {}, {}
GUI.Val("paths_txtProjectsListsPath", "")
if GUI.elms.tab_projectLists_listboxRPL ~= nil then GUI.elms.tab_projectLists_listboxRPL.list = {} end
GUI.elms.tab_projectLists_listboxProjects.list = {}
GUI.elms.paths_txtProjectsListsPath.tooltip = ".RPL Project Lists\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3"
reaper.DeleteExtState(appname, "custompath_projectlists", 1)
RL_ClearFile(CacheFile.ProjectLists)
RL_ClearFile(SubpanelFile.ProjectLists)
MsgStatusBar("Project Lists paths removed")
else
reaper.SetExtState(appname, "custompath_projectlists", GUI.Val("paths_txtProjectsListsPath"), 1)
CustomPaths.ProjectLists = GUI.Val("paths_txtProjectsListsPath")
GUI.elms.paths_txtProjectsListsPath.tooltip = ".RPL Project Lists\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtProjectsListsPath")
if ConfigFlags.enableFileCaching then RL_ScanProjectListFiles() end
MsgStatusBar("Project Lists paths set / scanned")
end
if ConfigFlags.enableSubfolderCaching then RL_ScanProjectListSubfolders() end
RL_ShowProgressIndicator(TabID.ProjectLists, false)
end
local function Path_Set_BackupsFolder()
if GUI.Val("paths_txtBackupsPath") == "" then
CustomPaths.Backups = ""
Backups.items = {}
Backups.filteredItems, Backups.filteredDisplay = {}, {}
GUI.Val("paths_txtBackupsPath", "")
GUI.elms.tab_backups_listbox.list = {}
GUI.elms.paths_txtBackupsPath.tooltip = ".RPP-BAK Backups\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3"
reaper.DeleteExtState(appname, "custompath_backups", 1)
RL_ClearFile(CacheFile.Backups)
RL_ClearFile(SubpanelFile.Backups)
MsgStatusBar("Backups paths removed")
else
reaper.SetExtState(appname, "custompath_backups", GUI.Val("paths_txtBackupsPath"), 1)
CustomPaths.Backups = GUI.Val("paths_txtBackupsPath")
GUI.elms.paths_txtBackupsPath.tooltip = ".RPP-BAK Backups\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtBackupsPath")
if ConfigFlags.enableFileCaching then RL_ScanBackupsFiles() end
MsgStatusBar("Backups paths set / scanned")
end
if ConfigFlags.enableSubfolderCaching then RL_ScanBackupsSubfolders() end
RL_ShowProgressIndicator(TabID.Backups, false)
end
local function Path_Set_DocsFolder()
if GUI.Val("paths_txtDocsPath") == "" then
CustomPaths.Docs = ""
Docs.items = {}
Docs.filteredItems, Docs.filteredDisplay = {}, {}
GUI.Val("paths_txtDocsPath", "")
GUI.elms.tab_docs_listbox.list = {}
GUI.elms.paths_txtDocsPath.tooltip = ".PDF Docs\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3"
reaper.DeleteExtState(appname, "custompath_docs", 1)
RL_ClearFile(CacheFile.Docs)
RL_ClearFile(SubpanelFile.Docs)
MsgStatusBar("Docs paths removed")
else
reaper.SetExtState(appname, "custompath_docs", GUI.Val("paths_txtDocsPath"), 1)
CustomPaths.Docs = GUI.Val("paths_txtDocsPath")
GUI.elms.paths_txtDocsPath.tooltip = ".PDF Docs\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtDocsPath")
if ConfigFlags.enableFileCaching then RL_ScanDocsFiles() end
MsgStatusBar("Docs paths set / scanned")
end
if ConfigFlags.enableSubfolderCaching then RL_ScanDocsSubfolders() end
RL_ShowProgressIndicator(TabID.Docs, false)
end
----------------
-- Layer z index
----------------
local LayerIndex = {
Overlay = 1,
Main = 2,
Global = 3,
RecentProjects = 4,
ProjectTemplates = 5,
TrackTemplates = 6,
CustomProjects = 7,
ProjectLists = 8,
Docs = 9,
Backups = 10,
Favorites = 11,
Paths = 12,
ScanSettings = 13,
Layout = 14,
Actions = 15,
Options = 16,
Help = 17,
SaveAsNewVersion = 18,
SpecialOption = 19,
VersionInfo = 20,
OptionsMenu = 21,
ConfirmDialogContent = 30,
ConfirmDialogWindow = 31
}
RL = {
activeSubPanels = {},
dialogKeyMode = false,
fontSizes = { 30, 18, 14, 14, 14, 12 },
forceRescan = false,
isNewTemplateLoadLogicSupported = false,
keyInputActive = true,
lastFolderPath = "",
listboxFontSize = 14,
minHeight = 355,
minWidth = 532,
projectTemplateLoadMode = 1,
retinaMode = 0,
saveAsNewVersionMode = 0,
scaleFactor = 1.6,
scaleMin = 1.0,
scaleMax = 5.0,
scaleStepSize = 0.2,
showButtonPanel = true,
showDate = false,
showFullPaths = false,
showLastActiveProjects = false,
showSubFolderPaths = false,
showTooltips = false,
skipOperationOnResize = false,
sortModeIndex = { 1, 1, 1, 1, 1, 1, 1, 1 },
subfolderIndent = " ",
tabSelectorStyle = 1,
windowToggleShortcut = nil
}
if reaper.GetExtState(appname, "window_tabselectorstyle") ~= "" then
if tonumber(reaper.GetExtState(appname, "window_tabselectorstyle")) then RL.tabSelectorStyle = tonumber(reaper.GetExtState(appname, "window_tabselectorstyle")) end
end
if reaper.GetExtState(appname, "window_showmainbuttonpanel") ~= "" then
RL.showButtonPanel = (reaper.GetExtState(appname, "window_showmainbuttonpanel") == "true" and true or false)
end
if RL.showButtonPanel then
RL.minWidth = 563
if RL.tabSelectorStyle == 1 then RL.minHeight = 370 else RL.minHeight = 349 end
else
RL.minWidth, RL.minHeight = 420, 228
end
-- check if the Reaper version number is 5.983 or higher (where the new template load logic is supported)
if IsNotNullOrEmpty(reaperversion) then
local majorVersionNumber = reaperversion:match("[^.]+")
if tonumber(majorVersionNumber) and tonumber(majorVersionNumber) >= 6 then
RL.isNewTemplateLoadLogicSupported = true
elseif (reaperversion:match("5.99") or reaperversion:match("5.98[3-9]")) then
RL.isNewTemplateLoadLogicSupported = true
else
RL.isNewTemplateLoadLogicSupported = false
end
end
-- SWS block begin
if SWSinstalled then
-----------------------
-- Theme slot functions
-----------------------
local ThemeSlots = {
maxCount = 5,
items = "----,1,2,3,4,5"
}
local function ThemeSlot_Setup()
reaper.Main_OnCommand(reaper.NamedCommandLookup("_S&M_SHOW_RESVIEW_THEME"), 0) -- SWS/S&M: Open/close Resources window (themes)
end
local function ThemeSlot_Load()
themeslot = GUI.Val("main_menuThemeslot")
if themeslot < 5 then reaper.Main_OnCommand(reaper.NamedCommandLookup("_S&M_LOAD_THEME" .. themeslot - 1), 0) -- SWS/S&M: Resources - Load theme, slot#
else reaper.Main_OnCommand(reaper.NamedCommandLookup("_S&M_LOAD_THEMEl"), 0) end
end
function RL_Draw_ThemeSlotSelector(alignment)
if RL.showButtonPanel then
GUI.New("main_lblThemeslot", "Label", LayerIndex.Global, GUI.w - (140 * RL.scaleFactor) + (RL.scaleFactor * 11), footerY + (2 * RL.scaleFactor), "Reaper Theme", false, 3)
GUI.New("main_menuThemeslot", "Menubox", LayerIndex.Global, GUI.w - (60 * RL.scaleFactor) + (RL.scaleFactor * 10), footerY + (2 * RL.scaleFactor), 34 * RL.scaleFactor, 15 * RL.scaleFactor, "", ThemeSlots.items, 8)
GUI.elms.main_menuThemeslot.tooltip = "Set up and switch between different Reaper Theme Slots\n\nSlot number and descriptions can be set in\n[Layout / Colors]"
GUI.elms.main_menuThemeslot.align = alignment
function GUI.elms.main_menuThemeslot:onmousedown()
GUI.Menubox.onmouseup(self)
ThemeSlot_Load()
end
function GUI.elms.main_menuThemeslot:onwheel()
GUI.Menubox.onwheel(self)
ThemeSlot_Load()
end
end
end
function ThemeSlot_GetNames()
local themeSlotNames = {}
if GUI.Val("layout_themeslot_number") == nil then ThemeSlots.maxCount = 5
else ThemeSlots.maxCount = GUI.Val("layout_themeslot_number") end
for i = 1, ThemeSlots.maxCount do themeSlotNames[i] = GUI.Val("layout_themeslot_" .. i) or " " end
ThemeSlots.items = " ---"
for t = 1, ThemeSlots.maxCount do ThemeSlots.items = ThemeSlots.items .. ", " .. t .. " " .. themeSlotNames[t] end
local themeSlotAliases = themeSlotNames[1]
for t = 2, ThemeSlots.maxCount do themeSlotAliases = themeSlotAliases .. "," .. themeSlotNames[t] end
return themeSlotAliases
end
local function ThemeSlot_SaveNames()
reaper.SetExtState(appname, "themeslot_aliases", ThemeSlot_GetNames(), 1)
RL_Draw_ThemeSlotSelector(0)
MsgStatusBar("Theme Descriptions saved")
end
local function ThemeSlot_Indicator()
local selected = tonumber(reaper.GetExtState(appname, "themeslot_max"))
if selected == nil then selected = 5 else GUI.Val("layout_themeslot_number", selected) end
for i = 1, 5 do ThemeSlotTextBoxes[i].color = "none" end
for i = 1, selected do ThemeSlotTextBoxes[i].color = "white" end
end
function RL_Draw_ThemeSlotOptions()
themeslotOffset = 0
if osversion:find("OSX") then themeslotOffset = 10 end
GUI.New("layout_frame_2", "Frame", LayerIndex.Layout, 94 * RL.scaleFactor, tabSelectorPadding + themeslotOffset + 230 * RL.scaleFactor, GUI.w, 2 * RL.scaleFactor, false, true)
GUI.New("layout_themeslot_Setup", "Button", LayerIndex.Layout, 1.6 * optionspad_left, tabSelectorPadding + themeslotOffset + 236 * RL.scaleFactor, 65 * RL.scaleFactor, 15 * RL.scaleFactor, "Theme Slots", ThemeSlot_Setup)
GUI.New("layout_themeslot_Save", "Button", LayerIndex.Layout, 1.6 * optionspad_left + 68 * RL.scaleFactor, tabSelectorPadding + themeslotOffset + 236 * RL.scaleFactor, 35 * RL.scaleFactor, 15 * RL.scaleFactor, "Save", ThemeSlot_SaveNames)
GUI.New("layout_themeslot_number", "Menubox", LayerIndex.Layout, 1.6 * optionspad_left + 108 * RL.scaleFactor, tabSelectorPadding + themeslotOffset + 236 * RL.scaleFactor, 38 * RL.scaleFactor, 16 * RL.scaleFactor, "", "1,2,3,4,5")
GUI.elms.layout_themeslot_number.align = 1
for i = 1, ThemeSlots.maxCount do
GUI.New("layout_themeslot_" .. i, "Textbox", LayerIndex.Layout, 4.3 * optionspad_left, tabSelectorPadding + themeslotOffset + 210 * RL.scaleFactor + (25 * RL.scaleFactor) + (16 * (i - 1) * RL.scaleFactor), 146 * RL.scaleFactor, 15 * RL.scaleFactor, i, 8)
end
ThemeSlotTextBoxes = { GUI.elms.layout_themeslot_1, GUI.elms.layout_themeslot_2, GUI.elms.layout_themeslot_3, GUI.elms.layout_themeslot_4, GUI.elms.layout_themeslot_5 }
ThemeSlot_Indicator()
function GUI.elms.layout_themeslot_number:onmousedown()
GUI.Menubox.onmouseup(self)
ThemeSlot_GetNames()
RL_Draw_ThemeSlotSelector(0)
reaper.SetExtState(appname, "themeslot_max", tostring(GUI.Val("layout_themeslot_number")), 1)
ThemeSlot_Indicator()
end
function GUI.elms.layout_themeslot_number:onwheel()
GUI.Menubox.onwheel(self)
ThemeSlot_GetNames()
RL_Draw_ThemeSlotSelector(0)
reaper.SetExtState(appname, "themeslot_max", tostring(GUI.Val("layout_themeslot_number")), 1)
ThemeSlot_Indicator()
end
for i = 1, ThemeSlots.maxCount do
local tSlots = GUI.elms["layout_themeslot_" .. i]
function tSlots:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
end
-----------------------------
-- Recent Projects management
-----------------------------
function RecentProjects_RemoveEntry()
local removedEntries = {}
local vals = GetSelectionTable(GUI.Val("tab_recentProjects_listbox"))
for i = 1, #vals do
if FilterActive.RecentProjects then selectedProject = RecentProjects.filteredItems[vals[i]].path
else selectedProject = RecentProjects.items[vals[i]].path end
local lastEntry = false
local p = 0
repeat
p = p + 1
local recentPathTag = "recent" .. string.format("%02d", p)
local _, keyValue = reaper.BR_Win32_GetPrivateProfileString("recent", recentPathTag, "noEntry", reaperIniPath)
if keyValue == "noEntry" then
lastEntry = true
break
end
if keyValue == selectedProject then
removedEntries[#removedEntries + 1] = recentPathTag
reaper.BR_Win32_WritePrivateProfileString("Recent", recentPathTag, " ", reaperIniPath)
MsgDebug("Recent Projects | removed " .. recentPathTag .. " | " .. selectedProject)
end
until (lastEntry)
end
GUI.Val("tab_recentProjects_listbox", {})
RecentProjects.items, RecentProjects.filteredItems, RecentProjects.display, RecentProjects.filteredDisplay = {}, {}, {}, {}
RefreshRecentProjects(false)
UpdateListDisplay_RecentProjects()
Filter_RecentProject_Apply()
end
function RecentProjects_ClearList()
for k = 1, RecentProjects.maxIndex do reaper.BR_Win32_WritePrivateProfileString("Recent", "recent" .. string.format("%02d", k), " ", reaperIniPath) end
MsgDebug("Recent Projects | list cleared")
RecentProjects.items, RecentProjects.filteredItems, RecentProjects.display, RecentProjects.filteredDisplay = {}, {}, {}, {}
RefreshRecentProjects(false)
Filter_RecentProject_Clear()
end
end
-- SWS block end
------------------
-- Window settings
------------------
GUI.name = "ReaLauncher"
GUI.anchor, GUI.corner = "mouse", "C" -- Center on "mouse" or "screen"
GUI.x, GUI.y = 0, 0
---------------------------------------------
-- Show version display only on specific tabs
---------------------------------------------
GUI.Draw_Version = function()
if GUI.elms.main_tabs.state <= TabID.Favorites then return end
GUI.font("version")
GUI.color("txt")
if not GUI.version then return 0 end
str = "RL 2.5.4 | Lokasenna_GUI " .. GUI.version
str_w, str_h = gfx.measurestr(str)
if osversion:find("OSX") then gfx.x = GUI.w - (255 * RL.scaleFactor) else gfx.x = GUI.w - (260 * RL.scaleFactor) end
gfx.y = GUI.h - (15.5 * RL.scaleFactor)
gfx.drawstr(str)
end
-----------------------------------------------------------------------------
-- Override tooltip function for handling macOS coordinates (inverted y-axis)
-----------------------------------------------------------------------------
GUI.settooltip = function(str)
if RL.showTooltips then
if not str or str == "" then return end
local x, y = gfx.clienttoscreen(0, 0)
if osversion:find("OSX") then
local mouseX, mouseY = reaper.GetMousePosition()
reaper.TrackCtl_SetToolTip(str, mouseX + 16, mouseY + 16, true)
else
reaper.TrackCtl_SetToolTip(str, x + GUI.mouse.x + 16, y + GUI.mouse.y + 16, true)
end
GUI.tooltip = str
else
GUI.cleartooltip()
end
end
--------------------
-- Scaling functions
--------------------
local function RL_InitElementScaling(sf)
if sf ~= nil then RL.scaleFactor = sf
else
if RL.scaleFactor > 1.2 then
RL.scaleFactor = 2
GUI.w, GUI.h = (RL.minWidth + 100) * RL.scaleFactor, RL.minHeight * RL.scaleFactor
else
RL.scaleFactor = 1
GUI.w, GUI.h = RL.minWidth, RL.minHeight
end
end
local fonts = GUI.get_OS_fonts()
GUI.fonts = {
{fonts.sans, RL.fontSizes[1] * RL.scaleFactor}, -- title
{fonts.sans, RL.fontSizes[2] * RL.scaleFactor}, -- header
{fonts.sans, RL.fontSizes[3] * RL.scaleFactor}, -- label
{fonts.sans, RL.fontSizes[4] * RL.scaleFactor}, -- value
monospace = {fonts.mono, RL.fontSizes[5] * RL.scaleFactor},
version = {fonts.sans, RL.fontSizes[6] * RL.scaleFactor, "i"}
}
GUI.load_window_state(appname)
end
local function RL_CheckStoredScaleFactor()
local storedScaleFactor = tonumber(reaper.GetExtState(appname, "window_scalefactor"))
if storedScaleFactor ~= nil and storedScaleFactor > 0 then
RL.scaleFactor = storedScaleFactor
RL_InitElementScaling(RL.scaleFactor)
end
end
local function RL_SetWindowParameters()
-- button size
btn_w = 132 * RL.scaleFactor
btn_h = 24 * RL.scaleFactor
-- global element indents
optionspad_left = 65 * RL.scaleFactor
pad_left = 4 * RL.scaleFactor
pad_top = 36 * RL.scaleFactor
topY = 7 * RL.scaleFactor
listbox_top = 28 * RL.scaleFactor
listbox_h = GUI.h - (71 * RL.scaleFactor)
btn_pad_top = 129 * RL.scaleFactor
btn_main_top = 33 * RL.scaleFactor
btn_main_pad = 0
btn_tab_top = 191 * RL.scaleFactor
if RL.showButtonPanel then listbox_w = GUI.w - (144 * RL.scaleFactor) else listbox_w = GUI.w - 2 * pad_left end
-- button indents
btn_pad_left = listbox_w + (8 * RL.scaleFactor)
btn_pad_add = 29 * RL.scaleFactor
-- refresh buttons
refreshW = 40 * RL.scaleFactor
refreshH = 15 * RL.scaleFactor
refreshX = pad_left
refreshY = GUI.h - (38 * RL.scaleFactor)
-- filter textbox
filterH = 20 * RL.scaleFactor
filterX = 122 * RL.scaleFactor
filterY = 4.5 * RL.scaleFactor
filterW = (listbox_w * 0.52)
-- path display box
pathX = pad_left + 43 * RL.scaleFactor
footerY = GUI.h - (40 * RL.scaleFactor)
tabSelectorPadding = 0
-- adjustments when using tabstrip
if RL.tabSelectorStyle == 1 then
pad_top = 30 * RL.scaleFactor
topY = 24 * RL.scaleFactor
listbox_top = 48 * RL.scaleFactor
listbox_h = GUI.h - (92 * RL.scaleFactor)
btn_pad_top = 150 * RL.scaleFactor
btn_main_top = 42 * RL.scaleFactor
btn_main_pad = 20
btn_tab_top = 210 * RL.scaleFactor
filterX = pad_left
filterY = 24 * RL.scaleFactor
filterW = (listbox_w * 0.6)
end
end
function InitSubPanels()
local t1, t2, t3, t4, t5, t6 = string.match(reaper.GetExtState(appname, "window_showsubfolderpanel"), "([%a]+),([%a]+),([%a]+),([%a]+),([%a]+),([%a]+)")
RL.activeSubPanels = {
tostring(t1) == "true" and true or false,
tostring(t2) == "true" and true or false,
tostring(t3) == "true" and true or false,
tostring(t4) == "true" and true or false,
tostring(t5) == "true" and true or false,
tostring(t6) == "true" and true or false,
true
}
end
RL_InitElementScaling(nil)
RL_CheckStoredScaleFactor()
RL_SetWindowParameters()
InitSubPanels()
--------------------
-- Main GUI Elements
--------------------
local subselectionindices = {}
for match in reaper.GetExtState(appname, "window_subselection"):gmatch("([^,%s]+)") do subselectionindices[#subselectionindices + 1] = tonumber(match) end
if #subselectionindices == 0 then subselectionindices = { 1, 1, 1, 1, 1, 1, 1, 1 } end
TabParentSelectionIndex = subselectionindices
TabSelectionIndex = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }
TabID = {
RecentProjects = 1,
ProjectTemplates = 2,
TrackTemplates = 3,
CustomProjects = 4,
ProjectLists = 5,
Backups = 6,
Docs = 7,
Favorites = 8,
Help = 9,
Options = 10,
Paths = 11,
ScanSettings = 12,
Actions = 13,
Layout = 14,
OptionsMenu = 15
}
TabLabels = {
"Recent Projects",
"Project Templates",
"Track Templates",
"Projects",
"Project Lists",
"Backups",
"Docs",
"Favorites",
"Help",
"Options",
"",
"",
"",
""
}
MainLabels = {
"Recent Projects",
"Project Templates",
"Track Templates",
"Projects",
"Project Lists",
"Backups",
"Docs",
"Favorites",
"Help",
"Options"
}
OptionLabels = {
"General",
"Paths",
"Scan Settings",
"Follow Actions",
"Layout / Colors"
}
if not ConfigFlags.enableCustomColorOptions then OptionLabels[5] = "Layout" end
---------------------------------
-- Audio preview section elements
---------------------------------
local AudioPreview = {
active = false,
channelIndex = 0,
fileName = "",
fileExtension = "",
lastPlayed = "",
statusText = nil
}
local function RL_Draw_PreviewSection()
if not ConfigFlags.enableAudioPreview then return end
GUI.New("main_previewVolKnob", "Knob", LayerIndex.Global, 4.8 * pathX + (RL.scaleFactor * 15), footerY + (1.2 * RL.scaleFactor), 18 * RL.scaleFactor, "Volume", 0, 100, 50, 1)
GUI.elms.main_previewVolKnob.col_head = "elm_frame"
GUI.elms.main_previewVolKnob.col_body = "none"
GUI.elms.main_previewVolKnob.cap_y = - (4.5 * RL.scaleFactor + (18 * RL.scaleFactor)) + (2 * RL.scaleFactor) - 5
GUI.elms.main_previewVolKnob.font_b = GUI.fonts[6]
GUI.elms.main_previewVolKnob.vals = false
GUI.elms.main_previewVolKnob.tooltip = "Audio Preview Section\n\n" ..
"- Set the volume (in %) via Left Drag or Mousewheel \n" ..
"- Double Click on the knob starts/stops the preview\n\n" ..
"Color states:\n - SILVER: preview file available for the selected entry\n - HIGHLIGHT COLOR: preview playing"
local pos = 1
local stereoChannels = {}
for c = 1, reaper.GetNumAudioOutputs(), 2 do
stereoChannels[pos] = c .. "/" .. c + 1
pos = pos + 1
end
GUI.New("main_previewStatusLabel", "Label", LayerIndex.Global, 5.3 * pathX + (RL.scaleFactor * 15), footerY + 2 * RL.scaleFactor, "Preview", false, 4, "elm_frame")
GUI.New("main_previewChannels", "Menubox", LayerIndex.Global, 6.3 * pathX + (RL.scaleFactor * 15), footerY + (2 * RL.scaleFactor), 51 * RL.scaleFactor, 15 * RL.scaleFactor, "", table.concat(stereoChannels, ","), 8)
GUI.elms.main_previewChannels.col_txt = "elm_frame"
GUI.elms.main_previewChannels.align = 1
GUI.elms.main_previewChannels.tooltip = "Audio Preview Section\n\nSet the audio channel(s) used for preview playback"
local function SetPreviewChannel(channel)
if channel and #channel > 0 then AudioPreview.channelIndex = tonumber(string.sub(channel, 1, #channel - channel:reverse():find("/"))) - 1
else AudioPreview.channelIndex = 1 end
end
function GUI.elms.main_previewChannels:onmousedown()
GUI.Menubox.onmouseup(self)
SetPreviewChannel(stereoChannels[GUI.Val("main_previewChannels")])
end
function GUI.elms.main_previewChannels:onwheel()
GUI.Menubox.onwheel(self)
SetPreviewChannel(stereoChannels[GUI.Val("main_previewChannels")])
end
function GUI.elms.main_previewVolKnob:redraw()
GUI.Knob.redraw(self)
self.caption = self.retval
end
function GUI.elms.main_previewVolKnob:ondrag()
local lastColor = GUI.elms.main_previewVolKnob.col_head
GUI.Knob.ondrag(self)
AudioPreviewChangeVolKnobColor("none", lastColor)
self.caption = self.retval
end
function GUI.elms.main_previewVolKnob:onwheel()
local lastColor = GUI.elms.main_previewVolKnob.col_head
GUI.Knob.onwheel(self)
AudioPreviewChangeVolKnobColor("none", lastColor)
self.caption = self.retval
end
function GUI.elms.main_previewVolKnob:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
AudioPreviewToggleState()
end
GUI.elms.main_previewVolKnob:init()
GUI.elms.main_previewVolKnob:redraw()
end
-------------------------
-- Context main functions
-------------------------
local function RL_Context_Main_GetLockState()
if GetMainListSize() == 0 then return "#" else return "" end
end
local function RL_Context_Main_GetBaseEntries(isLocked, menuEntries)
local firstEntry = "1 - Add to Favorites"
if GUI.elms.main_tabs.state == TabID.Favorites then firstEntry = "1 - Remove from Favorites" end
if SWSinstalled then menuEntries = menuEntries .. "|#|>0 - Reaper Theme|" .. string.gsub(ThemeSlot_GetNames(), ",", "|") end
return isLocked .. firstEntry .. "|#|" .. isLocked .. "2 - Locate in Explorer/Finder|3 - Open Project|#|4 - New Project|#|5 - New Tab|6 - New Tab Ignore Template|#" .. menuEntries
end
local function RL_Context_Main_Default(isLocked, menuEntries)
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local RMBmenu = gfx.showmenu(RL_Context_Main_GetBaseEntries(isLocked, menuEntries))
if RMBmenu == 1 then Favorites_Add()
elseif RMBmenu == 2 then Global_OpenInExplorer()
elseif RMBmenu == 3 then Global_ShowProjectOpenDialog()
elseif RMBmenu == 4 then Global_NewProject()
elseif RMBmenu == 5 then Global_NewTab()
elseif RMBmenu == 6 then Global_NewTabIgnoreDefaultTemplate()
elseif RMBmenu == 7 then RL_Func_LoadElementInTab[GUI.elms.main_tabs.state].call()
elseif RMBmenu == 8 then RL_Func_LoadElement[GUI.elms.main_tabs.state].call()
elseif RMBmenu == 9 then LoadThemeSlotFromContextMenu(9, RMBmenu)
elseif RMBmenu == 10 then LoadThemeSlotFromContextMenu(9, RMBmenu)
elseif RMBmenu == 11 then LoadThemeSlotFromContextMenu(9, RMBmenu)
elseif RMBmenu == 12 then LoadThemeSlotFromContextMenu(9, RMBmenu)
elseif RMBmenu == 13 then LoadThemeSlotFromContextMenu(9, RMBmenu)
end
end
local function RL_Context_Main_SpecialToggle(isLocked, menuEntries)
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local RMBmenu = gfx.showmenu(RL_Context_Main_GetBaseEntries(isLocked, menuEntries))
if RMBmenu == 1 then Favorites_Add()
elseif RMBmenu == 2 then Global_OpenInExplorer()
elseif RMBmenu == 3 then Global_ShowProjectOpenDialog()
elseif RMBmenu == 4 then Global_NewProject()
elseif RMBmenu == 5 then Global_NewTab()
elseif RMBmenu == 6 then Global_NewTabIgnoreDefaultTemplate()
elseif RMBmenu == 7 then RL_Func_LoadElementInTab[GUI.elms.main_tabs.state].call()
elseif RMBmenu == 8 then RL_Func_LoadElement[GUI.elms.main_tabs.state].call()
elseif RMBmenu == 9 then ToggleSpecialOptionsFromContextMenu(RMBmenu)
elseif RMBmenu == 10 then LoadThemeSlotFromContextMenu(10, RMBmenu)
elseif RMBmenu == 11 then LoadThemeSlotFromContextMenu(10, RMBmenu)
elseif RMBmenu == 12 then LoadThemeSlotFromContextMenu(10, RMBmenu)
elseif RMBmenu == 13 then LoadThemeSlotFromContextMenu(10, RMBmenu)
elseif RMBmenu == 14 then LoadThemeSlotFromContextMenu(10, RMBmenu)
end
end
local function RL_Context_Main_RecentProjects()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load|#|"
if RL.saveAsNewVersionMode == 1 then menuEntries = menuEntries .. isLocked .. "!9 - [ Save as New Version ] ON"
else menuEntries = menuEntries .. isLocked .. "9 - [ Save as New Version ] OFF" end
RL_Context_Main_SpecialToggle(isLocked, menuEntries)
end
end
local function RL_Context_Main_ProjectTemplates()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load|#|"
if RL.projectTemplateLoadMode == 0 then menuEntries = menuEntries .. isLocked .. "!9 - [ Edit Template Mode ] ON"
else menuEntries = menuEntries .. isLocked .. "9 - [ Edit Template Mode ] OFF" end
RL_Context_Main_SpecialToggle(isLocked, menuEntries)
end
end
local function RL_Context_Main_TrackTemplates()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Insert in Tab|" .. isLocked .. "8 - Insert"
RL_Context_Main_Default(isLocked, menuEntries)
end
end
local function RL_Context_Main_CustomProjects()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load|#|"
if RL.saveAsNewVersionMode == 1 then menuEntries = menuEntries .. isLocked .. "!9 - [ Save as New Version ] ON"
else menuEntries = menuEntries .. isLocked .. "9 - [ Save as New Version ] OFF" end
RL_Context_Main_SpecialToggle(isLocked, menuEntries)
end
end
local function RL_Context_Main_ProjectLists()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load|#|"
if RL.saveAsNewVersionMode == 1 then menuEntries = menuEntries .. isLocked .. "!9 - [ Save as New Version ] ON"
else menuEntries = menuEntries .. isLocked .. "9 - [ Save as New Version ] OFF" end
RL_Context_Main_SpecialToggle(isLocked, menuEntries)
end
end
local function RL_Context_Main_Backups()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load"
RL_Context_Main_Default(isLocked, menuEntries)
end
end
local function RL_Context_Main_Docs()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Open"
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local RMBmenu = gfx.showmenu(RL_Context_Main_GetBaseEntries(isLocked, menuEntries))
if RMBmenu == 1 then Favorites_Add()
elseif RMBmenu == 2 then Global_OpenInExplorer()
elseif RMBmenu == 3 then Global_ShowProjectOpenDialog()
elseif RMBmenu == 4 then Global_NewProject()
elseif RMBmenu == 5 then Global_NewTab()
elseif RMBmenu == 6 then Global_NewTabIgnoreDefaultTemplate()
elseif RMBmenu == 7 then RL_Func_LoadElementInTab[GUI.elms.main_tabs.state].call()
elseif RMBmenu == 8 then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif RMBmenu == 9 then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif RMBmenu == 10 then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif RMBmenu == 11 then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif RMBmenu == 12 then LoadThemeSlotFromContextMenu(8, RMBmenu)
end
end
end
local function RL_Context_Main_Favorites()
if not RL.showButtonPanel then
local isLocked = RL_Context_Main_GetLockState()
local menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load|#|"
if RL.saveAsNewVersionMode == 1 then menuEntries = menuEntries .. isLocked .. "!9 - [ Save as New Version ] ON"
else menuEntries = menuEntries .. isLocked .. "9 - [ Save as New Version ] OFF" end
local selectedFavCategory = TabParentSelectionIndex[TabID.Favorites]
if selectedFavCategory == 2 then
menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load|#|"
if RL.projectTemplateLoadMode == 0 then menuEntries = menuEntries .. isLocked .. "!9 - [ Edit Template Mode ] ON"
else menuEntries = menuEntries .. isLocked .. "9 - [ Edit Template Mode ] OFF" end
elseif selectedFavCategory == 3 then menuEntries = "|" .. isLocked .. "7 - Insert in Tab|" .. isLocked .. "8 - Insert"
elseif selectedFavCategory == 6 then menuEntries = "|" .. isLocked .. "7 - Load in Tab|" .. isLocked .. "8 - Load"
elseif selectedFavCategory == 7 then menuEntries = "|" .. isLocked .. "7 - Open" end
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local RMBmenu = gfx.showmenu(RL_Context_Main_GetBaseEntries(isLocked, menuEntries))
if RMBmenu == 1 then RL_ConfirmDialog_RemoveFavoritesEntry()
elseif RMBmenu == 2 then Global_OpenInExplorer()
elseif RMBmenu == 3 then Global_ShowProjectOpenDialog()
elseif RMBmenu == 4 then Global_NewProject()
elseif RMBmenu == 5 then Global_NewTab()
elseif RMBmenu == 6 then Global_NewTabIgnoreDefaultTemplate()
elseif RMBmenu == 7 then RL_Func_LoadElementInTab[GUI.elms.main_tabs.state].call()
elseif RMBmenu == 8 then
if selectedFavCategory == 7 then LoadThemeSlotFromContextMenu(8, RMBmenu) else RL_Func_LoadElement[GUI.elms.main_tabs.state].call() end
elseif RMBmenu == 9 then
if selectedFavCategory ~= TabID.TrackTemplates or selectedFavCategory ~= TabID.Backups then ToggleSpecialOptionsFromContextMenu(RMBmenu) end
if selectedFavCategory == TabID.Docs then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif selectedFavCategory == TabID.TrackTemplates or selectedFavCategory == TabID.Backups then LoadThemeSlotFromContextMenu(9, RMBmenu) end
elseif RMBmenu == 10 then
if selectedFavCategory == TabID.Docs then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif selectedFavCategory == TabID.TrackTemplates or selectedFavCategory == TabID.Backups then LoadThemeSlotFromContextMenu(9, RMBmenu)
else LoadThemeSlotFromContextMenu(10, RMBmenu) end
elseif RMBmenu == 11 then
if selectedFavCategory == TabID.Docs then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif selectedFavCategory == TabID.TrackTemplates or selectedFavCategory == TabID.Backups then LoadThemeSlotFromContextMenu(9, RMBmenu)
else LoadThemeSlotFromContextMenu(10, RMBmenu) end
elseif RMBmenu == 12 then
if selectedFavCategory== TabID.Docs then LoadThemeSlotFromContextMenu(8, RMBmenu)
elseif selectedFavCategory == TabID.TrackTemplates or selectedFavCategory == TabID.Backups then LoadThemeSlotFromContextMenu(9, RMBmenu)
else LoadThemeSlotFromContextMenu(10, RMBmenu) end
elseif RMBmenu == 13 then
if selectedFavCategory == TabID.TrackTemplates or selectedFavCategory == TabID.Backups then LoadThemeSlotFromContextMenu(9, RMBmenu)
else LoadThemeSlotFromContextMenu(10, RMBmenu) end
elseif RMBmenu == 14 then
if selectedFavCategory ~= TabID.TrackTemplates or selectedFavCategory ~= TabID.Backups or selectedFavCategory ~= TabID.Docs then LoadThemeSlotFromContextMenu(10, RMBmenu) end
end
end
end
local function RL_Context_Main_Relay()
if GUI.elms.main_tabs.state == TabID.RecentProjects then RL_Context_Main_RecentProjects()
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then RL_Context_Main_ProjectTemplates()
elseif GUI.elms.main_tabs.state == TabID.TrackTemplates then RL_Context_Main_TrackTemplates()
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then RL_Context_Main_CustomProjects()
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then RL_Context_Main_ProjectLists()
elseif GUI.elms.main_tabs.state == TabID.Backups then RL_Context_Main_Backups()
elseif GUI.elms.main_tabs.state == TabID.Docs then RL_Context_Main_Docs()
elseif GUI.elms.main_tabs.state == TabID.Favorites then RL_Context_Main_Favorites()
end
end
function ToggleSpecialOptionsFromContextMenu(selectedMenuIndex)
if GUI.elms.main_tabs.state == TabID.RecentProjects then RL.saveAsNewVersionMode = (1 - RL.saveAsNewVersionMode)
elseif GUI.elms.main_tabs.state == TabID.ProjectTemplates then RL.projectTemplateLoadMode = (1 - RL.projectTemplateLoadMode)
elseif GUI.elms.main_tabs.state == TabID.CustomProjects then RL.saveAsNewVersionMode = (1 - RL.saveAsNewVersionMode)
elseif GUI.elms.main_tabs.state == TabID.ProjectLists then RL.saveAsNewVersionMode = (1 - RL.saveAsNewVersionMode)
elseif GUI.elms.main_tabs.state == TabID.Favorites then
local selectedFavCategory = TabParentSelectionIndex[TabID.Favorites]
if selectedFavCategory == 2 then RL.projectTemplateLoadMode = (1 - RL.projectTemplateLoadMode)
elseif selectedFavCategory == 1 or selectedFavCategory == 4 or selectedFavCategory == 5 then RL.saveAsNewVersionMode = (1 - RL.saveAsNewVersionMode) end
end
end
function LoadThemeSlotFromContextMenu(firstIndex, selectedMenuIndex)
local selectedThemeSlot = 1 + math.floor(selectedMenuIndex - firstIndex)
if selectedThemeSlot <= 5 then reaper.Main_OnCommand(reaper.NamedCommandLookup("_S&M_LOAD_THEME" .. selectedThemeSlot), 0) end -- SWS/S&M: Resources - Load theme, slot#
end
function RL_ToggleTooltips()
RL.showTooltips = not RL.showTooltips
if RL.showTooltips then
GUI.elms.main_btnToggleTooltips.color = FilterColor.active
reaper.SetExtState(appname, "window_showtooltips", "true", 1)
MsgStatusBar("Tooltips ON")
else
GUI.elms.main_btnToggleTooltips.color = FilterColor.inactive
reaper.SetExtState(appname, "window_showtooltips", "false", 1)
MsgStatusBar("Tooltips OFF")
end
GUI.elms.main_btnToggleTooltips:redraw()
GUI.elms.main_btnToggleTooltips:init()
end
----------------
-- Main elements
----------------
local function RL_Draw_Main()
if RL.tabSelectorStyle == 1 then -- tabstrip style
GUI.New("main_tabs", "Tabs", LayerIndex.Main, 0, 0, 95 * RL.scaleFactor, 20 * RL.scaleFactor, TabLabels, 16)
GUI.elms.main_tabs.col_tab_b = "elm_bg"
if GUI.elms.main_menuTabSelector ~= nil then GUI.elms.main_menuTabSelector:delete() end
function GUI.elms.main_tabs:onmousedown()
GUI.Tabs.onmousedown(self)
if (GUI.elms.main_tabs.state > TabID.Options) then RL_SetFocusedTab(self.retval)
else
GUI.Val("main_menuTabSelector", GUI.elms.main_tabs.state)
RL_SetFocusedTab(GUI.elms.main_tabs.state)
end
end
function GUI.elms.main_tabs:onwheel()
GUI.Tabs.onwheel(self)
if (self.retval > TabID.Favorites) then RL_SetFocusedTab(TabID.Favorites)
else
GUI.Val("main_menuTabSelector", GUI.elms.main_tabs.state)
RL_SetFocusedTab(GUI.elms.main_tabs.state)
end
end
function GUI.elms.main_tabs:onmouser_down()
GUI.Tabs.onmouser_down(self)
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local RMBmenu = gfx.showmenu(table.concat(MainLabels, "|"))
if RMBmenu >= 1 and RMBmenu <= #MainLabels then RL_SetFocusedTab(RMBmenu) end
end
else -- dropdown style
GUI.New("main_tabs", "Tabs", LayerIndex.Main, 0, 0, 95 * RL.scaleFactor, 20 * RL.scaleFactor, " , , , , , , , , , , , , , ", 16)
GUI.elms.main_tabs.col_tab_b = "elm_bg"
GUI.elms.main_tabs.h, GUI.elms.main_tabs.tab_h = 0, 0
GUI.New("main_menuTabSelector", "Menubox", LayerIndex.Main, pad_left, 4.5 * RL.scaleFactor, (125 * RL.scaleFactor) - (10 * RL.scaleFactor), 20 * RL.scaleFactor, "", MainLabels, 8)
GUI.elms.main_menuTabSelector.align = 1
function GUI.elms.main_menuTabSelector:onmousedown() GUI.Menubox.onmouseup(self) RL_SetFocusedTab(GUI.Val("main_menuTabSelector")) end
function GUI.elms.main_menuTabSelector:onwheel() GUI.Menubox.onwheel(self) RL_SetFocusedTab(GUI.Val("main_menuTabSelector")) end
end
GUI.elms.main_tabs:update_sets({
[TabID.RecentProjects] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.RecentProjects, LayerIndex.SaveAsNewVersion, LayerIndex.SpecialOption },
[TabID.ProjectTemplates] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.ProjectTemplates, LayerIndex.SpecialOption },
[TabID.TrackTemplates] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.TrackTemplates, LayerIndex.SpecialOption },
[TabID.CustomProjects] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.CustomProjects, LayerIndex.SaveAsNewVersion, LayerIndex.SpecialOption },
[TabID.ProjectLists] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.ProjectLists, LayerIndex.SaveAsNewVersion, LayerIndex.SpecialOption },
[TabID.Backups] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.Backups, LayerIndex.SpecialOption },
[TabID.Docs] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.Docs, LayerIndex.SpecialOption },
[TabID.Favorites] = { LayerIndex.Overlay, LayerIndex.Global, LayerIndex.Favorites },
[TabID.Help] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.Help },
[TabID.OptionsMenu] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.Paths, LayerIndex.ScanSettings, LayerIndex.Options, LayerIndex.Actions, LayerIndex.Layout },
[TabID.Options] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.OptionsMenu, LayerIndex.Options },
[TabID.Paths] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.OptionsMenu, LayerIndex.Paths },
[TabID.ScanSettings] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.OptionsMenu, LayerIndex.ScanSettings },
[TabID.Actions] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.OptionsMenu, LayerIndex.Actions },
[TabID.Layout] = { LayerIndex.Overlay, LayerIndex.VersionInfo, LayerIndex.OptionsMenu, LayerIndex.Layout }
})
GUI.New("main_statusbar", "Label", LayerIndex.Overlay, pad_left, GUI.h - (16 * RL.scaleFactor), "", false, 4)
GUI.New("main_lblPaths", "Label", LayerIndex.Global, 3.65 * pathX + (RL.scaleFactor * 5), footerY + (2.85 * RL.scaleFactor), "Paths", false, 3)
GUI.New("main_checklistPaths", "Checklist", LayerIndex.Global, 4.25 * pathX + (RL.scaleFactor * 8), footerY + (3 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "", 0)
GUI.elms.main_checklistPaths.shadow = false
GUI.elms.main_checklistPaths.opt_size = 15 * RL.scaleFactor
GUI.elms.main_checklistPaths:init()
function GUI.elms.main_checklistPaths:onmouseup()
GUI.Checklist.onmouseup(self)
Global_UpdateListDisplay()
end
if ConfigFlags.enableSortModeOptions then
GUI.New("main_sortMode", "Menubox", LayerIndex.Global, pad_left + 53 * RL.scaleFactor, footerY + (2 * RL.scaleFactor), 61 * RL.scaleFactor, 15 * RL.scaleFactor, "", "A - Z,Z - A", 8)
GUI.elms.main_sortMode.align = 1
GUI.elms.main_sortMode.tooltip = "Sort options"
function GUI.elms.main_sortMode:onmousedown()
GUI.Menubox.onmouseup(self)
RL.sortModeIndex[GUI.elms.main_tabs.state] = math.floor(self.retval)
Global_UpdateSortMode()
end
function GUI.elms.main_sortMode:onwheel()
GUI.Menubox.onwheel(self)
RL.sortModeIndex[GUI.elms.main_tabs.state] = math.floor(self.retval)
Global_UpdateSortMode()
end
end
GUI.New("main_checklistWindowPin", "Checklist", LayerIndex.Global, GUI.w - (24 * RL.scaleFactor) + (RL.scaleFactor * 5), topY + (1.2 * RL.scaleFactor) + ((RL.tabSelectorStyle - 1) * (0.2 * btn_main_pad)), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "h", 0)
GUI.elms.main_checklistWindowPin.shadow = false
GUI.elms.main_checklistWindowPin.opt_size = 15 * RL.scaleFactor
GUI.elms.main_checklistWindowPin:init()
if RL.showButtonPanel then
if SWSinstalled then GUI.New("main_btnOpenInExplorer", "Button", LayerIndex.Global, btn_pad_left, 2 * btn_main_top, btn_w, btn_h, "Locate in Explorer/Finder", Global_OpenInExplorer) end
GUI.New("main_btnAddToFavorites", "Button", LayerIndex.SpecialOption, btn_pad_left, (2 * btn_main_top) - (32 * RL.scaleFactor), btn_w, btn_h, "Add to Favorites", Favorites_Add)
GUI.elms.main_btnAddToFavorites.tooltip = "Add the selected file(s) to the [Favorites]"
GUI.New("main_btnOpenProject", "Button", LayerIndex.Global, btn_pad_left, (2 * btn_main_top) + (29 * RL.scaleFactor), btn_w, btn_h, "Open Project", Global_ShowProjectOpenDialog)
GUI.New("main_btnNewProject", "Button", LayerIndex.Global, btn_pad_left, btn_pad_top, btn_w, btn_h, "New Project", Global_NewProject)
GUI.New("main_btnNewProjectTab", "Button", LayerIndex.Global, btn_pad_left, btn_pad_top + btn_pad_add, (btn_w * 0.5) - 5, btn_h, "New Tab", Global_NewTab)
GUI.New("main_btnNewTabIgnoreTemplate", "Button", LayerIndex.Global, btn_pad_left + (btn_w * 0.5) + 5, btn_pad_top + btn_pad_add, (btn_w * 0.5) - 5, btn_h, "New Tab IT", Global_NewTabIgnoreDefaultTemplate)
GUI.New("main_lblSaveNewVersion", "Label", LayerIndex.SaveAsNewVersion, GUI.w - (144 * RL.scaleFactor) + (RL.scaleFactor * 11), (255 + btn_main_pad) * RL.scaleFactor, "Save as New Version", false, 3)
GUI.New("main_checklistSaveAsNewVersion", "Checklist", LayerIndex.SaveAsNewVersion, GUI.w - (34 * RL.scaleFactor) + (RL.scaleFactor * 10), (252 + btn_main_pad) * RL.scaleFactor + (RL.scaleFactor * 2), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "h", 0)
GUI.elms.main_checklistSaveAsNewVersion.shadow = false
GUI.elms.main_checklistSaveAsNewVersion.opt_size = 15 * RL.scaleFactor
GUI.elms.main_checklistSaveAsNewVersion:init()
GUI.New("main_lblWindowpin", "Label", LayerIndex.Global, GUI.w - (82 * RL.scaleFactor) + (RL.scaleFactor * 5), topY + (1.2 * RL.scaleFactor) + ((RL.tabSelectorStyle - 1) * (0.2 * btn_main_pad)), "Keep open", false, 3)
else
if GUI.elms.main_btnOpenInExplorer ~= nil then GUI.elms.main_btnOpenInExplorer:delete() end
if GUI.elms.main_btnOpenProject ~= nil then GUI.elms.main_btnOpenProject:delete() end
if GUI.elms.main_btnNewProject ~= nil then GUI.elms.main_btnNewProject:delete() end
if GUI.elms.main_btnNewProjectTab ~= nil then GUI.elms.main_btnNewProjectTab:delete() end
if GUI.elms.main_btnNewTabIgnoreTemplate ~= nil then GUI.elms.main_btnNewTabIgnoreTemplate:delete() end
end
function Global_ShowHelpTab() RL_SetFocusedTab(TabID.Help) end
GUI.New("main_frame_footervertical_2", "Frame", LayerIndex.Global, GUI.w - (216 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), 1.5 * RL.scaleFactor, 14 * RL.scaleFactor, false, false)
GUI.New("main_btnHelp", "Label", LayerIndex.Global, GUI.w - (211 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), "Help", false, 3)
function GUI.elms.main_btnHelp:onmouseup() GUI.Label.onmouseup(self) Global_ShowHelpTab() end
function Global_ShowOptionsTab() RL_SetFocusedTab(TabID.Help + TabSelectionIndex[TabID.Options]) end
GUI.New("main_frame_footervertical_3", "Frame", LayerIndex.Global, GUI.w - (184.5 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), 1.5 * RL.scaleFactor, 14 * RL.scaleFactor, false, false)
GUI.New("main_btnOptions", "Label", LayerIndex.Global, GUI.w - (178.5 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), "Options", false, 3)
function GUI.elms.main_btnOptions:onmouseup() GUI.Label.onmouseup(self) Global_ShowOptionsTab() end
GUI.New("main_frame_footervertical_4", "Frame", LayerIndex.Global, GUI.w - (136 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), 1.5 * RL.scaleFactor, 14 * RL.scaleFactor, false, false)
function ButtonScaleFontDown() RL_ScaleListboxFontSizeDown() end
GUI.New("main_scaleFontDown", "Label", LayerIndex.Global, GUI.w - (130 * RL.scaleFactor), GUI.h - (15.5 * RL.scaleFactor), "A", false, 3)
function GUI.elms.main_scaleFontDown:onmouseup() GUI.Label.onmouseup(self) ButtonScaleFontDown() end
function ButtonScaleFontUp() RL_ScaleListboxFontSizeUp() end
GUI.New("main_scaleFontUp", "Label", LayerIndex.Global, GUI.w - (116 * RL.scaleFactor), GUI.h - (18.5 * RL.scaleFactor), "A", false, 2)
function GUI.elms.main_scaleFontUp:onmouseup() GUI.Label.onmouseup(self) ButtonScaleFontUp() end
GUI.New("main_frame_footervertical_5", "Frame", LayerIndex.Main, GUI.w - (100 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), 1.5 * RL.scaleFactor, 14 * RL.scaleFactor, false, false)
function ButtonScaleDown() RL_ScaleInterfaceDown() end
GUI.New("main_scaleInterfaceDown", "Label", LayerIndex.Main, GUI.w - (92 * RL.scaleFactor), GUI.h - (16.5 * RL.scaleFactor), "-", false, 3)
function GUI.elms.main_scaleInterfaceDown:onmouseup() GUI.Label.onmouseup(self) ButtonScaleDown() end
function ButtonScaleToggle() RL_ScaleInterfaceToggle() end
GUI.New("main_scaleInterfaceToggle", "Label", LayerIndex.Main, GUI.w - (80.5 * RL.scaleFactor), GUI.h - (16.5 * RL.scaleFactor), "[ ]", false, 3)
function GUI.elms.main_scaleInterfaceToggle:onmouseup() GUI.Label.onmouseup(self) ButtonScaleToggle() end
function ButtonScaleUp() RL_ScaleInterfaceUp() end
GUI.New("main_scaleInterfaceUp", "Label", LayerIndex.Main, GUI.w - (60 * RL.scaleFactor), GUI.h - (16.5 * RL.scaleFactor), "+", false, 3)
function GUI.elms.main_scaleInterfaceUp:onmouseup() GUI.Label.onmouseup(self) ButtonScaleUp() end
GUI.New("main_frame_footervertical_6", "Frame", LayerIndex.Main, GUI.w - (46 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), 1.5 * RL.scaleFactor, 14 * RL.scaleFactor, false, false)
GUI.New("main_btnToggleTooltips", "Label", LayerIndex.Main, GUI.w - (41.5 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), "Tooltips", false, 3)
function GUI.elms.main_btnToggleTooltips:onmouseup() GUI.Label.onmouseup(self) RL_ToggleTooltips() end
if JSAPIinstalled then
RL_Draw_PreviewSection()
GUI.New("main_lblDates", "Label", LayerIndex.Global, 2.6 * pathX + (RL.scaleFactor * 5), footerY + (2.85 * RL.scaleFactor), "Date", false, 3)
GUI.New("main_checklistDate", "Checklist", LayerIndex.Global, 3.1 * pathX + (RL.scaleFactor * 8), footerY + (3 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "", 0)
GUI.elms.main_checklistDate.shadow = false
GUI.elms.main_checklistDate.opt_size = 15 * RL.scaleFactor
GUI.elms.main_checklistDate:init()
function GUI.elms.main_checklistDate:onmouseup() GUI.Checklist.onmouseup(self) Global_UpdateListDisplay() end
end
if SWSinstalled then
RL_Draw_ThemeSlotSelector(0)
GUI.New("main_frame_footervertical_1", "Frame", LayerIndex.Global, GUI.w - (278 * RL.scaleFactor), GUI.h - (16 * RL.scaleFactor), 1.5 * RL.scaleFactor, 14 * RL.scaleFactor, false, false)
GUI.New("tab_recentProjects_btnLastActiveProject", "Label", LayerIndex.Global, GUI.w - (277.5 * RL.scaleFactor) + (RL.scaleFactor * 5), GUI.h - (16 * RL.scaleFactor), "Last Active", false, 3)
function GUI.elms.tab_recentProjects_btnLastActiveProject:onmouseup() GUI.Label.onmouseup(self) RL_Context_LastActiveProjects()
end
end
end
local function RL_Draw_Frames()
if RL.showButtonPanel then
GUI.New("main_frame_top", "Frame", LayerIndex.Global, pad_left, listbox_top, GUI.w - pad_left, 2 * RL.scaleFactor, false, true)
GUI.New("main_frame_side_2", "Frame", LayerIndex.Global, pad_left + listbox_w, (60 + btn_main_pad) * RL.scaleFactor, GUI.w - pad_left - listbox_w, 2 * RL.scaleFactor, true, true)
GUI.New("main_frame_side_3", "Frame", LayerIndex.Global, pad_left + listbox_w, (123 + btn_main_pad) * RL.scaleFactor, GUI.w - pad_left - listbox_w, 2 * RL.scaleFactor, true, true)
GUI.New("main_frame_side_4", "Frame", LayerIndex.Global, pad_left + listbox_w, (185 + btn_main_pad) * RL.scaleFactor, GUI.w - pad_left - listbox_w, 2 * RL.scaleFactor, true, true)
GUI.New("main_frame_side_5", "Frame", LayerIndex.Global, pad_left + listbox_w, (248 + btn_main_pad) * RL.scaleFactor, GUI.w - pad_left - listbox_w, 2 * RL.scaleFactor, true, true)
GUI.New("main_frame_side_6", "Frame", LayerIndex.Global, pad_left + listbox_w, (274 + btn_main_pad) * RL.scaleFactor, GUI.w - pad_left - listbox_w, 2 * RL.scaleFactor, true, true)
GUI.New("main_frame_bottom_1", "Frame", LayerIndex.Global, pad_left, GUI.h - (45* RL.scaleFactor), GUI.w - pad_left, 2 * RL.scaleFactor, false, true)
else
GUI.New("main_frame_top", "Frame", LayerIndex.Global, pad_left, listbox_top, GUI.w - (2 * pad_left), 2 * RL.scaleFactor, false, true)
GUI.New("main_frame_bottom_1", "Frame", LayerIndex.Global, pad_left, GUI.h - (45 * RL.scaleFactor), GUI.w - (2 * pad_left), 2 * RL.scaleFactor, false, true)
if GUI.elms.main_frame_side_2 ~= nil then GUI.elms.main_frame_side_2:delete() end
if GUI.elms.main_frame_side_3 ~= nil then GUI.elms.main_frame_side_3:delete() end
if GUI.elms.main_frame_side_4 ~= nil then GUI.elms.main_frame_side_4:delete() end
if GUI.elms.main_frame_side_5 ~= nil then GUI.elms.main_frame_side_5:delete() end
if GUI.elms.main_frame_side_6 ~= nil then GUI.elms.main_frame_side_6:delete() end
end
GUI.New("main_frame_footer_vertical_1", "Frame", LayerIndex.Global, 4.6 * pathX + (RL.scaleFactor * 15), GUI.h - (42 * RL.scaleFactor), 1.5 * RL.scaleFactor, 22 * RL.scaleFactor, false, false)
GUI.New("main_frame_footer_vertical_2", "Frame", LayerIndex.Global, 7.6 * pathX + (RL.scaleFactor * 15), GUI.h - (42 * RL.scaleFactor), 1.5 * RL.scaleFactor, 22 * RL.scaleFactor, false, false)
GUI.New("main_frame_bottom_2", "Frame", LayerIndex.Main, 0, GUI.h - (19 * RL.scaleFactor), GUI.w, 1.5 * RL.scaleFactor, false, false)
end
---------------------------------------------------
-- Override Window functions with minor adjustments
---------------------------------------------------
function GUI.Window:drawwindow()
local x, y, w, h = self.x, self.y, self.w, self.h
local cs = self.close_size
local off = (self.title_height * (0.5 * RL.scaleFactor) - cs) / 2 + 2 -- adjusted value
-- Copy the pre-drawn bits
gfx.blit(self.buffs[1], 1, 0, 0, 0, w, h, x, y)
if not self.noclose then gfx.blit(self.buffs[2], 1, 0, self.hoverclose and cs or 0, 0, cs, cs, x + w - cs - off, y + off) end
end
function GUI.Window:init()
local x, y, w, h = self.x, self.y, self.w, self.h
-- buffs[3] will be filled at :open
self.buffs = self.buffs or GUI.GetBuffer(3)
local th, cs = self.title_height * (0.5 * RL.scaleFactor), self.close_size -- adjusted value
-- Window frame/background
gfx.dest = self.buffs[1]
gfx.setimgdim(self.buffs[1], -1, -1)
gfx.setimgdim(self.buffs[1], w, h)
GUI.color("elm_frame")
GUI.roundrect(0, 0, w - 2, h - 2, 4, true, true)
GUI.color("wnd_bg")
gfx.rect(4, th + 4, w - 10, h - (th + 10), true)
-- [Close] button
gfx.dest = self.buffs[2]
gfx.setimgdim(self.buffs[2], -1, -1)
gfx.setimgdim(self.buffs[2], 2*cs, cs)
GUI.font(2)
local str_w, str_h = gfx.measurestr("x")
local function draw_x(x, y, w)
gfx.line(x, y, x + w - 1, y + w - 1, false)
gfx.line(x, y + 1, x + w - 2, y + w - 1, false)
gfx.line(x + 1, y, x + w - 1, y + w - 2, false)
gfx.line(x, y + w - 1, x + w - 1, y, false)
gfx.line(x, y + w - 2, x + w - 2, y, false)
gfx.line(x + 1, y + w - 1, x + w - 1, y + 1, false)
end
-- Background
GUI.color("elm_frame")
gfx.rect(0, 0, 2*cs, cs, true)
GUI.color("txt")
draw_x(2, 2, cs - 4)
-- Mouseover circle
GUI.color("elm_fill")
GUI.roundrect(cs, 0, cs - 1, cs - 1, 4, true, true)
GUI.color("wnd_bg")
draw_x(cs + 2, 2, cs - 4)
end
function GUI.Window:drawcaption()
GUI.font(2)
GUI.color("txt")
local str_w, str_h = gfx.measurestr(self.caption)
gfx.x = self.x + (self.w - str_w) / 2
gfx.y = self.y + (pad_top + self.title_height - str_h) / 2 + 1 -- adjusted value
gfx.drawstr(self.caption)
end
----------
-- Dialogs
----------
Dialog = {
mode,
id,
input,
message,
parameter
}
local function RL_Dialog_Open()
RL.dialogKeyMode = true
if Dialog.mode == "Confirm" then
RL_InitConfirmDialog()
GUI.elms.confirmDialog_window:open()
end
end
local function RL_Dialog_Close()
RL.dialogKeyMode = false
if Dialog.mode == "Confirm" then
GUI.elms.confirmDialog_window:close()
GUI.elms.confirmDialog_window:ondelete()
GUI.elms.confirmDialog_label:ondelete()
GUI.elms.confirmDialog_btnOK:ondelete()
GUI.elms.confirmDialog_btnCancel:ondelete()
end
end
local function RL_Dialog_OK()
if Dialog.mode == "Confirm" then
-- recent projects
if Dialog.id == "RemoveRecentEntry" then RecentProjects_RemoveEntry() end
if Dialog.id == "ClearRecentList" then RecentProjects_ClearList() end
-- favorites
if Dialog.id == "RemoveFavoritesEntry" then Favorites_RemoveEntry() end
if Dialog.id == "ClearFavoritesList" then Favorites_ClearList() end
end
RL_Dialog_Close()
end
local function RL_ConfirmDialog_RemoveRecentEntry()
Dialog.mode = "Confirm"
Dialog.id = "RemoveRecentEntry"
Dialog.caption = "Remove selected entries?"
RL_Dialog_Open()
end
local function RL_ConfirmDialog_ClearRecentList()
Dialog.mode = "Confirm"
Dialog.id = "ClearRecentList"
Dialog.caption = "Clear Recent Projects list?"
RL_Dialog_Open()
end
function RL_ConfirmDialog_RemoveFavoritesEntry()
local vals = GetSelectionTable(GUI.Val("tab_favorites_listbox"))
if #vals == 0 then MsgStatusBar("No files selected in list")
else
Dialog.mode = "Confirm"
Dialog.id = "RemoveFavoritesEntry"
Dialog.caption = "Remove selected entries?"
RL_Dialog_Open()
end
end
local function RL_ConfirmDialog_ClearFavoritesList()
Dialog.mode = "Confirm"
Dialog.id = "ClearFavoritesList"
Dialog.caption = "Clear this Favorites list?"
RL_Dialog_Open()
end
function RL_InitConfirmDialog(dialogType)
local dialogWidth = GUI.w * 0.75
local dialogHeight = GUI.h * 0.3
local dialogButtonWidth = GUI.w * 0.3 - pad_left
local dialogButtonHeight = 16 * RL.scaleFactor
local footerY = dialogHeight * 0.5
GUI.New("confirmDialog_window", "Window", LayerIndex.ConfirmDialogWindow, 0, 0, dialogWidth, dialogHeight, "", {LayerIndex.ConfirmDialogContent, LayerIndex.ConfirmDialogWindow})
GUI.New("confirmDialog_label", "Label", LayerIndex.ConfirmDialogContent, 2 * pad_left, (26 * RL.scaleFactor), "", false, 3)
GUI.New("confirmDialog_btnCancel", "Button", LayerIndex.ConfirmDialogContent, 2 * pad_left, footerY, dialogButtonWidth, dialogButtonHeight, "Cancel", RL_Dialog_Close)
GUI.New("confirmDialog_btnOK", "Button", LayerIndex.ConfirmDialogContent, dialogWidth - (3 * pad_left) - dialogButtonWidth, footerY, dialogButtonWidth, dialogButtonHeight, "OK", RL_Dialog_OK)
GUI.elms_hide[LayerIndex.ConfirmDialogContent] = true
GUI.elms_hide[LayerIndex.ConfirmDialogWindow] = true
function GUI.elms.confirmDialog_window:onopen()
self:adjustelm(GUI.elms.confirmDialog_label)
self:adjustelm(GUI.elms.confirmDialog_btnCancel)
self:adjustelm(GUI.elms.confirmDialog_btnOK)
GUI.Val("confirmDialog_label", Dialog.message)
self.caption = Dialog.caption
end
GUI.elms.confirmDialog_btnOK.col_fill = "wnd_bg"
GUI.elms.confirmDialog_btnOK:init()
GUI.elms.confirmDialog_btnCancel.col_fill = "wnd_bg"
GUI.elms.confirmDialog_btnCancel:init()
end
------------------------
-- Tab - Recent Projects
------------------------
local function RL_Draw_TabRecentProjects()
GUI.New("tab_recentProjects_btnRefresh", "Button", LayerIndex.RecentProjects, refreshX, refreshY, refreshW, refreshH, "Refresh", RefreshRecentProjects)
GUI.New("tab_recentProjects_txtFilter", "Textbox", LayerIndex.RecentProjects, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_recentProjects_txtFilter.tab_idx = 1
GUI.New("tab_recentProjects_btnFilterClear", "Label", LayerIndex.RecentProjects, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_recentProjects_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_RecentProject_Clear() end
GUI.New("tab_recentProjects_listbox", "Listbox", LayerIndex.RecentProjects, pad_left, listbox_top, listbox_w, listbox_h, "", true)
GUI.elms.tab_recentProjects_listbox.tab_idx = 2
GUI.Val("tab_recentProjects_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_recentProjects_btnLoadInTab", "Button", LayerIndex.RecentProjects, btn_pad_left, btn_tab_top, btn_w, btn_h, "Load in Tab", LoadInTab_RecentProject)
GUI.New("tab_recentProjects_btnLoad", "Button", LayerIndex.RecentProjects, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Load", Load_RecentProject)
else
if GUI.elms.tab_recentProjects_btnLoadInTab ~= nil then GUI.elms.tab_recentProjects_btnLoadInTab:delete() end
if GUI.elms.tab_recentProjects_btnLoad ~= nil then GUI.elms.tab_recentProjects_btnLoad:delete() end
end
function GUI.elms.tab_recentProjects_listbox:onmousedown()
TabSelectionIndex[TabID.RecentProjects] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.RecentProjects)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.RecentProjects) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_recentProjects_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.RecentProjects)
end
if SWSinstalled then
function GUI.elms.tab_recentProjects_listbox:onmouser_down()
RL_Context_RecentProjects()
GUI.Listbox.onmouser_down(self)
end
function GUI.elms.tab_recentProjects_listbox:onmousem_down()
RL_Context_Main_RecentProjects()
GUI.Listbox.onmousem_down(self)
end
end
function RL_Context_RecentProjects()
if RL.showLastActiveProjects then return end
if GetMainListSize() > 0 then
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
local vals = GetSelectionTable(GUI.Val("tab_recentProjects_listbox"))
if #vals == 0 then
if gfx.showmenu("1 - Clear entire list") == 1 then RL_ConfirmDialog_ClearRecentList() end
else
local RMBmenu = gfx.showmenu("1 - Remove selected entries|#|2 - Clear entire list")
if RMBmenu == 1 then RL_ConfirmDialog_RemoveRecentEntry()
elseif RMBmenu == 2 then RL_ConfirmDialog_ClearRecentList()
end
end
end
end
function GUI.elms.tab_recentProjects_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_RecentProject_Apply()
end
function GUI.elms.tab_recentProjects_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.RecentProjects] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_recentProjects_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
--------------------------
-- Tab - Project Templates
--------------------------
local function RL_Draw_TabProjectTemplates()
GUI.New("tab_projectTemplates_btnRefresh", "Button", LayerIndex.ProjectTemplates, refreshX, refreshY, refreshW, refreshH, "Refresh", RebuildCache)
GUI.New("tab_projectTemplates_txtFilter", "Textbox", LayerIndex.ProjectTemplates, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_projectTemplates_txtFilter.tab_idx = 1
GUI.New("tab_projectTemplates_btnFilterClear", "Label", LayerIndex.ProjectTemplates, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_projectTemplates_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_ProjectTemplate_Clear() end
function GUI.elms.tab_projectTemplates_btnRefresh:onmouser_up()
GUI.Button.onmouser_up(self)
RefreshProjectTemplates()
end
if ShowSubfolderPanel(TabID.ProjectTemplates) then GUI.New("tab_projectTemplates_listbox", "Listbox", LayerIndex.ProjectTemplates, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
else GUI.New("tab_projectTemplates_listbox", "Listbox", LayerIndex.ProjectTemplates, pad_left, listbox_top, listbox_w, listbox_h, "", true) end
GUI.elms.tab_projectTemplates_listbox.tab_idx = 2
GUI.Val("tab_projectTemplates_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_projectTemplates_btnLoadInTab", "Button", LayerIndex.ProjectTemplates, btn_pad_left, btn_tab_top, btn_w, btn_h, "Load in Tab", LoadInTab_ProjectTemplate)
GUI.New("tab_projectTemplates_btnLoad", "Button", LayerIndex.ProjectTemplates, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Load", Load_ProjectTemplate)
GUI.New("tab_projectTemplates_lblEditMode", "Label", LayerIndex.ProjectTemplates, GUI.w - (140 * RL.scaleFactor) + (RL.scaleFactor * 10), (255 + btn_main_pad) * RL.scaleFactor, "Edit Template Mode", false, 3)
GUI.New("tab_projectTemplates_checklistEditMode", "Checklist", LayerIndex.ProjectTemplates, GUI.w - (38 * RL.scaleFactor) + (RL.scaleFactor * 10), (252 + btn_main_pad) * RL.scaleFactor + (RL.scaleFactor * 2), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "h", 0)
GUI.elms.tab_projectTemplates_checklistEditMode.shadow = false
GUI.elms.tab_projectTemplates_checklistEditMode.opt_size = 15 * RL.scaleFactor
GUI.elms.tab_projectTemplates_checklistEditMode:init()
function GUI.elms.tab_projectTemplates_checklistEditMode:onmousedown()
RL.projectTemplateLoadMode = GUI.Val("tab_projectTemplates_checklistEditMode")
end
else
if GUI.elms.tab_projectTemplates_btnLoadInTab ~= nil then GUI.elms.tab_projectTemplates_btnLoadInTab:delete() end
if GUI.elms.tab_projectTemplates_btnLoad ~= nil then GUI.elms.tab_projectTemplates_btnLoad:delete() end
if GUI.elms.tab_projectTemplates_lblEditMode ~= nil then GUI.elms.tab_projectTemplates_lblEditMode:delete() end
if GUI.elms.tab_projectTemplates_checklistEditMode ~= nil then GUI.elms.tab_projectTemplates_checklistEditMode:delete() end
end
if ShowSubfolderPanel(TabID.ProjectTemplates) then
GUI.New("tab_projectTemplates_subfolders", "Listbox", LayerIndex.ProjectTemplates, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
function GUI.elms.tab_projectTemplates_subfolders:onmousedown()
if GUI.elms.tab_projectTemplates_subfolders then
TabParentSelectionIndex[TabID.ProjectTemplates] = self:getitem(GUI.mouse.y)
GUI.Listbox.onmousedown(self)
UpdateProjectTemplateSubDirSelection()
end
end
function UpdateProjectTemplateSubDirSelection()
if GetSubListSize() > 0 then
if TabParentSelectionIndex[TabID.ProjectTemplates] == 1 then
FillProjectTemplateListbox()
Filter_ProjectTemplate_Apply()
else
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.ProjectTemplates, TabParentSelectionIndex[TabID.ProjectTemplates])
if cacheExists then FillProjectTemplateListBoxBase(cacheTable)
else
if RL.showSubFolderPaths then FillProjectTemplateListBoxBase(GetFiles(GUI.elms.tab_projectTemplates_subfolders.list[TabParentSelectionIndex[TabID.ProjectTemplates]], TabID.ProjectTemplates, FileTypes.rpp))
else FillProjectTemplateListBoxBase(GetFiles(SubfolderPaths.projectTemplates[TabParentSelectionIndex[TabID.ProjectTemplates]], TabID.ProjectTemplates, FileTypes.rpp)) end
RL_WriteToFileCache(CacheFile.ProjectTemplates, TabParentSelectionIndex[TabID.ProjectTemplates], GetSubTableByPathKey(ProjectTemplates.items), false)
end
end
TabSelectionIndex[TabID.ProjectTemplates] = 1
GUI.Val("tab_projectTemplates_listbox", {1})
end
end
end
function GUI.elms.tab_projectTemplates_listbox:onmousedown()
TabSelectionIndex[TabID.ProjectTemplates] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.ProjectTemplates)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.ProjectTemplates) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_projectTemplates_listbox:onmousem_down()
RL_Context_Main_ProjectTemplates()
GUI.Listbox.onmousem_down(self)
end
function GUI.elms.tab_projectTemplates_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.ProjectTemplates)
end
function GUI.elms.tab_projectTemplates_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_ProjectTemplate_Apply()
end
function GUI.elms.tab_projectTemplates_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.ProjectTemplates] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_projectTemplates_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
------------------------
-- Tab - Track Templates
------------------------
local function RL_Draw_TabTrackTemplates()
GUI.New("tab_trackTemplates_btnRefresh", "Button", LayerIndex.TrackTemplates, refreshX, refreshY, refreshW, refreshH, "Refresh", RebuildCache)
GUI.New("tab_trackTemplates_txtFilter", "Textbox", LayerIndex.TrackTemplates, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_trackTemplates_txtFilter.tab_idx = 1
GUI.New("tab_trackTemplates_btnFilterClear", "Label", LayerIndex.TrackTemplates, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_trackTemplates_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_TrackTemplate_Clear() end
function GUI.elms.tab_trackTemplates_btnRefresh:onmouser_up()
GUI.Button.onmouser_up(self)
RefreshTrackTemplates()
end
if ShowSubfolderPanel(TabID.TrackTemplates) then GUI.New("tab_trackTemplates_listbox", "Listbox", LayerIndex.TrackTemplates, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
else GUI.New("tab_trackTemplates_listbox", "Listbox", LayerIndex.TrackTemplates, pad_left, listbox_top, listbox_w, listbox_h, "", true) end
GUI.elms.tab_trackTemplates_listbox.tab_idx = 2
GUI.Val("tab_trackTemplates_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_trackTemplates_btnInsertInTab", "Button", LayerIndex.TrackTemplates, btn_pad_left, btn_tab_top, btn_w, btn_h, "Insert in Tab", Load_TrackTemplateInTab)
GUI.New("tab_trackTemplates_btnInsert", "Button", LayerIndex.TrackTemplates, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Insert", Load_TrackTemplate)
else
if GUI.elms.tab_trackTemplates_btnInsertInTab ~= nil then GUI.elms.tab_trackTemplates_btnInsertInTab:delete() end
if GUI.elms.tab_trackTemplates_btnInsert ~= nil then GUI.elms.tab_trackTemplates_btnInsert:delete() end
end
if ShowSubfolderPanel(TabID.TrackTemplates) then
GUI.New("tab_trackTemplates_subfolders", "Listbox", LayerIndex.TrackTemplates, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
function GUI.elms.tab_trackTemplates_subfolders:onmouseup()
if GUI.elms.tab_trackTemplates_subfolders then
TabParentSelectionIndex[TabID.TrackTemplates] = self:getitem(GUI.mouse.y)
GUI.Listbox.onmouseup(self)
UpdateTrackTemplateSubDirSelection()
end
end
function UpdateTrackTemplateSubDirSelection()
if GetSubListSize() > 0 then
if TabParentSelectionIndex[TabID.TrackTemplates] == 1 then
FillTrackTemplateListbox()
Filter_TrackTemplate_Apply()
else
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.TrackTemplates, TabParentSelectionIndex[TabID.TrackTemplates])
if cacheExists then FillTrackTemplateListboxBase(cacheTable)
else
if RL.showSubFolderPaths then FillTrackTemplateListboxBase(GetFiles(GUI.elms.tab_trackTemplates_subfolders.list[TabParentSelectionIndex[TabID.TrackTemplates]], TabID.TrackTemplates, FileTypes.tracktemplate))
else FillTrackTemplateListboxBase(GetFiles(SubfolderPaths.trackTemplates[TabParentSelectionIndex[TabID.TrackTemplates]], TabID.TrackTemplates, FileTypes.tracktemplate)) end
RL_WriteToFileCache(CacheFile.TrackTemplates, TabParentSelectionIndex[TabID.TrackTemplates], GetSubTableByPathKey(TrackTemplates.items), false)
end
end
TabSelectionIndex[TabID.TrackTemplates] = 1
GUI.Val("tab_trackTemplates_listbox", {1})
end
end
end
function GUI.elms.tab_trackTemplates_listbox:onmousedown()
TabSelectionIndex[TabID.TrackTemplates] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.TrackTemplates)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.TrackTemplates) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_trackTemplates_listbox:onmousem_down()
RL_Context_Main_TrackTemplates()
GUI.Listbox.onmousem_down(self)
end
function GUI.elms.tab_trackTemplates_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.TrackTemplates)
end
function GUI.elms.tab_trackTemplates_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_TrackTemplate_Apply()
end
function GUI.elms.tab_trackTemplates_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.TrackTemplates] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_trackTemplates_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
-----------------
-- Tab - Projects
-----------------
local function RL_Draw_TabCustomProjects()
GUI.New("tab_customProjects_btnRefresh", "Button", LayerIndex.CustomProjects, refreshX, refreshY, refreshW, refreshH, "Refresh", RebuildCache)
GUI.New("tab_customProjects_txtFilter", "Textbox", LayerIndex.CustomProjects, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_customProjects_txtFilter.tab_idx = 1
GUI.New("tab_customProjects_btnFilterClear", "Label", LayerIndex.CustomProjects, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_customProjects_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_CustomProjects_Clear() end
function GUI.elms.tab_customProjects_btnRefresh:onmouser_up()
GUI.Button.onmouser_up(self)
RefreshCustomProjects()
end
if ShowSubfolderPanel(TabID.CustomProjects) then GUI.New("tab_customProjects_listbox", "Listbox", LayerIndex.CustomProjects, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
else GUI.New("tab_customProjects_listbox", "Listbox", LayerIndex.CustomProjects, pad_left, listbox_top, listbox_w, listbox_h, "", true) end
GUI.elms.tab_customProjects_listbox.tab_idx = 2
GUI.Val("tab_customProjects_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_customProjects_btnLoadInTab", "Button", LayerIndex.CustomProjects, btn_pad_left, btn_tab_top, btn_w, btn_h, "Load in Tab", LoadInTab_CustomProject)
GUI.New("tab_customProjects_btnLoad", "Button", LayerIndex.CustomProjects, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Load", Load_CustomProject)
else
if GUI.elms.tab_customProjects_btnLoadInTab ~= nil then GUI.elms.tab_customProjects_btnLoadInTab:delete() end
if GUI.elms.tab_customProjects_btnLoad ~= nil then GUI.elms.tab_customProjects_btnLoad:delete() end
end
if ShowSubfolderPanel(TabID.CustomProjects) then
GUI.New("tab_customProjects_subfolders", "Listbox", LayerIndex.CustomProjects, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
function GUI.elms.tab_customProjects_subfolders:onmousedown()
if GUI.elms.tab_customProjects_subfolders then
TabParentSelectionIndex[TabID.CustomProjects] = self:getitem(GUI.mouse.y)
GUI.Listbox.onmousedown(self)
UpdateCustomProjectSubDirSelection()
end
end
function UpdateCustomProjectSubDirSelection()
if GetSubListSize() > 0 then
if TabParentSelectionIndex[TabID.CustomProjects] == 1 then
FillCustomProjectsListbox()
Filter_CustomProjects_Apply()
else
if RL.showSubFolderPaths then
if TabParentSelectionIndex[TabID.CustomProjects] == 1 then
FillCustomProjectsListbox()
else
CustomProjects.items, CustomProjects.display = {}, {}
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.CustomProjects, TabParentSelectionIndex[TabID.CustomProjects])
if cacheExists then FillCustomProjectsListboxBase(cacheTable)
else
FillCustomProjectsListboxBase(GetFiles(GUI.elms.tab_customProjects_subfolders.list[TabParentSelectionIndex[TabID.CustomProjects]], TabID.CustomProjects, FileTypes.rpp), 1)
RL_WriteToFileCache(CacheFile.CustomProjects, TabParentSelectionIndex[TabID.CustomProjects], GetSubTableByPathKey(CustomProjects.items), false)
end
end
else
CustomProjects.items, CustomProjects.display = {}, {}
FillCustomProjectsListboxBase(GetFiles(SubfolderPaths.customProjects[TabParentSelectionIndex[TabID.CustomProjects]], TabID.CustomProjects, FileTypes.rpp), 1)
RL_WriteToFileCache(CacheFile.CustomProjects, TabParentSelectionIndex[TabID.CustomProjects], GetSubTableByPathKey(CustomProjects.items), false)
end
end
TabSelectionIndex[TabID.CustomProjects] = 1
GUI.Val("tab_customProjects_listbox", {1})
end
end
end
function GUI.elms.tab_customProjects_listbox:onmousedown()
TabSelectionIndex[TabID.CustomProjects] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.CustomProjects)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.CustomProjects) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_customProjects_listbox:onmousem_down()
RL_Context_Main_CustomProjects()
GUI.Listbox.onmousem_down(self)
end
function GUI.elms.tab_customProjects_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.CustomProjects)
end
function GUI.elms.tab_customProjects_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_CustomProjects_Apply()
end
function GUI.elms.tab_customProjects_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.CustomProjects] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_customProjects_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
-----------------------------
-- Tab - Project Lists (.rpl)
-----------------------------
local function RL_Draw_TabProjectLists()
GUI.New("tab_projectLists_btnRefresh", "Button", LayerIndex.ProjectLists, refreshX, refreshY, refreshW, refreshH, "Refresh", RebuildCache)
GUI.New("tab_projectLists_txtFilter", "Textbox", LayerIndex.ProjectLists, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_projectLists_txtFilter.tab_idx = 1
GUI.New("tab_projectLists_btnFilterClear", "Label", LayerIndex.ProjectLists, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_projectLists_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_ProjectLists_Clear() end
function GUI.elms.tab_projectLists_btnRefresh:onmouser_up()
GUI.Button.onmouser_up(self)
RefreshProjectList()
end
if ShowSubfolderPanel(TabID.ProjectLists) then
GUI.New("tab_projectLists_listboxRPL", "Listbox", LayerIndex.ProjectLists, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
GUI.elms.tab_projectLists_listboxRPL.tab_idx = 2
GUI.elms.tab_projectLists_listboxRPL.list = ProjectLists.rplFiles
GUI.Val("tab_projectLists_listboxRPL", {1})
function GUI.elms.tab_projectLists_listboxRPL:onmouseup()
if GUI.elms.tab_projectLists_listboxRPL then
TabParentSelectionIndex[TabID.ProjectLists] = self:getitem(GUI.mouse.y)
GUI.Listbox.onmouseup(self)
if RL.sortModeIndex[GUI.elms.main_tabs.state] == 2 then UpdateProjectListSelection(true) else UpdateProjectListSelection(false) end
end
end
GUI.New("tab_projectLists_listboxProjects", "Listbox", LayerIndex.ProjectLists, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
else
GUI.New("tab_projectLists_listboxProjects", "Listbox", LayerIndex.ProjectLists, pad_left, listbox_top, listbox_w, listbox_h, "", true)
end
function GUI.elms.tab_projectLists_listboxProjects:onmousem_down()
RL_Context_Main_ProjectLists()
GUI.Listbox.onmousem_down(self)
end
if RL.showButtonPanel then
GUI.New("tab_projectLists_btnLoadInTab", "Button", LayerIndex.ProjectLists, btn_pad_left, btn_tab_top, btn_w, btn_h, "Load in Tab", LoadInTab_ProjectListProject)
GUI.New("tab_projectLists_btnLoad", "Button", LayerIndex.ProjectLists, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Load", Load_ProjectListProject)
else
if GUI.elms.tab_projectLists_btnLoadInTab ~= nil then GUI.elms.tab_projectLists_btnLoadInTab:delete() end
if GUI.elms.tab_projectLists_btnLoad ~= nil then GUI.elms.tab_projectLists_btnLoad:delete() end
end
function UpdateProjectListSelection(listInReverse)
if (ShowSubfolderPanel(TabID.ProjectLists) and GetSubListSize() > 0) then
if TabParentSelectionIndex[TabID.ProjectLists] == 1 or not ShowSubfolderPanel(TabID.ProjectLists) then
local vals = GUI.elms.tab_projectLists_listboxRPL.list
if #vals > 0 then
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.ProjectLists, CacheFile.MainSection)
if cacheExists then RPL_FillProjectListFromTable(cacheTable, listInReverse)
else
ProjectLists.projectItems, ProjectLists.display = {}, {}
allRPLProjects = {}
for v = 2, #vals do allRPLProjects[v - 1] = v end
RPL_ParseRPLFile(allRPLProjects, listInReverse)
TabSelectionIndex[TabID.ProjectLists] = 1
GUI.Val("tab_projectLists_listboxProjects", {1})
RL_WriteToFileCache(CacheFile.ProjectLists, TabParentSelectionIndex[TabID.ProjectLists], GetSubTableByPathKey(ProjectLists.projectItems), false)
Global_UpdateListDisplay()
ShowFileCount()
end
end
else
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.ProjectLists, TabParentSelectionIndex[TabID.ProjectLists])
if cacheExists then RPL_FillProjectListFromTable(cacheTable, listInReverse)
else
if GetSubListSize() > 0 then
ProjectLists.projectItems, ProjectLists.display = {}, {}
RPL_ParseRPLFile(GetSelectionTable(GUI.Val("tab_projectLists_listboxRPL")), listInReverse)
TabSelectionIndex[TabID.ProjectLists] = 1
GUI.Val("tab_projectLists_listboxProjects", {1})
RL_WriteToFileCache(CacheFile.ProjectLists, TabParentSelectionIndex[TabID.ProjectLists], GetSubTableByPathKey(ProjectLists.projectItems), false)
Global_UpdateListDisplay()
ShowFileCount()
end
end
end
end
end
function GUI.elms.tab_projectLists_listboxProjects:onmousedown()
TabSelectionIndex[TabID.ProjectLists] = self:getitem(GUI.mouse.y)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.ProjectLists) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_projectLists_listboxProjects:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.ProjectLists)
end
function GUI.elms.tab_projectLists_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_ProjectLists_Apply()
end
function GUI.elms.tab_projectLists_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.ProjectLists] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_projectLists_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end -- of RL_Draw_TabProjectLists
---------------------------
-- Tab - Backups (.rpp-bak)
---------------------------
local function RL_Draw_TabBackups()
GUI.New("tab_backups_btnRefresh", "Button", LayerIndex.Backups, refreshX, refreshY, refreshW, refreshH, "Refresh", RebuildCache)
GUI.New("tab_backups_txtFilter", "Textbox", LayerIndex.Backups, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_backups_txtFilter.tab_idx = 1
GUI.New("tab_backups_btnFilterClear", "Label", LayerIndex.Backups, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_backups_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_Backups_Clear() end
function GUI.elms.tab_backups_btnRefresh:onmouser_up()
GUI.Button.onmouser_up(self)
RefreshBackups()
end
if ShowSubfolderPanel(TabID.Backups) then GUI.New("tab_backups_listbox", "Listbox", LayerIndex.Backups, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
else GUI.New("tab_backups_listbox", "Listbox", LayerIndex.Backups, pad_left, listbox_top, listbox_w, listbox_h, "", true) end
GUI.elms.tab_backups_listbox.tab_idx = 2
GUI.Val("tab_backups_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_backups_btnLoadInTab", "Button", LayerIndex.Backups, btn_pad_left, btn_tab_top, btn_w, btn_h, "Load in Tab", LoadInTab_BackupFile)
GUI.New("tab_backups_btnLoad", "Button", LayerIndex.Backups, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Load", Load_BackupFile)
else
if GUI.elms.tab_backups_btnLoadInTab ~= nil then GUI.elms.tab_backups_btnLoadInTab:delete() end
if GUI.elms.tab_backups_btnLoad ~= nil then GUI.elms.tab_backups_btnLoad:delete() end
end
if ShowSubfolderPanel(TabID.Backups) then
GUI.New("tab_backups_subfolders", "Listbox", LayerIndex.Backups, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
function GUI.elms.tab_backups_subfolders:onmousedown()
if GUI.elms.tab_backups_subfolders then
TabParentSelectionIndex[TabID.Backups] = self:getitem(GUI.mouse.y)
GUI.Listbox.onmousedown(self)
UpdateBackupsSubDirSelection()
end
end
function UpdateBackupsSubDirSelection()
if GetSubListSize() > 0 then
if TabParentSelectionIndex[TabID.Backups] == 1 then
FillBackupsListbox()
Filter_Backups_Apply()
else
if RL.showSubFolderPaths then
if TabParentSelectionIndex[TabID.Backups] == 1 then
FillBackupsListbox()
else
Backups.items, Backups.display = {}, {}
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.Backups, TabParentSelectionIndex[TabID.Backups])
if cacheExists then FillBackupsListboxBase(cacheTable, 1)
else
FillBackupsListboxBase(GetFiles(GUI.elms.tab_backups_subfolders.list[TabParentSelectionIndex[TabID.Backups]], TabID.Backups, FileTypes.backup), 1)
RL_WriteToFileCache(CacheFile.Backups, TabParentSelectionIndex[TabID.Backups], GetSubTableByPathKey(Backups.items), false)
end
end
else
Backups.items, Backups.display = {}, {}
FillBackupsListboxBase(GetFiles(SubfolderPaths.backups[TabParentSelectionIndex[TabID.Backups]], TabID.Backups, FileTypes.backup), 1)
RL_WriteToFileCache(CacheFile.Backups, TabParentSelectionIndex[TabID.Backups], GetSubTableByPathKey(Backups.items), false)
end
end
TabSelectionIndex[TabID.Backups] = 1
GUI.Val("tab_backups_listbox", {1})
end
end
end
function GUI.elms.tab_backups_listbox:onmousedown()
TabSelectionIndex[TabID.Backups] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.Backups)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.Backups) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_backups_listbox:onmousem_down()
RL_Context_Main_Backups()
GUI.Listbox.onmousem_down(self)
end
function GUI.elms.tab_backups_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.Backups)
end
function GUI.elms.tab_backups_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_Backups_Apply()
end
function GUI.elms.tab_backups_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.Backups] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_backups_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
-------------
-- Tab - Docs
-------------
function Load_DocFile()
if GetMainListSize() > 0 then
local selectedDocFile
local vals = GetSelectionTable(GUI.Val("tab_docs_listbox"))
for p = 1, #vals do
if FilterActive.Docs then selectedDocFile = RemoveWhiteSpaces(Docs.filteredItems[vals[p]].path)
else selectedDocFile = RemoveWhiteSpaces(Docs.items[vals[p]].path) end
if selectedDocFile ~= nil then
reaper.CF_ShellExecute(selectedDocFile)
end
end
Global_CheckWindowPinState()
end
end
local function RL_Draw_TabDocs()
GUI.New("tab_docs_btnRefresh", "Button", LayerIndex.Docs, refreshX, refreshY, refreshW, refreshH, "Refresh", RebuildCache)
GUI.New("tab_docs_txtFilter", "Textbox", LayerIndex.Docs, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_docs_txtFilter.tab_idx = 1
GUI.New("tab_docs_btnFilterClear", "Label", LayerIndex.Docs, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_docs_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_Docs_Clear() end
function GUI.elms.tab_docs_btnRefresh:onmouser_up()
GUI.Button.onmouser_up(self)
RefreshDocs()
end
if ShowSubfolderPanel(TabID.Docs) then GUI.New("tab_docs_listbox", "Listbox", LayerIndex.Docs, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
else GUI.New("tab_docs_listbox", "Listbox", LayerIndex.Docs, pad_left, listbox_top, listbox_w, listbox_h, "", true) end
GUI.elms.tab_docs_listbox.tab_idx = 2
GUI.Val("tab_docs_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_docs_btnOpen", "Button", LayerIndex.Docs, btn_pad_left, btn_tab_top + (20 * RL.scaleFactor) - (5 * RL.scaleFactor), btn_w, btn_h, "Open", Load_DocFile)
else
if GUI.elms.tab_docs_btnOpen ~= nil then GUI.elms.tab_docs_btnOpen:delete() end
end
if ShowSubfolderPanel(TabID.Docs) then
GUI.New("tab_docs_subfolders", "Listbox", LayerIndex.Docs, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
function GUI.elms.tab_docs_subfolders:onmousedown()
if GUI.elms.tab_docs_subfolders then
TabParentSelectionIndex[TabID.Docs] = self:getitem(GUI.mouse.y)
GUI.Listbox.onmousedown(self)
UpdateDocsSubDirSelection()
end
end
function UpdateDocsSubDirSelection()
if GetSubListSize() > 0 then
if TabParentSelectionIndex[TabID.Docs] == 1 then
FillDocsListbox()
Filter_Docs_Apply()
else
if RL.showSubFolderPaths then
if TabParentSelectionIndex[TabID.Docs] == 1 then
FillDocsListbox()
else
Docs.items, Docs.display = {}, {}
local cacheExists, cacheTable = RL_ReadFromFileCache(CacheFile.TrackTemplates, TabParentSelectionIndex[TabID.Docs])
if cacheExists then
FillDocsListboxBase(cacheTable)
else
FillDocsListboxBase(GetFiles(GUI.elms.tab_docs_subfolders.list[TabParentSelectionIndex[TabID.Docs]], TabID.Docs, FileTypes.docs), 1)
RL_WriteToFileCache(CacheFile.Docs, TabParentSelectionIndex[TabID.Docs], GetSubTableByPathKey(Docs.items), false)
end
end
else
Docs.items, Docs.display = {}, {}
FillDocsListboxBase(GetFiles(SubfolderPaths.docs[TabParentSelectionIndex[TabID.Docs]], TabID.Docs, FileTypes.docs), 1)
RL_WriteToFileCache(CacheFile.Docs, TabParentSelectionIndex[TabID.Docs], GetSubTableByPathKey(Docs.items), false)
end
end
TabSelectionIndex[TabID.Docs] = 1
GUI.Val("tab_docs_listbox", {1})
end
end
end
function GUI.elms.tab_docs_listbox:onmousedown()
TabSelectionIndex[TabID.Docs] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.Docs)
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_docs_listbox:onmousem_down()
RL_Context_Main_Docs()
GUI.Listbox.onmousem_down(self)
end
function GUI.elms.tab_docs_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
Load_DocFile()
end
function GUI.elms.tab_docs_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_Docs_Apply()
end
function GUI.elms.tab_docs_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.Docs] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_docs_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
end
------------------
-- Tab - Favorites
------------------
Favorites = {
items = {},
filteredItems = {},
display = {},
filteredDisplay = {}
}
local function RefreshFavorites()
MsgDebug("\nRefresh Favorites")
GUI.Val("tab_favorites_categories", TabParentSelectionIndex[TabID.Favorites])
FillFavoritesListbox()
end
function Load_Favorites_Base(tabmode)
if GetMainListSize() > 0 then
local category = TabParentSelectionIndex[TabID.Favorites]
local selectedEntry
local vals = GetSelectionTable(GUI.Val("tab_favorites_listbox"))
for p = 1, #vals do
if FilterActive.Favorites then selectedEntry = RemoveWhiteSpaces(Favorites.filteredItems[vals[p]].path)
else selectedEntry = RemoveWhiteSpaces(Favorites.items[vals[p]].path) end
if selectedEntry ~= nil then
if category == TabID.TrackTemplates then
if tabmode then reaper.Main_OnCommand(41929, 0) end -- New project tab (ignore default template)
reaper.Main_openProject(selectedEntry)
elseif category == TabID.ProjectTemplates then
if tabmode then
reaper.Main_OnCommand(41929, 0) -- New project tab (ignore default template)
Global_ProjectTemplateLoadBase(selectedEntry)
else
Global_ProjectTemplateLoad(selectedEntry, p)
end
elseif category == TabID.Docs then reaper.CF_ShellExecute(selectedEntry)
elseif category == TabID.RecentProjects or category == TabID.CustomProjects or category == TabID.ProjectLists or category == TabID.Backups then
Global_Load(tabmode, selectedEntry, p)
end
end
end
Global_CheckWindowPinState()
end
end
function LoadInTab_FavoritesFile()
Load_Favorites_Base(true)
end
function Load_FavoritesFile()
Load_Favorites_Base(false)
end
function RL_Draw_FavoritesButtons()
local selection = TabParentSelectionIndex[TabID.Favorites]
-- draw buttons
if selection == TabID.RecentProjects or selection == TabID.ProjectTemplates or selection == TabID.CustomProjects or selection == TabID.ProjectLists or selection == TabID.Backups then
if GUI.elms.tab_favorites_btnOpen ~= nil then GUI.elms.tab_favorites_btnOpen:delete() end
if GUI.elms.tab_favorites_btnInsertInTab ~= nil then GUI.elms.tab_favorites_btnInsertInTab:delete() end
if GUI.elms.tab_favorites_btnInsert ~= nil then GUI.elms.tab_favorites_btnInsert:delete() end
if RL.showButtonPanel then
GUI.New("tab_favorites_btnLoadInTab", "Button", LayerIndex.Favorites, btn_pad_left, btn_tab_top, btn_w, btn_h, "Load in Tab", LoadInTab_FavoritesFile)
GUI.New("tab_favorites_btnLoad", "Button", LayerIndex.Favorites, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Load", Load_FavoritesFile)
else
if GUI.elms.tab_favorites_btnLoadInTab ~= nil then GUI.elms.tab_favorites_btnLoadInTab:delete() end
if GUI.elms.tab_favorites_btnLoad ~= nil then GUI.elms.tab_favorites_btnLoad:delete() end
end
if GUI.elms.tab_favorites_btnLoadInTab ~= nil then
GUI.elms.tab_favorites_btnLoadInTab.col_fill = "wnd_bg"
GUI.elms.tab_favorites_btnLoadInTab:init()
end
if GUI.elms.tab_favorites_btnLoad ~= nil then
GUI.elms.tab_favorites_btnLoad.col_fill = "wnd_bg"
GUI.elms.tab_favorites_btnLoad:init()
end
elseif selection == TabID.TrackTemplates then
if GUI.elms.tab_favorites_btnLoadInTab ~= nil then GUI.elms.tab_favorites_btnLoadInTab:delete() end
if GUI.elms.tab_favorites_btnLoad ~= nil then GUI.elms.tab_favorites_btnLoad:delete() end
if GUI.elms.tab_favorites_btnOpen ~= nil then GUI.elms.tab_favorites_btnOpen:delete() end
GUI.New("tab_favorites_btnInsertInTab", "Button", LayerIndex.Favorites, btn_pad_left, btn_tab_top , btn_w, btn_h, "Insert in Tab", LoadInTab_FavoritesFile)
GUI.New("tab_favorites_btnInsert", "Button", LayerIndex.Favorites, btn_pad_left, btn_tab_top + btn_pad_add, btn_w, btn_h, "Insert", Load_FavoritesFile)
if GUI.elms.tab_favorites_btnInsertInTab ~= nil then
GUI.elms.tab_favorites_btnInsertInTab.col_fill = "wnd_bg"
GUI.elms.tab_favorites_btnInsertInTab:init()
end
if GUI.elms.tab_favorites_btnInsert ~= nil then
GUI.elms.tab_favorites_btnInsert.col_fill = "wnd_bg"
GUI.elms.tab_favorites_btnInsert:init()
end
elseif selection == TabID.Docs then
if GUI.elms.tab_favorites_btnLoadInTab ~= nil then GUI.elms.tab_favorites_btnLoadInTab:delete() end
if GUI.elms.tab_favorites_btnLoad ~= nil then GUI.elms.tab_favorites_btnLoad:delete() end
if GUI.elms.tab_favorites_btnInsertInTab ~= nil then GUI.elms.tab_favorites_btnInsertInTab:delete() end
if GUI.elms.tab_favorites_btnInsert ~= nil then GUI.elms.tab_favorites_btnInsert:delete() end
GUI.New("tab_favorites_btnOpen", "Button", LayerIndex.Favorites, btn_pad_left, btn_tab_top + (20 * RL.scaleFactor) - (5 * RL.scaleFactor), btn_w, btn_h, "Open", Load_FavoritesFile)
if GUI.elms.tab_favorites_btnOpen ~= nil then
GUI.elms.tab_favorites_btnOpen.col_fill = "wnd_bg"
GUI.elms.tab_favorites_btnOpen:init()
end
end
-- draw checkboxes
if selection == TabID.ProjectTemplates then
if GUI.elms.tab_favorites_lblSaveNewVersion ~= nil then GUI.elms.tab_favorites_lblSaveNewVersion:delete() end
if GUI.elms.tab_favorites_checklistSaveAsNewVersion ~= nil then GUI.elms.tab_favorites_checklistSaveAsNewVersion:delete() end
if RL.showButtonPanel then
GUI.New("tab_favorites_lblEditMode", "Label", LayerIndex.Favorites, GUI.w - (140 * RL.scaleFactor) + (RL.scaleFactor * 10), (254 + btn_main_pad) * RL.scaleFactor, "Edit Template Mode", false, 3)
GUI.New("tab_favorites_checklistEditMode", "Checklist", LayerIndex.Favorites, GUI.w - (38 * RL.scaleFactor) + (RL.scaleFactor * 10), (252 + btn_main_pad) * RL.scaleFactor + (RL.scaleFactor * 2), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "h", 0)
GUI.elms.tab_favorites_checklistEditMode.shadow = false
GUI.elms.tab_favorites_checklistEditMode.opt_size = 15 * RL.scaleFactor
GUI.elms.tab_favorites_checklistEditMode:init()
function GUI.elms.tab_favorites_checklistEditMode:onmousedown()
RL.projectTemplateLoadMode = GUI.Val("tab_favorites_checklistEditMode")
end
end
elseif selection == TabID.RecentProjects or selection == TabID.CustomProjects or selection == TabID.ProjectLists then
if GUI.elms.tab_favorites_lblEditMode ~= nil then GUI.elms.tab_favorites_lblEditMode:delete() end
if GUI.elms.tab_favorites_checklistEditMode ~= nil then GUI.elms.tab_favorites_checklistEditMode:delete() end
if RL.showButtonPanel then
GUI.New("tab_favorites_lblSaveNewVersion", "Label", LayerIndex.Favorites, GUI.w - (144 * RL.scaleFactor) + (RL.scaleFactor * 11), (255 + btn_main_pad) * RL.scaleFactor, "Save as New Version", false, 3)
GUI.New("tab_favorites_checklistSaveAsNewVersion", "Checklist", LayerIndex.Favorites, GUI.w - (34 * RL.scaleFactor) + (RL.scaleFactor * 10), (252 + btn_main_pad) * RL.scaleFactor + (RL.scaleFactor * 2), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "h", 0)
GUI.elms.tab_favorites_checklistSaveAsNewVersion.shadow = false
GUI.elms.tab_favorites_checklistSaveAsNewVersion.opt_size = 15 * RL.scaleFactor
GUI.elms.tab_favorites_checklistSaveAsNewVersion:init()
else
if GUI.elms.tab_favorites_lblSaveNewVersion ~= nil then GUI.elms.tab_favorites_lblSaveNewVersion:delete() end
if GUI.elms.tab_favorites_checklistSaveAsNewVersion ~= nil then GUI.elms.tab_favorites_checklistSaveAsNewVersion:delete() end
end
elseif selection == TabID.TrackTemplates or selection == TabID.Backups or selection == TabID.Docs then
if GUI.elms.tab_favorites_lblSaveNewVersion ~= nil then GUI.elms.tab_favorites_lblSaveNewVersion:delete() end
if GUI.elms.tab_favorites_checklistSaveAsNewVersion ~= nil then GUI.elms.tab_favorites_checklistSaveAsNewVersion:delete() end
if GUI.elms.tab_favorites_lblEditMode ~= nil then GUI.elms.tab_favorites_lblEditMode:delete() end
if GUI.elms.tab_favorites_checklistEditMode ~= nil then GUI.elms.tab_favorites_checklistEditMode:delete() end
end
end
local function RL_Draw_TabFavorites()
GUI.New("tab_favorites_btnRefresh", "Button", LayerIndex.Favorites, refreshX, refreshY, refreshW, refreshH, "Refresh", RefreshFavorites)
GUI.New("tab_favorites_txtFilter", "Textbox", LayerIndex.Favorites, filterX, filterY, filterW, filterH, "", 8)
GUI.elms.tab_favorites_txtFilter.tab_idx = 1
GUI.New("tab_favorites_btnFilterClear", "Label", LayerIndex.Favorites, filterX + filterW + 10, filterY + (filterH * 0.1), "x", false, 3)
function GUI.elms.tab_favorites_btnFilterClear:onmouseup() GUI.Label.onmouseup(self) Filter_Favorites_Clear() end
GUI.New("tab_favorites_categories", "Listbox", LayerIndex.Favorites, pad_left, listbox_top, listbox_w/3, listbox_h, "", true)
GUI.elms.tab_favorites_categories.multi = false
local FavoriteCategories = {}
for i = 1, TabID.Docs do FavoriteCategories[i] = MainLabels[i] end
GUI.elms.tab_favorites_categories.list = FavoriteCategories
GUI.New("tab_favorites_listbox", "Listbox", LayerIndex.Favorites, pad_left + listbox_w/3, listbox_top, listbox_w - listbox_w/3, listbox_h, "", true)
GUI.elms.tab_favorites_listbox.list = GetSubTableByNameKey(Favorites.items)
GUI.elms.tab_favorites_listbox.list.tab_idx = 2
GUI.Val("tab_favorites_listbox", {1})
if RL.showButtonPanel then
GUI.New("tab_favorites_btnRemoveFromFavorites", "Button", LayerIndex.Favorites, btn_pad_left, (2 * btn_main_top) - (32 * RL.scaleFactor), btn_w, btn_h, "Remove from Favorites", RL_ConfirmDialog_RemoveFavoritesEntry)
GUI.elms.tab_favorites_btnRemoveFromFavorites.tooltip = "Remove the selected file(s) from the [Favorites]"
else
if GUI.elms.tab_favorites_btnRemoveFromFavorites ~= nil then GUI.elms.tab_favorites_btnRemoveFromFavorites:delete() end
end
RL_Draw_FavoritesButtons()
function GUI.elms.tab_favorites_categories:onmousedown()
if GUI.elms.tab_favorites_categories then
TabParentSelectionIndex[TabID.Favorites] = self:getitem(GUI.mouse.y)
TabSelectionIndex[TabID.Favorites] = 0
RL.projectTemplateLoadMode, RL.saveAsNewVersionMode = 1, 0
GUI.Listbox.onmousedown(self)
FillFavoritesListbox()
Filter_Favorites_Clear()
ShowFileCount()
end
end
function GUI.elms.tab_favorites_listbox:onmouser_down()
RL_Context_Favorites()
GUI.Listbox.onmouser_down(self)
end
function GUI.elms.tab_favorites_listbox:onmousem_down()
RL_Context_Main_Favorites()
GUI.Listbox.onmousem_down(self)
end
function RL_Context_Favorites_AddProjects(mode, currentSelection)
local transferredProjects = {}
if mode == "current" then
local retval, projectFile = reaper.EnumProjects(-1, "")
if retval and IsNotNullOrEmpty(projectFile) and not CheckForDuplicates(transferredProjects, projectFile) then
transferredProjects[#transferredProjects + 1] = projectFile
RL_WriteFavorites(FavoritesFile[currentSelection], CacheFile.MainSection, transferredProjects)
RefreshFavorites()
end
elseif mode == "all" then
local projTab, lastProject = 0, false
while not lastProject do
local retval, projectFile = reaper.EnumProjects(projTab, "")
if retval then
if IsNotNullOrEmpty(projectFile) and not CheckForDuplicates(transferredProjects, projectFile) then transferredProjects[#transferredProjects + 1] = projectFile end
projTab = projTab + 1
else
lastProject = true
RL_WriteFavorites(FavoritesFile[currentSelection], CacheFile.MainSection, transferredProjects)
RefreshFavorites()
end
end
end
end
function RL_Context_Favorites()
local currentSelection = TabParentSelectionIndex[TabID.Favorites]
if currentSelection ~= TabID.TrackTemplates and currentSelection ~= TabID.Backups and currentSelection ~= TabID.Docs then
gfx.x, gfx.y = gfx.mouse_x, gfx.mouse_y
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_favorites_listbox"))
if #vals == 0 then
local RMBmenu = gfx.showmenu("1 - Add current project tab|2 - Add all project tabs|#|3 - Clear entire list")
if RMBmenu == 1 then RL_Context_Favorites_AddProjects("current", currentSelection)
elseif RMBmenu == 2 then RL_Context_Favorites_AddProjects("all", currentSelection)
elseif RMBmenu == 3 then RL_ConfirmDialog_ClearFavoritesList()
end
else
local RMBmenu = gfx.showmenu("1 - Add current project tab|2 - Add all project tabs|#|3 - Remove selected entries|4 - Clear entire list")
if RMBmenu == 1 then RL_Context_Favorites_AddProjects("current", currentSelection)
elseif RMBmenu == 2 then RL_Context_Favorites_AddProjects("all", currentSelection)
elseif RMBmenu == 3 then if GetMainListSize() == 1 then RL_ConfirmDialog_ClearFavoritesList() else RL_ConfirmDialog_RemoveFavoritesEntry() end
elseif RMBmenu == 4 then RL_ConfirmDialog_ClearFavoritesList()
end
end
else
local RMBmenu = gfx.showmenu("1 - Add current project tab|2 - Add all project tabs")
if RMBmenu == 1 then RL_Context_Favorites_AddProjects("current", currentSelection)
elseif RMBmenu == 2 then RL_Context_Favorites_AddProjects("all", currentSelection)
end
end
end
end
function GUI.elms.tab_favorites_listbox:ondoubleclick()
GUI.Listbox.ondoubleclick(self)
RL_Mouse_DoubleClick(TabID.Favorites)
end
function GUI.elms.tab_favorites_listbox:onmousedown()
TabSelectionIndex[TabID.Favorites] = self:getitem(GUI.mouse.y)
Global_ShowPathInStatusbar(TabID.Favorites)
if JSAPIinstalled then AudioPreviewCheckForFile(TabID.Favorites) end
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_favorites_txtFilter:ontype()
GUI.Textbox.ontype(self)
Filter_Favorites_Apply()
end
function GUI.elms.tab_favorites_txtFilter:lostfocus()
RL.keyInputActive = true
TabSelectionIndex[TabID.Favorites] = 0
GUI.Textbox.lostfocus(self)
end
function GUI.elms.tab_favorites_txtFilter:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function FillFavoritesListbox()
Favorites.items, Favorites.display = {}, {}
GUI.elms.tab_favorites_listbox.list = {}
local selection = TabParentSelectionIndex[TabID.Favorites]
if selection == TabID.RecentProjects or selection == TabID.ProjectTemplates or selection == TabID.CustomProjects then fileExtension = FileTypes.rpp
elseif selection == TabID.TrackTemplates then fileExtension = FileTypes.tracktemplate
elseif selection == TabID.ProjectLists then fileExtension = FileTypes.rpl
elseif selection == TabID.Backups then fileExtension = FileTypes.backup
elseif selection == TabID.Docs then fileExtension = FileTypes.docs
end
local cacheExists, favTable = RL_ReadFromFile(FavoritesFile[selection], CacheFile.MainSection)
if cacheExists then
for k, v in pairs(favTable) do
Favorites.items[#Favorites.items + 1] = {
name = RemoveExtension(RemoveWhiteSpaces(GetFilenameWithoutPath(v)), fileExtension),
path = v,
date = GetLastModifiedDate(v)
}
end
TabSelectionIndex[TabID.Favorites] = 1
GUI.Val("tab_favorites_listbox", {1})
Global_UpdateListDisplay()
end
RL_Draw_FavoritesButtons()
end
end
function Favorites_Add()
local favEntries = {}
local currentTab = GUI.elms.main_tabs.state
-- recent projects
if currentTab == TabID.RecentProjects then
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_recentProjects_listbox"))
for p = 1, #vals do
if FilterActive.RecentProjects then selectedProject = RecentProjects.filteredItems[vals[p]].path
else selectedProject = RecentProjects.items[vals[p]].path end
if selectedProject ~= nil then favEntries[#favEntries + 1] = selectedProject end
end
end
-- project templates
elseif currentTab == TabID.ProjectTemplates then
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_projectTemplates_listbox"))
for p = 1, #vals do
if FilterActive.ProjectTemplates then selectedProjectTemplate = ProjectTemplates.filteredItems[vals[p]].path
else selectedProjectTemplate = ProjectTemplates.items[vals[p]].path end
if selectedProjectTemplate ~= nil then favEntries[#favEntries + 1] = selectedProjectTemplate end
end
end
-- track templates
elseif currentTab == TabID.TrackTemplates then
if GetMainListSize() > 0 then
local selectedTrackTemplate
local vals = GetSelectionTable(GUI.Val("tab_trackTemplates_listbox"))
for p = 1, #vals do
if FilterActive.TrackTemplates then selectedTrackTemplate = TrackTemplates.filteredItems[vals[p]].path
else selectedTrackTemplate = TrackTemplates.items[vals[p]].path end
if selectedTrackTemplate ~= nil then favEntries[#favEntries + 1] = selectedTrackTemplate end
end
end
-- projects
elseif currentTab == TabID.CustomProjects then
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_customProjects_listbox"))
for p = 1, #vals do
if FilterActive.CustomProjects then selectedProject = CustomProjects.filteredItems[vals[p]].path
else selectedProject = CustomProjects.items[vals[p]].path end
if selectedProject ~= nil then favEntries[#favEntries + 1] = selectedProject end
end
end
-- project lists
elseif currentTab == TabID.ProjectLists then
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_projectLists_listboxProjects"))
for p = 1, #vals do
if FilterActive.ProjectLists then selectedProjectListProject = RemoveWhiteSpaces(ProjectLists.filteredProjectItems[vals[p]].path)
else selectedProjectListProject = RemoveWhiteSpaces(ProjectLists.projectItems[vals[p]].path) end
if selectedProjectListProject ~= nil then favEntries[#favEntries + 1] = selectedProjectListProject end
end
end
-- backups
elseif currentTab == TabID.Backups then
if GetMainListSize() > 0 then
local vals = GetSelectionTable(GUI.Val("tab_backups_listbox"))
for p = 1, #vals do
if FilterActive.Backups then selectedBackupFile = RemoveWhiteSpaces(Backups.filteredItems[vals[p]].path)
else selectedBackupFile = RemoveWhiteSpaces(Backups.items[vals[p]].path) end
if selectedBackupFile ~= nil then favEntries[#favEntries + 1] = selectedBackupFile end
end
end
-- docs
elseif currentTab == TabID.Docs then
if GetMainListSize() > 0 then
local selectedDocFile
local vals = GetSelectionTable(GUI.Val("tab_docs_listbox"))
for p = 1, #vals do
if FilterActive.Docs then selectedDocFile = Docs.filteredItems[vals[p]].path
else selectedDocFile = Docs.items[vals[p]].path end
if selectedDocFile ~= nil then favEntries[#favEntries + 1] = selectedDocFile end
end
end
end
if #favEntries > 0 then
RL_WriteFavorites(FavoritesFile[currentTab], CacheFile.MainSection, favEntries)
MsgStatusBar("Added to Favorites")
end
end
function Favorites_RemoveEntry()
local selectionTable = GetSelectionTable(GUI.Val("tab_favorites_listbox"))
if #selectionTable == 0 then MsgStatusBar("No files selected in list")
else
local currentFavFile = FavoritesFile[TabParentSelectionIndex[TabID.Favorites]]
local cacheExists, favTable = RL_ReadFromFile(currentFavFile, CacheFile.MainSection)
if cacheExists then
local entriesToKeep = {}
for f = 1, #favTable do
if IsNotNullOrEmpty(favTable[f]) then
local foundMatch = false
for s = 1, #selectionTable do
local selectedFavoritesFile
if FilterActive.Favorites then selectedFavoritesFile = Favorites.filteredItems[selectionTable[s]].path
else selectedFavoritesFile = Favorites.items[selectionTable[s]].path end
if favTable[f] == selectedFavoritesFile then
foundMatch = true
break
end
end
if not foundMatch then entriesToKeep[#entriesToKeep + 1] = favTable[f] end
end
end
if #entriesToKeep > 0 then
Favorites_ClearList()
RL_WriteFavorites(currentFavFile, CacheFile.MainSection, entriesToKeep)
RefreshFavorites()
end
end
end
end
function Favorites_ClearList()
if RL_ClearFile(FavoritesFile[TabParentSelectionIndex[TabID.Favorites]]) then RefreshFavorites() end
end
---------------
-- Tab - Layout
---------------
-- default GUI.colors: wnd_bg = {64, 64, 64, 255} / tab_bg = {56, 56, 56, 255} / elm_bg = {48, 48, 48, 255} / elm_frame = {96, 96, 96, 255} /
-- elm_fill = {64, 192, 64, 255} / elm_outline = {32, 32, 32, 255} / txt = {192, 192, 192, 255} / shadow = {0, 0, 0, 48} / faded = {0, 0, 0, 64}
local function RL_Draw_TabLayout()
if ConfigFlags.enableCustomColorOptions then
function RL_Reset_Colors()
GUI.colors.elm_fill = { 64 / 255, 192 / 255, 64 / 255, 1 }
GUI.colors.txt = { 192 / 255, 192 / 255, 192 / 255, 1 }
GUI.colors.wnd_bg = { 64 / 255, 64 / 255, 64 / 255, 1 }
GUI.colors.elm_bg = { 48 / 255, 48 / 255, 48 / 255, 1 }
reaper.SetExtState(appname, "window_color_elmfill", "", 1)
reaper.SetExtState(appname, "window_color_txt", "", 1)
reaper.SetExtState(appname, "window_color_wndbg", "", 1)
reaper.SetExtState(appname, "window_color_elmbg", "", 1)
GUI.elms.colors_frame_elmFill.color = GUI.colors.elm_fill
GUI.elms.colors_frame_txt.color = GUI.colors.txt
GUI.elms.colors_frame_wndBg.color = GUI.colors.wnd_bg
GUI.elms.colors_frame_elmBg.color = GUI.colors.elm_bg
RL_Init_Colors_Highlight()
RL_Init_Colors_TextElements()
RL_Init_Colors_ElementBackground()
RL_Init_Colors_Button()
end
GUI.New("colors_btnResetColors", "Button", LayerIndex.Layout, 4.0 * optionspad_left, tabSelectorPadding + 2.5 * 38 * RL.scaleFactor, 98 * RL.scaleFactor, 18 * RL.scaleFactor, "Reset Colors", RL_Reset_Colors)
GUI.elms.colors_btnResetColors.tooltip = "Reset color scheme to default colors"
GUI.New("colors_lbl_elmFill", "Label", LayerIndex.Layout, 4.4 * optionspad_left, tabSelectorPadding + 3.1 * 38 * RL.scaleFactor, "Highlight color", false, 3)
GUI.New("colors_frame_elmFill", "Frame", LayerIndex.Layout, 4 * optionspad_left, tabSelectorPadding + 3.1 * 38 * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor)
GUI.elms.colors_frame_elmFill.tooltip = "Set a custom highlight color"
GUI.New("colors_lbl_txt", "Label", LayerIndex.Layout, 4.4 * optionspad_left, tabSelectorPadding + 3.6 * 38 * RL.scaleFactor, "Text color", false, 3)
GUI.New("colors_frame_txt", "Frame", LayerIndex.Layout, 4 * optionspad_left, tabSelectorPadding + 3.6 * 38 * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor)
GUI.elms.colors_frame_txt.tooltip = "Set a custom text color"
GUI.New("colors_lbl_elmBg", "Label", LayerIndex.Layout, 4.4 * optionspad_left, tabSelectorPadding + 4.1 * 38 * RL.scaleFactor, "Element Background color", false, 3)
GUI.New("colors_frame_elmBg", "Frame", LayerIndex.Layout, 4 * optionspad_left, tabSelectorPadding + 4.1 * 38 * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor)
GUI.elms.colors_frame_elmBg.tooltip = "Set a custom element background color"
GUI.New("colors_lbl_wndBg", "Label", LayerIndex.Layout, 4.4 * optionspad_left, tabSelectorPadding + 4.6 * 38 * RL.scaleFactor, "Window Background color", false, 3)
GUI.New("colors_frame_wndBg", "Frame", LayerIndex.Layout, 4 * optionspad_left, tabSelectorPadding + 4.6 * 38 * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor)
GUI.elms.colors_frame_wndBg.tooltip = "Set a custom window background color"
GUI.New("colors_lbl_infotext", "Label", LayerIndex.Layout, 4.0 * optionspad_left, tabSelectorPadding + 5.3 * 38 * RL.scaleFactor, "(Layout and color changes require a restart)", false, 3)
function GUI.elms.colors_frame_elmFill:draw() GUI.Frame.draw(self) DrawFrameColor(self) end
function GUI.elms.colors_frame_elmFill:onmouseup() OpenColorPicker(self, "elm_fill") DrawFrameColor(self) end
function GUI.elms.colors_frame_txt:draw() GUI.Frame.draw(self) DrawFrameColor(self) end
function GUI.elms.colors_frame_txt:onmouseup() OpenColorPicker(self, "txt") DrawFrameColor(self) end
function GUI.elms.colors_frame_wndBg:draw() GUI.Frame.draw(self) DrawFrameColor(self) end
function GUI.elms.colors_frame_wndBg:onmouseup() OpenColorPicker(self, "wnd_bg") DrawFrameColor(self) end
function GUI.elms.colors_frame_elmBg:draw() GUI.Frame.draw(self) DrawFrameColor(self) end
function GUI.elms.colors_frame_elmBg:onmouseup() OpenColorPicker(self, "elm_bg") DrawFrameColor(self) end
function DrawFrameColor(self)
local x, y, w, h = self.x + 1, self.y + 1, self.w - 2, self.h - 2
GUI.color(self.color)
gfx.rect(x, y, w, h, true)
if self.col_user then
GUI.color(self.col_user)
gfx.rect(x + 1, y + 1, w - 2, h - 2, true)
end
GUI.color("black")
gfx.rect(x, y, w, h, false)
end
function OpenColorPicker(self, colorElement)
local retval, outColor = reaper.GR_SelectColor()
if retval ~= 0 then
local r, g, b = reaper.ColorFromNative(outColor)
self.col_user = {r / 255, g / 255, b / 255}
local colorString = r .. "," .. g .. "," .. b
if colorElement == "elm_fill" then
GUI.colors.elm_fill = self.col_user
reaper.SetExtState(appname, "window_color_elmfill", colorString, 1)
RL_Init_Colors_Highlight()
elseif colorElement == "txt" then
GUI.colors.txt = self.col_user
reaper.SetExtState(appname, "window_color_txt", colorString, 1)
RL_Init_Colors_TextElements()
elseif colorElement == "wnd_bg" then
GUI.colors.wnd_bg = self.col_user
reaper.SetExtState(appname, "window_color_wndbg", colorString, 1)
RL_Init_Colors_Button()
elseif colorElement == "elm_bg" then
GUI.colors.elm_bg = self.col_user
reaper.SetExtState(appname, "window_color_elmbg", colorString, 1)
RL_Init_Colors_ElementBackground()
end
GUI.redraw_z[self.z] = true
end
end
end
if RL.tabSelectorStyle == 2 then GUI.New("layout_frame_top", "Frame", LayerIndex.Layout, 0, listbox_top, GUI.w, 2 * RL.scaleFactor, false, true) end
GUI.New("layout_lblTabSelectorStyle", "Label", LayerIndex.Layout, 1.6 * optionspad_left, tabSelectorPadding + 34 * RL.scaleFactor, "Tab Selector style", false, 3)
GUI.New("layout_menuTabSelectorStyle", "Menubox", LayerIndex.Layout, 3.4 * optionspad_left, tabSelectorPadding + 34 * RL.scaleFactor, 100 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Tabstrip,Dropdown", 8)
GUI.elms.layout_menuTabSelectorStyle.align = 1
GUI.Val("layout_menuTabSelectorStyle", RL.tabSelectorStyle)
function GUI.elms.layout_menuTabSelectorStyle:onmousedown()
GUI.Menubox.onmouseup(self)
reaper.SetExtState(appname, "window_tabselectorstyle", GUI.Val("layout_menuTabSelectorStyle"), 1)
RL.tabSelectorStyle = GUI.Val("layout_menuTabSelectorStyle")
Global_Redraw()
end
function GUI.elms.layout_menuTabSelectorStyle:onwheel()
GUI.Menubox.onwheel(self)
reaper.SetExtState(appname, "window_tabselectorstyle", GUI.Val("layout_menuTabSelectorStyle"), 1)
RL.tabSelectorStyle = GUI.Val("layout_menuTabSelectorStyle")
Global_Redraw()
end
GUI.New("layout_lblButtonPanelStyle", "Label", LayerIndex.Layout, 1.6 * optionspad_left, tabSelectorPadding + 52 * RL.scaleFactor, "Main Panel style", false, 3)
GUI.New("layout_menuButtonPanelStyle", "Menubox", LayerIndex.Layout, 3.4 * optionspad_left, tabSelectorPadding + 52 * RL.scaleFactor, 100 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Buttons,Context Menu", 8)
GUI.elms.layout_menuButtonPanelStyle.align = 1
if RL.showButtonPanel then GUI.Val("layout_menuButtonPanelStyle", 1) else GUI.Val("layout_menuButtonPanelStyle", 2) end
function GUI.elms.layout_menuButtonPanelStyle:onmousedown()
GUI.Menubox.onmouseup(self)
if GUI.Val("layout_menuButtonPanelStyle") == 1 then
reaper.SetExtState(appname, "window_showmainbuttonpanel", "true", 1)
RL.showButtonPanel = true
else
RL.showButtonPanel = false
reaper.SetExtState(appname, "window_showmainbuttonpanel", "false", 1)
end
Global_Redraw()
end
function GUI.elms.layout_menuButtonPanelStyle:onwheel()
GUI.Menubox.onwheel(self)
if GUI.Val("layout_menuButtonPanelStyle") == 1 then
reaper.SetExtState(appname, "window_showmainbuttonpanel", "true", 1)
RL.showButtonPanel = true
else
RL.showButtonPanel = false
reaper.SetExtState(appname, "window_showmainbuttonpanel", "false", 1)
end
Global_Redraw()
end
if ConfigFlags.enableHiDPIModeOptions then
GUI.New("layout_lblRetinaMode", "Label", LayerIndex.Layout, 1.6 * optionspad_left, tabSelectorPadding + 70 * RL.scaleFactor, "HiDPI Mode", false, 3)
GUI.New("layout_menuRetinaMode", "Menubox", LayerIndex.Layout, 3.4 * optionspad_left, tabSelectorPadding + 70 * RL.scaleFactor, 100 * RL.scaleFactor, 15 * RL.scaleFactor, "","Auto,Default,Retina")
GUI.elms.layout_menuRetinaMode.align = 1
GUI.elms.layout_menuRetinaMode.tooltip = "Sets the gfx.ext_retina flag for HiDPI/Retina support\n\n[Auto]: Detect flag automatically\n[Default] or [Retina]: Set flag manually\n\nSet the flag to [Default] if there are any problems with using the other options\n\nRestart required for the changes to take effect"
function GUI.elms.layout_menuRetinaMode:onmousedown()
GUI.Menubox.onmouseup(self)
reaper.SetExtState(appname, "window_hidpimode", GUI.Val("layout_menuRetinaMode"), 1)
end
function GUI.elms.layout_menuRetinaMode:onwheel()
GUI.Menubox.onwheel(self)
reaper.SetExtState(appname, "window_hidpimode", GUI.Val("layout_menuRetinaMode"), 1)
end
end
GUI.New("layout_frame_1", "Frame", LayerIndex.Layout, 94 * RL.scaleFactor, tabSelectorPadding + 89 * RL.scaleFactor, GUI.w, 2 * RL.scaleFactor, false, true)
GUI.New("layout_lblShowSubfolderPanel", "Label", LayerIndex.Layout, 1.6 * optionspad_left, tabSelectorPadding + 1.35 * 70 * RL.scaleFactor, "Show (left) Sub Panels", false, 3)
GUI.New("layout_checklistShowSubfolderPanel", "Checklist", LayerIndex.Layout, 1.6 * optionspad_left, tabSelectorPadding + 1.6 * 70 * RL.scaleFactor, 126 * RL.scaleFactor, 106 * RL.scaleFactor, "", "Project Templates,Track Templates,Projects,Project Lists,Backups,Docs", "v", 5)
GUI.elms.layout_checklistShowSubfolderPanel.shadow = false
GUI.elms.layout_checklistShowSubfolderPanel.opt_size = 15 * RL.scaleFactor
GUI.elms.layout_checklistShowSubfolderPanel.font_a = GUI.fonts[4]
GUI.Val("layout_checklistShowSubfolderPanel", RL.activeSubPanels)
GUI.elms.layout_checklistShowSubfolderPanel.frame = false
GUI.elms.layout_checklistShowSubfolderPanel:init()
if SWSinstalled then RL_Draw_ThemeSlotOptions() end
end
--------------
-- Tab - Paths
--------------
local function OpenJSBrowseDialog(textBoxID, caption)
if JSAPIinstalled then
local retval, selectedFolder = reaper.JS_Dialog_BrowseForFolder(caption, RL.lastFolderPath)
if retval == 1 then
RL.lastFolderPath = selectedFolder
local oldPath = GUI.Val(textBoxID)
if IsNotNullOrEmpty(oldPath) then GUI.Val(textBoxID, oldPath .. ";" .. selectedFolder)
else GUI.Val(textBoxID, selectedFolder) end
end
end
end
function Path_Browse_ProjectTemplateFolder()
OpenJSBrowseDialog("paths_txtProjectTemplatesPath", "Containing (.RPP) Project Templates")
end
function Path_Browse_TrackTemplateFolder()
OpenJSBrowseDialog("paths_txtTrackTemplatesPath", "Containing (.RTrackTemplate) Track Templates")
end
function Path_Browse_CustomProjectFolder()
OpenJSBrowseDialog("paths_txtCustomProjectsPath", "Containing (.RPP) Projects")
end
function Path_Browse_ProjectListFolder()
OpenJSBrowseDialog("paths_txtProjectsListsPath", "Containing (.RPL) Project Lists")
end
function Path_Browse_BackupsFolder()
OpenJSBrowseDialog("paths_txtBackupsPath", "Containing (.RPP-BAK) Backups")
end
function Path_Browse_DocsFolder()
OpenJSBrowseDialog("paths_txtDocsPath", "Containing (.PDF) Docs")
end
function RL_ShowProgressIndicator(elementIndex, isActive)
if ConfigFlags.enableFileCaching or ConfigFlags.enableSubfolderCaching then
if isActive then
if elementIndex == 1 then GUI.elms.paths_btnRescanAllPaths.col_txt = FilterColor.active
elseif elementIndex == 2 then GUI.elms.paths_btnProjectTemplatesSet.col_txt = FilterColor.active
elseif elementIndex == 3 then GUI.elms.paths_btnTrackTemplatesSet.col_txt = FilterColor.active
elseif elementIndex == 4 then GUI.elms.paths_btnCustomProjectsSet.col_txt = FilterColor.active
elseif elementIndex == 5 then GUI.elms.paths_btnProjectListsSet.col_txt = FilterColor.active
elseif elementIndex == 6 then GUI.elms.paths_btnBackupsSet.col_txt = FilterColor.active
elseif elementIndex == 7 then GUI.elms.paths_btnDocsSet.col_txt = FilterColor.active
end
else
if elementIndex == 1 then GUI.elms.paths_btnRescanAllPaths.col_txt = FilterColor.inactive
elseif elementIndex == 2 then GUI.elms.paths_btnProjectTemplatesSet.col_txt = FilterColor.inactive
elseif elementIndex == 3 then GUI.elms.paths_btnTrackTemplatesSet.col_txt = FilterColor.inactive
elseif elementIndex == 4 then GUI.elms.paths_btnCustomProjectsSet.col_txt = FilterColor.inactive
elseif elementIndex == 5 then GUI.elms.paths_btnProjectListsSet.col_txt = FilterColor.inactive
elseif elementIndex == 6 then GUI.elms.paths_btnBackupsSet.col_txt = FilterColor.inactive
elseif elementIndex == 7 then GUI.elms.paths_btnDocsSet.col_txt = FilterColor.inactive
end
end
GUI.elms.paths_btnRescanAllPaths:redraw()
GUI.elms.paths_btnRescanAllPaths:init()
GUI.elms.paths_btnProjectTemplatesSet:redraw()
GUI.elms.paths_btnProjectTemplatesSet:init()
GUI.elms.paths_btnTrackTemplatesSet:redraw()
GUI.elms.paths_btnTrackTemplatesSet:init()
GUI.elms.paths_btnCustomProjectsSet:redraw()
GUI.elms.paths_btnCustomProjectsSet:init()
GUI.elms.paths_btnProjectListsSet:redraw()
GUI.elms.paths_btnProjectListsSet:init()
GUI.elms.paths_btnBackupsSet:redraw()
GUI.elms.paths_btnBackupsSet:init()
GUI.elms.paths_btnDocsSet:redraw()
GUI.elms.paths_btnDocsSet:init()
end
end
-------------
-- Scan Files
-------------
function RL_ScanProjectTemplateFiles()
local retval, tempTemplates = GetProjectTemplateFiles()
if retval then
RL_WriteToFileCache(CacheFile.ProjectTemplates, CacheFile.MainSection, tempTemplates, true)
MsgDebug("Project Templates rescan completed")
end
end
function RL_ScanTrackTemplateFiles()
local retval, tempTemplates = GetTrackTemplateFiles()
if retval then
RL_WriteToFileCache(CacheFile.TrackTemplates, CacheFile.MainSection, tempTemplates, true)
MsgDebug("Track Templates rescan completed")
end
end
function RL_ScanCustomProjectFiles()
if #CustomPaths.Projects > 1 then
local tempProjects = {}
local multiPaths = SplitMultiPaths(CustomPaths.Projects)
for m = 1, #multiPaths do JoinTables(tempProjects, GetFiles(multiPaths[m], TabID.CustomProjects, FileTypes.rpp)) end
RL_WriteToFileCache(CacheFile.CustomProjects, CacheFile.MainSection, tempProjects, true)
MsgDebug("Projects rescan completed")
end
end
function RL_ScanProjectListFiles()
if #CustomPaths.ProjectLists > 1 then
local tempRPL, tempProjectFiles = {}, {}
local multiPaths = SplitMultiPaths(CustomPaths.ProjectLists)
for m = 1, #multiPaths do JoinTables(tempRPL, GetFiles(multiPaths[m], TabID.ProjectLists, FileTypes.rpl)) end
for r = 1, #tempRPL do
local file = io.open(tempRPL[r], "r")
if not file then return nil end
for line in file:lines() do
if #line > 1 then
if not CheckForDuplicates(tempProjectFiles, line) then tempProjectFiles[#tempProjectFiles + 1] = line end
end
end
file:close()
end
RL_WriteToFileCache(CacheFile.ProjectLists, CacheFile.MainSection, tempProjectFiles, true)
MsgDebug("Project Lists rescan completed")
end
end
function RL_ScanBackupsFiles()
if #CustomPaths.Backups > 1 then
local tempBackups = {}
local multiPaths = SplitMultiPaths(CustomPaths.Backups)
for m = 1, #multiPaths do JoinTables(tempBackups, GetFiles(multiPaths[m], TabID.Backups, FileTypes.backup)) end
RL_WriteToFileCache(CacheFile.Backups, CacheFile.MainSection, tempBackups, true)
MsgDebug("Backups rescan completed")
end
end
function RL_ScanDocsFiles()
if #CustomPaths.Docs > 1 then
local tempDocs = {}
local multiPaths = SplitMultiPaths(CustomPaths.Docs)
for m = 1, #multiPaths do JoinTables(tempDocs, GetFiles(multiPaths[m], TabID.Docs, FileTypes.docs)) end
RL_WriteToFileCache(CacheFile.Docs, CacheFile.MainSection, tempDocs, true)
MsgDebug("Docs rescan completed")
end
end
------------------
-- Scan Subfolders
------------------
function RL_ScanProjectTemplateSubfolders()
if ShowSubfolderPanel(TabID.ProjectTemplates) then
SubfolderPaths.projectTemplates, SubfolderNames.projectTemplates = {}, {}
SubfolderPaths.projectTemplates, SubfolderNames.projectTemplates = GetSubFolderEntries(projectTemplatePath, CustomPaths.ProjectTemplates, TabID.ProjectTemplates, FileTypes.rpp)
RL_WriteToSubfolderCache(SubpanelFile.ProjectTemplates, SubpanelFile.MainSection, SubfolderPaths.projectTemplates)
end
end
function RL_ScanTrackTemplateSubfolders()
if ShowSubfolderPanel(TabID.TrackTemplates) then
SubfolderPaths.trackTemplates, SubfolderNames.trackTemplates = {}, {}
SubfolderPaths.trackTemplates, SubfolderNames.trackTemplates = GetSubFolderEntries(trackTemplatePath, CustomPaths.TrackTemplates, TabID.TrackTemplates, FileTypes.tracktemplate)
RL_WriteToSubfolderCache(SubpanelFile.TrackTemplates, SubpanelFile.MainSection, SubfolderPaths.trackTemplates)
end
end
function RL_ScanCustomProjectSubfolders()
if ShowSubfolderPanel(TabID.CustomProjects) then
SubfolderPaths.customProjects, SubfolderNames.customProjects = {}, {}
SubfolderPaths.customProjects, SubfolderNames.customProjects = GetSubFolderEntries("All", CustomPaths.Projects, TabID.CustomProjects, FileTypes.rpp)
RL_WriteToSubfolderCache(SubpanelFile.CustomProjects, SubpanelFile.MainSection, SubfolderPaths.customProjects)
end
end
function RL_ScanProjectListSubfolders()
if ShowSubfolderPanel(TabID.ProjectLists) then
local foundFiles = {}
local multiPaths = SplitMultiPaths(CustomPaths.ProjectLists)
for m = 1, #multiPaths do
local projectListFiles = GetFiles(multiPaths[m], TabID.ProjectLists, FileTypes.rpl)
for p = 1, #projectListFiles do foundFiles[#foundFiles + 1] = projectListFiles[p] end
end
RL_WriteToSubfolderCache(SubpanelFile.ProjectLists, SubpanelFile.MainSection, foundFiles)
end
end
function RL_ScanBackupsSubfolders()
if ShowSubfolderPanel(TabID.Backups) then
SubfolderPaths.backups, SubfolderNames.backups = {}, {}
SubfolderPaths.backups, SubfolderNames.backups = GetSubFolderEntries("All", CustomPaths.Backups, TabID.Backups, FileTypes.backup)
RL_WriteToSubfolderCache(SubpanelFile.Backups, SubpanelFile.MainSection, SubfolderPaths.backups)
end
end
function RL_ScanDocsSubfolders()
if ShowSubfolderPanel(TabID.Docs) then
SubfolderPaths.docs, SubfolderNames.docs = {}, {}
SubfolderPaths.docs, SubfolderNames.docs = GetSubFolderEntries("All", CustomPaths.Docs, TabID.Docs, FileTypes.docs)
RL_WriteToSubfolderCache(SubpanelFile.Docs, SubpanelFile.MainSection, SubfolderPaths.docs)
end
end
function AddSubfolderSectionEntries(file, sectionName, entries)
if entries == nil then return end
file:write("[" .. sectionName .. "]\n")
for e = 1, #entries do
if entries[e] ~= "< All >" then file:write(entries[e] .. "\n") end
end
file:write("[[" .. sectionName .. "]]\n")
end
local function RL_RescanAllPaths()
if ConfigFlags.enableFileCaching then
RL_ScanProjectTemplateFiles()
RL_ScanTrackTemplateFiles()
RL_ScanCustomProjectFiles()
RL_ScanProjectListFiles()
RL_ScanBackupsFiles()
RL_ScanDocsFiles()
MsgDebug("File rescan completed")
end
if ConfigFlags.enableSubfolderCaching then
RL_ScanProjectTemplateSubfolders()
RL_ScanTrackTemplateSubfolders()
RL_ScanCustomProjectSubfolders()
RL_ScanProjectListSubfolders()
RL_ScanBackupsSubfolders()
RL_ScanDocsSubfolders()
MsgDebug("Subfolder rescan completed")
end
MsgStatusBar("Rescan of all paths completed")
RL_ShowProgressIndicator(1, false)
end
local function RL_Draw_TabPaths()
local paths_textBoxWidth = 265
local paths_buttonText = "Set"
if JSAPIinstalled then
GUI.New("paths_btnProjectTemplatesBrowse", "Button", LayerIndex.Paths, GUI.w - 84 * RL.scaleFactor, tabSelectorPadding + 1.25 * (30 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "+", Path_Browse_ProjectTemplateFolder)
GUI.New("paths_btnTrackTemplatesBrowse", "Button", LayerIndex.Paths, GUI.w - 84 * RL.scaleFactor, tabSelectorPadding + 2.05 * (30 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "+", Path_Browse_TrackTemplateFolder)
GUI.New("paths_btnCustomProjectsBrowse", "Button", LayerIndex.Paths, GUI.w - 84 * RL.scaleFactor, tabSelectorPadding + 2.85 * (30 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "+", Path_Browse_CustomProjectFolder)
GUI.New("paths_btnProjectListsBrowse", "Button", LayerIndex.Paths, GUI.w - 84 * RL.scaleFactor, tabSelectorPadding + 3.65 * (30 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "+", Path_Browse_ProjectListFolder)
GUI.New("paths_btnBackupsBrowse", "Button", LayerIndex.Paths, GUI.w - 84 * RL.scaleFactor, tabSelectorPadding + 4.45 * (30 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "+", Path_Browse_BackupsFolder)
GUI.New("paths_btnDocsBrowse", "Button", LayerIndex.Paths, GUI.w - 84 * RL.scaleFactor, tabSelectorPadding + 5.25 * (30 * RL.scaleFactor), 15 * RL.scaleFactor, 15 * RL.scaleFactor, "+", Path_Browse_DocsFolder)
paths_textBoxWidth = 284
end
if ConfigFlags.enableFileCaching or ConfigFlags.enableSubfolderCaching then
GUI.New("paths_lblInfo", "Label", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 6.15 * (30 * RL.scaleFactor), "Path changes are applied with the [Set] buttons", false, 4)
paths_buttonText = "Set / Scan"
GUI.New("paths_btnRescanAllPaths", "Button", LayerIndex.Paths, GUI.w - (64 * RL.scaleFactor), tabSelectorPadding + 6.12 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, "Rescan all")
GUI.elms.paths_btnRescanAllPaths.tooltip = "Rebuild the file cache for all tabs"
function GUI.elms.paths_btnRescanAllPaths:onmousedown()
RL_ShowProgressIndicator(1, true)
GUI.Button.onmousedown(self)
reaper.defer(RL_RescanAllPaths)
end
end
if RL.tabSelectorStyle == 2 then GUI.New("paths_frame_top", "Frame", LayerIndex.Paths, 0, listbox_top, GUI.w, 2 * RL.scaleFactor, false, true) end
GUI.New("paths_txtProjectTemplatesPath", "Textbox", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 1.2 * (30 * RL.scaleFactor), GUI.w - paths_textBoxWidth * RL.scaleFactor, 20 * RL.scaleFactor, "Project Templates", 12)
GUI.New("paths_btnProjectTemplatesSet", "Button", LayerIndex.Paths, GUI.w - 64 * RL.scaleFactor, tabSelectorPadding + 1.25 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, paths_buttonText)
function GUI.elms.paths_btnProjectTemplatesSet:onmousedown()
RL_ShowProgressIndicator(TabID.ProjectTemplates, true)
GUI.Button.onmousedown(self)
reaper.defer(Path_Set_ProjectTemplateFolder)
end
GUI.New("paths_txtTrackTemplatesPath", "Textbox", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 2.0 * (30 * RL.scaleFactor), GUI.w - paths_textBoxWidth * RL.scaleFactor, 20 * RL.scaleFactor, "Track Templates", 12)
GUI.New("paths_btnTrackTemplatesSet", "Button", LayerIndex.Paths, GUI.w - 64 * RL.scaleFactor, tabSelectorPadding + 2.05 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, paths_buttonText)
function GUI.elms.paths_btnTrackTemplatesSet:onmousedown()
RL_ShowProgressIndicator(TabID.TrackTemplates, true)
GUI.Button.onmousedown(self)
reaper.defer(Path_Set_TrackTemplateFolder)
end
GUI.New("paths_txtCustomProjectsPath", "Textbox", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 2.8 * (30 * RL.scaleFactor), GUI.w - paths_textBoxWidth * RL.scaleFactor, 20 * RL.scaleFactor, "Projects", 12)
GUI.New("paths_btnCustomProjectsSet", "Button", LayerIndex.Paths, GUI.w - 64 * RL.scaleFactor, tabSelectorPadding + 2.85 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, paths_buttonText)
function GUI.elms.paths_btnCustomProjectsSet:onmousedown()
RL_ShowProgressIndicator(TabID.CustomProjects, true)
GUI.Button.onmousedown(self)
reaper.defer(Path_Set_CustomProjectFolder)
end
GUI.New("paths_txtProjectsListsPath", "Textbox", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 3.6 * (30 * RL.scaleFactor), GUI.w - paths_textBoxWidth * RL.scaleFactor, 20 * RL.scaleFactor, "Project Lists", 12)
GUI.New("paths_btnProjectListsSet", "Button", LayerIndex.Paths, GUI.w - 64 * RL.scaleFactor, tabSelectorPadding + 3.65 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, paths_buttonText)
function GUI.elms.paths_btnProjectListsSet:onmousedown()
RL_ShowProgressIndicator(TabID.ProjectLists, true)
GUI.Button.onmousedown(self)
reaper.defer(Path_Set_ProjectListFolder)
end
GUI.New("paths_txtBackupsPath", "Textbox", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 4.4 * (30 * RL.scaleFactor), GUI.w - paths_textBoxWidth * RL.scaleFactor, 20 * RL.scaleFactor, "Backups", 12)
GUI.New("paths_btnBackupsSet", "Button", LayerIndex.Paths, GUI.w - 64 * RL.scaleFactor, tabSelectorPadding + 4.45 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, paths_buttonText)
function GUI.elms.paths_btnBackupsSet:onmousedown()
RL_ShowProgressIndicator(TabID.Backups, true)
GUI.Button.onmousedown(self)
reaper.defer(Path_Set_BackupsFolder)
end
GUI.New("paths_txtDocsPath", "Textbox", LayerIndex.Paths, 196 * RL.scaleFactor, tabSelectorPadding + 5.2 * (30 * RL.scaleFactor), GUI.w - paths_textBoxWidth * RL.scaleFactor, 20 * RL.scaleFactor, "Docs", 12)
GUI.New("paths_btnDocsSet", "Button", LayerIndex.Paths, GUI.w - 64 * RL.scaleFactor, tabSelectorPadding + 5.25 * (30 * RL.scaleFactor), 55 * RL.scaleFactor, 15 * RL.scaleFactor, paths_buttonText)
function GUI.elms.paths_btnDocsSet:onmousedown()
RL_ShowProgressIndicator(TabID.Docs, true)
GUI.Button.onmousedown(self)
reaper.defer(Path_Set_DocsFolder)
end
function GUI.elms.paths_txtProjectTemplatesPath:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.paths_txtTrackTemplatesPath:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.paths_txtCustomProjectsPath:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.paths_txtProjectsListsPath:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.paths_txtBackupsPath:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.paths_txtDocsPath:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.paths_txtProjectTemplatesPath:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.paths_txtTrackTemplatesPath:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.paths_txtCustomProjectsPath:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.paths_txtProjectsListsPath:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.paths_txtBackupsPath:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.paths_txtDocsPath:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
end
----------------------
-- Tab - Scan Settings
----------------------
FileScanSettings = {
projectTemplates_excludedFolders = "",
projectTemplates_maxSubDirDepth = 0,
projectTemplates_maxSubDirRange = 0,
trackTemplates_excludedFolders = "",
trackTemplates_maxSubDirDepth = 0,
trackTemplates_maxSubDirRange = 0,
projects_excludedFolders = "",
projects_maxSubDirDepth = 0,
projects_maxSubDirRange = 0,
projectLists_excludedFolders = "",
projectLists_maxSubDirDepth = 0,
projectLists_maxSubDirRange = 0,
backups_excludedFolders = "",
backups_maxSubDirDepth = 0,
backups_maxSubDirRange = 0,
docs_excludedFolders = "",
docs_maxSubDirDepth = 0,
docs_maxSubDirRange = 0,
}
FileScanExclusions = {
ProjectTemplates = {},
TrackTemplates = {},
CustomProjects = {},
ProjectLists = {},
Backups = {},
Docs = {}
}
function Set_ExcludedFolders_ProjectTemplates()
if GUI.Val("scansettings_txtProjectTemplates") == "" then
FileScanSettings.projectTemplates_excludedFolders = ""
FileScanExclusions.ProjectTemplates = {}
reaper.DeleteExtState(appname, "scan_projecttemplates_excludedfoldernames", 1)
GUI.elms.scansettings_txtProjectTemplates.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3"
else
FileScanSettings.projectTemplates_excludedFolders = GUI.Val("scansettings_txtProjectTemplates")
FileScanExclusions.ProjectTemplates = SplitMultiPaths(FileScanSettings.projectTemplates_excludedFolders)
reaper.SetExtState(appname, "scan_projecttemplates_excludedfoldernames", GUI.Val("scansettings_txtProjectTemplates"), 1)
GUI.elms.scansettings_txtProjectTemplates.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtProjectTemplates")
end
FileScanSettings.projectTemplates_maxSubDirDepth = tonumber(GUI.Val("scansettings_txtProjectTemplates_MaxScanDepth")) or 0
FileScanSettings.projectTemplates_maxSubDirRange = tonumber(GUI.Val("scansettings_txtProjectTemplates_MaxScanSubDirs")) or 0
reaper.SetExtState(appname, "scan_projecttemplates_limits", FileScanSettings.projectTemplates_maxSubDirDepth .. "," .. FileScanSettings.projectTemplates_maxSubDirRange, 1)
MsgStatusBar("Scan Settings for Project Templates updated")
end
function Set_ExcludedFolders_TrackTemplates()
if GUI.Val("scansettings_txtTrackTemplates") == "" then
FileScanSettings.trackTemplates_excludedFolders = ""
FileScanExclusions.TrackTemplates = {}
reaper.DeleteExtState(appname, "scan_tracktemplates_excludedfoldernames", 1)
GUI.elms.scansettings_txtTrackTemplates.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3"
else
FileScanSettings.trackTemplates_excludedFolders = GUI.Val("scansettings_txtTrackTemplates")
FileScanExclusions.TrackTemplates = SplitMultiPaths(FileScanSettings.trackTemplates_excludedFolders)
reaper.SetExtState(appname, "scan_tracktemplates_excludedfoldernames", GUI.Val("scansettings_txtTrackTemplates"), 1)
GUI.elms.scansettings_txtTrackTemplates.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtTrackTemplates")
end
FileScanSettings.trackTemplates_maxSubDirRange = tonumber(GUI.Val("scansettings_txtTrackTemplates_MaxScanSubDirs")) or 0
FileScanSettings.trackTemplates_maxSubDirDepth = tonumber(GUI.Val("scansettings_txtTrackTemplates_MaxScanDepth")) or 0
reaper.SetExtState(appname, "scan_tracktemplates_limits", FileScanSettings.trackTemplates_maxSubDirDepth .. "," .. FileScanSettings.trackTemplates_maxSubDirRange, 1)
MsgStatusBar("Scan Settings for Track Templates updated")
end
function Set_ExcludedFolders_CustomProjects()
if GUI.Val("scansettings_txtCustomProjects") == "" then
FileScanSettings.projects_excludedFolders = ""
FileScanExclusions.CustomProjects = {}
reaper.DeleteExtState(appname, "scan_projects_excludedfoldernames", 1)
GUI.elms.scansettings_txtCustomProjects.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3"
else
FileScanSettings.projects_excludedFolders = GUI.Val("scansettings_txtCustomProjects")
FileScanExclusions.CustomProjects = SplitMultiPaths(FileScanSettings.projects_excludedFolders)
reaper.SetExtState(appname, "scan_projects_excludedfoldernames", GUI.Val("scansettings_txtCustomProjects"), 1)
GUI.elms.scansettings_txtCustomProjects.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtCustomProjects")
end
FileScanSettings.projects_maxSubDirDepth = tonumber(GUI.Val("scansettings_txtCustomProjects_MaxScanDepth")) or 0
FileScanSettings.projects_maxSubDirRange = tonumber(GUI.Val("scansettings_txtCustomProjects_MaxScanSubDirs")) or 0
reaper.SetExtState(appname, "scan_projects_limits", FileScanSettings.projects_maxSubDirDepth .. "," .. FileScanSettings.projects_maxSubDirRange, 1)
MsgStatusBar("Scan Settings for Projects updated")
end
function Set_ExcludedFolders_ProjectLists()
if GUI.Val("scansettings_txtProjectsLists") == "" then
FileScanSettings.projectLists_excludedFolders = ""
FileScanExclusions.ProjectLists = {}
reaper.DeleteExtState(appname, "scan_projectlists_excludedfoldernames", 1)
GUI.elms.scansettings_txtProjectsLists.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3"
else
FileScanSettings.projectLists_excludedFolders = GUI.Val("scansettings_txtProjectsLists")
FileScanExclusions.ProjectLists = SplitMultiPaths(FileScanSettings.projectLists_excludedFolders)
reaper.SetExtState(appname, "scan_projectlists_excludedfoldernames", GUI.Val("scansettings_txtProjectsLists"), 1)
GUI.elms.scansettings_txtProjectsLists.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtProjectsLists")
end
FileScanSettings.projectLists_maxSubDirDepth = tonumber(GUI.Val("scansettings_txtProjectsLists_MaxScanDepth")) or 0
FileScanSettings.projectLists_maxSubDirRange = tonumber(GUI.Val("scansettings_txtProjectsLists_MaxScanSubDirs")) or 0
reaper.SetExtState(appname, "scan_projectlists_limits", FileScanSettings.projectLists_maxSubDirDepth .. "," .. FileScanSettings.projectLists_maxSubDirRange, 1)
MsgStatusBar("Scan Settings for Project Lists updated")
end
function Set_ExcludedFolders_Backups()
if GUI.Val("scansettings_txtBackups") == "" then
FileScanSettings.backups_excludedFolders = ""
FileScanExclusions.Backups = {}
reaper.DeleteExtState(appname, "scan_backups_excludedfoldernames", 1)
GUI.elms.scansettings_txtBackups.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3"
else
FileScanSettings.backups_excludedFolders = GUI.Val("scansettings_txtBackups")
FileScanExclusions.Backups = SplitMultiPaths(FileScanSettings.backups_excludedFolders)
reaper.SetExtState(appname, "scan_backups_excludedfoldernames", GUI.Val("scansettings_txtBackups"), 1)
GUI.elms.scansettings_txtBackups.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtBackups")
end
FileScanSettings.backups_maxSubDirDepth = tonumber(GUI.Val("scansettings_txtBackups_MaxScanDepth")) or 0
FileScanSettings.backups_maxSubDirRange = tonumber(GUI.Val("scansettings_txtBackups_MaxScanSubDirs")) or 0
reaper.SetExtState(appname, "scan_backups_limits", FileScanSettings.backups_maxSubDirDepth .. "," .. FileScanSettings.backups_maxSubDirRange, 1)
MsgStatusBar("Scan Settings for Backups updated")
end
function Set_ExcludedFolders_Docs()
if GUI.Val("scansettings_txtDocs") == "" then
FileScanSettings.docs_excludedFolders = ""
FileScanExclusions.Docs = {}
reaper.DeleteExtState(appname, "scan_docs_excludedfoldernames", 1)
GUI.elms.scansettings_txtDocs.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3"
else
FileScanSettings.docs_excludedFolders = GUI.Val("scansettings_txtDocs")
FileScanExclusions.Docs = SplitMultiPaths(FileScanSettings.docs_excludedFolders)
reaper.SetExtState(appname, "scan_docs_excludedfoldernames", GUI.Val("scansettings_txtDocs"), 1)
GUI.elms.scansettings_txtDocs.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtDocs")
end
FileScanSettings.docs_maxSubDirDepth = tonumber(GUI.Val("scansettings_txtDocs_MaxScanDepth")) or 0
FileScanSettings.docs_maxSubDirRange = tonumber(GUI.Val("scansettings_txtDocs_MaxScanSubDirs")) or 0
reaper.SetExtState(appname, "scan_docs_limits", FileScanSettings.docs_maxSubDirDepth .. "," .. FileScanSettings.docs_maxSubDirRange, 1)
MsgStatusBar("Scan Settings for Docs updated")
end
local function RL_Draw_TabPaths_ScanSettings()
GUI.New("scansettings_lblExcludedFolders", "Label", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 6.15 * (30 * RL.scaleFactor), "Excluded folder names | Depth limit | Range limit", false, 4)
if RL.tabSelectorStyle == 2 then GUI.New("scansettings_frame_top", "Frame", LayerIndex.ScanSettings, 0, listbox_top, GUI.w, 2 * RL.scaleFactor, false, true) end
GUI.New("scansettings_txtProjectTemplates", "Textbox", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 1.2 * (30 * RL.scaleFactor), GUI.w - 310 * RL.scaleFactor, 20 * RL.scaleFactor, "Project Templates", 12)
GUI.New("scansettings_txtProjectTemplates_MaxScanDepth", "Textbox", LayerIndex.ScanSettings, GUI.w - 110 * RL.scaleFactor, tabSelectorPadding + 1.2 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_txtProjectTemplates_MaxScanSubDirs", "Textbox", LayerIndex.ScanSettings, GUI.w - 78 * RL.scaleFactor, tabSelectorPadding + 1.2 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_btnProjectTemplates", "Button", LayerIndex.ScanSettings, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 1.25 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 15 * RL.scaleFactor, "Set", Set_ExcludedFolders_ProjectTemplates)
GUI.New("scansettings_txtTrackTemplates", "Textbox", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 2.0 * (30 * RL.scaleFactor), GUI.w - 310 * RL.scaleFactor, 20 * RL.scaleFactor, "Track Templates", 12)
GUI.New("scansettings_txtTrackTemplates_MaxScanDepth", "Textbox", LayerIndex.ScanSettings, GUI.w - 110 * RL.scaleFactor, tabSelectorPadding + 2.0 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_txtTrackTemplates_MaxScanSubDirs", "Textbox", LayerIndex.ScanSettings, GUI.w - 78 * RL.scaleFactor, tabSelectorPadding + 2.0 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_btnTrackTemplates", "Button", LayerIndex.ScanSettings, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 2.05 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 15 * RL.scaleFactor, "Set", Set_ExcludedFolders_TrackTemplates)
GUI.New("scansettings_txtCustomProjects", "Textbox", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 2.8 * (30 * RL.scaleFactor), GUI.w - 310 * RL.scaleFactor, 20 * RL.scaleFactor, "Projects", 12)
GUI.New("scansettings_txtCustomProjects_MaxScanDepth", "Textbox", LayerIndex.ScanSettings, GUI.w - 110 * RL.scaleFactor, tabSelectorPadding + 2.8 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_txtCustomProjects_MaxScanSubDirs", "Textbox", LayerIndex.ScanSettings, GUI.w - 78 * RL.scaleFactor, tabSelectorPadding + 2.8 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_btnCustomProjects", "Button", LayerIndex.ScanSettings, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 2.85 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 15 * RL.scaleFactor, "Set", Set_ExcludedFolders_CustomProjects)
GUI.New("scansettings_txtProjectsLists", "Textbox", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 3.6 * (30 * RL.scaleFactor), GUI.w - 310 * RL.scaleFactor, 20 * RL.scaleFactor, "Project Lists", 12)
GUI.New("scansettings_txtProjectsLists_MaxScanDepth", "Textbox", LayerIndex.ScanSettings, GUI.w - 110 * RL.scaleFactor, tabSelectorPadding + 3.6 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_txtProjectsLists_MaxScanSubDirs", "Textbox", LayerIndex.ScanSettings, GUI.w - 78 * RL.scaleFactor, tabSelectorPadding + 3.6 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_btnProjectLists", "Button", LayerIndex.ScanSettings, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 3.65 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 15 * RL.scaleFactor, "Set", Set_ExcludedFolders_ProjectLists)
GUI.New("scansettings_txtBackups", "Textbox", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 4.4 * (30 * RL.scaleFactor), GUI.w - 310 * RL.scaleFactor, 20 * RL.scaleFactor, "Backups", 12)
GUI.New("scansettings_txtBackups_MaxScanDepth", "Textbox", LayerIndex.ScanSettings, GUI.w - 110 * RL.scaleFactor, tabSelectorPadding + 4.4 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_txtBackups_MaxScanSubDirs", "Textbox", LayerIndex.ScanSettings, GUI.w - 78 * RL.scaleFactor, tabSelectorPadding + 4.4 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_btnBackups", "Button", LayerIndex.ScanSettings, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 4.45 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 15 * RL.scaleFactor, "Set", Set_ExcludedFolders_Backups)
GUI.New("scansettings_txtDocs", "Textbox", LayerIndex.ScanSettings, 196 * RL.scaleFactor, tabSelectorPadding + 5.2 * (30 * RL.scaleFactor), GUI.w - 310 * RL.scaleFactor, 20 * RL.scaleFactor, "Docs", 12)
GUI.New("scansettings_txtDocs_MaxScanDepth", "Textbox", LayerIndex.ScanSettings, GUI.w - 110 * RL.scaleFactor, tabSelectorPadding + 5.2 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_txtDocs_MaxScanSubDirs", "Textbox", LayerIndex.ScanSettings, GUI.w - 78 * RL.scaleFactor, tabSelectorPadding + 5.2 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
GUI.New("scansettings_btnDocs", "Button", LayerIndex.ScanSettings, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 5.25 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 15 * RL.scaleFactor, "Set", Set_ExcludedFolders_Docs)
function GUI.elms.scansettings_txtProjectTemplates:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtTrackTemplates:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtCustomProjects:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtProjectsLists:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtBackups:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtDocs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtProjectTemplates_MaxScanSubDirs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtTrackTemplates_MaxScanSubDirs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtCustomProjects_MaxScanSubDirs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtProjectsLists_MaxScanSubDirs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtBackups_MaxScanSubDirs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtDocs_MaxScanSubDirs:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtProjectTemplates_MaxScanDepth:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtTrackTemplates_MaxScanDepth:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtCustomProjects_MaxScanDepth:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtProjectsLists_MaxScanDepth:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtBackups_MaxScanDepth:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtDocs_MaxScanDepth:onmousedown() GUI.Textbox.onmousedown(self) RL.keyInputActive = false end
function GUI.elms.scansettings_txtProjectTemplates:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtTrackTemplates:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtCustomProjects:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtProjectsLists:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtBackups:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtDocs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtProjectTemplates_MaxScanSubDirs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtTrackTemplates_MaxScanSubDirs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtCustomProjects_MaxScanSubDirs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtProjectsLists_MaxScanSubDirs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtBackups_MaxScanSubDirs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtDocs_MaxScanSubDirs:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtProjectTemplates_MaxScanDepth:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtTrackTemplates_MaxScanDepth:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtCustomProjects_MaxScanDepth:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtProjectsLists_MaxScanDepth:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtBackups_MaxScanDepth:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
function GUI.elms.scansettings_txtDocs_MaxScanDepth:lostfocus() RL.keyInputActive = true GUI.Textbox.lostfocus(self) end
end
----------------
-- Tab - Actions
----------------
function GetActionName(actionCommandID)
if SWSinstalled then return reaper.CF_GetCommandText(0, reaper.NamedCommandLookup(actionCommandID)) end
end
local function RL_Draw_TabActions()
if RL.tabSelectorStyle == 2 then GUI.New("actions_frame_top", "Frame", LayerIndex.Actions, 0, listbox_top, GUI.w, 2 * RL.scaleFactor, false, true) end
function Action_Set_NewProject()
local actionValue = GUI.Val("actions_txtFollowAction_NewProject")
reaper.SetExtState(appname, "followaction_newproject", actionValue, 1)
GUI.elms.actions_txtFollowAction_NewProject.tooltip = GetActionName(actionValue)
if actionValue == "" then MsgStatusBar("Follow Action removed") else MsgStatusBar("Follow Action set") end
end
function Action_Set_NewTab()
local actionValue = GUI.Val("actions_txtFollowAction_NewTab")
reaper.SetExtState(appname, "followaction_newtab", actionValue, 1)
GUI.elms.actions_txtFollowAction_NewTab.tooltip = GetActionName(actionValue)
if actionValue == "" then MsgStatusBar("Follow Action removed") else MsgStatusBar("Follow Action set") end
end
function Action_Set_LoadProject()
local actionValue = GUI.Val("actions_txtFollowAction_LoadProject")
reaper.SetExtState(appname, "followaction_loadproject", actionValue, 1)
GUI.elms.actions_txtFollowAction_LoadProject.tooltip = GetActionName(actionValue)
if actionValue == "" then MsgStatusBar("Follow Action removed") else MsgStatusBar("Follow Action set") end
end
function Action_Set_LoadProjectInTab()
local actionValue = GUI.Val("actions_txtFollowAction_LoadProjectInTab")
reaper.SetExtState(appname, "followaction_loadprojectintab", actionValue, 1)
GUI.elms.actions_txtFollowAction_LoadProjectInTab.tooltip = GetActionName(actionValue)
if actionValue == "" then MsgStatusBar("Follow Action removed") else MsgStatusBar("Follow Action set") end
end
function Action_Set_ProjectTemplate()
local actionValue = GUI.Val("actions_txtFollowAction_LoadProjectTemplate")
reaper.SetExtState(appname, "followaction_loadprojecttemplate", actionValue, 1)
GUI.elms.actions_txtFollowAction_LoadProjectTemplate.tooltip = GetActionName(actionValue)
if actionValue == "" then MsgStatusBar("Follow Action removed") else MsgStatusBar("Follow Action set") end
end
function Action_Set_TrackTemplate()
local actionValue = GUI.Val("actions_txtFollowAction_InsertTrackTemplate")
reaper.SetExtState(appname, "followaction_inserttracktemplate", actionValue, 1)
GUI.elms.actions_txtFollowAction_InsertTrackTemplate.tooltip = GetActionName(actionValue)
if actionValue == "" then MsgStatusBar("Follow Action removed") else MsgStatusBar("Follow Action set") end
end
GUI.New("actions_lblActionsHeader", "Label", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 6.15 * (30 * RL.scaleFactor), "Insert an Action Command ID to be triggered after", false, 4)
GUI.New("actions_txtFollowAction_NewProject", "Textbox", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 1.2 * (30 * RL.scaleFactor), GUI.w - 280 * RL.scaleFactor, 20 * RL.scaleFactor, "New Project", 20)
GUI.New("actions_btnFollowAction_NewProject", "Button", LayerIndex.Actions, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 1.2 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 18 * RL.scaleFactor, "Set", Action_Set_NewProject)
GUI.New("actions_txtFollowAction_NewTab", "Textbox", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 2.0 * (30 * RL.scaleFactor), GUI.w - 280 * RL.scaleFactor, 20 * RL.scaleFactor, "New Tab", 20)
GUI.New("actions_btnFollowAction_NewTab", "Button", LayerIndex.Actions, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 2.0 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 18 * RL.scaleFactor, "Set", Action_Set_NewTab)
GUI.New("actions_txtFollowAction_LoadProject", "Textbox", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 2.8 * (30 * RL.scaleFactor), GUI.w - 280 * RL.scaleFactor, 20 * RL.scaleFactor, "Load Project", 20)
GUI.New("actions_btnFollowAction_LoadProject", "Button", LayerIndex.Actions, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 2.8 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 18 * RL.scaleFactor, "Set", Action_Set_LoadProject)
GUI.New("actions_txtFollowAction_LoadProjectInTab", "Textbox", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 3.6 * (30 * RL.scaleFactor), GUI.w - 280 * RL.scaleFactor, 20 * RL.scaleFactor, "Load Project in Tab", 20)
GUI.New("actions_btnFollowAction_LoadProjectInTab", "Button", LayerIndex.Actions, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 3.6 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 18 * RL.scaleFactor, "Set", Action_Set_LoadProjectInTab)
GUI.New("actions_txtFollowAction_LoadProjectTemplate", "Textbox", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 4.4 * (30 * RL.scaleFactor), GUI.w - 280 * RL.scaleFactor, 20 * RL.scaleFactor, "Load Project Template", 20)
GUI.New("actions_btnFollowAction_LoadProjectTemplate", "Button", LayerIndex.Actions, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 4.4 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 18 * RL.scaleFactor, "Set", Action_Set_ProjectTemplate)
GUI.New("actions_txtFollowAction_InsertTrackTemplate", "Textbox", LayerIndex.Actions, 230 * RL.scaleFactor, tabSelectorPadding + 5.2 * (30 * RL.scaleFactor), GUI.w - 280 * RL.scaleFactor, 20 * RL.scaleFactor, "Insert Track Template", 20)
GUI.New("actions_btnFollowAction_InsertTrackTemplate", "Button", LayerIndex.Actions, GUI.w - 44 * RL.scaleFactor, tabSelectorPadding + 5.2 * (30 * RL.scaleFactor), 30 * RL.scaleFactor, 18 * RL.scaleFactor, "Set", Action_Set_TrackTemplate)
function GUI.elms.actions_txtFollowAction_NewProject:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.actions_txtFollowAction_NewTab:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.actions_txtFollowAction_LoadProject:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.actions_txtFollowAction_LoadProjectInTab:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.actions_txtFollowAction_LoadProjectTemplate:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.actions_txtFollowAction_InsertTrackTemplate:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.actions_txtFollowAction_NewProject:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
function GUI.elms.actions_txtFollowAction_NewTab:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
function GUI.elms.actions_txtFollowAction_LoadProject:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
function GUI.elms.actions_txtFollowAction_LoadProjectInTab:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
function GUI.elms.actions_txtFollowAction_LoadProjectTemplate:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
function GUI.elms.actions_txtFollowAction_InsertTrackTemplate:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
end
----------------
-- Tab - Options
----------------
function RL_Draw_SavePromptOption()
GUI.New("options_checklistPromptToSave", "Checklist", LayerIndex.Options, 1.6 * optionspad_left, tabSelectorPadding + 10 + (2.40 * 50 - 18) * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Prompt to save on new project", "v", 0)
GUI.elms.options_checklistPromptToSave.shadow = false
GUI.elms.options_checklistPromptToSave.opt_size = 15 * RL.scaleFactor
GUI.elms.options_checklistPromptToSave:init()
GUI.elms.options_checklistPromptToSave.tooltip = "Toggles the 'Prompt to save on new project' option under Preferences > Project"
-- load last state from preferences
local dt = reaper.SNM_GetIntConfigVar("newprojdo", -1)
if dt&1 == 1 then GUI.Val("options_checklistPromptToSave", {true}) else GUI.Val("options_checklistPromptToSave", {false}) end
function GUI.elms.options_checklistPromptToSave:onmousedown()
GUI.Checklist.onmouseup(self)
local dt = reaper.SNM_GetIntConfigVar("newprojdo", -1)
if dt&1 == 1 then reaper.SNM_SetIntConfigVar("newprojdo", dt&~1) else reaper.SNM_SetIntConfigVar("newprojdo", dt|1) end
end
end
local function RL_Draw_TabOptions()
if RL.tabSelectorStyle == 2 then GUI.New("tab_options_listbox", "Listbox", LayerIndex.OptionsMenu, pad_left, listbox_top, 90 * RL.scaleFactor, listbox_h, OptionLabels, true)
else GUI.New("tab_options_listbox", "Listbox", LayerIndex.OptionsMenu, pad_left, pad_top, 85 * RL.scaleFactor, listbox_h, OptionLabels, true) end
GUI.elms.tab_options_listbox.multi = false
function GUI.elms.tab_options_listbox:onmousedown()
TabSelectionIndex[TabID.Options] = self:getitem(GUI.mouse.y)
reaper.SetExtState(appname, "window_optionfocus", tostring(TabSelectionIndex[TabID.Options]), 1)
RL_SetFocusedTab(TabID.Help + TabSelectionIndex[TabID.Options])
GUI.Listbox.onmousedown(self)
end
function GUI.elms.tab_options_listbox:onmouseup()
TabSelectionIndex[TabID.Options] = self:getitem(GUI.mouse.y)
reaper.SetExtState(appname, "window_optionfocus", tostring(TabSelectionIndex[TabID.Options]), 1)
RL_SetFocusedTab(TabID.Help + TabSelectionIndex[TabID.Options])
GUI.Listbox.onmouseup(self)
end
if RL.tabSelectorStyle == 2 then GUI.New("options_frame_top", "Frame", LayerIndex.Options, 0, listbox_top, GUI.w, 2 * RL.scaleFactor, false, true) end
GUI.New("options_frame_2", "Frame", LayerIndex.Options, 94 * RL.scaleFactor, tabSelectorPadding + 10 + 69 * RL.scaleFactor, GUI.w - 90 * RL.scaleFactor, 2 * RL.scaleFactor, false, true)
GUI.New("options_frame_3", "Frame", LayerIndex.Options, 94 * RL.scaleFactor, tabSelectorPadding + 10 + 96 * RL.scaleFactor, GUI.w - 90 * RL.scaleFactor, 2 * RL.scaleFactor, false, true)
GUI.New("options_frame_4", "Frame", LayerIndex.Options, 94 * RL.scaleFactor, tabSelectorPadding + 10 + 142 * RL.scaleFactor, GUI.w - 90 * RL.scaleFactor, 2 * RL.scaleFactor, false, true)
local doubleClickEntries = "Show Prompt,Load,Load in Tab"
if JSAPIinstalled then doubleClickEntries = "Show Prompt,Load,Load in Tab,Audio Preview" end
GUI.New("layout_lblStartTab", "Label", LayerIndex.Options, 1.95 * optionspad_left, tabSelectorPadding + 10 + (0.95 * 50 - 18) * RL.scaleFactor, "Start Tab", false, 3)
if osversion:find("Win") then
GUI.New("options_menuStartTab", "Menubox", LayerIndex.Options, 3.63 * optionspad_left, tabSelectorPadding + 10 + (0.95 * 50 - 18) * RL.scaleFactor, 125 * RL.scaleFactor, 15 * RL.scaleFactor, "",
"Last focused,>Load specific tab,Recent Projects,Project Templates,Track Templates,Projects,Project Lists,Backups,Docs,<Favorites,>(A)uto-switch on new project/tab to,(A) Recent Projects,(A) Project Templates,(A) Track Templates,(A) Projects,(A) Project Lists,(A) Backups,(A) Docs,(A) Favorites", 8)
GUI.New("layout_lblDoubleClick", "Label", LayerIndex.Options, 1.95 * optionspad_left, tabSelectorPadding + 10 + (1.35 * 50 - 18) * RL.scaleFactor, "Double Click Behavior", false, 3)
GUI.New("options_menuDoubleClick", "Menubox", LayerIndex.Options, 3.63 * optionspad_left, tabSelectorPadding + 10 + (1.35 * 50 - 18) * RL.scaleFactor, 125 * RL.scaleFactor, 15 * RL.scaleFactor, "", doubleClickEntries, 8)
else
GUI.New("options_menuStartTab", "Menubox", LayerIndex.Options, 3.95 * optionspad_left, tabSelectorPadding + 10 + (0.95 * 50 - 18) * RL.scaleFactor, 125 * RL.scaleFactor, 15 * RL.scaleFactor, "",
"Last focused,>Load specific tab,Recent Projects,Project Templates,Track Templates,Projects,Project Lists,Backups,Docs,<Favorites,>(A)uto-switch on new project/tab to,(A) Recent Projects,(A) Project Templates,(A) Track Templates,(A) Projects,(A) Project Lists,(A) Backups,(A) Docs,(A) Favorites", 8)
GUI.New("layout_lblDoubleClick", "Label", LayerIndex.Options, 1.95 * optionspad_left, tabSelectorPadding + 10 + (1.45 * 48 - 18) * RL.scaleFactor, "Double Click Behavior", false, 3)
GUI.New("options_menuDoubleClick", "Menubox", LayerIndex.Options, 3.95 * optionspad_left, tabSelectorPadding + 10 + (1.45 * 48 - 18) * RL.scaleFactor, 125 * RL.scaleFactor, 15 * RL.scaleFactor, "", doubleClickEntries, 8)
end
GUI.elms.options_menuStartTab.align = 1
GUI.elms.options_menuDoubleClick.align = 1
function GUI.elms.options_menuStartTab:onmousedown()
GUI.Menubox.onmouseup(self)
reaper.SetExtState(appname, "window_starttab", GUI.Val("options_menuStartTab"), 1)
end
function GUI.elms.options_menuStartTab:onwheel()
GUI.Menubox.onwheel(self)
reaper.SetExtState(appname, "window_starttab", GUI.Val("options_menuStartTab"), 1)
end
function GUI.elms.options_menuDoubleClick:onmousedown()
GUI.Menubox.onmouseup(self)
reaper.SetExtState(appname, "mouse_doubleclick", GUI.Val("options_menuDoubleClick"), 1)
end
function GUI.elms.options_menuDoubleClick:onwheel()
GUI.Menubox.onwheel(self)
reaper.SetExtState(appname, "mouse_doubleclick", GUI.Val("options_menuDoubleClick"), 1)
end
GUI.New("layout_lblShowPathsInStatusbar", "Label", LayerIndex.Options, 1.95 * optionspad_left, tabSelectorPadding + 10 + (1.9 * 50 - 18) * RL.scaleFactor, "Show paths in status bar", false, 3)
GUI.New("options_checklistShowPathsInStatusbar", "Checklist", LayerIndex.Options, 1.6 * optionspad_left, tabSelectorPadding + 10 + (1.9 * 50 - 18) * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "", "v", 0)
GUI.elms.options_checklistShowPathsInStatusbar.shadow = false
GUI.elms.options_checklistShowPathsInStatusbar.opt_size = 15 * RL.scaleFactor
GUI.elms.options_checklistShowPathsInStatusbar:init()
if osversion:find("Win") then
GUI.New("options_menuShowPathsInStatusbar", "Menubox", LayerIndex.Options, 3.85 * optionspad_left, tabSelectorPadding + 10 + (1.9 * 50 - 18) * RL.scaleFactor, 110 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Path and File,Path only", 8)
else
GUI.New("options_menuShowPathsInStatusbar", "Menubox", LayerIndex.Options, 3.95 * optionspad_left, tabSelectorPadding + 10 + (1.9 * 50 - 18) * RL.scaleFactor, 125 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Path and File,Path only", 8)
end
GUI.elms.options_menuShowPathsInStatusbar.align = 1
function GUI.elms.options_menuShowPathsInStatusbar:onmousedown()
GUI.Menubox.onmouseup(self)
reaper.SetExtState(appname, "window_showpathsinstatusbarmode", GUI.Val("options_menuShowPathsInStatusbar"), 1)
end
function GUI.elms.options_menuShowPathsInStatusbar:onwheel()
GUI.Menubox.onwheel(self)
reaper.SetExtState(appname, "window_showpathsinstatusbarmode", GUI.Val("options_menuShowPathsInStatusbar"), 1)
end
GUI.New("options_checklistOpenPropertiesOnNewProject", "Checklist", LayerIndex.Options, 1.6 * optionspad_left, tabSelectorPadding + 10 + (2.80 * 50 - 18) * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Open properties on new project", "v", 0)
GUI.elms.options_checklistOpenPropertiesOnNewProject.shadow = false
GUI.elms.options_checklistOpenPropertiesOnNewProject.opt_size = 15 * RL.scaleFactor
GUI.elms.options_checklistOpenPropertiesOnNewProject:init()
GUI.New("options_checklistWindowToggle", "Checklist", LayerIndex.Options, 1.6 * optionspad_left, tabSelectorPadding + 10 + (3.35 * 50 - 18) * RL.scaleFactor, 15 * RL.scaleFactor, 15 * RL.scaleFactor, "", "Enable window toggle key", "v", 0)
GUI.elms.options_checklistWindowToggle.shadow = false
GUI.elms.options_checklistWindowToggle.opt_size = 15 * RL.scaleFactor
GUI.elms.options_checklistWindowToggle:init()
GUI.New("options_txtWindowToggleShortcut", "Textbox", LayerIndex.Options, 4 * optionspad_left, tabSelectorPadding + 10 + (3.35 * 50 - 20) * RL.scaleFactor, 30 * RL.scaleFactor, 20 * RL.scaleFactor, "", 8)
function GUI.elms.options_txtWindowToggleShortcut:onmousedown()
GUI.Textbox.onmousedown(self)
RL.keyInputActive = false
end
function GUI.elms.options_txtWindowToggleShortcut:lostfocus()
RL.keyInputActive = true
GUI.Textbox.lostfocus(self)
end
GUI.New("options_btnSetWindowToggleShortcut", "Button", LayerIndex.Options, 4.6 * optionspad_left, tabSelectorPadding + 10 + (3.35 * 50 - 18) * RL.scaleFactor, 30 * RL.scaleFactor, 16 * RL.scaleFactor, "Set", SetWindowToggleShortcut)
if SWSinstalled then RL_Draw_SavePromptOption() end
end
----------------------
-- Key Shortcut Toggle
----------------------
function SetWindowToggleShortcut()
local charValue = string.byte(GUI.Val("options_txtWindowToggleShortcut"))
RL.windowToggleShortcut = charValue
reaper.SetExtState(appname, "window_toggleshortcut", tostring(charValue), 1)
if GUI.Val("options_txtWindowToggleShortcut") == "" then MsgStatusBar("Toggle shortcut removed") else MsgStatusBar("Toggle shortcut set") end
end
-------------
-- Tab - Help
-------------
local helpContentLeft = {
[[
Keep (window) open
Select prev | next tab
Select tab directly
Help
Options
Favorites]]
,
[[
Filter - jump in | out
Filter - clear
Sub panel - prev | next
Sub panel - first | last
Main panel - prev | next
Main panel - first | last]]
,
[[
Locate in Explorer/Finder
Open Project
New Project
New Tab
New Tab Ignore Template
Load in Tab
Load]]
,
[[
Refresh list / file cache
Reload list
Last active projects
Add | remove Favorites
Toggle Audio Preview
Prev | next project tab
Close current project tab]]
,
[[
Toggle paths in sub | main panel
Toggle sort mode
Toggle date display
Toggle tooltips
Scale list font size down | up
Toggle window scaling size
Scale window size down | up
Main menu (middle click)
Context menu (right click)]]
,
[[]]
,
[[
<< Requires js_ReaScriptAPI >>
Place a WAV, FLAC, MP3 or OGG audio file with identical name into the same folder as the project or template file. Examples:
- Demo-Project.rpp | Demo-Project.wav
- Test.RTrackTemplate | Test.mp3
o Select a preview output channel (by default 1/2) and adjust the volume knob (in %) via Left Drag or Mousewheel
o Start/Stop preview via Key Shortcut or Double Click (on the volume knob)
o Status colors: Silver (preview available) / Highlight color (preview playing)]]
,
[[
<< Requires SWS Extensions >>
(1) Search for 'Script: solger_ReaLauncher.lua' in the Action List *
(2) Right Click on the entry and 'Copy selected action command ID' *
(3) Open 'Extensions > Startup actions > Set global startup action'
(4) Paste the copied command ID into the input field and confirm via [OK]
(5) Open 'Options > Preferences > General'
(6) Set 'Open project(s) on startup' to one of the [New project] options **
* Or add the script to a Custom Action and copy the ID of this one
** Instead of [Prompt] that shows the standard startup window]]
,
[[
Favorites can be added from each tab via the [Add to Favorites] option in the main panel/menu or via Key Shortcut.
Entries can be removed in the [Favorites] tab via the [Remove from Favorites] option or by using the same Key Shortcut.
RIGHT CLICK on the Favorites listbox opens the context menu to:
o Add current project tab
o Add all project tabs
o Remove selected entries
o Clear entire list]]
,
[[
Follow Actions are triggered after the operation to which they are assigned.
(1) Copy the ID of a single (Custom) Action from the Action List via: Right Click > 'Copy selected action command id'
(2) Then paste the copied ID into the input field and apply it with the [Set] button
Assigning Custom Actions has the advantage that any adjustments can be made directly in the Custom Action without changing the command ID of the Follow Action itself.]]
,
[[
<< Requires SWS Extensions >>
Accessible via the 'Last Active' button in the status bar or via Key Shortcut.
If any stored last active project tabs are found, context menu options are:
o Load last project
o Load all last active project tabs
o Show projects in list
The last option temporarily lists the projects (without duplicates) in the [Recent Projects] tab.
Switching back to listing the recent projects is done via a [Refresh].
]]
,
[[
Selection of multiple list entries via mouse:
o Select adjacent entries with SHIFT + LEFT CLICK
o Select non-adjacent entries with CTRL/CMD + LEFT CLICK
Loading a single entry directly is possible via Double Click - if set in [Options] ]]
,
[[
Possible by holding the global key combination while loading:
o CTRL + SHIFT (Windows & Linux)
o CMD + SHIFT (macOS)
Or by using the 'Open with FX offline' option in the [Open Project] window]]
,
[[
(1) Enter multiple paths separated by a semicolon (path1;path2;path3)
(2) Set and scan the given path(s) with the [Set / Scan] buttons
A rebuild of the file cache can be triggered:
o Via the [Set / Scan] buttons for each tab
o Via left click on the [Refresh] button
o [Rescan all] rebuilds the file cache for all tabs at once
<< Requires js_ReaScriptAPI >>
Additional [+] buttons to add folders via 'Browse' dialog]]
,
[[
<< Requires SWS Extensions >>
RIGHT CLICK on the Recent Projects listbox opens the context menu to:
o Remove selected entries
o Clear entire list]]
,
[[
Optional settings to speed up the file scanning process of the given [Paths]:
o Excluded folder names (separated by a semicolon)
Folder with the given names (name1;name2) are excluded from the scan
o Range depth (0 = no limit)
Limit the (sub)folder scan depth level
o Range limit (0 = no limit)
Limit the number of folders scanned in each depth level]]
}
local helpContentRight = {
[[
W
LEFT | RIGHT
1, 2, 3, 4, 5, 6, 7
F1
F2
F3 or 0]]
,
[[
TAB | TAB or ENTER
BACKSPACE
SHIFT + UP | DOWN
SHIFT + HOME | END
UP | DOWN
HOME | END]]
,
[[
L
O
N
T or +
SHIFT + T or /
SHIFT + ENTER
ENTER]]
,
[[
F5
SHIFT + F5
A
F
SPACE or *
X | V
C or -]]
,
[[
SHIFT + P | P
S or SHIFT + S
D
I
F8 | F9
F10
F11 | F12
M (when buttons are hidden)
SHIFT + M]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
,
[[]]
}
local function RL_Draw_TabHelp()
local helpTabPadding = listbox_top
if RL.tabSelectorStyle == 1 then helpTabPadding = pad_top end
GUI.New("help_frame_top", "Frame", LayerIndex.Help, 0, helpTabPadding, GUI.w, 2 * RL.scaleFactor, false, true)
GUI.New("tab_help_listbox", "Listbox", LayerIndex.Help, pad_left, helpTabPadding + 5, 104 * RL.scaleFactor, listbox_h,
"Key Shortcuts (1/5),Key Shortcuts (2/5),Key Shortcuts (3/5),Key Shortcuts (4/5),Key Shortcuts (5/5),---,Audio Preview,Default Launcher,Favorites,Follow Actions,Last Active Projects,Listbox multi-select,Load with FX offline,Paths,Recent Projects,Scan Settings",
true)
GUI.elms.tab_help_listbox.multi = false
function RL_Draw_HelpFrames()
local selectedMenuIndex = 1
local vals = GetSelectionTable(GUI.Val("tab_help_listbox"))
if #vals > 0 then selectedMenuIndex = vals[1] end
if selectedMenuIndex < 6 then
if GUI.elms.help_frameMain ~= nil then GUI.elms.help_frameMain:delete() end
GUI.New("help_frameLeft", "Frame", LayerIndex.Help, 108 * RL.scaleFactor, helpTabPadding + 2.4 * RL.scaleFactor, GUI.w * 0.65 - (108 * RL.scaleFactor), GUI.h - (52 * RL.scaleFactor), false, false)
GUI.New("help_frameRight", "Frame", LayerIndex.Help, (GUI.w * 0.65) - 20, helpTabPadding + 2.4 * RL.scaleFactor, GUI.w * 0.45, GUI.h - (52 * RL.scaleFactor), false, false)
GUI.elms.help_frameLeft.pad, GUI.elms.help_frameRight.pad = 5 * RL.scaleFactor, 5 * RL.scaleFactor
GUI.Val("help_frameLeft", GUI.word_wrap(helpContentLeft[selectedMenuIndex], 4, GUI.elms.help_frameLeft.w - 1.5 * RL.scaleFactor * GUI.elms.help_frameLeft.pad, 0, 2))
GUI.Val("help_frameRight", GUI.word_wrap(helpContentRight[selectedMenuIndex], 4, GUI.elms.help_frameRight.w - 1.5 * RL.scaleFactor * GUI.elms.help_frameRight.pad, 0, 2))
else
if GUI.elms.help_frameLeft ~= nil then GUI.elms.help_frameLeft:delete() end
if GUI.elms.help_frameRight ~= nil then GUI.elms.help_frameRight:delete() end
GUI.New("help_frameMain", "Frame", LayerIndex.Help, 108 * RL.scaleFactor, helpTabPadding + 2.4 * RL.scaleFactor, GUI.w - 5 - (108 * RL.scaleFactor), GUI.h - (52 * RL.scaleFactor), false, false)
GUI.elms.help_frameMain.pad = 2 * RL.scaleFactor
GUI.Val("help_frameMain", GUI.word_wrap(helpContentLeft[selectedMenuIndex], 4, GUI.elms.help_frameMain.w - 1.5 * RL.scaleFactor * GUI.elms.help_frameMain.pad, 0, 2))
end
TabSelectionIndex[TabID.Help] = selectedMenuIndex
reaper.SetExtState(appname, "window_helpfocus", tostring(selectedMenuIndex), 1)
end
function GUI.elms.tab_help_listbox:onmousedown()
GUI.Listbox.onmousedown(self)
RL_Draw_HelpFrames()
end
function GUI.elms.tab_help_listbox:onmouseup()
GUI.Listbox.onmouseup(self)
RL_Draw_HelpFrames()
end
GUI.Val("tab_help_listbox", {[1] = true})
if reaper.GetExtState(appname, "window_helpfocus") ~= "" then GUI.Val("tab_help_listbox", {[tonumber(reaper.GetExtState(appname, "window_helpfocus"))] = true}) end
RL_Draw_HelpFrames()
if SWSinstalled then
if RL.tabSelectorStyle == 2 then GUI.New("help_btnThread", "Button", LayerIndex.Help, GUI.w - (75 * RL.scaleFactor), 4.7 * RL.scaleFactor, 70 * RL.scaleFactor, 18 * RL.scaleFactor, "Forum thread")
else GUI.New("help_btnThread", "Button", LayerIndex.Help, pad_left, GUI.h - 50 * RL.scaleFactor, 70 * RL.scaleFactor, 18 * RL.scaleFactor, "Forum thread") end
function GUI.elms.help_btnThread:onmousedown()
GUI.Button.onmousedown(self)
reaper.CF_ShellExecute([[https://forum.cockos.com/showthread.php?t=208697]])
end
end
end
-----------
-- Tooltips
-----------
local function RL_Draw_Tooltips()
if RL.tabSelectorStyle == 2 then GUI.elms.main_menuTabSelector.tooltip = "Tab Navigation\n\nNavigate to different tabs by mouse click, mouse wheel or using the defined keyboard shortcuts - see [Help]" end
GUI.elms.main_lblPaths.tooltip = "Show/hide file paths in the list"
GUI.elms.main_checklistPaths.tooltip = "Show/hide file paths in the list"
GUI.elms.tab_recentProjects_btnRefresh.tooltip = "Refresh the list"
GUI.elms.tab_recentProjects_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_recentProjects_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_projectTemplates_btnRefresh.tooltip = "Left Click: Refresh the list\n\nRight Click: Rebuild the file cache"
GUI.elms.tab_projectTemplates_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_projectTemplates_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_trackTemplates_btnRefresh.tooltip = "Left Click: Refresh the list\n\nRight Click: Rebuild the file cache"
GUI.elms.tab_trackTemplates_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_trackTemplates_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_customProjects_btnRefresh.tooltip = "Left Click: Refresh the list\n\nRight Click: Rebuild the file cache"
GUI.elms.tab_customProjects_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_customProjects_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_projectLists_btnRefresh.tooltip = "Left Click: Refresh the list\n\nRight Click: Rebuild the file cache"
GUI.elms.tab_projectLists_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_projectLists_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_backups_btnRefresh.tooltip = "Left Click: Refresh the list\n\nRight Click: Rebuild the file cache"
GUI.elms.tab_backups_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_backups_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_docs_btnRefresh.tooltip = "Left Click: Refresh the list\n\nRight Click: Rebuild the file cache"
GUI.elms.tab_docs_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_docs_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.tab_favorites_btnRefresh.tooltip = "Refresh the list"
GUI.elms.tab_favorites_txtFilter.tooltip = "Filter Section\n\nFilter the list by typing in one or multiple words separated by a 'space' character"
GUI.elms.tab_favorites_btnFilterClear.tooltip = "Filter Section\n\nClear the filter field"
GUI.elms.paths_btnProjectTemplatesSet.tooltip = "Set the given paths for .RPP Project Templates\n\nAnd/or rebuild the file cache for this tab"
GUI.elms.paths_btnTrackTemplatesSet.tooltip = "Set/Scan the given paths for .RTrackTemplate Track Templates\n\nAnd/or rebuild the file cache for this tab"
GUI.elms.paths_btnCustomProjectsSet.tooltip = "Set/Scan the given paths for .RPP Projects\n\nAnd/or rebuild the file cache for this tab"
GUI.elms.paths_btnProjectListsSet.tooltip = "Set/Scan the given paths for .RPL Project Lists\n\nAnd/or rebuild the file cache for this tab"
GUI.elms.paths_btnBackupsSet.tooltip = "Set/Scan the given path for .RPP-BAK Backups\n\nAnd/or rebuild the file cache for this tab"
GUI.elms.paths_btnDocsSet.tooltip = "Set/Scan the given path for .PDF Docs\n\nAnd/or rebuild the file cache for this tab"
GUI.elms.scansettings_txtProjectTemplates_MaxScanSubDirs.tooltip = "Limit the number of subfolders scanned in each depth level\n\n0 = all subfolders are scanned"
GUI.elms.scansettings_txtTrackTemplates_MaxScanSubDirs.tooltip = "Limit the number of subfolders scanned in each depth level\n\n0 = all subfolders are scanned"
GUI.elms.scansettings_txtCustomProjects_MaxScanSubDirs.tooltip = "Limit the number of subfolders scanned in each depth level\n\n0 = all subfolders are scanned"
GUI.elms.scansettings_txtProjectsLists_MaxScanSubDirs.tooltip = "Limit the number of subfolders scanned in each depth level\n\n0 = all subfolders are scanned"
GUI.elms.scansettings_txtBackups_MaxScanSubDirs.tooltip = "Limit the number of subfolders scanned in each depth level\n\n0 = all subfolders are scanned"
GUI.elms.scansettings_txtDocs_MaxScanSubDirs.tooltip = "Limit the number of subfolders scanned in each depth level\n\n0 = all subfolders are scanned"
GUI.elms.scansettings_txtProjectTemplates_MaxScanDepth.tooltip = "Limit how many subfolder depth levels are scanned\n\n0 = all subfolder depth levels are scanned"
GUI.elms.scansettings_txtTrackTemplates_MaxScanDepth.tooltip = "Limit how many subfolder depth levels are scanned\n\n0 = all subfolder depth levels are scanned"
GUI.elms.scansettings_txtCustomProjects_MaxScanDepth.tooltip = "Limit how many subfolder depth levels are scanned\n\n0 = all subfolder depth levels are scanned"
GUI.elms.scansettings_txtProjectsLists_MaxScanDepth.tooltip = "Limit how many subfolder depth levels are scanned\n\n0 = all subfolder depth levels are scanned"
GUI.elms.scansettings_txtBackups_MaxScanDepth.tooltip = "Limit how many subfolder depth levels are scanned\n\n0 = all subfolder depth levels are scanned"
GUI.elms.scansettings_txtDocs_MaxScanDepth.tooltip = "Limit how many subfolder depth levels are scanned\n\n0 = all subfolder depth levels are scanned"
GUI.elms.scansettings_btnProjectTemplates.tooltip = "Set/update the given scan settings for Project Templates"
GUI.elms.scansettings_btnTrackTemplates.tooltip = "Set/update the given scan settings for Track Templates"
GUI.elms.scansettings_btnCustomProjects.tooltip = "Set/update the given scan settings for Projects"
GUI.elms.scansettings_btnProjectLists.tooltip = "Set/update the given scan settings for Project Lists"
GUI.elms.scansettings_btnBackups.tooltip = "Set/update the given scan settings for Backups"
GUI.elms.scansettings_btnDocs.tooltip = "Set/update the given scan settings for Docs"
GUI.elms.layout_lblShowSubfolderPanel.tooltip = "Toggles the visibility of the subfolder/list panels on the left\n\nRestart required for the changes to take effect"
GUI.elms.layout_checklistShowSubfolderPanel.tooltip = "Toggles the visibility of the subfolder/list panels on the left\n\nRestart required for the changes to take effect"
GUI.elms.layout_lblButtonPanelStyle.tooltip = "Toggles the visibility of the main (button) panel on the right. If hidden, these functions are accessible via Middle Click menu\n\nRestart required for the changes to take effect"
GUI.elms.main_scaleFontDown.tooltip = "Scaling Section\n\nScaling the list font size down"
GUI.elms.main_scaleFontUp.tooltip = "Scaling Section\n\nScaling the list font size up"
GUI.elms.main_scaleInterfaceDown.tooltip = "Scaling Section\n\nScaling the window size down"
GUI.elms.main_scaleInterfaceToggle.tooltip = "Scaling Section\n\nToggle between a small and big window size"
GUI.elms.main_scaleInterfaceUp.tooltip = "Scaling Section\n\nScaling the window size up"
GUI.elms.main_checklistWindowPin.tooltip = "Window Pin\n\nKeep the window open after load/insert operations"
if RL.showButtonPanel then
GUI.elms.main_lblWindowpin.tooltip = "Window Pin\n\nKeep the window open after load/insert operations"
GUI.elms.main_btnNewProjectTab.tooltip = "Add new project tab"
GUI.elms.main_btnNewTabIgnoreTemplate.tooltip = "Add new project tab\n(ignore default template)"
GUI.elms.main_btnNewProject.tooltip = "Create new project"
GUI.elms.main_btnOpenProject.tooltip = "Show the 'Open project' window"
local ttLoadFXoffline = "Load with FX offline:\n - Hold CTRL + SHIFT (Windows & Linux)\n - Hold CMD + SHIFT (macOS)\n - Via the option in the [Open Project] window"
GUI.elms.tab_recentProjects_btnLoadInTab.tooltip = "Load selected recent project(s) in tab(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_recentProjects_btnLoad.tooltip = "Load selected recent project(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_customProjects_btnLoadInTab.tooltip = "Load the selected project(s) in tab(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_customProjects_btnLoad.tooltip = "Load the selected project(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_projectTemplates_btnLoadInTab.tooltip = "Load selected project template(s) in tab(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_projectTemplates_btnLoad.tooltip = "Load selected project templates(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_projectLists_btnLoadInTab.tooltip = "Load the selected project(s) in tab(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_projectLists_btnLoad.tooltip = "Load the selected project(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_backups_btnLoadInTab.tooltip = "Load the selected backup(s) in tab(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_backups_btnLoad.tooltip = "Load the selected backup(s)\n\n" .. ttLoadFXoffline
GUI.elms.tab_trackTemplates_btnInsertInTab.tooltip = "Insert selected track template(s) in a new tab"
GUI.elms.tab_trackTemplates_btnInsert.tooltip = "Insert selected track template(s)"
GUI.elms.main_lblSaveNewVersion.tooltip = "Save the loaded project(s) with an\nincremented version number: _1, _2, ..."
GUI.elms.main_checklistSaveAsNewVersion.tooltip = "Save the loaded project(s) with an\nincremented version number: _1, _2, ..."
GUI.elms.tab_projectTemplates_lblEditMode.tooltip = "Check to open project template in edit mode"
GUI.elms.tab_projectTemplates_checklistEditMode.tooltip = "Check to open project template in edit mode"
end
if JSAPIinstalled then
GUI.elms.paths_btnProjectTemplatesBrowse.tooltip = "Browse for Project Templates folders"
GUI.elms.paths_btnTrackTemplatesBrowse.tooltip = "Browse for Track Templates folders"
GUI.elms.paths_btnCustomProjectsBrowse.tooltip = "Browse for Projects folders"
GUI.elms.paths_btnProjectListsBrowse.tooltip = "Browse for Project Lists folders"
GUI.elms.paths_btnBackupsBrowse.tooltip = "Browse for Backups folders"
GUI.elms.paths_btnDocsBrowse.tooltip = "Browse for Docs folders"
end
if SWSinstalled and RL.showButtonPanel then
GUI.elms.main_btnOpenInExplorer.tooltip = "Locate the selected files in Explorer/Finder"
end
end
--------------------------
-- Color element functions
--------------------------
function RL_Init_Colors_Button()
local buttonElements = {
GUI.elms.tab_recentProjects_btnRefresh, GUI.elms.tab_projectTemplates_btnRefresh, GUI.elms.tab_trackTemplates_btnRefresh, GUI.elms.tab_customProjects_btnRefresh,
GUI.elms.tab_projectLists_btnRefresh, GUI.elms.tab_backups_btnRefresh, GUI.elms.tab_docs_btnRefresh, GUI.elms.tab_favorites_btnRefresh,
GUI.elms.paths_btnProjectTemplatesSet, GUI.elms.paths_btnTrackTemplatesSet, GUI.elms.paths_btnCustomProjectsSet,
GUI.elms.paths_btnProjectListsSet, GUI.elms.paths_btnBackupsSet, GUI.elms.paths_btnDocsSet,
GUI.elms.scansettings_btnProjectTemplates, GUI.elms.scansettings_btnTrackTemplates, GUI.elms.scansettings_btnCustomProjects,
GUI.elms.scansettings_btnProjectLists, GUI.elms.scansettings_btnBackups, GUI.elms.scansettings_btnDocs,
GUI.elms.actions_btnFollowAction_NewProject, GUI.elms.actions_btnFollowAction_NewTab,
GUI.elms.actions_btnFollowAction_LoadProject, GUI.elms.actions_btnFollowAction_LoadProjectInTab,
GUI.elms.actions_btnFollowAction_LoadProjectTemplate, GUI.elms.actions_btnFollowAction_InsertTrackTemplate, GUI.elms.paths_btnRescanAllPaths,
GUI.elms.options_btnSetWindowToggleShortcut
}
if RL.showButtonPanel then
buttonElements[#buttonElements + 1] = GUI.elms.main_btnOpenProject
buttonElements[#buttonElements + 1] = GUI.elms.main_btnNewProjectTab
buttonElements[#buttonElements + 1] = GUI.elms.main_btnNewTabIgnoreTemplate
buttonElements[#buttonElements + 1] = GUI.elms.main_btnNewProject
buttonElements[#buttonElements + 1] = GUI.elms.main_btnAddToFavorites
buttonElements[#buttonElements + 1] = GUI.elms.tab_recentProjects_btnLoadInTab
buttonElements[#buttonElements + 1] = GUI.elms.tab_recentProjects_btnLoad
buttonElements[#buttonElements + 1] = GUI.elms.tab_projectTemplates_btnLoadInTab
buttonElements[#buttonElements + 1] = GUI.elms.tab_projectTemplates_btnLoad
buttonElements[#buttonElements + 1] = GUI.elms.tab_trackTemplates_btnInsertInTab
buttonElements[#buttonElements + 1] = GUI.elms.tab_trackTemplates_btnInsert
buttonElements[#buttonElements + 1] = GUI.elms.tab_customProjects_btnLoadInTab
buttonElements[#buttonElements + 1] = GUI.elms.tab_customProjects_btnLoad
buttonElements[#buttonElements + 1] = GUI.elms.tab_projectLists_btnLoadInTab
buttonElements[#buttonElements + 1] = GUI.elms.tab_projectLists_btnLoad
buttonElements[#buttonElements + 1] = GUI.elms.tab_backups_btnLoadInTab
buttonElements[#buttonElements + 1] = GUI.elms.tab_backups_btnLoad
buttonElements[#buttonElements + 1] = GUI.elms.tab_docs_btnOpen
buttonElements[#buttonElements + 1] = GUI.elms.tab_favorites_btnRemoveFromFavorites
end
if ConfigFlags.enableCustomColorOptions then buttonElements[#buttonElements + 1] = GUI.elms.colors_btnResetColors end
if JSAPIinstalled then
buttonElements[#buttonElements + 1] = GUI.elms.paths_btnProjectTemplatesBrowse
buttonElements[#buttonElements + 1] = GUI.elms.paths_btnTrackTemplatesBrowse
buttonElements[#buttonElements + 1] = GUI.elms.paths_btnCustomProjectsBrowse
buttonElements[#buttonElements + 1] = GUI.elms.paths_btnProjectListsBrowse
buttonElements[#buttonElements + 1] = GUI.elms.paths_btnBackupsBrowse
buttonElements[#buttonElements + 1] = GUI.elms.paths_btnDocsBrowse
end
if SWSinstalled then
if RL.showButtonPanel then buttonElements[#buttonElements + 1] = GUI.elms.main_btnOpenInExplorer end
buttonElements[#buttonElements + 1] = GUI.elms.help_btnThread
buttonElements[#buttonElements + 1] = GUI.elms.layout_themeslot_Setup
buttonElements[#buttonElements + 1] = GUI.elms.layout_themeslot_Save
end
for b = 1, #buttonElements do
buttonElements[b].col_fill = GUI.colors.wnd_bg
buttonElements[b]:init()
end
end
function RL_Init_Colors_Highlight()
local checklistElements = {
GUI.elms.main_checklistWindowPin, GUI.elms.main_checklistPaths, GUI.elms.options_checklistOpenPropertiesOnNewProject,
GUI.elms.options_checklistShowPathsInStatusbar,GUI.elms.layout_checklistShowSubfolderPanel
}
if SWSinstalled then
checklistElements[#checklistElements + 1] = GUI.elms.options_checklistPromptToSave
checklistElements[#checklistElements + 1] = GUI.elms.options_checklistWindowToggle
end
if JSAPIinstalled then checklistElements[#checklistElements + 1] = GUI.elms.main_checklistDate end
for c = 1, #checklistElements do checklistElements[c]:init() end
end
function RL_Init_Colors_TextElements()
local textElements = {
GUI.elms.tab_recentProjects_btnFilterClear, GUI.elms.tab_projectTemplates_btnFilterClear, GUI.elms.tab_trackTemplates_btnFilterClear, GUI.elms.tab_customProjects_btnFilterClear,
GUI.elms.tab_projectLists_btnFilterClear, GUI.elms.tab_backups_btnFilterClear, GUI.elms.tab_docs_btnFilterClear,GUI.elms.tab_favorites_btnFilterClear,
GUI.elms.main_statusbar, GUI.elms.main_lblPaths, GUI.elms.colors_lbl_elmFill, GUI.elms.colors_lbl_txt, GUI.elms.colors_lbl_elmBg, GUI.elms.colors_lbl_wndBg, GUI.elms.colors_lbl_infotext,
GUI.elms.layout_lblStartTab, GUI.elms.layout_lblDoubleClick, GUI.elms.layout_lblShowPathsInStatusbar,
GUI.elms.layout_lblTabSelectorStyle, GUI.elms.layout_lblButtonPanelStyle, GUI.elms.layout_lblShowSubfolderPanel,
GUI.elms.scansettings_lblExcludedFolders, GUI.elms.actions_lblActionsHeader, GUI.elms.paths_lblInfo,
GUI.elms.main_btnHelp, GUI.elms.main_btnOptions, GUI.elms.main_scaleFontDown, GUI.elms.main_scaleFontUp,
GUI.elms.main_scaleInterfaceDown, GUI.elms.main_scaleInterfaceToggle, GUI.elms.main_scaleInterfaceUp, GUI.elms.main_btnToggleTooltips
}
if RL.showButtonPanel then
textElements[#textElements + 1] = GUI.elms.main_lblSaveNewVersion
textElements[#textElements + 1] = GUI.elms.main_lblWindowpin
textElements[#textElements + 1] = GUI.elms.tab_projectTemplates_lblEditMode
textElements[#textElements + 1] = GUI.elms.tab_favorites_lblEditMode
textElements[#textElements + 1] = GUI.elms.tab_favorites_lblSaveNewVersion
end
if SWSinstalled then
textElements[#textElements + 1] = GUI.elms.main_lblThemeslots
textElements[#textElements + 1] = GUI.elms.tab_recentProjects_btnLastActiveProject
end
if JSAPIinstalled then
textElements[#textElements + 1] = GUI.elms.main_previewStatusLabel
textElements[#textElements + 1] = GUI.elms.main_lblDates
end
if ConfigFlags.enableHiDPIModeOptions then textElements[#textElements + 1] = GUI.elms.layout_lblRetinaMode end
for t = 1, #textElements do textElements[t]:init() end
end
function RL_Init_Colors_ElementBackground()
for p = 1, #ParentListBoxElements do
if ParentListBoxElements[p] ~= nil then
ParentListBoxElements[p].col_fill = GUI.colors.elm_fill
ParentListBoxElements[p]:init()
end
end
for l = 1, #ListBoxElements do
ListBoxElements[l].col_fill = GUI.colors.elm_fill
ListBoxElements[l]:init()
end
local inputElements = {
-- MenuBox
GUI.elms.main_sortMode, GUI.elms.layout_menuRetinaMode, GUI.elms.options_menuStartTab, GUI.elms.options_menuDoubleClick, GUI.elms.options_menuShowPathsInStatusbar,
GUI.elms.layout_menuTabSelectorStyle, GUI.elms.layout_menuButtonPanelStyle,
-- TextBox
GUI.elms.tab_recentProjects_txtFilter, GUI.elms.tab_projectTemplates_txtFilter, GUI.elms.tab_trackTemplates_txtFilter, GUI.elms.tab_customProjects_txtFilter,
GUI.elms.tab_projectLists_txtFilter, GUI.elms.tab_backups_txtFilter, GUI.elms.tab_docs_txtFilter, GUI.elms.tab_favorites_txtFilter,
GUI.elms.paths_txtProjectTemplatesPath, GUI.elms.paths_txtTrackTemplatesPath, GUI.elms.paths_txtCustomProjectsPath,
GUI.elms.paths_txtProjectsListsPath, GUI.elms.paths_txtBackupsPath, GUI.elms.paths_txtDocsPath,
GUI.elms.scansettings_txtProjectTemplates, GUI.elms.scansettings_txtProjectTemplates_MaxScanSubDirs, GUI.elms.scansettings_txtProjectTemplates_MaxScanDepth,
GUI.elms.scansettings_txtTrackTemplates, GUI.elms.scansettings_txtTrackTemplates_MaxScanSubDirs, GUI.elms.scansettings_txtTrackTemplates_MaxScanDepth,
GUI.elms.scansettings_txtCustomProjects, GUI.elms.scansettings_txtCustomProjects_MaxScanSubDirs, GUI.elms.scansettings_txtCustomProjects_MaxScanDepth,
GUI.elms.scansettings_txtProjectsLists, GUI.elms.scansettings_txtProjectsLists_MaxScanSubDirs, GUI.elms.scansettings_txtProjectsLists_MaxScanDepth,
GUI.elms.scansettings_txtBackups, GUI.elms.scansettings_txtBackups_MaxScanSubDirs, GUI.elms.scansettings_txtBackups_MaxScanDepth,
GUI.elms.scansettings_txtDocs, GUI.elms.scansettings_txtDocs_MaxScanSubDirs, GUI.elms.scansettings_txtDocs_MaxScanDepth,
GUI.elms.actions_txtFollowAction_NewProject, GUI.elms.actions_txtFollowAction_NewTab, GUI.elms.actions_txtFollowAction_LoadProject,
GUI.elms.actions_txtFollowAction_LoadProjectInTab, GUI.elms.actions_txtFollowAction_LoadProjectTemplate,
GUI.elms.actions_txtFollowAction_InsertTrackTemplate, GUI.elms.options_txtWindowToggleShortcut,
}
if RL.tabSelectorStyle == 2 then inputElements[#inputElements + 1] = GUI.elms.main_menuTabSelector end
if SWSinstalled then
inputElements[#inputElements + 1] = GUI.elms.layout_themeslot_number
inputElements[#inputElements + 1] = GUI.elms.main_menuThemeslot
end
if JSAPIinstalled then inputElements[#inputElements + 1] = GUI.elms.main_previewChannels end
for m = 1, #inputElements do
if inputElements[m] ~= nil then inputElements[m]:init() end
end
end
function RL_InitCustomColors()
if ConfigFlags.enableCustomColorOptions then
local elementColors = {}
for match in reaper.GetExtState(appname, "window_color_elmfill"):gmatch("([^,%s]+)") do elementColors[#elementColors + 1] = tonumber(match) end
if #elementColors > 0 then GUI.colors.elm_fill = {elementColors[1] / 255, elementColors[2] / 255, elementColors[3] / 255} end
elementColors = {}
for match in reaper.GetExtState(appname, "window_color_txt"):gmatch("([^,%s]+)") do elementColors[#elementColors + 1] = tonumber(match) end
if #elementColors > 0 then GUI.colors.txt = {elementColors[1] / 255, elementColors[2] / 255, elementColors[3] / 255} end
elementColors = {}
for match in reaper.GetExtState(appname, "window_color_wndbg"):gmatch("([^,%s]+)") do elementColors[#elementColors + 1] = tonumber(match) end
if #elementColors > 0 then GUI.colors.wnd_bg = {elementColors[1] / 255, elementColors[2] / 255, elementColors[3] / 255} end
elementColors = {}
for match in reaper.GetExtState(appname, "window_color_elmbg"):gmatch("([^,%s]+)") do elementColors[#elementColors + 1] = tonumber(match) end
if #elementColors > 0 then GUI.colors.elm_bg = {elementColors[1] / 255, elementColors[2] / 255, elementColors[3] / 255} end
GUI.elms.colors_frame_elmFill.color = GUI.colors.elm_fill
GUI.elms.colors_frame_txt.color = GUI.colors.txt
GUI.elms.colors_frame_wndBg.color = GUI.colors.wnd_bg
GUI.elms.colors_frame_elmBg.color = GUI.colors.elm_bg
GUI.elms.main_lblPaths:init()
GUI.elms.main_statusbar:init()
GUI.elms.layout_lblButtonPanelStyle:init()
GUI.elms.layout_lblShowSubfolderPanel:init()
GUI.elms.colors_lbl_elmBg:init()
GUI.elms.colors_lbl_elmFill:init()
GUI.elms.colors_lbl_txt:init()
GUI.elms.colors_lbl_wndBg:init()
GUI.elms.actions_lblActionsHeader:init()
GUI.elms.scansettings_lblExcludedFolders:init()
if GUI.elms.help_frameMain ~= nil then GUI.elms.help_frameMain:init() end
if GUI.elms.help_frameLeft ~= nil then GUI.elms.help_frameLeft:init() end
if GUI.elms.help_frameRight ~= nil then GUI.elms.help_frameRight:init() end
if JSAPIinstalled and ConfigFlags.enableAudioPreview then GUI.elms.main_previewStatusLabel:init() end
if showButtonPanel then
GUI.elms.main_lblWindowpin:init()
GUI.elms.main_lblSaveNewVersion:init()
GUI.elms.tab_projectTemplates_lblEditMode:init()
if GUI.elms.tab_favorites_lblSaveNewVersion ~= nil then GUI.elms.tab_favorites_lblSaveNewVersion:init() end
if GUI.elms.tab_favorites_lblEditMode ~= nil then GUI.elms.tab_favorites_lblEditMode:init() end
end
RL_Init_Colors_Highlight()
RL_Init_Colors_ElementBackground()
RL_Init_Colors_TextElements()
RL_Init_Colors_Button()
end
end
------------------
-- Redraw function
------------------
function RL_RedrawAll()
RL_Draw_Main()
RL_Draw_TabRecentProjects()
RL_Draw_TabProjectTemplates()
RL_Draw_TabTrackTemplates()
RL_Draw_TabCustomProjects()
RL_Draw_TabProjectLists()
RL_Draw_TabBackups()
RL_Draw_TabDocs()
RL_Draw_TabFavorites()
RL_Draw_TabLayout()
RL_Draw_TabActions()
RL_Draw_TabOptions()
RL_Draw_TabPaths_ScanSettings()
RL_Draw_TabPaths()
RL_Draw_TabHelp()
RL_Draw_Frames()
RL_Draw_Tooltips()
RL_Init_Colors_Button()
end
RL_RedrawAll()
function RL_SetStartTab(operationMode)
local firstTab = tonumber(ConfigFlags.setfirstTabToLoad)
if firstTab > 0 then -- load tab from ConfigFlags value
if firstTab <= #TabLabels then RL_SetFocusedTab(firstTab) else RL_SetFocusedTab(#TabLabels) end
else
if operationMode == "onUpdate" then RL_SetFocusedTab(tonumber(reaper.GetExtState(appname, "window_tabfocus")))
else
local selectedTabOption = GUI.Val("options_menuStartTab")
if selectedTabOption == 1 then RL_SetFocusedTab(tonumber(reaper.GetExtState(appname, "window_tabfocus"))) -- load last focused
-- always load specific tab
elseif selectedTabOption >= 3 and selectedTabOption <= 11 and operationMode == "onStart" then RL_SetFocusedTab(selectedTabOption - 2)
elseif selectedTabOption >= 12 and selectedTabOption <= 19 then
-- either load a specific tab (on new project or new tab) or the last focused tab
if IsNotNullOrEmpty(reaper.GetProjectName(-1)) then RL_SetFocusedTab(tonumber(reaper.GetExtState(appname, "window_tabfocus")))
else RL_SetFocusedTab(selectedTabOption - 11) end
end
end
end
end
-----------------
-- Load ExtStates
-----------------
local function RL_ExtStates_Load(operationMode)
GUI.Val("main_checklistWindowPin", {(reaper.GetExtState(appname, "window_pin") == "true" and true or false)})
if (reaper.GetExtState(appname, "window_showtooltips") == "true" and true or false) then
GUI.elms.main_btnToggleTooltips.color = FilterColor.active
GUI.elms.main_btnToggleTooltips:init()
RL.showTooltips = true
end
if ConfigFlags.enableSortModeOptions and IsNotNullOrEmpty(reaper.GetExtState(appname, "window_sortmode")) then
local sortIndices = {}
for sortMatch in reaper.GetExtState(appname, "window_sortmode"):gmatch("([^,%s]+)") do sortIndices[#sortIndices + 1] = tonumber(sortMatch) end
if #sortIndices == 8 then RL.sortModeIndex = sortIndices end
GUI.Val("main_sortMode", RL.sortModeIndex[GUI.elms.main_tabs.state] or 1)
end
GUI.Val("options_menuStartTab", tonumber(reaper.GetExtState(appname, "window_starttab")))
RL_SetStartTab(operationMode)
local isButtonPanelVisible = reaper.GetExtState(appname, "window_showmainbuttonpanel")
if isButtonPanelVisible == "" then
isButtonPanelVisible = true
GUI.Val("layout_menuButtonPanelStyle", 1)
else
isButtonPanelVisible = (reaper.GetExtState(appname, "window_showmainbuttonpanel") == "true" and true or false)
if isButtonPanelVisible then GUI.Val("layout_menuButtonPanelStyle", 1) else GUI.Val("layout_menuButtonPanelStyle", 2) end
end
local mouseDoubleClick = reaper.GetExtState(appname, "mouse_doubleclick")
if mouseDoubleClick == "" then mouseDoubleClick = 2 end
if mouseDoubleClick == "4" and not JSAPIinstalled then mouseDoubleClick = 2 end
GUI.Val("options_menuDoubleClick", mouseDoubleClick)
GUI.Val("options_checklistOpenPropertiesOnNewProject", {(reaper.GetExtState(appname, "project_showproperties") == "true" and true or false)})
GUI.Val("options_checklistWindowToggle", {(reaper.GetExtState(appname, "window_togglemode") == "true" and true or false)})
RL.windowToggleShortcut = tonumber(reaper.GetExtState(appname, "window_toggleshortcut"))
if RL.windowToggleShortcut ~= nil then GUI.Val("options_txtWindowToggleShortcut", string.char(RL.windowToggleShortcut)) end
GUI.Val("options_checklistShowPathsInStatusbar", {(reaper.GetExtState(appname, "window_showpathsinstatusbar") == "true" and true or false)})
local pathInStatusBarMode = reaper.GetExtState(appname, "window_showpathsinstatusbarmode")
if pathInStatusBarMode == "" then pathInStatusBarMode = 1 end
GUI.Val("options_menuShowPathsInStatusbar", pathInStatusBarMode)
if not ConfigFlags.resetListDisplayAtLaunch then
GUI.Val("main_checklistPaths", {(reaper.GetExtState(appname, "window_showpaths") == "true" and true or false)})
Global_UpdateListDisplay()
end
if JSAPIinstalled then
GUI.Val("main_previewVolKnob", tonumber(reaper.GetExtState(appname, "preview_vol")))
AudioPreview.channelIndex = tonumber(reaper.GetExtState(appname, "preview_channel"))
GUI.Val("main_previewChannels",tonumber(reaper.GetExtState(appname, "preview_channelmenuitem")))
if not ConfigFlags.resetListDisplayAtLaunch then
GUI.Val("main_checklistDate", {(reaper.GetExtState(appname, "window_showdate") == "true" and true or false)})
RL.showDate = GUI.Val("main_checklistDate")
end
end
if GUI.elms.main_tabs.state <= TabID.Favorites then Global_UpdateListDisplay() end
if not ConfigFlags.resetFiltersAtLaunch then
GUI.Val("tab_recentProjects_txtFilter", reaper.GetExtState(appname, "filter_recentprojects"))
GUI.Val("tab_projectTemplates_txtFilter", reaper.GetExtState(appname, "filter_projecttemplates"))
GUI.Val("tab_trackTemplates_txtFilter", reaper.GetExtState(appname, "filter_tracktemplates"))
GUI.Val("tab_customProjects_txtFilter", reaper.GetExtState(appname, "filter_projects"))
GUI.Val("tab_projectLists_txtFilter", reaper.GetExtState(appname, "filter_projectlists"))
GUI.Val("tab_backups_txtFilter", reaper.GetExtState(appname, "filter_backups"))
GUI.Val("tab_docs_txtFilter", reaper.GetExtState(appname, "filter_docs"))
GUI.Val("tab_favorites_txtFilter", reaper.GetExtState(appname, "filter_favorites"))
Global_UpdateFilter()
end
GUI.elms.paths_txtProjectTemplatesPath:val(reaper.GetExtState(appname, "custompath_projecttemplates"))
GUI.elms.paths_txtTrackTemplatesPath:val(reaper.GetExtState(appname, "custompath_tracktemplates"))
GUI.elms.paths_txtCustomProjectsPath:val(reaper.GetExtState(appname, "custompath_projects"))
GUI.elms.paths_txtProjectsListsPath:val(reaper.GetExtState(appname, "custompath_projectlists"))
GUI.elms.paths_txtBackupsPath:val(reaper.GetExtState(appname, "custompath_backups"))
GUI.elms.paths_txtDocsPath:val(reaper.GetExtState(appname, "custompath_docs"))
GUI.elms.paths_txtProjectTemplatesPath.tooltip = ".RPP Project Templates\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: ".. GUI.Val("paths_txtProjectTemplatesPath")
GUI.elms.paths_txtTrackTemplatesPath.tooltip = ".RTrackTemplate Track Templates\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: ".. GUI.Val("paths_txtTrackTemplatesPath")
GUI.elms.paths_txtCustomProjectsPath.tooltip = ".RPP Projects\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: ".. GUI.Val("paths_txtCustomProjectsPath")
GUI.elms.paths_txtProjectsListsPath.tooltip = ".RPL Project Lists\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: ".. GUI.Val("paths_txtProjectsListsPath")
GUI.elms.paths_txtBackupsPath.tooltip = ".RPP-BAK Backups\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: ".. GUI.Val("paths_txtBackupsPath")
GUI.elms.paths_txtDocsPath.tooltip = ".PDF Docs\n\nEnter one or multiple paths separated by a semicolon\nExample: path1;path2;path3\n\nCurrent: " .. GUI.Val("paths_txtDocsPath")
GUI.elms.actions_txtFollowAction_NewProject:val(reaper.GetExtState(appname, "followaction_newproject"))
GUI.elms.actions_txtFollowAction_NewTab:val(reaper.GetExtState(appname, "followaction_newtab"))
GUI.elms.actions_txtFollowAction_LoadProject:val(reaper.GetExtState(appname, "followaction_loadproject"))
GUI.elms.actions_txtFollowAction_LoadProjectInTab:val(reaper.GetExtState(appname, "followaction_loadprojectintab"))
GUI.elms.actions_txtFollowAction_LoadProjectTemplate:val(reaper.GetExtState(appname, "followaction_loadprojecttemplate"))
GUI.elms.actions_txtFollowAction_InsertTrackTemplate:val(reaper.GetExtState(appname, "followaction_inserttracktemplate"))
GUI.elms.scansettings_txtProjectTemplates:val(reaper.GetExtState(appname, "scan_projecttemplates_excludedfoldernames"))
GUI.elms.scansettings_txtTrackTemplates:val(reaper.GetExtState(appname, "scan_tracktemplates_excludedfoldernames"))
GUI.elms.scansettings_txtCustomProjects:val(reaper.GetExtState(appname, "scan_projects_excludedfoldernames"))
GUI.elms.scansettings_txtProjectsLists:val(reaper.GetExtState(appname, "scan_projectlists_excludedfoldernames"))
GUI.elms.scansettings_txtBackups:val(reaper.GetExtState(appname, "scan_backups_excludedfoldernames"))
GUI.elms.scansettings_txtDocs:val(reaper.GetExtState(appname, "scan_docs_excludedfoldernames"))
FileScanSettings.projectTemplates_excludedFolders = GUI.Val("scansettings_txtProjectTemplates")
GUI.elms.scansettings_txtProjectTemplates.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtProjectTemplates")
FileScanExclusions.ProjectTemplates = SplitMultiPaths(FileScanSettings.projectTemplates_excludedFolders)
FileScanSettings.trackTemplates_excludedFolders = GUI.Val("scansettings_txtTrackTemplates")
GUI.elms.scansettings_txtTrackTemplates.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtTrackTemplates")
FileScanExclusions.TrackTemplates = SplitMultiPaths(FileScanSettings.trackTemplates_excludedFolders)
FileScanSettings.projects_excludedFolders = GUI.Val("scansettings_txtCustomProjects")
GUI.elms.scansettings_txtCustomProjects.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtCustomProjects")
FileScanExclusions.CustomProjects = SplitMultiPaths(FileScanSettings.projects_excludedFolders)
FileScanSettings.projectLists_excludedFolders = GUI.Val("scansettings_txtProjectsLists")
GUI.elms.scansettings_txtProjectsLists.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtProjectsLists")
FileScanExclusions.ProjectLists = SplitMultiPaths(FileScanSettings.projectLists_excludedFolders)
FileScanSettings.backups_excludedFolders = GUI.Val("scansettings_txtBackups")
GUI.elms.scansettings_txtBackups.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtBackups")
FileScanExclusions.Backups = SplitMultiPaths(FileScanSettings.backups_excludedFolders)
FileScanSettings.docs_excludedFolders = GUI.Val("scansettings_txtDocs")
GUI.elms.scansettings_txtDocs.tooltip = "Enter one or multiple folder names separated by a semicolon that should be excluded from the scan\n\nExample: name1;name2;name3\n\nCurrent: " .. GUI.Val("scansettings_txtDocs")
FileScanExclusions.Docs = SplitMultiPaths(FileScanSettings.docs_excludedFolders)
scanMaxSettings = {}
for match in reaper.GetExtState(appname, "scan_projecttemplates_limits"):gmatch("([^,%s]+)") do scanMaxSettings[#scanMaxSettings + 1] = tonumber(match) end
GUI.elms.scansettings_txtProjectTemplates_MaxScanDepth:val(scanMaxSettings[1] or 0)
GUI.elms.scansettings_txtProjectTemplates_MaxScanSubDirs:val(scanMaxSettings[2] or 0)
FileScanSettings.projectTemplates_maxSubDirDepth = scanMaxSettings[1] or 0
FileScanSettings.projectTemplates_maxSubDirRange = scanMaxSettings[2] or 0
scanMaxSettings = {}
for match in reaper.GetExtState(appname, "scan_tracktemplates_limits"):gmatch("([^,%s]+)") do scanMaxSettings[#scanMaxSettings + 1] = tonumber(match) end
GUI.elms.scansettings_txtTrackTemplates_MaxScanDepth:val(scanMaxSettings[1] or 0)
GUI.elms.scansettings_txtTrackTemplates_MaxScanSubDirs:val(scanMaxSettings[2] or 0)
FileScanSettings.trackTemplates_maxSubDirDepth = scanMaxSettings[1] or 0
FileScanSettings.trackTemplates_maxSubDirRange = scanMaxSettings[2] or 0
scanMaxSettings = {}
for match in reaper.GetExtState(appname, "scan_projects_limits"):gmatch("([^,%s]+)") do scanMaxSettings[#scanMaxSettings + 1] = tonumber(match) end
GUI.elms.scansettings_txtCustomProjects_MaxScanDepth:val(scanMaxSettings[1] or 0)
GUI.elms.scansettings_txtCustomProjects_MaxScanSubDirs:val(scanMaxSettings[2] or 0)
FileScanSettings.projects_maxSubDirDepth = scanMaxSettings[1] or 0
FileScanSettings.projects_maxSubDirRange = scanMaxSettings[2] or 0
scanMaxSettings = {}
for match in reaper.GetExtState(appname, "scan_projectlists_limits"):gmatch("([^,%s]+)") do scanMaxSettings[#scanMaxSettings + 1] = tonumber(match) end
GUI.elms.scansettings_txtProjectsLists_MaxScanDepth:val(scanMaxSettings[1] or 0)
GUI.elms.scansettings_txtProjectsLists_MaxScanSubDirs:val(scanMaxSettings[2] or 0)
FileScanSettings.projectLists_maxSubDirDepth = scanMaxSettings[1] or 0
FileScanSettings.projectLists_maxSubDirRange = scanMaxSettings[2] or 0
scanMaxSettings = {}
for match in reaper.GetExtState(appname, "scan_backups_limits"):gmatch("([^,%s]+)") do scanMaxSettings[#scanMaxSettings + 1] = tonumber(match) end
GUI.elms.scansettings_txtBackups_MaxScanDepth:val(scanMaxSettings[1] or 0)
GUI.elms.scansettings_txtBackups_MaxScanSubDirs:val(scanMaxSettings[2] or 0)
FileScanSettings.backups_maxSubDirDepth = scanMaxSettings[1] or 0
FileScanSettings.backups_maxSubDirRange = scanMaxSettings[2] or 0
scanMaxSettings = {}
for match in reaper.GetExtState(appname, "scan_docs_limits"):gmatch("([^,%s]+)") do scanMaxSettings[#scanMaxSettings + 1] = tonumber(match) end
GUI.elms.scansettings_txtDocs_MaxScanDepth:val(scanMaxSettings[1] or 0)
GUI.elms.scansettings_txtDocs_MaxScanSubDirs:val(scanMaxSettings[2] or 0)
FileScanSettings.docs_maxSubDirDepth = scanMaxSettings[1] or 0
FileScanSettings.docs_maxSubDirRange = scanMaxSettings[2] or 0
if SWSinstalled then
GUI.elms.actions_txtFollowAction_NewProject.tooltip = GetActionName(GUI.Val("actions_txtFollowAction_NewProject"))
GUI.elms.actions_txtFollowAction_NewTab.tooltip = GetActionName(GUI.Val("actions_txtFollowAction_NewTab"))
GUI.elms.actions_txtFollowAction_LoadProject.tooltip = GetActionName(GUI.Val("actions_txtFollowAction_LoadProject"))
GUI.elms.actions_txtFollowAction_LoadProjectInTab.tooltip = GetActionName(GUI.Val("actions_txtFollowAction_LoadProjectInTab"))
GUI.elms.actions_txtFollowAction_LoadProjectTemplate.tooltip = GetActionName(GUI.Val("actions_txtFollowAction_LoadProjectTemplate"))
GUI.elms.actions_txtFollowAction_InsertTrackTemplate.tooltip =GetActionName(GUI.Val("actions_txtFollowAction_InsertTrackTemplate"))
GUI.Val("themeslot_max", tonumber(reaper.GetExtState(appname, "themeslot_max")))
local themeSlots = {}
for match in string.gmatch(reaper.GetExtState(appname, "themeslot_aliases"), "[^,]+") do themeSlots[#themeSlots + 1] = string.lower(match) end
for i = 1, 5 do GUI.Val("layout_themeslot_" .. i, themeSlots[i]) end
ThemeSlot_GetNames()
RL_Draw_ThemeSlotSelector(0)
end
if ConfigFlags.enableHiDPIModeOptions then
local dpiMode = reaper.GetExtState(appname, "window_hidpimode")
if dpiMode == "" then dpiMode = 1 end
GUI.Val("layout_menuRetinaMode", dpiMode)
end
local lastOptionFocus = reaper.GetExtState(appname, "window_optionfocus")
if lastOptionFocus == "" or not tonumber(lastOptionFocus) then lastOptionFocus = 1 end
TabSelectionIndex[TabID.Options] = tonumber(lastOptionFocus)
GUI.Val("tab_options_listbox", {[TabSelectionIndex[TabID.Options]] = true})
end
-----------------
-- Save ExtStates
-----------------
function RL_ExtStates_Save()
GUI.save_window_state(appname)
reaper.SetExtState(appname, "window_pin", tostring(GUI.Val("main_checklistWindowPin")), 1)
reaper.SetExtState(appname, "window_scalefactor", tostring(RL.scaleFactor), 1)
reaper.SetExtState(appname, "window_listboxfontsize", tostring(RL.listboxFontSize), 1)
reaper.SetExtState(appname, "window_tabfocus", GUI.elms.main_tabs.state, 1)
reaper.SetExtState(appname, "window_subselection", table.concat(TabParentSelectionIndex, ","), 1)
reaper.SetExtState(appname, "window_showpaths", tostring(GUI.Val("main_checklistPaths")), 1)
reaper.SetExtState(appname, "window_showpathsinstatusbar", tostring(GUI.Val("options_checklistShowPathsInStatusbar")), 1)
reaper.SetExtState(appname, "window_togglemode", tostring(GUI.Val("options_checklistWindowToggle")), 1)
reaper.SetExtState(appname, "project_showproperties", tostring(GUI.Val("options_checklistOpenPropertiesOnNewProject")), 1)
local activePanels = {}
local panelTable = GUI.Val("layout_checklistShowSubfolderPanel")
for i = 1, #panelTable do activePanels[i] = tostring(panelTable[i]) end
reaper.SetExtState(appname, "window_showsubfolderpanel", table.concat(activePanels, ","), 1)
reaper.SetExtState(appname, "filter_recentprojects", GUI.Val("tab_recentProjects_txtFilter"), 1)
reaper.SetExtState(appname, "filter_projecttemplates", GUI.Val("tab_projectTemplates_txtFilter"), 1)
reaper.SetExtState(appname, "filter_tracktemplates", GUI.Val("tab_trackTemplates_txtFilter"), 1)
reaper.SetExtState(appname, "filter_projects", GUI.Val("tab_customProjects_txtFilter"), 1)
reaper.SetExtState(appname, "filter_projectlists", GUI.Val("tab_projectLists_txtFilter"), 1)
reaper.SetExtState(appname, "filter_backups", GUI.Val("tab_backups_txtFilter"), 1)
reaper.SetExtState(appname, "filter_docs", GUI.Val("tab_docs_txtFilter"), 1)
reaper.SetExtState(appname, "filter_favorites", GUI.Val("tab_favorites_txtFilter"), 1)
if SWSinstalled then
reaper.SetExtState(appname, "themeslot_max", tostring(GUI.Val("layout_themeslot_number")), 1)
end
if JSAPIinstalled then
reaper.SetExtState(appname, "window_showdate", tostring(GUI.Val("main_checklistDate")), 1)
reaper.SetExtState(appname, "preview_vol", tostring(GUI.Val("main_previewVolKnob")), 1)
if AudioPreview.channelIndex == nil then AudioPreview.channelIndex = 0 end
reaper.SetExtState(appname, "preview_channel", AudioPreview.channelIndex, 1)
reaper.SetExtState(appname, "preview_channelmenuitem", tostring(GUI.Val("main_previewChannels")), 1)
end
end
----------------
-- Audio Preview
----------------
if JSAPIinstalled then
local AudioPreviewFileTypes = { ".wav", ".flac", ".mp3", ".ogg" } -- ordered by priority from left to right
function AudioPreviewToggleState()
if AudioPreview.active then AudioPreviewStopAll()
else AudioPreviewStart() end
end
function AudioPreviewChangeVolKnobColor(bodyColor, headColor)
GUI.elms.main_previewVolKnob.col_body = bodyColor
GUI.elms.main_previewVolKnob.col_head = headColor
GUI.elms.main_previewVolKnob:init()
GUI.elms.main_previewVolKnob:redraw(self)
if headColor == "elm_frame" then GUI.elms.main_previewVolKnob.col_txt = "txt"
else GUI.elms.main_previewVolKnob.col_txt = headColor end
GUI.elms.main_previewVolKnob:init()
GUI.elms.main_previewChannels.col_txt = headColor
GUI.elms.main_previewChannels.col_cap = headColor
GUI.elms.main_previewChannels:init()
GUI.elms.main_previewStatusLabel.color = headColor
GUI.elms.main_previewStatusLabel:init()
end
function IsFilterActive(currentTab)
if currentTab == TabID.RecentProjects then return FilterActive.RecentProjects
elseif currentTab == TabID.ProjectTemplates then return FilterActive.ProjectTemplates
elseif currentTab == TabID.TrackTemplates then return FilterActive.TrackTemplates
elseif currentTab == TabID.CustomProjects then return FilterActive.CustomProjects
elseif currentTab == TabID.ProjectLists then return FilterActive.ProjectLists
elseif currentTab == TabID.Backups then return FilterActive.Backups
elseif currentTab == TabID.Favorites then return FilterActive.Favorites
end
end
function AudioPreviewCheckForFile(currentTab)
if not ConfigFlags.enableAudioPreview then return end
if currentTab and currentTab <= TabID.Favorites and currentTab ~= TabID.Docs then
local selectedIndex = TabSelectionIndex[currentTab]
if selectedIndex ~= nil and selectedIndex > 0 then
local AudioPreviewElements = {}
if currentTab == TabID.RecentProjects then AudioPreviewElements = { RecentProjects.items, RecentProjects.filteredItems }
elseif currentTab == TabID.ProjectTemplates then AudioPreviewElements = { ProjectTemplates.items, ProjectTemplates.filteredItems }
elseif currentTab == TabID.TrackTemplates then AudioPreviewElements = { TrackTemplates.items, TrackTemplates.filteredItems }
elseif currentTab == TabID.CustomProjects then AudioPreviewElements = { CustomProjects.items, CustomProjects.filteredItems }
elseif currentTab == TabID.ProjectLists then AudioPreviewElements = { ProjectLists.projectItems, ProjectLists.filteredProjectItems }
elseif currentTab == TabID.Backups then AudioPreviewElements = { Backups.items, Backups.filteredItems, }
elseif currentTab == TabID.Favorites then AudioPreviewElements = { Favorites.items, Favorites.filteredItems }
end
local selectedPreviewElement = AudioPreviewElements[1][selectedIndex]
if IsFilterActive(currentTab) then selectedPreviewElement = AudioPreviewElements[2][selectedIndex] end
if AudioPreviewElements[1][selectedIndex] ~= nil then
for t = 1, #AudioPreviewFileTypes do
if selectedPreviewElement == nil then AudioPreview.fileName = "emptyList"
else
AudioPreview.fileExtension = AudioPreviewFileTypes[t]
if selectedPreviewElement.name then
if IsFilterActive(currentTab) and AudioPreviewElements[2][selectedIndex].path then
AudioPreview.fileName = GetDirectoryPath(AudioPreviewElements[2][selectedIndex].path) .. pathSeparator .. selectedPreviewElement.name .. AudioPreview.fileExtension
else
if AudioPreviewElements[1][selectedIndex].path then
AudioPreview.fileName = GetDirectoryPath(AudioPreviewElements[1][selectedIndex].path) .. pathSeparator .. selectedPreviewElement.name .. AudioPreview.fileExtension
end
end
end
end
if AudioPreview.fileName ~= "emptyList" and reaper.file_exists(AudioPreview.fileName) then break end
end
AudioPreviewChangeVolKnobColor("none", "elm_frame")
GUI.elms.main_previewStatusLabel.tooltip = ""
if reaper.file_exists(AudioPreview.fileName) then
AudioPreviewChangeVolKnobColor("none", "silver")
AudioPreview.statusText = selectedPreviewElement.name .. AudioPreview.fileExtension
GUI.elms.main_previewStatusLabel.tooltip = "Preview file available\n\n" .. AudioPreview.statusText
if AudioPreview.fileName == AudioPreview.lastPlayed and AudioPreview.active then
AudioPreviewChangeVolKnobColor("none", "elm_fill")
GUI.elms.main_previewStatusLabel.tooltip = "Currently playing\n\n" .. AudioPreview.statusText
end
end
end
end
end
end
function AudioPreviewStart()
if AudioPreview.fileName ~= nil and reaper.file_exists(AudioPreview.fileName) then
local previewVol = (GUI.Val("main_previewVolKnob") / 100)
if previewVol == nil or previewVol > 1 then previewVol = 1 end
reaper.Xen_StopSourcePreview(-1)
local startOutputChannel = 0
if AudioPreview.channelIndex ~= nil and AudioPreview.channelIndex > 0 then startOutputChannel = AudioPreview.channelIndex end
reaper.Xen_StartSourcePreview(reaper.PCM_Source_CreateFromFile(AudioPreview.fileName), previewVol, false, startOutputChannel)
AudioPreview.active = true
AudioPreview.lastPlayed = AudioPreview.fileName
AudioPreviewChangeVolKnobColor("none", "elm_fill")
if AudioPreview.statusText ~= nil then
MsgStatusBar("Audio Preview started ")
GUI.elms.main_previewStatusLabel.tooltip = "Currently playing\n\n" .. AudioPreview.statusText
end
end
end
function AudioPreviewStopAll()
reaper.Xen_StopSourcePreview(-1)
AudioPreviewChangeVolKnobColor("none", "elm_frame")
GUI.elms.main_previewStatusLabel.tooltip = ""
MsgStatusBar("Audio Preview stopped")
if AudioPreview.active and AudioPreview.fileName ~= AudioPreview.lastPlayed then AudioPreviewStart()
elseif AudioPreview.active then AudioPreview.active = false end
end
end
---------------------
-- Key Input - Tables
---------------------
GUI.chars = {
ESC = 27,
RETURN = 13,
BACKSPACE = 8,
TAB = 9,
SPACE = 32,
-- middle block
INSERT = 6909555,
DELETE = 6579564,
HOME = 1752132965,
END = 6647396,
PAGEUP = 1885828464,
PAGEDOWN = 1885824110,
UP = 30064,
DOWN = 1685026670,
LEFT = 1818584692,
RIGHT = 1919379572,
-- operators
MULTIPLY = 42,
PLUS = 43,
MINUS = 45,
DIVIDE = 47,
-- numbers
N0 = 48,
N1 = 49,
N2 = 50,
N3 = 51,
N4 = 52,
N5 = 53,
N6 = 54,
N7 = 55,
N8 = 56,
N9 = 57,
-- characters
m = 77,
p = 80,
s = 83,
t = 84,
A = 97,
C = 99,
D = 100,
F = 102,
I = 105,
L = 108,
M = 109,
N = 110,
O = 111,
P = 112,
Q = 113,
S = 115,
T = 116,
V = 118,
W = 119,
X = 120,
-- function keys
F1 = 26161,
F2 = 26162,
F3 = 26163,
F4 = 26164,
F5 = 26165,
F6 = 26166,
F7 = 26167,
F8 = 26168,
F9 = 26169,
F10 = 6697264,
F11 = 6697265,
F12 = 6697266
}
GUI.modifier = {
NONE = 0,
CTRL = 1,
SHIFT = 2,
ALT = 3
}
-------------------------------
-- Key Input - Helper functions
-------------------------------
local TabParentListBox = {
"",
"tab_projectTemplates_subfolders",
"tab_trackTemplates_subfolders",
"tab_customProjects_subfolders",
"tab_projectLists_listboxRPL",
"tab_backups_subfolders",
"tab_docs_subfolders",
"tab_favorites_categories"
}
local TabListBox = {
"tab_recentProjects_listbox",
"tab_projectTemplates_listbox",
"tab_trackTemplates_listbox",
"tab_customProjects_listbox",
"tab_projectLists_listboxProjects",
"tab_backups_listbox",
"tab_docs_listbox",
"tab_favorites_listbox",
"tab_help_listbox",
"tab_options_listbox"
}
local TabFilter = {
GUI.elms.tab_recentProjects_txtFilter,
GUI.elms.tab_projectTemplates_txtFilter,
GUI.elms.tab_trackTemplates_txtFilter,
GUI.elms.tab_customProjects_txtFilter,
GUI.elms.tab_projectLists_txtFilter,
GUI.elms.tab_backups_txtFilter,
GUI.elms.tab_docs_txtFilter,
GUI.elms.tab_favorites_txtFilter
}
-------------------
-- Listbox elements
-------------------
local function InitListBoxElements()
ParentListBoxElements = {
nil,
GUI.elms.tab_projectTemplates_subfolders,
GUI.elms.tab_trackTemplates_subfolders,
GUI.elms.tab_customProjects_subfolders,
GUI.elms.tab_projectLists_listboxRPL,
GUI.elms.tab_backups_subfolders,
GUI.elms.tab_docs_subfolders,
GUI.elms.tab_favorites_categories,
GUI.elms.tab_help_listbox,
GUI.elms.tab_options_listbox
}
ListBoxElements = {
GUI.elms.tab_recentProjects_listbox,
GUI.elms.tab_projectTemplates_listbox,
GUI.elms.tab_trackTemplates_listbox,
GUI.elms.tab_customProjects_listbox,
GUI.elms.tab_projectLists_listboxProjects,
GUI.elms.tab_backups_listbox,
GUI.elms.tab_docs_listbox,
GUI.elms.tab_favorites_listbox
}
end
InitListBoxElements()
-----------------
-- Parent listbox
-----------------
function SetParentListBoxIndex(tabIndex, selectedElement)
GUI.Val(TabParentListBox[tabIndex], {[selectedElement] = true})
TabParentSelectionIndex[tabIndex] = selectedElement
if ParentListBoxElements[tabIndex] then
if tabIndex == TabID.ProjectLists then
if RL.sortModeIndex[GUI.elms.main_tabs.state] == 2 then UpdateProjectListSelection(true) else UpdateProjectListSelection(false) end
Filter_ProjectLists_Clear()
else
if tabIndex == TabID.ProjectTemplates then
UpdateProjectTemplateSubDirSelection()
Filter_ProjectTemplate_Clear()
elseif tabIndex == TabID.TrackTemplates then
UpdateTrackTemplateSubDirSelection()
Filter_TrackTemplate_Clear()
elseif tabIndex == TabID.CustomProjects then
UpdateCustomProjectSubDirSelection()
Filter_CustomProjects_Clear()
elseif tabIndex == TabID.Backups then
UpdateBackupsSubDirSelection()
Filter_Backups_Clear()
elseif tabIndex == TabID.Docs then
UpdateDocsSubDirSelection()
Filter_Docs_Clear()
elseif tabIndex == TabID.Favorites then
TabSelectionIndex[TabID.Favorites] = 0
RL.projectTemplateLoadMode, RL.saveAsNewVersionMode = 1, 0
FillFavoritesListbox()
Filter_Favorites_Clear()
end
end
end
Global_UpdateSortMode()
ShowFileCount()
end
local function RL_Keys_ListboxSelectPreviousParent(currentTab)
if TabParentSelectionIndex[currentTab] ~= nil and currentTab > 1 and currentTab <= TabID.Favorites then
local listIndex = TabParentSelectionIndex[currentTab]
if listIndex - 1 > 0 then
listIndex = listIndex - 1
SetParentListBoxIndex(currentTab, listIndex)
Scroll(ParentListBoxElements[currentTab], listIndex, -1)
end
end
end
local function RL_Keys_ListboxSelectNextParent(currentTab)
if TabParentSelectionIndex[currentTab] ~= nil and currentTab > 1 and currentTab <= TabID.Favorites then
if ParentListBoxElements[currentTab] then
local listIndex = TabParentSelectionIndex[currentTab]
if listIndex + 1 <= #ParentListBoxElements[currentTab].list then
listIndex = listIndex + 1
SetParentListBoxIndex(currentTab, listIndex)
Scroll(ParentListBoxElements[currentTab], listIndex, 1)
end
end
end
end
---------------
-- Main listbox
---------------
function SetListBoxIndex(tabIndex, selectedElement)
GUI.Val(TabListBox[tabIndex], {[selectedElement] = true})
TabSelectionIndex[tabIndex] = selectedElement
if tabIndex == TabID.Help then RL_Draw_HelpFrames() end
if tabIndex == TabID.Options then
reaper.SetExtState(appname, "window_optionfocus", tostring(selectedElement), 1)
RL_SetFocusedTab(TabID.Help + selectedElement)
end
Global_ShowPathInStatusbar(tabIndex)
if JSAPIinstalled then AudioPreviewCheckForFile(tabIndex) end
end
function RL_Keys_ListboxSelectPrevious(currentTab)
if currentTab >= TabID.Options and currentTab <= TabID.Layout and TabSelectionIndex[TabID.Options] ~= nil then
local listIndex = TabSelectionIndex[TabID.Options]
if listIndex - 1 > 0 then listIndex = listIndex - 1 end
SetListBoxIndex(TabID.Options, listIndex)
Scroll(ListBoxElements[TabID.Options], listIndex, -1)
else
if TabSelectionIndex[currentTab] ~= nil and currentTab <= TabID.Layout then
local listIndex = TabSelectionIndex[currentTab]
if listIndex - 1 > 0 then listIndex = listIndex - 1 end
SetListBoxIndex(currentTab, listIndex)
Scroll(ListBoxElements[currentTab], listIndex, -1)
end
end
end
function RL_Keys_ListboxSelectNext(currentTab)
if currentTab >= TabID.Options and currentTab <= TabID.Layout and TabSelectionIndex[TabID.Options] ~= nil then
local listIndex = TabSelectionIndex[TabID.Options]
if listIndex + 1 <= #GUI.elms.tab_options_listbox.list then listIndex = listIndex + 1 end
SetListBoxIndex(TabID.Options, listIndex)
Scroll(ListBoxElements[TabID.Options], listIndex, 1)
else
if TabSelectionIndex[currentTab] ~= nil and currentTab <= TabID.Layout then
local listIndex = TabSelectionIndex[currentTab]
local ListBoxItems = {
GUI.elms.tab_recentProjects_listbox.list,
GUI.elms.tab_projectTemplates_listbox.list,
GUI.elms.tab_trackTemplates_listbox.list,
GUI.elms.tab_customProjects_listbox.list,
GUI.elms.tab_projectLists_listboxProjects.list,
GUI.elms.tab_backups_listbox.list,
GUI.elms.tab_docs_listbox.list,
GUI.elms.tab_favorites_listbox.list,
GUI.elms.tab_help_listbox.list
}
if listIndex + 1 <= #ListBoxItems[currentTab] then listIndex = listIndex + 1 end
SetListBoxIndex(currentTab, listIndex)
Scroll(ListBoxElements[currentTab], listIndex, 1)
end
end
end
--------------------------------
-- Load/Refresh helper functions
--------------------------------
RL_Func_LoadElement = {
[TabID.RecentProjects] = { call = function() Load_RecentProject() end },
[TabID.ProjectTemplates] = { call = function() Load_ProjectTemplate() end },
[TabID.TrackTemplates] = { call = function() Load_TrackTemplate() end },
[TabID.CustomProjects] = { call = function() Load_CustomProject() end },
[TabID.ProjectLists] = { call = function() Load_ProjectListProject() end },
[TabID.Backups] = { call = function() Load_BackupFile() end },
[TabID.Docs] = { call = function() Load_DocFile() end },
[TabID.Favorites] = { call = function() Load_FavoritesFile() end }
}
RL_Func_LoadElementInTab = {
[TabID.RecentProjects] = { call = function() LoadInTab_RecentProject() end },
[TabID.ProjectTemplates] = { call = function() LoadInTab_ProjectTemplate() end },
[TabID.TrackTemplates] = { call = function() Load_TrackTemplateInTab() end },
[TabID.CustomProjects] = { call = function() LoadInTab_CustomProject() end },
[TabID.ProjectLists] = { call = function() LoadInTab_ProjectListProject() end },
[TabID.Backups] = { call = function() LoadInTab_BackupFile() end },
[TabID.Docs] = { call = function() Load_DocFile() end },
[TabID.Favorites] = { call = function() LoadInTab_FavoritesFile() end }
}
RL_Func_TabRefresh = {
[TabID.RecentProjects] = { call = function() RefreshRecentProjects(false) end },
[TabID.ProjectTemplates] = { call = function() RefreshProjectTemplates() end },
[TabID.TrackTemplates] = { call = function() RefreshTrackTemplates() end },
[TabID.CustomProjects] = { call = function() RefreshCustomProjects() end },
[TabID.ProjectLists] = { call = function() RefreshProjectList() end },
[TabID.Backups] = { call = function() RefreshBackups() end },
[TabID.Docs] = { call = function() RefreshDocs() end },
[TabID.Favorites] = { call = function() RefreshFavorites() end }
}
RL_Func_RebuildCache = {
[TabID.RecentProjects] = { call = function() RefreshRecentProjects(false) end },
[TabID.ProjectTemplates] = { call = function() RL.forceRescan = true RefreshProjectTemplates() RL.forceRescan = false end },
[TabID.TrackTemplates] = { call = function() RL.forceRescan = true RefreshTrackTemplates() RL.forceRescan = false end },
[TabID.CustomProjects] = { call = function() RL.forceRescan = true RefreshCustomProjects() RL.forceRescan = false end },
[TabID.ProjectLists] = { call = function() RL.forceRescan = true RefreshProjectList() RL.forceRescan = false end },
[TabID.Backups] = { call = function() RL.forceRescan = true RefreshBackups() RL.forceRescan = false end },
[TabID.Docs] = { call = function() RL.forceRescan = true RefreshDocs() RL.forceRescan = false end },
[TabID.Favorites] = { call = function() RefreshFavorites() end }
}
----------------------------
-- Key Input - Main function
-----------------------------
local function RL_Keys_CheckInput()
if RL.keyInputActive then
local inputChar = gfx.getchar()
local modifier = GUI.modifier.NONE
if GUI.mouse.cap & 4 == 4 then modifier = GUI.modifier.CTRL
elseif GUI.mouse.cap & 8 == 8 then modifier = GUI.modifier.SHIFT
elseif GUI.mouse.cap & 16 == 16 then modifier = GUI.modifier.ALT
end
if RL.dialogKeyMode then
if inputChar == GUI.chars.ESC then RL_Dialog_Close()
elseif inputChar == GUI.chars.RETURN then RL_Dialog_OK() end
else
-- if inputChar > 0 then MsgDebug("modifier: " .. modifier .. " | key: " .. inputChar) end
-- close the window when toggle key is pressed
if GUI.Val("options_checklistWindowToggle") and RL.windowToggleShortcut ~= nil and (inputChar == RL.windowToggleShortcut or inputChar == (RL.windowToggleShortcut + 32)) then
SetToggleState(0) gfx.quit() return 0
-- close the window when ESC key is pressed or close function is called
elseif inputChar == GUI.chars.ESC or inputChar == -1 or GUI.quit then SetToggleState(0) gfx.quit() return 0
-- select previous tab
elseif inputChar == GUI.chars.LEFT and GUI.elms.main_tabs.state > 1 then
if GUI.elms.main_tabs.state <= TabID.Options then RL_SetFocusedTab(GUI.elms.main_tabs.state - 1) else RL_SetFocusedTab(TabID.Options - 1) end
-- select next tab
elseif inputChar == GUI.chars.RIGHT then
if GUI.elms.main_tabs.state < TabID.Options then RL_SetFocusedTab(GUI.elms.main_tabs.state + 1) end
-- sub and main listbox selection
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.UP then RL_Keys_ListboxSelectPreviousParent(GUI.elms.main_tabs.state)
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.UP then RL_Keys_ListboxSelectPrevious(GUI.elms.main_tabs.state)
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.DOWN then RL_Keys_ListboxSelectNextParent(GUI.elms.main_tabs.state)
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.DOWN then RL_Keys_ListboxSelectNext(GUI.elms.main_tabs.state)
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.HOME and GUI.elms.main_tabs.state > 1 and GUI.elms.main_tabs.state <= TabID.Favorites then
SetParentListBoxIndex(GUI.elms.main_tabs.state, 1)
ScrollToTop(ParentListBoxElements[GUI.elms.main_tabs.state])
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.HOME and GUI.elms.main_tabs.state <= TabID.Favorites then
SetListBoxIndex(GUI.elms.main_tabs.state, 1)
ScrollToTop(ListBoxElements[GUI.elms.main_tabs.state])
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.END and GUI.elms.main_tabs.state > 1 and GUI.elms.main_tabs.state <= TabID.Favorites then
SetParentListBoxIndex(GUI.elms.main_tabs.state, GetSubListSize())
ScrollToBottom(ParentListBoxElements[GUI.elms.main_tabs.state])
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.END and GUI.elms.main_tabs.state <= TabID.Favorites then
SetListBoxIndex(GUI.elms.main_tabs.state, GetMainListSize())
ScrollToBottom(ListBoxElements[GUI.elms.main_tabs.state])
-- refresh current tab
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.F5 and GUI.elms.main_tabs.state <= TabID.Favorites then RL_Func_TabRefresh[GUI.elms.main_tabs.state].call()
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.F5 and GUI.elms.main_tabs.state <= TabID.Favorites then RebuildCache()
-- set focus to filter
elseif inputChar == GUI.chars.TAB then
if GUI.elms.main_tabs.state <= TabID.Favorites then
RL.keyInputActive = false
TabFilter[GUI.elms.main_tabs.state].focus = true
end
-- clear filter
elseif inputChar == GUI.chars.BACKSPACE then RL_Keys_ClearFilter()
-- keep window open
elseif inputChar == GUI.chars.W then
if GUI.Val("main_checklistWindowPin") then GUI.Val("main_checklistWindowPin", {false}) else GUI.Val("main_checklistWindowPin", {true}) end
-- global buttons
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.s then Global_CycleSortMode(true)
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.S then Global_CycleSortMode(false)
elseif inputChar == GUI.chars.L and GUI.elms.main_tabs.state <= TabID.Favorites then Global_OpenInExplorer()
elseif inputChar == GUI.chars.O then Global_ShowProjectOpenDialog()
elseif inputChar == GUI.chars.N then Global_NewProject()
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.t or inputChar == GUI.chars.DIVIDE then Global_NewTabIgnoreDefaultTemplate()
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.T or inputChar == GUI.chars.PLUS then Global_NewTab()
-- toggle path display in sub listbox
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.p then
RL.showSubFolderPaths = not RL.showSubFolderPaths
Global_UpdateSubfolderPathDisplay()
-- toggle path display in main listbox
elseif inputChar == GUI.chars.P then
if GUI.Val("main_checklistPaths") then GUI.Val("main_checklistPaths", {false}) else GUI.Val("main_checklistPaths", {true}) end
Global_UpdateListDisplay()
-- select previous/next project tab
elseif inputChar == GUI.chars.X then reaper.Main_OnCommand(40862, 0) -- select previous tab
elseif inputChar == GUI.chars.V then reaper.Main_OnCommand(40861, 0) -- select next tab
-- close current tab
elseif inputChar == GUI.chars.C or inputChar == GUI.chars.MINUS then
reaper.Main_OnCommand(40860, 0)
Global_CheckWindowPinState()
-- load (in tab)
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.RETURN and GUI.elms.main_tabs.state <= TabID.Favorites then RL_Func_LoadElementInTab[GUI.elms.main_tabs.state].call()
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.RETURN and GUI.elms.main_tabs.state <= TabID.Favorites then RL_Func_LoadElement[GUI.elms.main_tabs.state].call()
-- scaling functions
elseif inputChar == GUI.chars.F8 then RL_ScaleListboxFontSizeDown()
elseif inputChar == GUI.chars.F9 then RL_ScaleListboxFontSizeUp()
elseif inputChar == GUI.chars.F10 then RL_ScaleInterfaceToggle()
elseif inputChar == GUI.chars.F11 then RL_ScaleInterfaceDown()
elseif inputChar == GUI.chars.F12 then RL_ScaleInterfaceUp()
-- main tabs
elseif inputChar == GUI.chars.N0 then RL_SetFocusedTab(TabID.Favorites)
elseif inputChar == GUI.chars.N1 then RL_SetFocusedTab(TabID.RecentProjects)
elseif inputChar == GUI.chars.N2 then RL_SetFocusedTab(TabID.ProjectTemplates)
elseif inputChar == GUI.chars.N3 then RL_SetFocusedTab(TabID.TrackTemplates)
elseif inputChar == GUI.chars.N4 then RL_SetFocusedTab(TabID.CustomProjects)
elseif inputChar == GUI.chars.N5 then RL_SetFocusedTab(TabID.ProjectLists)
elseif inputChar == GUI.chars.N6 then RL_SetFocusedTab(TabID.Backups)
elseif inputChar == GUI.chars.N7 then RL_SetFocusedTab(TabID.Docs)
-- option tabs
elseif inputChar == GUI.chars.F1 then RL_SetFocusedTab(TabID.Help)
elseif inputChar == GUI.chars.F2 then GUI.Val("tab_options_listbox", {[1] = true}) TabSelectionIndex[TabID.Options] = 1 RL_SetFocusedTab(TabID.Options)
elseif inputChar == GUI.chars.F3 then RL_SetFocusedTab(TabID.Favorites)
-- favorites
elseif inputChar == GUI.chars.F then if GUI.elms.main_tabs.state == TabID.Favorites then RL_ConfirmDialog_RemoveFavoritesEntry() else Favorites_Add() end
-- tooltips
elseif inputChar == GUI.chars.I then RL_ToggleTooltips()
-- context menus
elseif inputChar == GUI.chars.A and SWSinstalled then RL_Context_LastActiveProjects()
elseif modifier == GUI.modifier.NONE and inputChar == GUI.chars.M then RL_Context_Main_Relay()
elseif modifier == GUI.modifier.SHIFT and inputChar == GUI.chars.m then
if GUI.elms.main_tabs.state == TabID.RecentProjects and SWSinstalled then RL_Context_RecentProjects()
elseif GUI.elms.main_tabs.state == TabID.Favorites then RL_Context_Favorites() end
end
-- audio preview
if JSAPIinstalled and ConfigFlags.enableAudioPreview then
if inputChar == GUI.chars.SPACE or inputChar == GUI.chars.MULTIPLY then AudioPreviewToggleState()
elseif inputChar == GUI.chars.D then
if GUI.Val("main_checklistDate") then GUI.Val("main_checklistDate", {false}) else GUI.Val("main_checklistDate", {true}) end
Global_UpdateListDisplay()
end
end
end
end
reaper.defer(RL_Keys_CheckInput)
end
--------------------------
-- Resize/Redraw functions
--------------------------
function RL_RedrawUI()
RL_SetWindowParameters()
RL_RedrawAll()
RL_SetListBoxFontSize()
RL_ExtStates_Load("onUpdate")
Global_UpdateSubfolderPathDisplay()
end
----------------------------
-- listbox font size scaling
----------------------------
function RL_ScaleListboxFontSize()
local fonts = GUI.get_OS_fonts()
for p = 1, #ParentListBoxElements do
if (ShowSubfolderPanel(p) or p == #ParentListBoxElements) and ParentListBoxElements[p] ~= nil and p < TabID.Options then
ParentListBoxElements[p].font_b = {fonts.sans, RL.listboxFontSize * RL.scaleFactor}
ParentListBoxElements[p]:wnd_recalc()
ParentListBoxElements[p]:redraw()
end
end
for l = 1, #ListBoxElements do
ListBoxElements[l].font_b = {fonts.sans, RL.listboxFontSize * RL.scaleFactor}
ListBoxElements[l]:wnd_recalc()
ListBoxElements[l]:redraw()
end
end
function RL_ScaleListboxFontSizeDown()
if (RL.listboxFontSize - 2) > 10 then
RL.listboxFontSize = RL.listboxFontSize - 2
reaper.SetExtState(appname, "window_listboxfontsize", tostring(RL.listboxFontSize), 1)
RL_ScaleListboxFontSize()
end
end
function RL_ScaleListboxFontSizeUp()
if (RL.listboxFontSize + 2) < 36 then
RL.listboxFontSize = RL.listboxFontSize + 2
reaper.SetExtState(appname, "window_listboxfontsize", tostring(RL.listboxFontSize), 1)
RL_ScaleListboxFontSize()
end
end
function RL_SetListBoxFontSize()
InitListBoxElements()
local storedFontSize = tonumber(reaper.GetExtState(appname, "window_listboxfontsize"))
if storedFontSize ~= nil and storedFontSize > 0 then
RL.listboxFontSize = storedFontSize
RL_ScaleListboxFontSize()
end
end
RL_SetListBoxFontSize()
-------------------------
-- Resize/Scale functions
-------------------------
local function RL_ResizeScaledWidth(wx, wy)
GUI.w = (RL.minWidth * RL.scaleFactor) - (50 * RL.scaleFactor)
gfx.quit()
if RL.retinaMode == 1 then gfx.init("", 0.5 * GUI.w, 0.5 * GUI.h, 0, wx, wy) else gfx.init("", GUI.w, GUI.h, 0, wx, wy) end
GUI.redraw_z[0] = true
end
local function RL_ResizeScaledHeight(wx, wy)
GUI.h = ((RL.minHeight - 80) * RL.scaleFactor) + (50 * RL.scaleFactor)
gfx.quit()
if RL.retinaMode == 1 then gfx.init("", 0.5 * GUI.w, 0.5 * GUI.h, 0, wx, wy) else gfx.init("", GUI.w, GUI.h, 0, wx, wy) end
GUI.redraw_z[0] = true
end
local function RL_ResizeWidth(wx, wy)
GUI.w = RL.minWidth
gfx.quit()
if RL.retinaMode == 1 then gfx.init("", 0.5 * GUI.w, 0.5 * GUI.h, 0, wx, wy) else gfx.init("", GUI.w, GUI.h, 0, wx, wy) end
GUI.redraw_z[0] = true
end
local function RL_ResizeHeight(wx, wy)
GUI.h = RL.minHeight
gfx.quit()
if RL.retinaMode == 1 then gfx.init("", 0.5 * GUI.w, 0.5 * GUI.h, 0, wx, wy) else gfx.init("", GUI.w, GUI.h, 0, wx, wy) end
GUI.redraw_z[0] = true
end
local function RL_ScaleWindowUp()
local _, wx, wy, ww, wh = gfx.dock(-1, 0, 0, 0, 0)
GUI.w, GUI.h = ww, wh
RL_RedrawUI()
if RL.scaleFactor > 1 then
if GUI.w < (RL.minWidth * RL.scaleFactor) + (50 * RL.scaleFactor) then RL_ResizeScaledWidth(wx, wy) end
if GUI.h < ((RL.minHeight - 100) * RL.scaleFactor) + (50 * RL.scaleFactor) then RL_ResizeScaledHeight(wx, wy) end
else
if GUI.w < RL.minWidth then RL_ResizeWidth(wx, wy) end
if GUI.h < RL.minHeight then RL_ResizeHeight(wx, wy) end
end
end
local function RL_ScaleWindowDown()
local _, wx, wy, ww, wh = gfx.dock(-1, 0, 0, 0, 0)
GUI.w, GUI.h = ww, wh
RL_RedrawUI()
if RL.scaleFactor > 1 then
if GUI.w > (RL.minWidth * RL.scaleFactor) + (50 * RL.scaleFactor) then RL_ResizeScaledWidth(wx, wy) end
if GUI.h > ((RL.minHeight - 100) * RL.scaleFactor) + (50 * RL.scaleFactor) then RL_ResizeScaledHeight(wx, wy) end
else
if GUI.w > RL.minWidth then RL_ResizeWidth(wx, wy) end
if GUI.h > RL.minHeight then RL_ResizeHeight(wx, wy) end
end
end
function RL_ScaleInterfaceToggle()
RL.fontSizes = { 30, 18, 14, 14, 14, 12 } -- default values
RL.skipOperationOnResize = true
RL_ExtStates_Save()
if RL.scaleFactor < 1.5 then
RL_InitElementScaling(2.0)
RL_ScaleWindowUp()
else
RL_InitElementScaling(1.0)
RL_ScaleWindowDown()
end
RL.skipOperationOnResize = false
end
function RL_ScaleInterfaceUp()
RL.skipOperationOnResize = true
if (RL.scaleFactor + RL.scaleStepSize) <= RL.scaleMax then
RL_InitElementScaling(RL.scaleFactor + RL.scaleStepSize)
RL_ExtStates_Save()
RL_ScaleWindowUp()
end
RL.skipOperationOnResize = false
end
function RL_ScaleInterfaceDown()
RL.skipOperationOnResize = true
if (RL.scaleFactor - RL.scaleStepSize) >= RL.scaleMin then
RL_InitElementScaling(RL.scaleFactor - RL.scaleStepSize)
RL_ExtStates_Save()
RL_ScaleWindowDown()
end
RL.skipOperationOnResize = false
end
function SetToggleState(toggleState)
local _, _, sectionID, commandID, _, _, _ = reaper.get_action_context()
reaper.SetToggleCommandState(sectionID, commandID, toggleState)
reaper.RefreshToolbar2(sectionID, commandID)
end
function Global_Redraw()
RL_ExtStates_Save()
local _, wx, wy, ww, wh = gfx.dock(-1, 0, 0, 0, 0)
local retinaAdjustment = 1.0
if RL.retinaMode == 1 then retinaAdjustment = 2.0 end
GUI.w, GUI.h = ww * retinaAdjustment, wh * retinaAdjustment
RL_RedrawUI()
if RL.scaleFactor > 1.0 then
if GUI.w * retinaAdjustment < (((RL.minWidth - 20) * RL.scaleFactor) - (50 * RL.scaleFactor)) * retinaAdjustment then RL_ResizeScaledWidth(wx, wy) end
if GUI.h * retinaAdjustment < (((RL.minHeight - 80) * RL.scaleFactor) + (50 * RL.scaleFactor)) * retinaAdjustment then RL_ResizeScaledHeight(wx, wy) end
else
if GUI.w * retinaAdjustment < RL.minWidth then RL_ResizeWidth(wx, wy) end
if GUI.h * retinaAdjustment < RL.minHeight then RL_ResizeHeight(wy, wy) end
end
end
GUI.onresize = Global_Redraw
function SetRetinaMode()
if ConfigFlags.enableHiDPIModeOptions then
local retinaMode = GUI.Val("layout_menuRetinaMode")
if retinaMode == 1 then
_, dpi = reaper.ThemeLayout_GetLayout("mcp", -3)
if dpi == "512" then gfx.ext_retina, RL.retinaMode = 1, 1 else gfx.ext_retina, RL.retinaMode = 0, 0 end
elseif retinaMode == 2 then gfx.ext_retina, RL.retinaMode = 0, 0
elseif retinaMode == 3 then gfx.ext_retina, RL.retinaMode = 1, 1 end
else
gfx.ext_retina, RL.retinaMode = 0, 0
end
end
--------------------
-- Cleanup functions
--------------------
reaper.atexit(function ()
SetToggleState(0)
RL_ExtStates_Save()
if JSAPIinstalled and ConfigFlags.enableAudioPreview then AudioPreviewStopAll() end
end)
-----------------
-- Main functions
-----------------
GUI.Init()
RL_InitCustomColors()
RL_ExtStates_Load("onStart")
SetRetinaMode()
SetToggleState(1)
if ConfigFlags.enableKeyShortcuts then RL_Keys_CheckInput() end
GUI.func = Main
GUI.freq = 0
GUI.Main()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment