blob: 2a574bdad5f0eaffb954a5a7a64ad695f00e5005 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;;; theme.el -*- lexical-binding: t; -*-
;; Utility to set light & dark theme that follows system
;; This has only been tested on Gnome 48 and depends on gsettings
(use-package catppuccin-theme)
(defun has-gsettings ()
(= (call-process-shell-command "gsettings --version") 0))
(defun set-color-scheme ()
(set-theme
(string-trim
(shell-command-to-string "gsettings get org.gnome.desktop.interface color-scheme"))))
(defun set-theme (scheme)
(setq catppuccin-flavor (cond ((string-equal scheme "\'default\'") 'latte)
((string-equal scheme "\'prefer-light\'") 'latte)
((string-equal scheme "\'prefer-dark\'") 'mocha)))
(load-theme 'catppuccin :no-confirm))
(defun monitor-theme-changes ()
"Listen to gnome theme changes and run set the correct flavor"
(let ((process (make-process
:name "gsettings-monitor"
:command '("gsettings" "monitor" "org.gnome.desktop.interface" "color-scheme")
:filter (lambda (_ output)
(when (string-match-p "color-scheme" output)
(set-color-scheme))))))
;; Kill on exit without user prompt
(set-process-query-on-exit-flag process nil)))
;; Initialize settings
(when (has-gsettings)
(set-color-scheme)
(monitor-theme-changes))
(when (not (has-gsettings))
(setq catppuccin-flavor 'mocha)
(load-theme 'catppuccin :no-confirm))
(provide 'theme)
;;; theme.el ends here
|
