From 1cf57052834731a8cabf644032e9147606ac0ed1 Mon Sep 17 00:00:00 2001
From: Chris Montgomery <chris@alley.co>
Date: Fri, 24 Dec 2021 17:48:08 -0500
Subject: [PATCH] defaults: add options for common `universalaccess` settings

---
 modules/module-list.nix                     |  1 +
 modules/system/defaults-write.nix           |  3 ++
 modules/system/defaults/universalaccess.nix | 38 +++++++++++++++++++++
 tests/system-defaults-write.nix             |  6 ++++
 4 files changed, 48 insertions(+)
 create mode 100644 modules/system/defaults/universalaccess.nix

diff --git a/modules/module-list.nix b/modules/module-list.nix
index e7fd2afc..30a83b9b 100644
--- a/modules/module-list.nix
+++ b/modules/module-list.nix
@@ -21,6 +21,7 @@
   ./system/defaults/SoftwareUpdate.nix
   ./system/defaults/spaces.nix
   ./system/defaults/trackpad.nix
+  ./system/defaults/universalaccess.nix
   ./system/etc.nix
   ./system/keyboard.nix
   ./system/launchd.nix
diff --git a/modules/system/defaults-write.nix b/modules/system/defaults-write.nix
index 0357a1e0..e58c3acf 100644
--- a/modules/system/defaults-write.nix
+++ b/modules/system/defaults-write.nix
@@ -39,6 +39,7 @@ let
   spaces = defaultsToList "com.apple.spaces" cfg.spaces;
   trackpad = defaultsToList "com.apple.AppleMultitouchTrackpad" cfg.trackpad;
   trackpadBluetooth = defaultsToList "com.apple.driver.AppleBluetoothMultitouch.trackpad" cfg.trackpad;
+  universalaccess = defaultsToList "com.apple.universalaccess" cfg.universalaccess;
 
   mkIfAttrs = list: mkIf (any (attrs: attrs != { }) list);
 in
@@ -74,6 +75,7 @@ in
         spaces
         trackpad
         trackpadBluetooth
+        universalaccess
       ]
       ''
         # Set defaults
@@ -91,6 +93,7 @@ in
         ${concatStringsSep "\n" spaces}
         ${concatStringsSep "\n" trackpad}
         ${concatStringsSep "\n" trackpadBluetooth}
+        ${concatStringsSep "\n" universalaccess}
       '';
 
   };
diff --git a/modules/system/defaults/universalaccess.nix b/modules/system/defaults/universalaccess.nix
new file mode 100644
index 00000000..85cae543
--- /dev/null
+++ b/modules/system/defaults/universalaccess.nix
@@ -0,0 +1,38 @@
+{ config, lib, ... }:
+
+with lib;
+
+{
+  options = {
+
+    system.defaults.universalaccess.reduceTransparency = mkOption {
+      type = types.nullOr types.bool;
+      default = null;
+      description = ''
+        Disable transparency in the menu bar and elsewhere.
+        Requires macOS Yosemite or later.
+        The default is false.
+      '';
+    };
+
+    system.defaults.universalaccess.closeViewScrollWheelToggle = mkOption {
+      type = types.nullOr types.bool;
+      default = null;
+      description = ''
+        Use scroll gesture with the Ctrl (^) modifier key to zoom.
+        The default is false.
+      '';
+    };
+
+    system.defaults.universalaccess.closeViewZoomFollowsFocus = mkOption {
+      type = types.nullOr types.bool;
+      default = null;
+      description = ''
+        Follow the keyboard focus while zoomed in.
+        Without setting `closeViewScrollWheelToggle` this has no effect.
+        The default is false.
+      '';
+    };
+
+  };
+}
diff --git a/tests/system-defaults-write.nix b/tests/system-defaults-write.nix
index 2a0eef4a..414b9035 100644
--- a/tests/system-defaults-write.nix
+++ b/tests/system-defaults-write.nix
@@ -39,6 +39,9 @@
   system.defaults.screencapture.location = "/tmp";
   system.defaults.smb.NetBIOSName = "IMAC-000000";
   system.defaults.smb.ServerDescription = ''Darwin\\\\U2019s iMac'';
+  system.defaults.universalaccess.reduceTransparency = true;
+  system.defaults.universalaccess.closeViewScrollWheelToggle = true;
+  system.defaults.universalaccess.closeViewZoomFollowsFocus = true;
 
   test = ''
     echo >&2 "checking defaults write in /activate"
@@ -82,5 +85,8 @@
     grep "defaults write com.apple.dock 'autohide-delay' -float 0.24" ${config.out}/activate-user
     grep "defaults write com.apple.dock 'orientation' -string 'left'" ${config.out}/activate-user
     grep "defaults write com.apple.screencapture 'location' -string '/tmp'" ${config.out}/activate-user
+    grep "defaults write com.apple.universalaccess 'reduceTransparency' -bool YES" ${config.out}/activate-user
+    grep "defaults write com.apple.universalaccess 'closeViewScrollWheelToggle' -bool YES" ${config.out}/activate-user
+    grep "defaults write com.apple.universalaccess 'closeViewZoomFollowsFocus' -bool YES" ${config.out}/activate-user
   '';
 }