From 58622be1b14c967a9e7f2d8bd26f656e491b90f1 Mon Sep 17 00:00:00 2001
From: Manuel Thalmann <m@nuth.ch>
Date: Mon, 17 Jul 2023 16:02:33 +0200
Subject: [PATCH] Set icons to a bearable size

---
 scripts/Windows/Config/Windows/Install.ps1 | 14 ++++++++++++++
 scripts/Windows/OS/Install.ps1             |  1 +
 2 files changed, 15 insertions(+)
 create mode 100644 scripts/Windows/Config/Windows/Install.ps1

diff --git a/scripts/Windows/Config/Windows/Install.ps1 b/scripts/Windows/Config/Windows/Install.ps1
new file mode 100644
index 00000000..146440d6
--- /dev/null
+++ b/scripts/Windows/Config/Windows/Install.ps1
@@ -0,0 +1,14 @@
+#!/bin/pwsh
+param($context)
+Write-Host "Configuring Windows";
+
+$action = {
+    param([Microsoft.Win32.RegistryKey] $userKey)
+
+    $spacingProperty = "IconSpacing";
+    $keyPath = "$($userKey.PSPath)\Control Panel\Desktop\WindowMetrics";
+    Rename-ItemProperty $keyPath $spacingProperty "_$spacingProperty";
+    Set-ItemProperty $keyPath -Name $spacingProperty -Value "-1710" -Type "String";
+}
+
+$context.ProcessDefaultUserKey($action);
diff --git a/scripts/Windows/OS/Install.ps1 b/scripts/Windows/OS/Install.ps1
index 43e0343b..da35d0cf 100644
--- a/scripts/Windows/OS/Install.ps1
+++ b/scripts/Windows/OS/Install.ps1
@@ -14,6 +14,7 @@ function Invoke-WindowsInstallation([Context] $context)
     if (-not $context.Get("InitialConfiguration")) {
         $configPath = "$PSScriptRoot/../Config";
 
+        . "$configPath/Windows/Install.ps1" $context;
         . "$configPath/Explorer/Install.ps1" $context;
         . "$configPath/OpenSSH/Install.ps1" $context;