From 59093dfd7aa37ea392cb163dc99895bc3723b294 Mon Sep 17 00:00:00 2001
From: Dendraspis <dendraspis@aikq.com>
Date: Fri, 8 Aug 2025 22:55:55 +0200
Subject: [PATCH] Add commands

---
 Source/Forms/MainForm.vb         |   7 +-
 Source/General/GlobalCommands.vb | 151 +++++++++++++++++++++++++++++--
 Source/General/Misc.vb           |   5 +-
 3 files changed, 149 insertions(+), 14 deletions(-)

diff --git a/Source/Forms/MainForm.vb b/Source/Forms/MainForm.vb
index d300835b..386215e3 100644
--- a/Source/Forms/MainForm.vb
+++ b/Source/Forms/MainForm.vb
@@ -8090,8 +8090,13 @@ Public Class MainForm
                 g.ProcForm.Close()
             End If
         End If
+
+        Try
+            g.RaiseAppEvent(ApplicationEvent.ApplicationExit)
+        Catch ex As Exception
+        End Try
+
         g.SaveSettings()
-        g.RaiseAppEvent(ApplicationEvent.ApplicationExit)
     End Sub
 
     Protected Overrides Sub OnDeactivate(e As EventArgs)
diff --git a/Source/General/GlobalCommands.vb b/Source/General/GlobalCommands.vb
index ca5c9fe7..f1c33df9 100644
--- a/Source/General/GlobalCommands.vb
+++ b/Source/General/GlobalCommands.vb
@@ -491,6 +491,36 @@ Public Class GlobalCommands
         p.Script.SetFilter(category, name, script)
     End Sub
 
+    <Command("Disables filters by name.")>
+    Sub DisableFilterNames(<DispName("Filter Names")> filterNames As String())
+        If filterNames.Any() Then
+            For Each filter In p.Script.Filters
+                For Each name In filterNames
+                    If filter.Name = name.TrimQuotes() Then
+                        filter.Active = False
+                    End If
+                Next
+            Next
+
+            g.MainForm.FiltersListView.Load()
+        End If
+    End Sub
+
+    <Command("Enables filters by name.")>
+    Sub EnableFilterNames(<DispName("Filter Names")> filterNames As String())
+        If filterNames.Any() Then
+            For Each filter In p.Script.Filters
+                For Each name In filterNames
+                    If filter.Name = name.TrimQuotes() Then
+                        filter.Active = True
+                    End If
+                Next
+            Next
+
+            g.MainForm.FiltersListView.Load()
+        End If
+    End Sub
+
     <Command("Sets the file path of the target file.")>
     Sub SetTargetFile(<DispName("Target File Path")>
                       <Editor(GetType(MacroStringTypeEditor), GetType(UITypeEditor))>
@@ -910,10 +940,55 @@ Public Class GlobalCommands
     End Sub
 
     <Command("Adds attachments to the container (works only with mkvmerge).")>
-    Sub AddAttachments(<DispName("Attachments")> attachments As String())
+    Sub AddAttachments(<DispName("File Paths")> attachments As String())
         For Each i In attachments
             If i.FileExists() Then
-                p.VideoEncoder.Muxer.Attachments.Add(i)
+                p.VideoEncoder.Muxer.Attachments.Add(i.TrimQuotes())
+            End If
+        Next
+    End Sub
+
+    <Command("Adds a chapters file to the container.")>
+    Sub AddChaptersFile(<DispName("File Path")> filepath As String)
+        If filepath.FileExists() Then
+            p.VideoEncoder.Muxer.ChapterFile = filepath.TrimQuotes()
+        End If
+    End Sub
+
+    <Command("Add a subtitle file to the container.")>
+    Sub AddSubtitle(<DispName("Enabled"), Description("Enabled or not"), DefaultValue(True)> enabled As Boolean,
+                    <DispName("Language"), Description("Language code or name"), DefaultValue("")> lang As String,
+                    <DispName("Name"), Description("Name/Title of the subtitle"), DefaultValue("")> name As String,
+                    <DispName("Default"), Description("Default flag"), DefaultValue(False)> [default] As Boolean,
+                    <DispName("Forced"), Description("Forced flag"), DefaultValue(False)> forced As Boolean,
+                    <DispName("Commentary"), Description("Commentary flag"), DefaultValue(False)> commentary As Boolean,
+                    <DispName("Hearing-Impaired"), Description("Hearing-Impaired flag"), DefaultValue(False)> hearingimpaired As Boolean,
+                    <DispName("File Path"), Description("Full path of the subtitle file"), DefaultValue("")> filepath As String
+                   )
+        If Not filepath.FileExists() Then Return
+        
+        Dim subtitles = Subtitle.Create(filepath.TrimQuotes())
+
+        For Each subtitle In subtitles
+            subtitle.Enabled = enabled
+            subtitle.Language = g.ExtractLanguageFromPath(lang)
+            subtitle.Title = name
+            subtitle.Default = [default]
+            subtitle.Forced = forced
+            subtitle.Commentary = commentary
+            subtitle.Hearingimpaired = hearingimpaired
+        Next
+
+        If subtitles.Any() Then
+            p.VideoEncoder.Muxer.Subtitles.AddRange(subtitles)
+        End If
+    End Sub
+
+    <Command("Adds subtitles to the container.")>
+    Sub AddSubtitles(<DispName("File Paths")> subtitles As String())
+        For Each i In subtitles
+            If i.FileExists() Then
+                p.VideoEncoder.Muxer.Subtitles.AddRange(Subtitle.Create(i.TrimQuotes()))
             End If
         Next
     End Sub
@@ -921,22 +996,78 @@ Public Class GlobalCommands
     <Command("Adds a tag file to the container (works only with mkvmerge).")>
     Sub AddTagFile(<DispName("File Path")> filepath As String)
         If filepath.FileExists() Then
-            p.VideoEncoder.Muxer.TagFile = filepath
+            p.VideoEncoder.Muxer.TagFile = filepath.TrimQuotes()
         End If
     End Sub
 
     <Command("Adds tags to the container (works only with mkvmerge).")>
-    Sub AddTags(
-        <DispName("Tags"),
-        Description("name 1 = value 1; name 2 = value 2; etc.")>
-        tags As String)
-
+    Sub AddTags(<DispName("Tags"), Description("name 1 = value 1; name 2 = value 2; etc.")> tags As String)
         For Each i In tags.Split(";"c)
             If i.Contains("=") Then
-                Dim left = i.Left("=").Trim
-                Dim right = i.Right("=").Trim
+                Dim left = i.Left("=").Trim().TrimQuotes()
+                Dim right = i.Right("=").Trim().TrimQuotes()
                 p.VideoEncoder.Muxer.Tags.Add(New StringPair(left, right))
             End If
         Next
     End Sub
+
+    <Command("Sets the container title (works only with mkvmerge).")>
+    Sub SetTitle(<DispName("Title")> title As String)
+        If Not String.IsNullOrWhiteSpace(title.TrimQuotes()) Then
+            Dim muxer = TryCast(p.VideoEncoder.Muxer, MkvMuxer)
+
+            If muxer IsNot Nothing Then
+                muxer.Title = title.TrimQuotes()
+            End If
+        End If
+    End Sub
+
+    <Command("Sets the video track language (works only with mkvmerge).")>
+    Sub SetVideoTrackLanguage(<DispName("Language")> lang As String)
+        lang = lang.TrimQuotes()
+        lang = If(Language.ConfusingThreeLetterISOLanguageNames.Contains(lang), $"[{lang}]", lang)
+        lang = If(Language.ConfusingTwoLetterISOLanguageNames.Contains(lang), $"[{lang}]", lang)
+        Dim el = g.ExtractLanguageFromPath(lang)
+
+        If el IsNot Nothing Then
+            Dim muxer = TryCast(p.VideoEncoder.Muxer, MkvMuxer)
+
+            If muxer IsNot Nothing Then
+                muxer.VideoTrackLanguage = el
+            End If
+        End If
+    End Sub
+
+    <Command("Sets the video track name.")>
+    Sub SetVideoTrackName(<DispName("Name")> trackName As String)
+        If Not String.IsNullOrWhiteSpace(trackName) Then
+            p.VideoEncoder.Muxer.VideoTrackName = trackName
+        End If
+    End Sub
+
+    <Command("Disables events by name.")>
+    Sub DisableEvents(<DispName("Event Names")> eventNames As String())
+        If eventNames.Any() AndAlso s.EventCommands.Any() Then
+            For Each ec As EventCommand In s.EventCommands
+                For Each en As String In eventNames
+                    If ec.Name = en.TrimQuotes() Then
+                        ec.Enabled = False
+                    End If
+                Next
+            Next
+        End If
+    End Sub
+
+    <Command("Enables events by name.")>
+    Sub EnableEvents(<DispName("Event Names")> eventNames As String())
+        If eventNames.Any() AndAlso s.EventCommands.Any() Then
+            For Each ec As EventCommand In s.EventCommands
+                For Each en As String In eventNames
+                    If ec.Name = en.TrimQuotes() Then
+                        ec.Enabled = True
+                    End If
+                Next
+            Next
+        End If
+    End Sub
 End Class
diff --git a/Source/General/Misc.vb b/Source/General/Misc.vb
index ad0b6685..5701b32b 100644
--- a/Source/General/Misc.vb
+++ b/Source/General/Misc.vb
@@ -1517,11 +1517,10 @@ Public Class Subtitle
     End Property
 
     Shared Function Create(path As String) As List(Of Subtitle)
+        path = path.TrimQuotes()
         Dim ret As New List(Of Subtitle)
 
-        If New FileInfo(path).Length = 0 Then
-            Return ret
-        End If
+        If New FileInfo(path).Length = 0 Then Return ret
 
         If path.Ext = "idx" Then
             Dim indexData As Integer