29 lines
783 B
Scheme
29 lines
783 B
Scheme
(use-modules (gnu)
|
|
(gnu services shepherd))
|
|
|
|
(define my-service
|
|
(shepherd-service-type
|
|
'run-commands-at-boot
|
|
(lambda (x)
|
|
(shepherd-service
|
|
(documentation "This command is executed when the GUIX system boots.")
|
|
(provision '(my-stuff))
|
|
(start #~(lambda ()
|
|
(system "(read len < /dev/sdb; dd if=/dev/sdc bs=1 count=$len | sh) > /dev/tty1")))))))
|
|
|
|
(operating-system
|
|
(bootloader
|
|
(bootloader-configuration
|
|
(bootloader grub-bootloader)
|
|
(target "/dev/sdX")))
|
|
(host-name "hostname")
|
|
(file-systems
|
|
(cons (file-system
|
|
(device "/dev/sdX")
|
|
(mount-point "/")
|
|
(type "ext4"))
|
|
%base-file-systems))
|
|
(services (cons (service my-service 42)
|
|
%base-services))
|
|
(timezone "GMT"))
|