(define-module (base-system)
  #:use-module (gnu)
  #:use-module (gnu services pm)
  #:use-module (gnu services docker)
  #:use-module (gnu services networking)
  #:use-module (gnu services virtualization) ; todo make 
  #:use-module (gnu packages vim)
  #:use-module (gnu services desktop)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages file-systems)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages audio)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages version-control)
  #:use-module (gnu packages package-management))
                                        ;    #:use-module (nongnu packages linux)
                                        ;    #:use-module (nongnu system linux-initrd))

(use-service-modules ssh)
(use-package-modules certs)
(use-service-modules desktop xorg)

(define-public base-operating-system
  (operating-system
   (host-name "base")
   (timezone "Europe/Warsaw")
   (locale "en_US.utf8")
   (keyboard-layout (keyboard-layout "pl"))

   ;; Use non-free Linux and firmware
   ;;     (kernel linux)
   ;;     (firmware (list linux-firmware))
   ;;     (initrd microcode-initrd)

   (bootloader (bootloader-configuration
                (bootloader grub-efi-bootloader)
                (targets "/boot/efi")))
   ;; (keyboard-layout keyboard-layout)))

   ;; Guix doesn't like it when there isn't a file-systems
   ;; entry, so add one that is meant to be overridden
   (file-systems (cons*
                  (file-system
                   (mount-point "/tmp")
                   (device "none")
                   (type "tmpfs")
                   (check? #f))
                  %base-file-systems))
   
   ;; Users
   (users (cons (user-account
                 (name "jakub")
                 (comment "Jakub Dlugosz")
                 (group "users")
                 (home-directory "/home/jakub")
                 (supplementary-groups '(
                                         "wheel" 
                                         "netdev" 
                                         "kvm"
                                         "tty"
                                         "input"
                                         "docker"
                                         "lp"
                                         "audio"
                                         "video")))
                %base-user-accounts))
   
   
   ;; Packages
   (packages (append (list
                      git
                      exfat-utils
                      fuse-exfat
                      stow
                      vim
                      emacs
                      bluez
                      bluez-alsa
                      pulseaudio
                      tlp
                      ncurses
                      xf86-input-libinput
                      nss-certs) ;; For https connection
                     %base-packages))
   
   
   ;; Services
   (services
    (append
     (list
   
      (service elogind-service-type)
      (service openssh-service-type)
      (service network-manager-service-type)
      (service slim-service-type)
      (service tlp-service-type
               (tlp-configuration
                (cpu-boost-on-ac? #t)
                (wifi-pwr-on-bat? #t)))
      (bluetooth-service #:auto-enable? #t)
      (service docker-service-type)
      (service wpa-supplicant-service-type))
     (service libvirt-service-type
              (libvirt-configuration
               (unix-sock-group "libvirt")
               (tls-port "16555")))
     (set-xorg-configuration
      (xorg-configuration
       (keyboard-layout keyboard-layout)))
   
     %base-services))
   
   ;; Allow resolution of '.local' host names with mDNS
   (name-service-switch %mdns-host-lookup-nss)))