4892c0186e
* doc/guix.texi (Base Services): Replace agetty-service with agetty-service-type. * gnu/services/base.scm (agetty-service): Deprecate procedure. * gnu/system/examples/beaglebone-black.tmpl (operating-system)[services]: Use agetty-service-type. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
57 lines
2.2 KiB
Scheme
57 lines
2.2 KiB
Scheme
;; -*- mode: scheme; -*-
|
|
;; This is an operating system configuration template
|
|
;; for a "bare bones" setup on BeagleBone Black board.
|
|
|
|
(use-modules (gnu) (gnu bootloader u-boot))
|
|
(use-service-modules networking)
|
|
(use-package-modules bootloaders screen ssh)
|
|
|
|
(operating-system
|
|
(host-name "komputilo")
|
|
(timezone "Europe/Berlin")
|
|
(locale "en_US.utf8")
|
|
|
|
;; Assuming /dev/mmcblk1 is the eMMC, and "my-root" is
|
|
;; the label of the target root file system.
|
|
(bootloader (bootloader-configuration
|
|
(bootloader u-boot-beaglebone-black-bootloader)
|
|
(targets '("/dev/mmcblk1"))))
|
|
|
|
;; This module is required to mount the SD card.
|
|
(initrd-modules (cons "omap_hsmmc" %base-initrd-modules))
|
|
|
|
(file-systems (cons (file-system
|
|
(device (file-system-label "my-root"))
|
|
(mount-point "/")
|
|
(type "ext4"))
|
|
%base-file-systems))
|
|
|
|
;; This is where user accounts are specified. The "root"
|
|
;; account is implicit, and is initially created with the
|
|
;; empty password.
|
|
(users (cons (user-account
|
|
(name "alice")
|
|
(comment "Bob's sister")
|
|
(group "users")
|
|
|
|
;; Adding the account to the "wheel" group
|
|
;; makes it a sudoer. Adding it to "audio"
|
|
;; and "video" allows the user to play sound
|
|
;; and access the webcam.
|
|
(supplementary-groups '("wheel"
|
|
"audio" "video")))
|
|
%base-user-accounts))
|
|
|
|
;; Globally-installed packages.
|
|
(packages (append (list screen openssh) %base-packages))
|
|
|
|
(services (append (list (service dhcp-client-service-type)
|
|
;; mingetty does not work on serial lines.
|
|
;; Use agetty with board-specific serial parameters.
|
|
(service agetty-service-type
|
|
(agetty-configuration
|
|
(extra-options '("-L"))
|
|
(baud-rate "115200")
|
|
(term "vt100")
|
|
(tty "ttyO0"))))
|
|
%base-services)))
|