Add settings to enable/disable folder monitoring and background compression

Author: Iridium-IO

CompactGUI.Watcher/IdleDetector.vb

@@ -12,6 +12,8 @@ Public Class IdleDetector
 
     Public Shared Paused As Boolean = False
 
+    Public Shared Property IsEnabled As Boolean = True
+
     Shared Sub New()
         _idletimer = New PeriodicTimer(TimeSpan.FromSeconds(2))
     End Sub
@@ -32,10 +34,10 @@ Public Class IdleDetector
         Try
             While Await IdleDetector._idletimer.WaitForNextTickAsync(_cts.Token) AndAlso Not _cts.Token.IsCancellationRequested
 
-                If GetIdleTime() > 300 AndAlso Not Paused Then
+                If GetIdleTime() > 300 AndAlso Not Paused AndAlso IsEnabled Then
                     RaiseEvent IsIdle(Nothing, EventArgs.Empty)
 
-                ElseIf Not Paused Then
+                ElseIf Not Paused AndAlso IsEnabled Then
                     RaiseEvent IsNotIdle(Nothing, EventArgs.Empty)
                 End If
 

CompactGUI.Watcher/Watcher.vb

@@ -16,6 +16,8 @@ Public Class Watcher : Inherits ObservableObject
     <PropertyChanged.AlsoNotifyFor(NameOf(TotalSaved))>
     Public Property LastAnalysed As DateTime
 
+    Public Shared Property IsWatchingEnabled As Boolean = True
+    Public Shared Property IsBackgroundCompactingEnabled As Boolean = True
 
     Private ReadOnly _DataFolder As New IO.DirectoryInfo(IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "IridiumIO", "CompactGUI"))
     Private ReadOnly Property WatcherJSONFile As IO.FileInfo = New IO.FileInfo(IO.Path.Combine(_DataFolder.FullName, "watcher.json"))
@@ -204,13 +206,16 @@ Public Class Watcher : Inherits ObservableObject
 
 
     Private Async Sub OnSystemIdle()
+
+        If Not IsWatchingEnabled Then Return
+
         Dim recentThresholdDate As DateTime = DateTime.Now.AddSeconds(-LAST_SYSTEM_MODIFIED_TIME_THRESHOLD)
         If FolderMonitors.Any(Function(x) x.LastChangedDate > recentThresholdDate) Then Return
 
-        If Not _parseWatchersSemaphore.CurrentCount = 0 Then
+        If Not _parseWatchersSemaphore.CurrentCount = 0 AndAlso IsWatchingEnabled Then
             Await ParseWatchers()
         End If
-        If Not _parseWatchersSemaphore.CurrentCount = 0 Then
+        If Not _parseWatchersSemaphore.CurrentCount = 0 AndAlso IsBackgroundCompactingEnabled Then
             Await BackgroundCompact()
         End If
     End Sub

CompactGUI/Components/Settings/Settings_main.xaml

@@ -8,13 +8,13 @@
  d:Background="White"
       Title="Settings_main">
 
-    <StackPanel>
+    <StackPanel >
         <Label Content="Filetype Management" FontWeight="SemiBold"/>
 
-        <StackPanel Margin="10,20,0,10">
-            <Grid Margin="0,0,0,10">
+        <StackPanel Margin="10,10,0,7">
+            <Grid Margin="0,0,0,7">
                 <TextBlock  FontSize="14" VerticalAlignment="Center">manage local skipped filetypes</TextBlock>
-                <Button x:Name="uiEditSkipListBTN" IsEnabled="True" HorizontalAlignment="Right" Width="100" Margin="0,0,25,0" Height="36" BorderThickness="0" Click="uiEditSkipListBTN_Click" Content="edit"></Button>
+                <Button x:Name="uiEditSkipListBTN" IsEnabled="True" HorizontalAlignment="Right" Width="100" Margin="0,0,25,0" Height="32" BorderThickness="0" Click="uiEditSkipListBTN_Click" Content="edit"></Button>
             </Grid>
 
             <Grid>
@@ -27,7 +27,7 @@
                     </ui:FlyoutBase.AttachedFlyout>
                 </TextBlock>
 
-                <ComboBox x:Name="comboBoxSkipUserResultsAggression" IsEnabled="False" SelectedIndex="0" HorizontalAlignment="Right" VerticalAlignment="Center" HorizontalContentAlignment="Left" Width="100" Height="36" Margin="0,0,25,0" Background="Transparent" Foreground="#98A9B9" BorderBrush="#98A9B9" BorderThickness="1">
+                <ComboBox x:Name="comboBoxSkipUserResultsAggression" IsEnabled="False" SelectedIndex="0" HorizontalAlignment="Right" VerticalAlignment="Center" HorizontalContentAlignment="Left" Width="100" Height="32" Margin="0,0,25,0" Background="Transparent" Foreground="#98A9B9" BorderBrush="#98A9B9" BorderThickness="1">
                     <ComboBoxItem>
                         <TextBlock Text="low" FontSize="14" FontWeight="SemiBold" Foreground="#98A9B9" />
                     </ComboBoxItem>
@@ -43,20 +43,34 @@
 
         </StackPanel>
 
-        <Separator Margin="0,10,0,20"/>
+        <Separator Margin="0,10,0,10"/>
         <Label Content="System Integration" FontWeight="SemiBold"/>
-        <StackPanel Margin="10,20,0,10">
-            <CheckBox x:Name="uiIsContextEnabled" Margin="0,0,0,10" >add to right-click context menu</CheckBox>
+        <StackPanel Margin="10,10,0,7">
+            <CheckBox x:Name="uiIsContextEnabled"  >add to right-click context menu</CheckBox>
             <CheckBox x:Name="uiIsStartMenuEnabled" IsEnabled="False" Visibility="Collapsed">add to start menu</CheckBox>
             <CheckBox x:Name="uiShowNotifications" IsEnabled="True" Checked="uiShowNotifications_Checked" Unchecked="uiShowNotifications_Unchecked">show notification on completion</CheckBox>
 
         </StackPanel>
-        <Separator Margin="0,10,0,20"/>
+        <Separator Margin="0,10,0,10"/>
+
+        <Label Content="Background Watcher Settings" FontWeight="SemiBold"/>
+        <StackPanel Margin="10,10,0,7">
+            <CheckBox x:Name="uiEnableBackgroundWatcher" Checked="uiEnableBackgroundWatcher_Checked" Unchecked="uiEnableBackgroundWatcher_Unchecked">monitor compressed folders for changes</CheckBox>
+            <CheckBox x:Name="uiEnableBackgroundAutoCompression" Margin="30,0,0,0" Checked="uiEnableBackgroundAutoCompression_Checked" Unchecked="uiEnableBackgroundAutoCompression_Unchecked">periodically check and keep folders compressed</CheckBox>
+     
+    </StackPanel>
+        <Separator Margin="0,10,0,10"/>      
+      
+      
+      
+      
+      
+      
         <Label Content="UI Scaling" FontWeight="SemiBold"/>
 
-            <Slider Margin="15,20,15,20" x:Name="uiScalingFactor" Orientation="Horizontal" Value="1" Minimum="0.5" Maximum="1.5" IsSnapToTickEnabled="True" TickFrequency="0.125" TickPlacement="BottomRight" PreviewMouseUp="uiScalingFactor_PreviewMouseUp" PreviewKeyUp="uiScalingFactor_PreviewKeyUp" LargeChange="0.125" SmallChange="0.125" />
+            <Slider Margin="15,10,15,20" x:Name="uiScalingFactor" Orientation="Horizontal" Value="1" Minimum="0.5" Maximum="1.5" IsSnapToTickEnabled="True" TickFrequency="0.125" TickPlacement="BottomRight" PreviewMouseUp="uiScalingFactor_PreviewMouseUp" PreviewKeyUp="uiScalingFactor_PreviewKeyUp" LargeChange="0.125" SmallChange="0.125" />
 
-        <Separator Margin="0,0,0,45"/>
+        <Separator Margin="0,0,0,30"/>
         <Grid HorizontalAlignment="Center">
             <Grid.ColumnDefinitions>
                 <ColumnDefinition Width="*"/>

CompactGUI/Components/Settings/Settings_main.xaml.vb

@@ -13,6 +13,8 @@ Class Settings_main
         uiIsContextEnabled.IsChecked = SettingsHandler.AppSettings.IsContextIntegrated
         uiIsStartMenuEnabled.IsChecked = SettingsHandler.AppSettings.IsStartMenuEnabled
         uiShowNotifications.IsChecked = SettingsHandler.AppSettings.ShowNotifications
+        uiEnableBackgroundWatcher.IsChecked = SettingsHandler.AppSettings.EnableBackgroundWatcher
+        uiEnableBackgroundAutoCompression.IsChecked = SettingsHandler.AppSettings.EnableBackgroundAutoCompression
         comboBoxSkipUserResultsAggression.SelectedIndex = SettingsHandler.AppSettings.SkipUserFileTypesLevel
         uiScalingFactor.Value = SettingsHandler.AppSettings.WindowScalingFactor
         SetEnv()
@@ -92,4 +94,26 @@ Class Settings_main
         Process.Start(New ProcessStartInfo("https://github.com/IridiumIO/CompactGUI") With {.UseShellExecute = True})
 
     End Sub
+
+    Private Sub uiEnableBackgroundWatcher_Checked(sender As Object, e As RoutedEventArgs)
+        SettingsHandler.AppSettings.EnableBackgroundWatcher = True
+        SettingsHandler.AppSettings.Save()
+    End Sub
+
+    Private Sub uiEnableBackgroundWatcher_Unchecked(sender As Object, e As RoutedEventArgs)
+        uiEnableBackgroundAutoCompression.IsChecked = False
+        SettingsHandler.AppSettings.EnableBackgroundWatcher = False
+        SettingsHandler.AppSettings.Save()
+    End Sub
+
+    Private Sub uiEnableBackgroundAutoCompression_Checked(sender As Object, e As RoutedEventArgs)
+        uiEnableBackgroundWatcher.IsChecked = True
+        SettingsHandler.AppSettings.EnableBackgroundAutoCompression = True
+        SettingsHandler.AppSettings.Save()
+    End Sub
+
+    Private Sub uiEnableBackgroundAutoCompression_Unchecked(sender As Object, e As RoutedEventArgs)
+        SettingsHandler.AppSettings.EnableBackgroundAutoCompression = False
+        SettingsHandler.AppSettings.Save()
+    End Sub
 End Class

CompactGUI/Models/SetttingsHandler.vb

@@ -96,6 +96,29 @@ Public Class Settings : Inherits ObservableObject
     Public Property IsStartMenuEnabled As Boolean = False
     Public Property SkipUserFileTypesLevel As Integer = 0
     Public Property ShowNotifications As Boolean = False
+
+    Private _EnableBackgroundWatcher As Boolean = True
+    Public Property EnableBackgroundWatcher As Boolean
+        Get
+            Return _EnableBackgroundWatcher
+        End Get
+        Set(value As Boolean)
+            _EnableBackgroundWatcher = value
+            Watcher.Watcher.IsWatchingEnabled = value
+        End Set
+    End Property
+
+    Private _EnableBackgroundAutoCompression As Boolean = True
+    Public Property EnableBackgroundAutoCompression As Boolean
+        Get
+            Return _EnableBackgroundAutoCompression
+        End Get
+        Set(value As Boolean)
+            _EnableBackgroundAutoCompression = value
+            Watcher.Watcher.IsBackgroundCompactingEnabled = value
+        End Set
+    End Property
+
     Private _WindowScalingFactor = 1
     Public Property WindowScalingFactor As Double
         Get