summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2024-01-30 01:32:45 +0100
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2024-01-30 01:50:35 +0100
commitaebdbfff2aa05f29f75da21aaf0a75477ae82419 (patch)
treec8a2e9709ad638cc7c987a61448a535dc980d8de
parenta4de139f26acf877c00b796582abfbcb96e23013 (diff)
Define channels-service-type
This change is a step towards my goal of "everything is a service".
-rw-r--r--.guix-channel2
-rw-r--r--systems/izumi/channels.scm5
-rw-r--r--systems/izumi/home-configuration.scm5
-rw-r--r--systems/izumi/izumi.org5
4 files changed, 14 insertions, 3 deletions
diff --git a/.guix-channel b/.guix-channel
index ba7fc11..9dc786b 100644
--- a/.guix-channel
+++ b/.guix-channel
@@ -11,4 +11,4 @@
( url "https://gitlab.com/nonguix/nonguix" ) )
( channel
( name secrets )
- ( url "file:///home/marek/Dokumenty/secrets" ) ) ) )
+ ( url "file:///home/marek/Dokumenty/private-guix-inputs" ) ) ) )
diff --git a/systems/izumi/channels.scm b/systems/izumi/channels.scm
index 71f28c8..d4b6c92 100644
--- a/systems/izumi/channels.scm
+++ b/systems/izumi/channels.scm
@@ -1,4 +1,6 @@
( define-module ( systems izumi channels )
+ #:use-module ( gnu home services guix )
+ #:use-module ( gnu services )
#:use-module ( guix channels ) )
( define guix
@@ -31,4 +33,7 @@
( name name )
( url url ) ) ) )
+( define-public izumi-channels-service-type
+ ( service home-channels-service-type ( list guix marekpasnikowski ) ) )
+
( list guix marekpasnikowski )
diff --git a/systems/izumi/home-configuration.scm b/systems/izumi/home-configuration.scm
index 3462bb3..0bc74ca 100644
--- a/systems/izumi/home-configuration.scm
+++ b/systems/izumi/home-configuration.scm
@@ -1,6 +1,9 @@
(define-module (systems izumi home-configuration))
+( add-to-load-path "/home/marek/src/channel/" )
+
(use-modules
+ ( systems izumi channels )
(gnu home)
(gnu home services shells)
(gnu packages)
@@ -61,6 +64,7 @@
zip))
(services
(append
+ ( list izumi-channels-service-type )
(list
(simple-service
'emacs-home-profile
@@ -143,7 +147,6 @@
home-files-service-type
( list
( list ".emacs" ( local-file "home-files/emacs-configuration.el" ) )
- ( list ".config/guix/channels.scm" ( local-file "channels.scm" ) )
( list ".gitconfig" ( local-file "home-files/gitconfig"))
( list
".config/git/ignore"
diff --git a/systems/izumi/izumi.org b/systems/izumi/izumi.org
index 4580397..dfeb28e 100644
--- a/systems/izumi/izumi.org
+++ b/systems/izumi/izumi.org
@@ -722,7 +722,10 @@
#+BEGIN_SRC scheme :tangle home-configuration.scm
(define-module (systems izumi home-configuration))
+ ( add-to-load-path "/home/marek/src/channel/" )
+
(use-modules
+ ( systems izumi channels )
(gnu home)
(gnu home services shells)
(gnu packages)
@@ -762,6 +765,7 @@
zip))
(services
(append
+ ( list izumi-channels-service-type )
<<ESSENTIAL-HOME-SERVICES>>
<<SHELLS>>)))
#+END_SRC
@@ -813,7 +817,6 @@
home-files-service-type
( list
( list ".emacs" ( local-file "home-files/emacs-configuration.el" ) )
- ( list ".config/guix/channels.scm" ( local-file "channels.scm" ) )
( list ".gitconfig" ( local-file "home-files/gitconfig"))
( list
".config/git/ignore"