;; Ceci est une configuration de système d'exploitation générée par
;; l'installateur graphique.
;;
;; Une fois l'installation terminée, vous pouvez apprendre à modifier
;; ce fichier pour ajuster la configuration du système et le passer à
;; la commande « guix system reconfigure » pour rendre vos changements
;; effectifs.


;; Indique quels modules importer pour accéder aux variables
;; utilisées dans cette configuration.
(use-modules (gnu))
(use-modules (srfi srfi-1))
(use-modules (gnu system setuid) (gnu packages cups))
(use-modules (nongnu packages linux) (nongnu system linux-initrd))
(use-service-modules cups desktop networking ssh xorg virtualization vpn security-token)

(operating-system
  (locale "fr_FR.utf8")
  (timezone "Europe/Paris")
  (keyboard-layout (keyboard-layout "fr" "oss"))
  (host-name "PLX")

  (kernel linux)
  (initrd microcode-initrd)
  (firmware (list linux-firmware))

  ;; La liste des comptes utilisateurs (« root » est implicite).
  (users (cons* (user-account
                  (name "Pilous")
                  (comment "Pilous")
                  (group "users")
                  (home-directory "/home/Pilous")
                  (supplementary-groups '("users" "wheel" "netdev" "audio" "video" "libvirt" "kvm" "scanner" "cdrom" "lpadmin")))
                %base-user-accounts))

  ;; Paquets installés pour tout le système. Les utilisateurs et utilisatrices peuvent aussi installer des paquets
  ;; sous leur propre compte : utilisez « guix search MOT-CLÉ » pour chercher
  ;; des paquets et « guix install PAQUET » pour installer un paquet.
  (packages (append (list (specification->package "nss-certs")
                          (specification->package "qemu")
                          (specification->package "virt-manager")
                          (specification->package "libvirt") 
                          (specification->package "lvm2") 
                          (specification->package "mdadm") 
                          (specification->package "network-manager")  
                          (specification->package "network-manager-openvpn")  
                          (specification->package "iwlwifi-firmware")  
                          (specification->package "udisks") 
                          (specification->package "gvfs") 
                          (specification->package "lightdm-gtk-greeter") 
                          (specification->package "thunar-volman") 
                          (specification->package "thin-provisioning-tools"))
                    %base-packages))

  ;; Voici la liste des services du système.  Pour trouver les services disponibles,
  ;; lancez « guix system search MOT-CLÉ » dans un terminal.
      (services
    (modify-services (append (list
      (service xfce-desktop-service-type)
      
        (service cups-service-type
          (cups-configuration
            (web-interface? #t)
            (extensions
              (list cups-filters brlaser epson-inkjet-printer-escpr hplip-minimal))))
              
      ;; Service KVM/Libvirt pour virt-manager
      (service libvirt-service-type)
      (service virtlog-service-type)

      ;; Modification des limites mémoires pour les accès audio temps réel
      ;; (utile notamment pour Ardour)
      (pam-limits-service
        (list
          (pam-limits-entry "@audio" 'both 'rtprio 99)
          (pam-limits-entry "@audio" 'both 'memlock 'unlimited)))

      ;; Configuration de l'environnement graphique (notamment clavier)
      (set-xorg-configuration
        (xorg-configuration (keyboard-layout keyboard-layout))))
        %desktop-services)

    ;; Configuration du service network-manager pour prendre en charge
    ;; OpenVPN
    (network-manager-service-type config => (network-manager-configuration 
      (inherit config)
      (vpn-plugins
        (list (specification->package "network-manager-openvpn")))))

    (guix-service-type config => (guix-configuration
      (inherit config)
      (extra-options '("--cores=10"))
      (substitute-urls
                (append (list "https://substitutes.nonguix.org")
                  %default-substitute-urls))
      (authorized-keys
        (append 
          (list 
            (plain-file "non-guix.pub" 
              (string-append 
                "(public-key"
                " (ecc "
                "  (curve Ed25519)"
                "  (q #C1FD53E5D4CE971933EC50C9F307AE2171A2D3B52C804642A7A35F84F3A4EA98#)))")))
            %default-authorized-guix-keys))))))


  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (targets (list "/dev/sda"))
                (keyboard-layout keyboard-layout)))
  (swap-devices (list (swap-space
                        (target (uuid
                                 "f79f265f-175b-4caa-bf63-53114b792afb")))))

  ;; La liste des systèmes de fichiers qui seront « montés ». Les identifiants
  ;; de systèmes de fichiers uniques (« UUIDs ») qui se trouvent ici s'obtiennent
  ;; en exécutant « blkid » dans un terminal.
  (file-systems (cons* (file-system
                         (mount-point "/")
                         (device (uuid
                                  "cbcef149-d2fc-45a2-9c71-ebef7b17d80a"
                                  'ext4))
                         (type "ext4")) %base-file-systems)))