(use-modules (gnu)
	     (guix packages))
(use-service-modules networking ssh)
(use-package-modules screen ssh linux file-systems)

(define my-zfs
  (package
    (inherit zfs)
    (arguments
      (cons* #:linux linux-libre-lts
	     (package-arguments zfs)))))

(operating-system
  (host-name "komputilo")
  (timezone "Europe/Zurich")
  (locale "en_CA.utf8")

  (kernel linux-libre-lts)

  ;; Boot in "legacy" BIOS mode, assuming /dev/sdX is the
  ;; target hard disk, and "my-root" is the label of the target
  ;; root file system.
  (bootloader (bootloader-configuration
                (bootloader grub-efi-bootloader)
                (targets '("/boot/efi"))))

  (initrd-modules (cons "zfs" %base-initrd-modules))
  (kernel-loadable-modules (list (list my-zfs "module")))

  (file-systems (cons (file-system
                        (device "/dev/disk/by-partlabel/root")
                        (mount-point "/")
                        (type "zfs"))
                      %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 (cons screen %base-packages))

  ;; Add services to the baseline: a DHCP client and an SSH
  ;; server.  You may wish to add an NTP service here.
  (services (append (list (service dhcp-client-service-type))
                    %base-services)))