gnu: fuse@3: Bind to default FUSE variable.

* gnu/packages/linux.scm (fuse): Rename this…
(fuse-2): …to this, and…
(fuse-3): …rename this…
(fuse): …to this!
(fuse-static): Rename this…
(fuse-2-static): …to this.
Adjust all users.

gnu/packages/admin.scm

@@ -2980,7 +2980,7 @@ (define-public debops
     (inputs
      (list ansible
            encfs
-           fuse
+           fuse-2
            util-linux ;; for umount
            findutils
            gnupg

gnu/packages/android.scm

@@ -1291,7 +1291,7 @@ (define-public android-file-transfer
     (build-system cmake-build-system)
     (arguments
      (list #:tests? #f)) ;there are no tests
-    (inputs (list qtbase-5 fuse-3 libxkbcommon))
+    (inputs (list qtbase-5 fuse libxkbcommon))
     (native-inputs (list qttools-5 openssl readline))
     (home-page "https://whoozle.github.io/android-file-transfer-linux/")
     (synopsis "MTP client for Android devices")

gnu/packages/backup.scm

@@ -780,7 +780,7 @@ (define-public wimlib
     (native-inputs
      (list pkg-config))
     (inputs
-     (list fuse-3 libxml2 ntfs-3g openssl))
+     (list fuse libxml2 ntfs-3g openssl))
     (arguments
      `(#:configure-flags
        (list "--disable-static"

gnu/packages/bioinformatics.scm

@@ -8713,7 +8713,7 @@ (define-public sra-tools
      (list ngs-sdk
            ncbi-vdb
            file
-           fuse
+           fuse-2
            hdf5-1.10
            libxml2
            zlib

gnu/packages/bootloaders.scm

@@ -215,8 +215,8 @@ (define-public grub
        ;; file system will be readable by GRUB without rebooting.
        ,@(if (member (or (%current-target-system)
                          (%current-system))
-                     (package-supported-systems fuse))
-             `(("fuse" ,fuse))
+                     (package-supported-systems fuse-2))
+             `(("fuse" ,fuse-2))
              '())
 
        ("freetype" ,freetype)

gnu/packages/build-tools.scm

@@ -605,7 +605,7 @@ (define-public tup
                    (display "au BufNewFile,BufRead Tupfile,*.tup setf tup")))
                #t))))))
     (inputs
-     (list fuse-3 pcre
+     (list fuse pcre
            `(,pcre "bin") ; pcre-config
            sqlite))
     (native-inputs

gnu/packages/crypto.scm

@@ -333,7 +333,7 @@ (define-public encfs
        ("googletest-source" ,(package-source googletest))
        ("perl" ,perl)))
     (inputs
-     (list attr fuse openssl-1.1 tinyxml2))
+     (list attr fuse-2 openssl-1.1 tinyxml2))
     (arguments
      `(#:configure-flags (list "-DUSE_INTERNAL_TINYXML=OFF")
        #:phases
@@ -1532,7 +1532,7 @@ (define-public cryfs
     (native-inputs
      (list pkg-config python-wrapper))
     (inputs
-     (list boost curl fuse range-v3 spdlog))
+     (list boost curl fuse-2 range-v3 spdlog))
     (home-page "https://www.cryfs.org/")
     (synopsis "Encrypted FUSE filesystem for the cloud")
     (description "CryFS encrypts your files, so you can safely store them anywhere.

gnu/packages/file-systems.scm

@@ -198,7 +198,7 @@ (define-public bindfs
        ;; ("which" ,which)
      (list pkg-config))
     (inputs
-     (list fuse))
+     (list fuse-2))
     (home-page "https://bindfs.org")
     (synopsis "Bind mount a directory and alter permission bits")
     (description
@@ -275,7 +275,7 @@ (define-public avfs
     (arguments
      '(#:configure-flags '("--enable-library" "--enable-fuse")))
     (native-inputs (list pkg-config))
-    (inputs (list xz fuse))
+    (inputs (list xz fuse-2))
     (synopsis "Virtual file system that allows browsing of compressed files")
     (description
      "AVFS is a FUSE-based filesystem that allows browsing of compressed
@@ -565,7 +565,7 @@ (define-public gphotofs
     (native-inputs
      (list pkg-config))
     (inputs
-     (list fuse glib libgphoto2))
+     (list fuse-2 glib libgphoto2))
     (synopsis "Virtual file system for libgphoto2 using FUSE")
     (description "GPhotoFS is a FUSE file system module to mount your camera as
 a file system on Linux.  This allow using your camera with any tool able to read
@@ -756,7 +756,7 @@ (define-public httpfs2
     (native-inputs
      (list asciidoc docbook-xml libxml2 libxslt pkg-config))
     (inputs
-     (list fuse gnutls))
+     (list fuse-2 gnutls))
     (arguments
      (list #:phases
            #~(modify-phases %standard-phases
@@ -921,7 +921,7 @@ (define-public disorderfs
     (native-inputs
      (list pkg-config))
     (inputs
-     (list fuse attr))
+     (list fuse-2 attr))
     (arguments
      `(#:phases (modify-phases %standard-phases
                   (delete 'configure))  ; no configure script
@@ -983,7 +983,7 @@ (define-public glusterfs
        ("cmocka" ,cmocka)))
     (inputs
      `(("acl" ,acl)
-       ("fuse" ,fuse)
+       ("fuse" ,fuse-2)
        ("openssl" ,openssl)
        ("liburcu" ,liburcu)
        ("libuuid" ,util-linux "lib")
@@ -1030,7 +1030,7 @@ (define-public curlftpfs
               (("4426192") "12814800"))
              #t)))))
     (inputs
-     (list curl glib fuse))
+     (list curl glib fuse-2))
     (native-inputs
      (list pkg-config))
     (home-page "https://curlftpfs.sourceforge.net/")
@@ -1178,7 +1178,7 @@ (define-public apfs-fuse
       (arguments
        `(#:tests? #f ; No test suite
          #:configure-flags
-         '("-DUSE_FUSE3=OFF") ; FUSE 3 is not packaged yet.
+         '("-DUSE_FUSE3=OFF")
          #:phases
          (modify-phases %standard-phases
            ;; No 'install' target in CMakeLists.txt
@@ -1196,7 +1196,7 @@ (define-public apfs-fuse
                  (install-file "../source/README.md" doc)
                  #t))))))
       (inputs
-       (list bzip2 fuse zlib))
+       (list bzip2 fuse-2 zlib))
       (synopsis "Read-only FUSE driver for the APFS file system")
       (description "APFS-FUSE is a read-only FUSE driver for the @dfn{Apple File
 System} (APFS).  It is currently in an experimental state — it may not be able
@@ -1614,7 +1614,7 @@ (define-public mergerfs
                (("/sbin") "$(EXEC_PREFIX)/sbin")
                (("chown") "true")  ; disallowed in the build environment
                (("strip") "true")) ; breaks cross-compilation
-             ;; These were copied from the fuse package.
+             ;; These were copied from the fuse-2 package.
              (substitute* '("libfuse/lib/mount_util.c"
                             "libfuse/util/mount_util.c")
                (("/bin/(u?)mount" _ maybe-u)
@@ -1811,7 +1811,7 @@ (define-public rewritefs
       (native-inputs
        (list pkg-config))
       (inputs
-       (list fuse pcre))
+       (list fuse-2 pcre))
       (home-page "https://github.com/sloonz/rewritefs")
       (synopsis "FUSE file system that changes particular file names")
       (description
@@ -1839,7 +1839,7 @@ (define-public squashfuse
         (base32 "03aw8pw8694jyrzpnbry05rk9718sqw66kiyq878bbb679gl7224"))))
     (build-system gnu-build-system)
     (native-inputs (list autoconf automake libtool pkg-config))
-    (inputs (list attr fuse xz zlib `(,zstd "lib")))
+    (inputs (list attr fuse-2 xz zlib `(,zstd "lib")))
     (home-page "https://github.com/vasi/squashfuse")
     (synopsis "Fuse filesystem to mount squashfs archives")
     (description
@@ -1935,7 +1935,7 @@ (define-public fuse-overlayfs
     (native-inputs
      (list automake autoconf libtool pkg-config))
     (inputs
-     (list fuse-3))
+     (list fuse))
     (home-page "https://github.com/containers/fuse-overlayfs")
     (synopsis "FUSE implementation of overlayfs")
     (description "This package provides an implementation of overlay+shiftfs
@@ -2056,7 +2056,7 @@ (define-public dwarfs
       boost
       double-conversion
       fmt
-      fuse-3
+      fuse
       gflags
       jemalloc
       libarchive

gnu/packages/freedesktop.scm

@@ -2798,7 +2798,7 @@ (define-public xdg-desktop-portal
        ("dbus" ,dbus)
        ("geoclue" ,geoclue)
        ("pipewire" ,pipewire)
-       ("fuse" ,fuse-3)))
+       ("fuse" ,fuse)))
     (arguments
      `(#:configure-flags
        (list "--with-systemd=no")

gnu/packages/gnome.scm

@@ -7008,7 +7008,7 @@ (define-public gvfs
            docbook-xsl
            dbus
            elogind
-           fuse-3
+           fuse
            gcr
            glib
            gnome-online-accounts

gnu/packages/kde.scm

@@ -507,7 +507,7 @@ (define-public kio-fuse
                               (invoke "dbus-launch" "ctest" "-E"
                                "(fileopstest-cache|fileopstest-filejob)")))))))
     (native-inputs (list dbus extra-cmake-modules pkg-config))
-    (inputs (list fuse-3 kio kcoreaddons qtbase-5))
+    (inputs (list fuse kio kcoreaddons qtbase-5))
     (home-page "https://community.kde.org/Frameworks")
     (synopsis "FUSE Interface for KIO")
     (description "This package provides FUSE Interface for KIO.")

gnu/packages/libusb.scm

@@ -523,7 +523,7 @@ (define-public ifuse
                (base32
                 "11wdv44qwia77sh38n36809ysaib52rwd4fvqwb5ybsbz4p70l1m"))))
     (inputs
-     (list fuse libimobiledevice))
+     (list fuse-2 libimobiledevice))
     (native-inputs
      (list pkg-config))
     (build-system gnu-build-system)

gnu/packages/linux.scm

@@ -2309,7 +2309,7 @@ (define-public dislocker
     (build-system cmake-build-system)
     (arguments
      '(#:tests? #f)) ;no test suite
-    (inputs (list fuse mbedtls-apache))
+    (inputs (list fuse-2 mbedtls-apache))
     (synopsis "FUSE driver to read/write Windows BitLocker drives")
     (description
      "This package provides means to to read BitLocker encrypted
@@ -3692,7 +3692,7 @@ (define-public iotop
 or kill them altogether.")
     (license license:gpl2+)))
 
-(define-public fuse
+(define-public fuse-2
   (package
     (name "fuse")
     (version "2.9.9")
@@ -3762,9 +3762,9 @@ (define-public fuse
     (license (list license:lgpl2.1                ;library
                    license:gpl2+))))              ;command-line utilities
 
-(define-public fuse-3
+(define-public fuse
   (package
-    (inherit fuse)
+    (inherit fuse-2)
     (name "fuse")
     (version "3.10.5")
     (source (origin
@@ -3838,7 +3838,7 @@ (define-public unionfs-fuse
     (build-system cmake-build-system)
     (native-inputs
      (list python))
-    (inputs (list fuse))
+    (inputs (list fuse-2))
     (arguments
      ;; The tests were never actually run ("collected 0 items"), but in recent
      ;; versions of pytest that causes an error.
@@ -3852,10 +3852,10 @@ (define-public unionfs-fuse
 UnionFS-FUSE additionally supports copy-on-write.")
     (license license:bsd-3)))
 
-(define fuse-static
-  (package (inherit fuse)
+(define fuse-2-static
+  (package (inherit fuse-2)
     (name "fuse-static")
-    (source (origin (inherit (package-source fuse))
+    (source (origin (inherit (package-source fuse-2))
               (modules '((guix build utils)))
               (snippet
                '(begin
@@ -3903,7 +3903,7 @@ (define-public unionfs-fuse/static
                ;; we don't need it, remove it.
                (delete-file (string-append out "/bin/unionfsctl"))
                #t))))))
-    (inputs `(("fuse" ,fuse-static)))))
+    (inputs `(("fuse" ,fuse-2-static)))))
 
 (define-public sshfs
   (package
@@ -3922,7 +3922,7 @@ (define-public sshfs
      ;; XXX: tests are skipped: FUSE kernel module does not seem to be loaded
      '(#:tests? #f))
     (inputs
-     (list fuse-3 glib))
+     (list fuse glib))
     (native-inputs
      (list pkg-config
            ;; man page
@@ -3953,7 +3953,7 @@ (define-public archivemount
        (sha256
         (base32 "1cy5b6qril9c3ry6fv7ir87s8iyy5vxxmbyx90dm86fbra0vjaf5"))))
     (build-system gnu-build-system)
-    (inputs (list fuse libarchive))
+    (inputs (list fuse-2 libarchive))
     (native-inputs (list pkg-config))
     (home-page "https://www.cybernoia.de/software/archivemount.html")
     (synopsis "Tool for mounting archive files with FUSE")
@@ -5913,7 +5913,7 @@ (define-public fuse-exfat
     (native-inputs
      (list pkg-config))
     (inputs
-     (list fuse))
+     (list fuse-2))
     (home-page "https://github.com/relan/exfat")
     (synopsis "Mount exFAT file systems")
     (description
@@ -5936,7 +5936,7 @@ (define-public fuseiso
     (native-inputs
      (list pkg-config))
     (inputs
-     (list fuse glib zlib))
+     (list fuse-2 glib zlib))
     (home-page "https://sourceforge.net/projects/fuseiso/")
     (synopsis "Mount ISO file system images")
     (description
@@ -6611,7 +6611,7 @@ (define-public ntfs-3g
                              "@sbindir@"))))))
     (build-system gnu-build-system)
     (inputs (list util-linux ; libuuid
-                  fuse))
+                  fuse-2))
     (native-inputs (list pkg-config))
     (arguments
      '(#:configure-flags (list "--disable-static"
@@ -8472,7 +8472,7 @@ (define-public jmtpfs
           "1pm68agkhrwgrplrfrnbwdcvx5lrivdmqw8pb5gdmm3xppnryji1"))))
     (build-system gnu-build-system)
     (inputs
-     (list file fuse libmtp))
+     (list file fuse-2 libmtp))
     (native-inputs
      (list pkg-config))
     (home-page "https://github.com/JasonFerrara/jmtpfs")

gnu/packages/package-management.scm

@@ -1863,7 +1863,7 @@ (define-public libostree
            docbook-xml
            docbook-xsl
            e2fsprogs
-           fuse
+           fuse-2
            glib
            gpgme
            libarchive
@@ -1964,7 +1964,7 @@ (define-public flatpak
            bubblewrap
            curl
            dconf
-           fuse
+           fuse-2
            gdk-pixbuf
            gpgme
            json-glib

gnu/packages/python-xyz.scm

@@ -13306,7 +13306,7 @@ (define-public python-llfuse
                 "1jaf790rsxvz3hs9fbr3hrnmg0xzl6a2bqfa10bbbsjsdbcpk762"))))
     (build-system python-build-system)
     (inputs
-     (list fuse attr))
+     (list fuse-2 attr))
     (native-inputs
      (list pkg-config python-pytest))
     (synopsis "Python bindings for FUSE")
@@ -24387,10 +24387,9 @@ (define-public python-fusepy
              (let ((fuse (assoc-ref inputs "fuse")))
                (substitute* "fuse.py"
                  (("find_library\\('fuse'\\)")
-                  (string-append "'" fuse "/lib/libfuse.so'")))
-               #t))))))
+                  (string-append "'" fuse "/lib/libfuse.so'")))))))))
     (propagated-inputs
-     (list fuse))
+     (list fuse-2))
     (home-page "https://github.com/fusepy/fusepy")
     (synopsis "Simple ctypes bindings for FUSE")
     (description "Python module that provides a simple interface to FUSE and
@@ -24417,10 +24416,9 @@ (define-public python-fusepyng
              (let ((fuse (assoc-ref inputs "fuse")))
                (substitute* "fusepyng.py"
                  (("os.environ.get\\('FUSE_LIBRARY_PATH'\\)")
-                  (string-append "\"" fuse "/lib/libfuse.so\""))))
-             #t)))))
+                  (string-append "\"" fuse "/lib/libfuse.so\"")))))))))
     (inputs
-     (list fuse))
+     (list fuse-2))
     (propagated-inputs
      (list python-paramiko))
     (home-page "https://github.com/rianhunter/fusepyng")
@@ -31962,10 +31960,10 @@ (define-public python-pyfuse3
           (base32 "0cvybynv9igssfa4l13q09gb6m7afmwk34wsbq8jk14sqpd4dl92"))))
     (build-system python-build-system)
     (native-inputs (list pkg-config))
-    (inputs (list fuse-3))
+    (inputs (list fuse))
     (propagated-inputs (list python-pytest-trio))
     (home-page "https://github.com/libfuse/pyfuse3")
-    (synopsis "Python bindings FUSE 3")
+    (synopsis "Python bindings to FUSE 3")
     (description "This package provides Python 3 bindings for libfuse 3 with
 async I/O support.")
     (license license:gpl2+)))

gnu/packages/storage.scm

@@ -222,7 +222,7 @@ (define-public ceph
            expat
            fcgi
            fmt-8
-           fuse
+           fuse-2
            icu4c
            jemalloc
            keyutils

gnu/packages/sync.scm

@@ -546,7 +546,7 @@ (define-public casync
              acl
              libselinux
              eudev
-             fuse
+             fuse-2
              openssl
              zlib))
       (synopsis "File synchronization and backup system")

gnu/packages/virtualization.scm

@@ -1325,7 +1325,7 @@ (define-public lxcfs
     (native-inputs
      (list autoconf automake libtool pkg-config))
     (inputs
-     (list fuse))
+     (list fuse-2))
     (build-system gnu-build-system)
     (synopsis "FUSE-based file system for LXC")
     (description "LXCFS is a small FUSE file system written with the intention
@@ -1499,7 +1499,7 @@ (define-public libvirt
     (inputs
      (list acl
            attr
-           fuse
+           fuse-2
            libxml2
            eudev
            libpciaccess

gnu/system.scm

@@ -1244,7 +1244,7 @@ (define %setuid-programs
                (file-append sudo "/bin/sudo")
                (file-append sudo "/bin/sudoedit")
                (file-append fuse "/bin/fusermount")
-               (file-append fuse-3 "/bin/fusermount3")
+               (file-append fuse "/bin/fusermount3")
 
                ;; To allow mounts with the "user" option, "mount" and "umount" must
                ;; be setuid-root.