aboutsummaryrefslogtreecommitdiff
path: root/.emacs.local.d/modes/themes.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.local.d/modes/themes.el')
-rw-r--r--.emacs.local.d/modes/themes.el47
1 files changed, 0 insertions, 47 deletions
diff --git a/.emacs.local.d/modes/themes.el b/.emacs.local.d/modes/themes.el
deleted file mode 100644
index c94d4a1..0000000
--- a/.emacs.local.d/modes/themes.el
+++ /dev/null
@@ -1,47 +0,0 @@
-(use-package ef-themes :ensure t)
-
-(setq
- modus-themes-mode-line '(accented borderless padded)
- modus-themes-region '(bg-only)
- modus-themes-bold-constructs t
- modus-themes-italic-constructs t
- modus-themes-paren-match '(bold intense)
- modus-themes-headings (quote ((1 . (rainbow variable-pitch 1.3))
- (2 . (rainbow 1.1))
- (t . (rainbow))))
- modus-themes-org-blocks 'tinted
- )
-
-(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-select 'modus-vivendi-tinted))
- (progn (message "Switch to light theme")
- (modus-themes-select 'modus-operandi-tinted))))
-
-(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"
- )
nihil fit ex nihilo