[bug#73927] [PATCH v4 17/18] installer: Add static-networking template.

[Janneke Nieuwenhuizen]

* 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 @@ (define (%system-services)
       (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
-- 
Janneke Nieuwenhuizen <janneke@gnu.org>  | GNU LilyPond https://LilyPond.org
Freelance IT https://www.JoyOfSource.com | Avatar® https://AvatarAcademy.com