Update ties_remove_dangling.lua

Author: jwink75

src/ties_remove_dangling.lua

@@ -1,29 +1,29 @@
 function plugindef()
-    -- This function and the 'finaleplugin' namespace
-    -- are both reserved for the plug-in definition.
-    finaleplugin.Author = "Jacob Winkler"
-    finaleplugin.Copyright = "2022"
-    finaleplugin.Version = "1.1"
-    finaleplugin.Date = "2022-09-04"
-    finaleplugin.AuthorEmail = "[email protected]"
-    finaleplugin.AdditionalMenuOptions = [[
+  -- This function and the 'finaleplugin' namespace
+  -- are both reserved for the plug-in definition.
+  finaleplugin.Author = "Jacob Winkler"
+  finaleplugin.Copyright = "2024"
+  finaleplugin.Version = "1.2&"
+  finaleplugin.Date = "2024-02-06"
+  finaleplugin.AuthorEmail = "[email protected]"
+  finaleplugin.AdditionalMenuOptions = [[
     Ties: Replace Dangling w/Slurs
     ]]
-    finaleplugin.AdditionalUndoText = [[
+  finaleplugin.AdditionalUndoText = [[
     Ties: Replace Dangling w/Slurs
     ]]
-    finaleplugin.AdditionalDescriptions = [[
+  finaleplugin.AdditionalDescriptions = [[
     Removes dangling ties and replaces them with slurs
     ]]
-    finaleplugin.AdditionalPrefixes = [[
+  finaleplugin.AdditionalPrefixes = [[
     replace_with_slur = true
     ]]
-      finaleplugin.Notes = [[
+  finaleplugin.Notes = [[
       TIES: REMOVE DANGLING
       
       This script will search for 'dangling ties' - ties that go to rests rather than other notes - and either remove them or replace them with slurs.
       ]]
-    return "Ties: Remove Dangling", "Ties: Remove Dangling", "Removes dangling ties (ties that go nowhere)."
+  return "Ties: Remove Dangling", "Ties: Remove Dangling", "Removes dangling ties (ties that go nowhere)."
 end
 
 replace_with_slur = replace_with_slur or false
@@ -32,30 +32,46 @@ local tie = require("library.tie")
 local smartshape = require("library.smartshape")
 
 local music_region = finale.FCMusicRegion()
-music_region:SetFullDocument()
+music_region:SetCurrentSelection()
+
+if music_region:IsEmpty() then
+  local str1 = finale.FCString()
+  local str2 = finale.FCString()
+  str1.LuaString = "Process whole document?"
+  str2.LuaString = "No Selection."
+  local ui = finenv.UI()
+  local result = ui:AlertYesNo(str1.LuaString, str2.LuaString)
+  if result == 2 then
+    music_region:SetFullDocument()
+  else
+    goto bypass
+  end
+end
 
 for working_staff = music_region:GetStartStaff(), music_region:GetEndStaff() do
-    for layer_num = 0, 3, 1 do
-        local note_entry_layer = finale.FCNoteEntryLayer(layer_num, working_staff, music_region.StartMeasure, music_region.EndMeasure)
-        note_entry_layer:Load()
-        for index = 0, note_entry_layer.Count-1, 1 do
-            local entry = note_entry_layer:GetRegionItemAt(index, music_region)
-            if entry and entry:IsTied() then
-                for note in each(entry) do
-                    local tie_must_exist = true
-                    local tied_note = tie.calc_tied_to(note, tie_must_exist)
-                    if not tied_note then
-                        note.Tie = false
-                        if replace_with_slur then
-                            local next_entry = note_entry_layer:GetRegionItemAt(index + 1, music_region)
-                            if next_entry then
-                                smartshape.add_entry_based_smartshape(entry, next_entry)
-                            end
-                        end
-                    end
-                end
+  for layer_num = 0, 3, 1 do
+    local note_entry_layer = finale.FCNoteEntryLayer(layer_num, working_staff, music_region.StartMeasure, music_region.EndMeasure)
+    note_entry_layer:Load()
+    for index = 0, note_entry_layer.Count-1, 1 do
+      local entry = note_entry_layer:GetRegionItemAt(index, music_region)
+      if entry and entry:IsTied() then
+        for note in each(entry) do
+          local tie_must_exist = true
+          local tied_note = tie.calc_tied_to(note, tie_must_exist)
+          if not tied_note then
+            note.Tie = false
+            if replace_with_slur then
+              local next_entry = note_entry_layer:GetRegionItemAt(index + 1, music_region)
+              if next_entry then
+                smartshape.add_entry_based_smartshape(entry, next_entry)
+              end
             end
+          end
         end
-        note_entry_layer:Save()
+      end
     end
-end
+    note_entry_layer:Save()
+  end
+end
+
+::bypass::