correction gnome-builder

config.scm

@@ -27,12 +27,15 @@
   (gnu packages)
   (gnu packages autotools)
   (gnu packages avahi)
+  (gnu packages backup)
   (gnu packages base)
   (gnu packages bash)
   (gnu packages boost)
   (gnu packages build-tools)
   (gnu packages compression)
+  (gnu packages cdrom)
   (gnu packages cups)
+  (gnu packages curl)
   (gnu packages freedesktop)
   (gnu packages freedesktop)
   (gnu packages ftp)
@@ -49,10 +52,12 @@
   (gnu packages messaging)
   (gnu packages pkg-config)
   (gnu packages python)
+  (gnu packages package-management)
   (gnu packages scanner)
   (gnu packages textutils)
   (gnu packages tls)
   (gnu packages xml)
+  (gnu packages xorg)
   (gnu services)
   (gnu services shepherd)
   (gnu system setuid)
@@ -77,6 +82,28 @@
   pm
   security-token)
 
+
+;; Paquet Gnome Builder personnalisé
+(define-public gnome-builder-custom
+  (package
+    (inherit gnome-builder)
+    (name "gnome-builder-custom")
+    (native-inputs
+     (list 
+           curl
+           dconf                        ;for flatpak
+           desktop-file-utils           ;for desktop-file-validate
+           `(,glib "bin")
+           gettext-minimal
+           gi-docgen
+           gpgme
+           libarchive
+           libseccomp
+           pkg-config
+           python                       ;for meson scripts
+           vala
+           xorg-server-for-tests))))
+
 ;; Service custom fancontrol
 (define (fancontrol-shepherd-service config)
   (shepherd-service
@@ -84,7 +111,7 @@
    (provision '(fancontrol))
    (requirement '(udev user-processes))
    (start #~(make-forkexec-constructor
-             (list #$(file-append (specification->package "lm-sensors") "/sbin/fancontrol")
+             (list #$(file-append lm-sensors "/sbin/fancontrol")
                    #$config)
              #:user "root" #:group "root"
              #:log-file "/var/log/fancontrol.log"))
@@ -400,7 +427,7 @@ fi"))
           "cvs"
           "dconf-editor"
           "dino"
-          "emacs"
+          "emacs-no-x"
           "endeavour"
           "eudev"
           "evolution"
@@ -425,7 +452,7 @@ fi"))
           "git:send-email"
           "glmark2"
           ;"gnome-bluetooth"
-          "gnome-builder"
+          ;"gnome-builder"
           "gnome-font-viewer"
           "gnome-maps"
           "gnome-power-manager"
@@ -571,9 +598,10 @@ fi"))
           "yt-dlp"))
 	
       (list
-        nvramtool
         cbfstool
-        gnupload)
+        gnupload
+        gnome-builder-custom
+        nvramtool)
 
       %base-packages))
 
@@ -583,13 +611,13 @@ fi"))
   (setuid-programs
     (append (list
               (setuid-program
-                (program (file-append (specification->package "cdrtools") "/bin/cdrecord")))
+                (program (file-append cdrtools "/bin/cdrecord")))
               (setuid-program
-                (program (file-append (specification->package "cdrtools") "/bin/readcd")))
+                (program (file-append cdrtools "/bin/readcd")))
               (setuid-program
-                (program (file-append (specification->package "cdrtools") "/bin/mkisofs")))
+                (program (file-append cdrtools "/bin/mkisofs")))
               (setuid-program
-                (program (file-append (specification->package "cdrdao") "/bin/cdrdao"))))       
+                (program (file-append cdrdao "/bin/cdrdao"))))       
             %setuid-programs))
 
   ;; Services du système.
@@ -692,7 +720,7 @@ fi"))
         (network-manager-service-type config => (network-manager-configuration 
           (inherit config)
           (vpn-plugins
-            (list (specification->package "network-manager-openvpn")))))))
+            (list network-manager-openvpn))))))
 
   ;; Chargeur de démarrage (GRUB)
   ;; On indique ici où il doit être installé et comment le configurer