Aseta GSettings-oletusasetukset

modules/oms/systems.scm

@@ -1,6 +1,7 @@
 (define-module (oms systems)
   #:use-module (gnu)
   #:use-module (gnu packages cups)
+  #:use-module (gnu packages package-management)
   #:use-module (gnu services admin)
   #:use-module (gnu services base)
   #:use-module (gnu services cups)
@@ -22,6 +23,22 @@
   #:use-module (sops services sops)
   #:export (base-operating-system))
 
+(define default-gsettings
+  #~(string-append "\
+[org/gnome/desktop/background]
+picture-options='zoom'
+picture-uri='file://"
+#$(file-append guix-backgrounds
+               "/share/backgrounds/guix/guix-encircled-checkered-16-9.svg") "'
+picture-uri-dark='file://"
+#$(file-append guix-backgrounds
+               "/share/backgrounds/guix/guix-encircled-checkered-16-9.svg") "'
+[org/gnome/desktop/interface]
+accent-color='yellow'
+
+[org/gnome/desktop/input-sources]
+sources=[('xkb', 'fi')]"))
+
 (define* (base-operating-system host-name)
   (operating-system
     (kernel linux)
@@ -43,7 +60,15 @@
     (groups (cons (user-group (name "passwordlesslogin")) %base-groups))
     (services
      (append
-      (list (service gnome-desktop-service-type)
+      (list (simple-service
+             'default-desktop-settings dconf-service-type
+             (list (dconf-profile
+                     (name "user")
+                     (keyfile
+                      (dconf-keyfile
+                        (name "defaults")
+                        (content (list default-gsettings)))))))
+            (service gnome-desktop-service-type)
             (service openssh-service-type
                      (openssh-configuration
                        (permit-root-login 'prohibit-password)