aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLuca Matei Pintilie <luca@lucamatei.com>2024-09-01 18:31:59 +0000
committerLuca Matei Pintilie <luca@lucamatei.com>2024-10-05 18:24:16 +0000
commit6b7c824b955bdd4d25c4467738134aeec62d49ec (patch)
tree9623c36f35538e6bd0129629237c2fdea81fe444
parent3f1959773a2da474fd6109e2b813ec31859e1c97 (diff)
downloaddotfiles-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.scm26
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))
+ ;; )
+ )))