;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.
(use-modules (gnu) (gnu system nss))
(use-modules (gnu packages tryton))
(use-modules (gnu packages databases))
;(use-modules (gnu packages xorg))
(use-modules (gnu services xorg))
(use-service-modules desktop)
(use-package-modules certs gnome)
;(use-service-modules databases)
;(use-service-modules trytond)
(define %my-services
(modify-services
(cons* (gnome-desktop-service)
(cons*
(service agetty-service-type
(agetty-configuration (tty "ttyS0")))
%desktop-services))
(slim-service-type config =>
(slim-configuration
(inherit config)
(startx (xorg-start-command
#:configuration-file
(xorg-configuration-file
;; Setup X to use a swiss german keyboard layout.
#:extra-config
'("Section \"InputClass\"
Identifier \"keyboard-all\"
Option \"XkbLayout\" \"ch\" ; <~ replace \"ch\" with \"it\"
MatchIsKeyboard \"on\"
EndSection"))))))))
(operating-system
(host-name "antelope")
(timezone "Europe/Paris")
(locale "it_IT.utf8")
;;This is to be able to login into a guest system
(kernel-arguments '("console=ttyS0"))
;; Assuming /dev/sdX is the target hard disk, and "my-root"
;; is the label of the target root file system.
(bootloader (grub-configuration (target "/dev/sda")))
(file-systems (cons (file-system
(device "my-root")
(title 'label)
(mount-point "/")
(type "ext4")
)
%base-file-systems))
(users (cons (user-account
(name "catonano")
(password (crypt " " "ab"))
(comment "Alice's brother")
(group "users")
(supplementary-groups '("wheel" "netdev"
"audio" "video"))
(home-directory "/home/catonano"))
%base-user-accounts))
;; This is where we specify system-wide packages.
(packages (cons* nss-certs ;for HTTPS access
gvfs ;for user mounts
;;python-trytond
;;tryton
;;postgresql
%base-packages))
;; Add GNOME and/or Xfce---we can choose at the log-in
;; screen with F1. Use the "desktop" services, which
;; include the X11 log-in service, networking with Wicd,
;; and more.
(services %my-services)
;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))