(use-modules (srfi srfi-1)
             (guix)
             (gnu system locale)
             (gnu))

(use-service-modules networking desktop admin mcron)

(use-package-modules base bootloaders ssh bash zile linux)

(operating-system
 (host-name "guix")
 (timezone "Europe/Moscow")
 (locale "ru_RU.UTF-8")

 (locale-definitions
  (list (locale-definition (source "ru_RU") (name "ru_RU.utf8"))
        (locale-definition (source "en_US") (name "en_US.utf8"))))

 
  (bootloader (bootloader-configuration
               (bootloader grub-bootloader)
               (target "/dev/sda")
               (terminal-outputs '(console))))

  (initrd-modules (cons* "sata_nv"		;; Nvidia nForce
                         "pata_acpi" %base-initrd-modules))

  (file-systems (cons*
                 (file-system
                  (device "mr")
                  (title 'label)
                  (mount-point "/")
                  (type "ext4"))
                 %base-file-systems))
  (swap-devices '())

 (users (cons (user-account
                (name "jone")
                (comment "Jone")
                (group "users")
                (supplementary-groups '("wheel" "netdev" "audio" "video"))
                (home-directory "/home/jone"))
              %base-user-accounts))

 (sudoers-file (local-file "/etc/sudoers"))
 (packages
  (cons*
   zile wireless-tools
    %base-packages))

(services (cons*
;           (extra-special-file "/usr/bin/env"
;                               (file-append coreutils "/bin/env"))
;           (extra-special-file "/bin/sh"
;                               (file-append bash "/bin/bash"))
           (xfce-desktop-service)
           (service mcron-service-type)
           (service rottlog-service-type)
            %desktop-services)))