update 15 décembre 2024

config.scm

@@ -22,17 +22,48 @@
 (use-modules
   (gnu)
   (gnu home)
-  (gnu home services shells)
   (gnu home services gnupg)
+  (gnu home services shells)
   (gnu packages)
-  (gnu packages gnupg)
+  (gnu packages autotools)
-  (gnu packages freedesktop)
+  (gnu packages avahi)
+  (gnu packages base)
+  (gnu packages bash)
+  (gnu packages boost)
+  (gnu packages build-tools)
+  (gnu packages compression)
   (gnu packages cups)
+  (gnu packages freedesktop)
+  (gnu packages freedesktop)
+  (gnu packages ftp)
+  (gnu packages gettext)
+  (gnu packages ghostscript)
+  (gnu packages glib)
+  (gnu packages gnome)
+  (gnu packages gnupg)
+  (gnu packages gtk)
+  (gnu packages image)
+  (gnu packages imagemagick)
+  (gnu packages libusb)
+  (gnu packages linux)
+  (gnu packages messaging)
+  (gnu packages pkg-config)
+  (gnu packages python)
+  (gnu packages scanner)
+  (gnu packages textutils)
+  (gnu packages tls)
+  (gnu packages xml)
   (gnu services)
   (gnu services shepherd)
   (gnu system setuid)
-  (srfi srfi-1)
+  (guix build-system gnu)
-  (guix gexp))
+  (guix gexp)
+  (guix git-download)
+  (guix download)
+  ((guix licenses) #:prefix license:)
+  (guix packages)
+  (guix utils)
+  (srfi srfi-1))
 
 (use-service-modules
   cups
@@ -141,6 +172,40 @@ also supports compressing files when requested."))
    ""
    ""))
 
+(define gnupload
+  (package
+    (name "gnupload")
+    (version (package-version gnulib))
+    (source (package-source gnulib))
+    (arguments
+     (list #:tests? #f
+	   #:phases
+           #~(modify-phases
+              %standard-phases
+              (add-after 'unpack 'chdir
+			 (lambda _ (chdir "build-aux")))
+              (delete 'bootstrap)
+              (delete 'configure)
+              (delete 'build)
+              (replace
+               'install
+               (lambda _
+                 (install-file
+                  "gnupload"
+                  (string-append #$output "/bin/")))))))
+    (build-system gnu-build-system)
+    (inputs (list
+	     bash      ;; case esac break read eval shift exit
+	     coreutils ;; echo test shift rm cat
+	     gnupg     ;; gpg gpg-agent
+	     grep      ;; grep
+	     ncftp     ;; ncftpput
+	     sed))     ;; sed
+    (synopsis "")
+    (description "")
+    (home-page "")
+    (license license:gpl2+)))
+
 ;; Configuration sudoer personnalisée
 (define %sudoers-specification
   (plain-file "sudoers" "\
@@ -316,14 +381,13 @@ fi"))
           "audacity"
           "bind:utils"
           "binutils"
-          "blueman"
           "cabextract"
           "calf"
           "cdrdao"
+          "cdrtools"
           "claws-mail"
           "cmatrix"
           "cpupower"
-          "cdrtools"
           "cryptsetup"
           "curl"
           "cvs"
@@ -331,6 +395,7 @@ fi"))
           "dino"
           "emacs"
           "endeavour"
+          "eudev"
           "evolution"
           "exfatprogs"
           "fastboot"
@@ -341,9 +406,9 @@ fi"))
           "font-awesome"
           "font-liberation"
           "font-openmoji"
+          "freehdl"
           "gallery-dl"
           "gdb"
-          "freehdl"
           "ghex"
           "ghostscript"
           "ghostwriter"
@@ -385,12 +450,11 @@ fi"))
           "kcachegrind"
           "kgraphviewer"
           "kicad"
-          "kicad-templates"
-          "kicad-symbols"
-          "kicad-packages3d"
-          "kicad-footprints"
           "kicad-doc"
-          "translate2geda"
+          "kicad-footprints"
+          "kicad-packages3d"
+          "kicad-symbols"
+          "kicad-templates"
           "ldns"
           "libreoffice"
           "libtree"
@@ -433,8 +497,8 @@ fi"))
           "patchelf"
           "pavucontrol"
           "perl6-mime-base64"
-          "perl-mime-base64"
           "perl-email-mime-encodings"
+          "perl-mime-base64"
           "pkg-config"
           "poppler"
           "powertop"
@@ -442,11 +506,12 @@ fi"))
           "progress"
           "pv"
           "python"
-          "python-wrapper"
           "python-logutils"
           "python-markdown"
           "python-paramiko"
           "python-virtualenv"
+          ;"python-woob"
+          "python-wrapper"
           "qbittorrent"
           "qemu"
           "qjackctl"
@@ -473,15 +538,14 @@ fi"))
           "tilix"
           "tor"
           "torbrowser"
+          "translate2geda"
           "transmission"
           "tree"
-          "eudev"
           "uefitool"
           "ungoogled-chromium"
           "virt-manager"
           "vlc"
           "wine64"
-          ;"python-woob"
           "xauth"
           ;"xdg-desktop-portal"
           "xdg-desktop-portal-gnome"
@@ -494,8 +558,13 @@ fi"))
           "xrdp"
           "yt-dlp"
           "zstd"))
+	
+      (list
+        gnupload)
+
       %base-packages))
 
+
   ;; Quelques programmes auquels donner des accès spéciaux (setuid)
   ;; (en particulier, logiciels de gravure)
   (setuid-programs