emacs: re-implement auto dark/light mode switching on macOS Since I'm not using EmacsMacPort any more, the function `(mac-application-state)` isn't defined. However, we can use launchd to tell us when the system preferences change and then ask whether light or dark mode is active
Alan Pearce alan@alanpearce.eu
Sun, 02 Apr 2023 20:27:53 +0200
2 files changed, 35 insertions(+), 15 deletions(-)
M user/emacs/init.el → user/emacs/init.el
@@ -80,22 +80,9 @@ ,@modus-themes-preset-overrides-faint) modus-themes-to-toggle `(,light-mode-theme ,dark-mode-theme)) (load-theme light-mode-theme :noconfirm :noenable) (load-theme dark-mode-theme :noconfirm :noenable) - (defun my/set-dark-or-light-theme () - (interactive) - (let ((appearance (plist-get (mac-application-state) :appearance))) - (mapc #'disable-theme custom-enabled-themes) - (cond ((equal appearance "NSAppearanceNameAqua") - (enable-theme light-mode-theme)) - ((equal appearance "NSAppearanceNameDarkAqua") - (enable-theme dark-mode-theme))))) - (add-hook 'mac-effective-appearance-change-hook #'my/set-dark-or-light-theme) - (if (fboundp #'mac-application-state) - (my/set-dark-or-light-theme) - (enable-theme light-mode-theme))))) + (enable-theme light-mode-theme)))) (if (eq window-system 'x) - (setq-default line-spacing 0.2)) - (setq frame-background-mode 'light) - (mapc 'frame-set-background-mode (frame-list))) + (setq-default line-spacing 0.2))) (setq font-lock-maximum-decoration '((t . 1)))
M user/settings/darwin.nix → user/settings/darwin.nix
@@ -78,6 +78,39 @@ StandardErrorPath = "/dev/null"; StandardOutputPath = "/dev/null"; }; }; + dark-light-mode = { + enable = true; + config = { + WatchPaths = [ "${config.home.homeDirectory}/Library/Preferences/.GlobalPreferences.plist" ]; + ProgramArguments = [ + "/bin/sh" + ( + toString + ( + pkgs.writeShellScript + "toggle-dark-light-mode" + '' + if defaults read -g AppleInterfaceStyle &>/dev/null ; then + MODE="dark" + else + MODE="light" + fi + emacsSwitchTheme () { + if pgrep -q Emacs; then + if [[ $MODE == "dark" ]]; then + emacsclient --eval "(modus-themes-load-theme (cadr modus-themes-to-toggle))" + elif [[ $MODE == "light" ]]; then + emacsclient --eval "(modus-themes-load-theme (car modus-themes-to-toggle))" + fi + fi + } + emacsSwitchTheme $@ + '' + ) + ) + ]; + }; + }; }; programs.zsh.shellAliases = {