22 lines
688 B
Scheme
22 lines
688 B
Scheme
|
(use-modules (gnu)
|
||
|
|
(gnu services web))
|
||
|
|
|
||
|
|
(let ((genevee (load "guix.scm")))
|
||
|
|
(operating-system
|
||
|
|
(host-name "genevee")
|
||
|
|
(services
|
||
|
|
(cons*
|
||
|
|
(service nginx-service-type
|
||
|
|
(nginx-configuration
|
||
|
|
(server-blocks
|
||
|
|
(list (nginx-server-configuration
|
||
|
|
(listen '("80"))
|
||
|
|
(root genevee))))))
|
||
|
|
(service static-networking-service-type (list %qemu-static-networking))
|
||
|
|
%base-services))
|
||
|
|
(bootloader
|
||
|
|
(bootloader-configuration
|
||
|
|
(bootloader grub-efi-bootloader)
|
||
|
|
(targets '("/boot/efi"))))
|
||
|
|
(file-systems %base-file-systems)))
|