17/49: installer: Add static-networking template.

[guix-commits]

janneke pushed a commit to branch hurd-team
in repository guix.

commit cf3603762468b8342e1ed606efe35b1deb74dbff
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sun Oct 20 17:19:01 2024 +0200

    installer: Add static-networking template.
    
    * gnu/installer/services.scm (%system-services): Add
    static-networking-service-type.
    
    Change-Id: Iec6336f8d1f49e8b801e978d5c9eeb4f83a6e748
---
 gnu/installer/services.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index d5a382606c..8b117d9a20 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -149,6 +149,28 @@
       (name (G_ "DHCP client (dynamic IP address assignment)"))
       (type 'network-management)
       (snippet '((service dhcp-client-service-type))))
+     (system-service
+      (name (G_ "Static networking service."))
+      (type 'network-management)
+      (snippet `((service
+                  static-networking-service-type
+                  (list %loopback-static-networking
+                        (static-networking
+                         (addresses
+                          (list
+                           (network-address
+                            (device "eth0")
+                            ,(comment (G_ ";; Fill-in your IP.\n"))
+                            (value "192.168.178.10/24"))))
+                         (routes
+                          (list (network-route
+                                 (destination "default")
+                                 ,(comment (G_ ";; Fill-in your gateway 
IP.\n"))
+                                 (gateway "192.168.178.1"))))
+                         (requirement '())
+                         (provision '(networking))
+                         ,(comment (G_ ";; Fill-in your nameservers.\n"))
+                         (name-servers '("192.168.178.1"))))))))
 
      ;; Dealing with documents.
      (system-service