desktop background

home-configuration.scm

@@ -10,11 +10,20 @@
 	     (gnu packages vim)
 	     (gnu services)
 	     (guix gexp)
+	     (guix store)
+	     (guix download)
+	     (guix base64)
 	     (gnu home services)
 	     (gnu home services shells)
 	     (atlas home services dconf)
 	     )
 
+;; taken from https://git.sr.ht/~michal_atlas/dotfiles/tree/16ccb8dd549494fd4165f706c899b591903d1a6d/item/home.scm
+(define (file-fetch url hash)
+  (with-store store
+    (run-with-store store
+     (url-fetch url 'sha256 (base64-decode hash)))))
+
 (home-environment
   ;; Below is the list of packages that will show up in your
   ;; Home profile, under ~/.guix-home/profile.
@@ -43,7 +52,13 @@
 		   (org/gnome/gnome-system-monitor
       		     (current-tab "resources"))
 		   (org/gnome/desktop/interface
-      		     (show-battery-percentage #t))
+		     (show-battery-percentage #t))
+		   (org/gnome/desktop/background
+		     (picture-uri-dark
+		       #$(file-fetch "https://www.teahub.io/photos/full/154-1542362_mac-os-mojave-screenshot.jpg"
+				     ;; got by running `guix hash 154-1542362_mac-os-mojave-screenshot.jpg --hash=sha256 --format=base64`
+				     "avrKrso2RJBM0X9BD8likF/7wV0SWMNgoLqtqAixLG8="
+				     )))
 		   (org/gnome/desktop/peripherals/touchpad
 		     (tap-to-click #t))))
       (service home-bash-service-type