From 8c5138f425572ccd1053e5b8be44c69e32c6e26e Mon Sep 17 00:00:00 2001 From: Raul Benencia Date: Sun, 5 Jun 2022 08:26:26 -0700 Subject: emacs: dark/light mode with dbus support --- .emacs.local.d/modes/themes.el | 34 +++++++++++++++++++++++++++++++++- 1 file changed, 33 insertions(+), 1 deletion(-) 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" + ) -- cgit v1.2.3