summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-26 18:24:55 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-26 18:24:55 +0200
commitd7b05620a923757e0fee0888202f69cb96c348c8 (patch)
treef22a075a60db40071497c6bed9a5ad12421bdbd2
parenta9a0790376c54c9f205a1633ce54dadd204e784e (diff)
downloadgnu-guix-d7b05620a923757e0fee0888202f69cb96c348c8.tar
gnu-guix-d7b05620a923757e0fee0888202f69cb96c348c8.tar.gz
vm-image: Remove NetworkManager & co. and add the DHCP client.
* gnu/system/examples/vm-image.tmpl (services): Remove wpa-supplicant, cups-pk-helper, and NetworkManager. Add DHCP-CLIENT-SERVICE-TYPE.
-rw-r--r--gnu/system/examples/vm-image.tmpl16
1 files changed, 12 insertions, 4 deletions
diff --git a/gnu/system/examples/vm-image.tmpl b/gnu/system/examples/vm-image.tmpl
index 62ed032731..b6f9daaf61 100644
--- a/gnu/system/examples/vm-image.tmpl
+++ b/gnu/system/examples/vm-image.tmpl
@@ -5,7 +5,7 @@
;;
(use-modules (gnu) (srfi srfi-1))
-(use-service-modules xorg desktop)
+(use-service-modules desktop networking xorg)
(use-package-modules bootloaders nvi wget xorg)
(define vm-image-motd (plain-file "motd" "
@@ -71,11 +71,19 @@ accounts.\x1b[0m
(default-user "guest")
(xorg-configuration
(xorg-configuration
- (keyboard-layout keyboard-layout))))))
+ (keyboard-layout keyboard-layout)))))
- ;; Remove GDM.
+ ;; Use the DHCP client service rather than NetworkManager.
+ (service dhcp-client-service-type))
+
+ ;; Remove GDM, NetworkManager, and wpa-supplicant, which don't make
+ ;; sense in a VM.
(remove (lambda (service)
- (eq? gdm-service-type (service-kind service)))
+ (let ((type (service-kind service)))
+ (memq type (list gdm-service-type
+ wpa-supplicant-service-type
+ cups-pk-helper-service-type
+ network-manager-service-type))))
(modify-services %desktop-services
(login-service-type config =>
(login-configuration