rxfx_TuringComplete: cleanup

Author: rexendevar

Web Interfaces/rxfx_Turing-complete/rxfx_Turing-complete - New project.lua

@@ -10,16 +10,15 @@ function NewProject()
     if reaper.CountMediaItems(0) ~= 0 then
       reaper.SetExtState("Fanciest","ProjectSave","autosave_"..os.date(),false)
       local scriptFolder = ({ reaper.get_action_context() })[2]:match('^.+[\\//]')
-      dofile(scriptFolder.."rxfx_CustomFancy_SaveProjectAs.lua")
+      dofile(scriptFolder.."rxfx_Turing-complete - Save project as.lua")
     end
   end
-  
+
   -- open selected project
   local folder = reaper.GetExtState("Fanciest", "ProjectFolder")
   local projectFile = reaper.GetExtState("Fanciest", "ProjectLoad")
   reaper.Main_openProject("noprompt:/")
-  
+
 end
 
 NewProject()
-

Web Interfaces/rxfx_Turing-complete/rxfx_Turing-complete - Open selected project.lua

@@ -10,16 +10,15 @@ function OpenSelectedProject()
     if reaper.CountMediaItems(0) ~= 0 then
       reaper.SetExtState("Fanciest","ProjectSave","autosave_"..os.date(),false)
       local scriptFolder = ({ reaper.get_action_context() })[2]:match('^.+[\\//]')
-      dofile(scriptFolder.."rxfx_CustomFancy_SaveProjectAs.lua")
+      dofile(scriptFolder.."rxfx_Turing-complete - Save project as.lua")
     end
   end
-  
+
   -- open selected project
   local folder = reaper.GetExtState("Fanciest", "ProjectFolder")
   local projectFile = reaper.GetExtState("Fanciest", "ProjectLoad")
   reaper.Main_openProject("noprompt:" .. folder .. projectFile)
-  
+
 end
 
 OpenSelectedProject()
-

Web Interfaces/rxfx_Turing-complete/rxfx_Turing-complete - Read current project.lua

@@ -1,11 +1,11 @@
 -- @noindex
 
 
-function SendProjectList()
+function ReadCurrentProject()
   -- send project name
   ProjectName=reaper.GetProjectName(0)
   reaper.SetExtState("Fanciest","CurrentProject",ProjectName,false)
-  
+
   -- send loop points (by marker index)
   local first, second = reaper.GetSet_LoopTimeRange(0, 0, 0, 0, 0)
   count = reaper.GetNumRegionsOrMarkers(0)
@@ -22,7 +22,7 @@ function SendProjectList()
   n[#n+1] = "end"
   m[#m+1] = 0
   n[#n+1] = "home"
-  
+
   for idx, val in ipairs(m) do
     if math.abs(first-val)<0.02 then
       finalfirst = n[idx]
@@ -31,7 +31,7 @@ function SendProjectList()
   if finalfirst == nil then
     reaper.GetSet_LoopTimeRange(1, 0, 0, 0, 0)
   end
-  
+
   for idx, val in ipairs(m) do
     if math.abs(second-val)<0.02 then
       finalsecond = n[idx]
@@ -40,13 +40,13 @@ function SendProjectList()
   if finalsecond == nil then
     reaper.GetSet_LoopTimeRange(1, 0, 0, 0, 0)
   end
-  
-  if finalfirst ~= finalsecond and finalfirst ~= nil and finalsecond ~= nil then 
+
+  if finalfirst ~= finalsecond and finalfirst ~= nil and finalsecond ~= nil then
     reaper.SetExtState("Fanciest","SelectDisplay",finalfirst..':'..finalsecond,false)
   else
     reaper.SetExtState("Fanciest","SelectDisplay","none",false)
   end
-  
+
   -- send track arm states
   count = reaper.CountTracks(0)
   local arms = {}
@@ -67,4 +67,4 @@ function SendProjectList()
   reaper.SetExtState("Fanciest","ArmDisplay",armstring,false)
 end
 
-SendProjectList()
+ReadCurrentProject()

Web Interfaces/rxfx_Turing-complete/rxfx_Turing-complete - Save project as.lua

@@ -3,24 +3,24 @@
 
 function SaveProjectAs()
   local folder = reaper.GetExtState("Fanciest", "ProjectFolder")
-  
+
   local oldProject = reaper.GetProjectName(0):gsub(".RPP","")
   local projectFile = reaper.GetExtState("Fanciest", "ProjectSave")
   reaper.Main_SaveProjectEx(0, folder .. projectFile .. ".RPP", 8)
   local projectStorage = reaper.GetProjectName(0):gsub(".RPP","")
-  
+
   reaper.GetSetProjectInfo_String(0, "RECORD_PATH", projectStorage, 1)
   --reaper.ShowConsoleMsg('\n\n'..oldProject..'vs'..projectStorage..'\n')
   os.execute('mkdir "'..folder..projectStorage..'"')
-  
+
   -- move all recordings
   local numItems = reaper.CountMediaItems(0)
   for i=0,numItems-1 do
     local currentItem = reaper.GetMediaItem(0, i)
     local numTakes = reaper.GetMediaItemNumTakes(currentItem)
     for n=0,numTakes-1 do
       local currentTake = reaper.GetMediaItemTake(currentItem,n)
-      --if currentTake == nil then 
+      --if currentTake == nil then
       if currentTake ~= nil then
         local currentSource = reaper.GetMediaItemTake_Source(currentTake)
         local currentFilename = reaper.GetMediaSourceFileName(currentSource):gsub(folder,'')
@@ -42,17 +42,17 @@ function SaveProjectAs()
     end
   end
   reaper.Main_SaveProject()
-  
+
   --delete old project - not ideal but a missing files warning is currently unrecoverable
   if oldProject ~= projectStorage then
     if not os.remove(folder..oldProject) then
       os.rename(folder..oldProject,folder.."orphans_"..oldProject)
     end
     os.remove(folder..oldProject..'.RPP')
+    os.remove(folder..oldProject..'.rpp')
   end
-    
+
   --reaper.ShowConsoleMsg(reaper.GetProjectPath())
 end
 
 SaveProjectAs()
-

Web Interfaces/rxfx_Turing-complete/rxfx_Turing-complete - Send project list.lua

@@ -1,18 +1,11 @@
 -- @noindex
 
-
-function GetProjectFolder()
-  reaper.SetExtState("Fanciest","ProjectFolder","/home/flynn/Music/",true)
-end
-  
--- GetProjectFolder()
-
 function SendProjectList()
   local folder = reaper.GetExtState("Fanciest","ProjectFolder")
   local ext = "rpp"
   local files = {}
   project_list = {}
-  
+
   local i = 0
   repeat
       local file = reaper.EnumerateFiles(folder, i)
@@ -21,7 +14,7 @@ function SendProjectList()
       end
       i = i + 1
   until not file
-  
+
   -- files now contains all .rpp filenames in that folder
   for _, f in ipairs(files) do
       --reaper.ShowConsoleMsg(f .. "\n")
@@ -33,4 +26,3 @@ function SendProjectList()
 end
 
 SendProjectList()
-

Web Interfaces/rxfx_Turing-complete/rxfx_Turing-complete - Set time selection from markers.lua

@@ -1,7 +1,7 @@
 -- @noindex
 
 
-function OpenSelectedProject()
+function SetTimeSelection()
   values = reaper.GetExtState("Fanciest","MarkerLoop")
   local t = {}
   for str in string.gmatch(values, "([^:]+)") do
@@ -11,8 +11,8 @@ function OpenSelectedProject()
   for i=1, reaper.GetNumRegionsOrMarkers(0) do
     table.insert(ms, reaper.GetRegionOrMarkerInfo_Value(0, reaper.GetRegionOrMarker(0, i-1,""), "I_NUMBER"))
   end
-  
-  
+
+
   if t[1] == "home" then
     first = 0
   elseif t[1] == "end" then
@@ -40,8 +40,7 @@ function OpenSelectedProject()
     second = reaper.GetRegionOrMarkerInfo_Value(0, wip, "D_STARTPOS")
   end
   reaper.GetSet_LoopTimeRange(1, 0, first, second, true)
-  
-end
 
-OpenSelectedProject()
+end
 
+SetTimeSelection()