;; Operating system configuration for a full                              
;; "desktop" environment with gnome.                                   
                                                            
(use-modules (gnu) (gnu system nss))                                      ;; Le fichier est en langage guile scheme. Après 
(use-service-modules desktop networking ssh)                              ;; un peu d'utilisation, sa pratique est plus aisée. 
(use-package-modules bootloaders certs gnome screen ssh)                  ;; Module 'bootloaders' indispensable pour le Dual-boot.

(operating-system
  (host-name "gnu")
  (timezone "Europe/Paris")
  (locale "fr_FR.utf8")

;; En admettant que /dev/sda est la cible du disque dur, et "my-root" est le nom de la cible root du système de fichiers,
;; et /dev/sda6 la partition cible pour l'installation de GuixSD en Dual-Boot. 
;; La partition /dev/sda6 sera détectée par le système, pour cela, elle ne doit pas figurer dans le fichier.
;; Si vous voulez juste installer GuixSD, (bootloader (grub-configuration (target "/dev/sda") sera suffisant.
(bootloader (grub-configuration (target "/dev/sda") (menu-entries        ;; Ajout de menu-entries
	               (list                                             ;; Liste d'entrées
			(menu-entry                                      ;; Entrons
		        (label "Debian GNU/Linux")                       ;; Titre de la distribution
	                (linux "/boot/vmlinuz-4.19.0-1-amd64")           ;; Noyau à démarrer
	                (linux-arguments '("root=/dev/sda1"))            ;; Debian se trouve sur /dev/sda1
	                (initrd "/boot/initrd.img-4.19.0-1-amd64"))))))  ;; C'est parti pour le démarrage !
	      
(file-systems (cons (file-system
                      (device (file-system-label "my-root"))
                      (mount-point "/")
                      (type "ext4"))
	             %base-file-systems))

(swap-devices '("/dev/sda5"))

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

;; This is where we specify
;; system-wide packages.
(packages (cons* gvfs                 ;; for users mounts
                 nss-certs            ;; for HTTPS access
                 screen
                 openssh
                %base-packages))

;; **Edit** 19-04-2019 : 'gnome-desktop-service est déprécié depuis quelques jours.
;; Cela devrait marcher si vous remplacez (gnome-desktop-service) par (service gnome-desktop-service-type)
(services (cons* (service gnome-desktop-service-type)  ;; Testé, c'est bon.
                %desktop-services))                    

;; Allow resolution of '.local' host names with mDNS.
(name-service-switch %mdns-host-lookup-nss))