diff options
Diffstat (limited to '.emacs.local.d')
| -rw-r--r-- | .emacs.local.d/modes/themes.el | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/.emacs.local.d/modes/themes.el b/.emacs.local.d/modes/themes.el index a8e7787..f9077b7 100644 --- a/.emacs.local.d/modes/themes.el +++ b/.emacs.local.d/modes/themes.el @@ -1 +1,33 @@ -(load-theme 'doom-sourcerer t) +(use-package dbus) +(defun mf/set-theme-from-dbus-value (value) + "Set the appropiate theme according to the color-scheme setting value." + (message "value is %s" value) + (if (equal value '1) + (progn (message "Switch to dark theme") + (modus-themes-load-vivendi)) + (progn (message "Switch to light theme") + (modus-themes-load-operandi)))) + +(defun mf/color-scheme-changed (path var value) + "DBus handler to detect when the color-scheme has changed." + (when (and (string-equal path "org.freedesktop.appearance") + (string-equal var "color-scheme")) + (mf/set-theme-from-dbus-value (car value)) + )) + +;; Register for future changes +(dbus-register-signal + :session "org.freedesktop.portal.Desktop" + "/org/freedesktop/portal/desktop" "org.freedesktop.portal.Settings" + "SettingChanged" + #'mf/color-scheme-changed) + +;; Request the current color-scheme +(dbus-call-method-asynchronously + :session "org.freedesktop.portal.Desktop" + "/org/freedesktop/portal/desktop" "org.freedesktop.portal.Settings" + "Read" + (lambda (value) (mf/set-theme-from-dbus-value (caar value))) + "org.freedesktop.appearance" + "color-scheme" + ) |