1 files changed, 34 insertions(+), 0 deletions(-)

M home/modules/ruther/home/services/gtk.scm

@@ 5,6 5,8 @@
   #:use-module (guix gexp)
   #:use-module (guix build-system trivial)
   #:use-module (gnu home services)
+  #:use-module (ruther home services dconf)
+  #:use-module (ruther home themes)
   #:export (home-gtk-configuration
             gtk-theme-configuration
             home-gtk-service-type))


@@ 121,6 123,15 @@
                                    (gtk-theme-configuration-package (home-gtk-configuration-gtk-theme config))
                                    (gtk-theme-configuration-name (home-gtk-configuration-gtk-theme config)))))))))
 
+(define (add-gtk-dconf-config config)
+  (let* ((data `((font-name . ,(home-gtk-configuration-font-name config))
+                 (gtk-theme . ,(gtk-theme-configuration-name (home-gtk-configuration-gtk-theme config)))
+                 (cursor-theme . ,(gtk-theme-configuration-name (home-gtk-configuration-cursor-theme config)))
+                 (icon-theme . ,(gtk-theme-configuration-name (home-gtk-configuration-icon-theme config)))))
+         (filtered-data (filter (lambda (x) (not (nil? (cdr x)))) data)))
+    `((org/gnome/desktop/interface
+       ,filtered-data))))
+
 (define-public home-gtk-service-type
   (service-type (name 'home-gtk)
                 (extensions


@@ 128,9 139,32 @@
                         home-files-service-type
                         add-gtk-config-file)
                        (service-extension
+                        home-dconf-service-type
+                        add-gtk-dconf-config)
+                       (service-extension
                         home-profile-service-type
                         add-gtk-theme-packages)
                        (service-extension
                         home-environment-variables-service-type
                         add-xcursor-environment)))
                 (description "Create gtk theme configuration files for gtk2 and gtk3")))
+
+(define-public dconf-config
+ (let ((gtk-theme (make-graphite-gtk-theme #:theme "orange" #:color "dark"))
+       (icon-theme (make-tela-circle-icon-theme #:variant "orange"))
+       (cursor-theme (make-catppuccin-cursors #:flavor "frappe" #:accent "sapphire")))
+   (home-gtk-configuration
+    (gtk-theme
+     (gtk-theme-configuration
+      (package gtk-theme)
+      (name (assoc-ref (package-properties gtk-theme) 'theme-name))))
+    (cursor-theme
+     (gtk-theme-configuration
+      (package cursor-theme)
+      (name (assoc-ref (package-properties cursor-theme) 'cursor-theme-name))
+      (size 16)))
+    (icon-theme
+     (gtk-theme-configuration
+      (package icon-theme)
+      (name (assoc-ref (package-properties icon-theme) 'dark-icon-theme-name))))
+    (font-name "Ubuntu 10"))))