users: define test channels for id1000HEADtestmaster

2 files changed, 47 insertions, 1 deletions

diff --git a/users/id1000.scm b/users/id1000.scm
index a80f63e..7559e73 100644
--- a/users/id1000.scm
+++ b/users/id1000.scm
@@ -550,13 +550,17 @@
     ( (l-gitconfig-file        (local-file "uid1000-gitconfig")) ; TODO modularize
       (l-gitignore-file        (local-file "uid1000-gitignore")) ; TODO review the contents
       (l-home-dbus-service     (gnu:services:service gnu:home:services:desktop:home-dbus-service-type))
+      (l-home-files            `( (".test-channels.scm" ,(local-file "./uid1000-test-channels.scm"))))
       (l-home-pipewire-service (gnu:services:service gnu:home:services:sound:home-pipewire-service-type))
       (l-home-shepherd-service (gnu:services:service gnu:home:services:shepherd:home-shepherd-service-type)))
     (let
       ( (l-gitconfig (list "git/config"
                            l-gitconfig-file))
         (l-gitignore (list "git/ignore"
-                           l-gitignore-file)))
+                           l-gitignore-file))
+        (l-home-files-service (gnu:services:simple-service 'home-files
+                                                           gnu:home:services:home-files-service-type
+                                                           l-home-files)))
       (let*
         ( (l-git-configuration-files (list l-gitconfig
                                            l-gitignore))
@@ -566,6 +570,7 @@
           (l-user-services           (list sovereign:systems:bash-configuration
                                            environment-variables
                                            l-git-configuration
+                                           l-home-files-service
                                            (sovereign:services:fontutils:home-fontconfig-service-type #f
                                                                                                       #f
                                                                                                       "Unifont")))
diff --git a/users/uid1000-test-channels.scm b/users/uid1000-test-channels.scm
new file mode 100644
index 0000000..b2c3052
--- /dev/null
+++ b/users/uid1000-test-channels.scm
@@ -0,0 +1,41 @@
+(define-module (users uid1000-test-channels)
+  #:use-module ( (guix channels)
+                 #:prefix guix:channels:)
+  #:use-module ( (sovereign channels)
+                 #:prefix sovereign:channels:))
+
+(define test-deployment-channel
+  (guix:channels:channel
+    (inherit sovereign:channels:deployment-channel)
+    (url     "file:///home/marek/Szablony/deployment")
+    (branch  "test")))
+
+(define test-guix-channel
+  (guix:channels:channel
+    (inherit sovereign:channels:default-guix-channel)
+    (url     "file:///home/marek/Szablony/guix")
+    (branch  "test")))
+
+(define test-guix-rust-past-crates-channel
+  (guix:channels:channel
+    (inherit sovereign:channels:guix-rust-past-crates-channel)
+    (url     "file:///home/marek/Szablony/guix-rust-past-crates")
+    (branch  "test")))
+
+(define test-nonguix-channel
+  (guix:channels:channel
+    (inherit sovereign:channels:nonguix-channel)
+    (url     "file:///home/marek/Szablony/nonguix")
+    (branch  "test")))
+
+(define test-sovereign-channel
+  (guix:channels:channel
+    (inherit sovereign:channels:sovereign-channel)
+    (url     "file:///home/marek/Szablony/sovereign")
+    (branch  "test")))
+
+(list test-deployment-channel
+      test-guix-channel
+      test-guix-rust-past-crates-channel
+      test-nonguix-channel
+      test-sovereign-channel)