summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2025-10-10 14:54:42 +0200
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2025-10-10 15:10:35 +0200
commit73c26f632505485e3b1caf550cab6acac7da9669 (patch)
tree5ef59b571d9f600850a3a33470d263c6a9d3230a
parent60a9c0085dc399b982f2ee883c87aa95876e457e (diff)
users: define test channels for id1000HEADtestmaster
-rw-r--r--users/id1000.scm7
-rw-r--r--users/uid1000-test-channels.scm41
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)