finally fix and document file-fetch

This commit is contained in:
mir 2024-10-09 18:56:02 -08:00
parent 821d7027b0
commit 8b3bad38af

View File

@ -25,7 +25,10 @@
(define (file-fetch url hash) (define (file-fetch url hash)
(with-store store (with-store store
(run-with-store store (run-with-store store
(url-fetch url 'sha256 (base64-decode hash))))) (url-fetch url 'sha256
; hash
(base64-decode hash)
))))
(home-environment (home-environment
;; Below is the list of packages that will show up in your ;; Below is the list of packages that will show up in your
@ -44,8 +47,9 @@
home-files-service-type home-files-service-type
`( `(
(".face" ,(file-fetch (".face" ,(file-fetch
"https://marq42.xyz/mir-avatar-picrew-3.png" "https://marq42.xyz/mir-avatar-picrew-3.png"
"cf5ck8db4d5n24drdnv77wx1liiqi6an" ;; get below with `guix download URL --format=base64` - this took ages to work out
"Psx4J7+7mMKqpsT/rl/Iv/XQnZlTJ1WSMpswuNDjv38="
)))) ))))
(service home-dconf-load-service-type (service home-dconf-load-service-type
#~`((org/gnome/shell #~`((org/gnome/shell