(use-modules (gnu))

(use-modules (nongnu packages linux)
             (nongnu system linux-initrd))

(use-service-modules desktop networking ssh xorg)
(use-package-modules algebra
                     android
                     base
                     bison
                     bittorrent
                     certs
                     cmake
                     commencement
                     compression
                     cpio
                     curl
                     emacs
                     engineering
                     file
                     flashing-tools
                     flex
                     fonts
                     fontutils
                     gdb
                     gimp
                     gnome
                     gnuzilla
                     inkscape
                     libreoffice
                     m4
                     messaging
                     multiprecision
                     ncurses
                     package-management
                     password-utils
                     perl
                     pkg-config
                     rsync
                     tmux
                     valgrind
                     version-control
                     video
                     virtualization
                     wget)

(operating-system
  (host-name "toster")
  (timezone "Europe/Moscow")
  (locale "en_US.utf8")

  ;; 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)
                (target "/boot/efi")))

  (kernel linux)

  (initrd microcode-initrd)

  (firmware (list linux-firmware))

  (kernel-arguments '("quiet"))

  (file-systems (cons* (file-system
                        (device (file-system-label "guix-root"))
                        (mount-point "/")
                        (type "ext4")
                        (flags '(no-atime)))
                        ;(options "noatime, nodiratime, discard"))
                       (file-system
                        (device (file-system-label "guix-home"))
                        (mount-point "/home")
                        (type "ext4")
                        (flags '(no-atime)))
                       (file-system
                        (device "tmpfs")
                        (mount-point "/tmp")
                        (type "tmpfs")
                        (flags '(no-suid no-dev))
                        (options "size=2G"))
                        ;(options "noatime, nodiratime, discard"))
                       (file-system
                        (device "/dev/sda1")
                        (mount-point "/boot/efi")
                        (type "vfat"))
                       %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 "qwerty")
                (comment "qwerty")
                (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 '("audio"
                                        "dialout"
                                        "kvm"
                                        "video"
                                        "wheel")))
               %base-user-accounts))

  ;; Globally-installed packages.
  (packages (cons* adb
                   bc
                   bison
                   cmake
                   cpio
                   curl
                   emacs
                   icecat
                   ffmpeg
                   file
                   flashrom
                   flatpak
                   flex
                   font-dejavu
                   font-google-noto
                   font-liberation
                   fontconfig
                   gcc-toolchain
                   gdb
                   gimp
                   git
                   gmp
                   gnu-make
                   inkscape
                   keepassxc
                   libreoffice
                   m4
                   minicom
                   mpc
                   mpfr
                   ncurses
                   network-manager-applet
                   nss-certs
                   obs
                   perl
                   pidgin
                   pkg-config
                   qbittorrent
                   qemu
                   radare2
                   rsync
                   tmux
                   unzip
                   valgrind
                   vlc
                   wget
                   workrave
                   %base-packages))

  ;; Add services to the baseline: a DHCP client and
  ;; an SSH server.
  (services (append (list ;;(service dhcp-client-service-type)
                     (service wpa-supplicant-service-type)
                     (service network-manager-service-type
                              (network-manager-configuration
                               (vpn-plugins (list network-manager-openvpn))))
                     (service openssh-service-type
                              (openssh-configuration
                               (port-number 2222)))
                     (service slim-service-type (slim-configuration
                                                 (display ":0")
                                                 (vt "vt7")))
                     (elogind-service)
                     (udisks-service)
                     (service mate-desktop-service-type)
                     (extra-special-file "/usr/bin/file"
                                         (file-append file "/bin/file")))
                    %base-services)))