diff options
author | Luca Matei Pintilie <luca@lucamatei.com> | 2024-09-01 18:31:59 +0000 |
---|---|---|
committer | Luca Matei Pintilie <luca@lucamatei.com> | 2024-10-05 18:24:16 +0000 |
commit | 6b7c824b955bdd4d25c4467738134aeec62d49ec (patch) | |
tree | 9623c36f35538e6bd0129629237c2fdea81fe444 | |
parent | 3f1959773a2da474fd6109e2b813ec31859e1c97 (diff) | |
download | dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.tar dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.tar.gz dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.tar.bz2 dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.tar.lz dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.tar.xz dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.tar.zst dotfiles-6b7c824b955bdd4d25c4467738134aeec62d49ec.zip |
fixup! fixup! fixup! WIP add guix config
-rw-r--r-- | home-configuration.scm | 26 |
1 files changed, 17 insertions, 9 deletions
diff --git a/home-configuration.scm b/home-configuration.scm index 9128963..42fb790 100644 --- a/home-configuration.scm +++ b/home-configuration.scm @@ -4,6 +4,8 @@ ;; need to capture the channels being used, as returned by "guix describe". ;; See the "Replicating Guix" section in the manual. (use-modules (gnu home) + (ice-9 match) + (ice-9 ftw) (gnu home services) (gnu home services shells) (gnu services) @@ -73,6 +75,15 @@ (openpgp-fingerprint "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))))) +(define match-files-in-tree-to-local-file + (match-lambda + ((name stat) + name + (local-file name)) + ((name stat children ...) + (list name + (map match-files-in-tree-to-local-file children))))) + (home-environment ;; Below is the list of packages that will show up in your ;; Home profile, under ~/.guix-home/profile. @@ -172,12 +183,9 @@ "bash_profile"))) (bash-logout (list (local-file ".bash_logout" "bash_logout"))))) (service home-files-service-type - '(map (match-lambda - (name) - ((string-append ".config/" name) - (local-file name))) - (file-system-tree "./.config")) - ;; `( - ;; ;(".config" ,(local-file "./.config" "user-config-folder" #:recursive? #t)) - ;; ) - )))) + (map match-files-in-tree-to-local-file + (file-system-tree "./.config"))) + ;; `( + ;; ;(".config" ,(local-file "./.config" "user-config-folder" #:recursive? #t)) + ;; ) + ))) |