darwin: remove config for emacs-macport easier to use upstream and reduce special cases
1 file changed, 4 insertions(+), 14 deletions(-)
changed files
M user/settings/emacs/theme.el → user/settings/emacs/theme.el
@@ -1,6 +1,4 @@ ;; -*- lexical-binding: t; -*- -(setq is-macport (featurep 'term/mac-win)) - (use-package @package@ :if (or (daemonp) window-system))@@ -25,13 +23,9 @@ (modify-all-frames-parameters `((ns-appearance ,mode)))) (defun my/system-appearance () (if (and (eq system-type 'darwin) - (if is-macport - (string-equal - "NSAppearanceNameDarkAqua" - (plist-get (mac-application-state) :appearance)) - (string-equal - "Dark" - (string-trim-right (shell-command-to-string "defaults read -g AppleInterfaceStyle"))))) + (string-equal + "Dark" + (string-trim-right (shell-command-to-string "defaults read -g AppleInterfaceStyle")))) 'dark 'light))@@ -41,13 +35,9 @@ (my/switch-theme-variant (my/system-appearance))) (my/switch-theme-variant (my/system-appearance)) - (add-hook 'mac-effective-appearance-change-hook - #'my/match-theme-system-appearance) - (use-package kqueue :if (and (eq system-type 'darwin) - window-system - (not (fboundp 'mac-application-state))) + window-system ) :config (progn (defun my/gp-notify-callback (event) (let* ((filename (elt event 2))